STANDARD DATA DICTIONARY #3.5 -- DEVICE FILE 6/27/25 PAGE 1
STORED IN ^%ZIS(1, (53 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 8.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file defines all input/output devices that can be accessed from this CPU (definitions are not account-specific). Each device
is identified with a unique name. Each is associated with a $I value which may correspond with a hardware port or, on layered
systems, a host file or directory. If there are several devices for the same volume set and $I, one may be given sign-on system
status. Devices may also be assigned to hunt groups to share work. This file is cross-referenced by name, $I, volume set(CPU),
and sign-on/system device. It is also cross-referenced by hunt group, local synonym, mnemonic, subtype, and form currently
mounted.
FILE SCREEN (SCR-node) : I 1 Q:$G(D)'="LSYN" Q:'$D(^%ZOSF("VOL")) I $P(^%ZIS(1,Y,0),U,9)=^%ZOSF("VOL")!($P(^%ZIS(1,Y,0),U,9)="")
DD ACCESS: #
WR ACCESS: #
DEL ACCESS: #
LAYGO ACCESS: #
APPLICATION GROUP(S): XU, ZIS
IDENTIFIED BY: LOCATION OF TERMINAL (#.02)[R], $I (#1)[R], VOLUME SET(CPU) (#1.9), TYPE (#2)[R]
POINTED TO BY: DEVICE field (#.01) of the FAILED ACCESS ATTEMPTS LOG File (#3.05)
DEVICE field (#5) of the SIGN-ON LOG File (#3.081)
DEVICE field (#2) of the LINE/PORT ADDRESS File (#3.23)
CLOSEST PRINTER field (#16) of the DEVICE File (#3.5)
SLAVED FROM DEVICE field (#28) of the DEVICE File (#3.5)
LAB LABEL PRINTER field (#101) of the DEVICE File (#3.5)
DEVICE field (#.01) of the PRINT QUEUE JOB File (#3.52)
DESPOOL DEVICES field (#.01) of the DESPOOL DEVICES sub-field (#3.532) of the DEVICE File (#3.5)
Device file entry field (#91) of the TASKS File (#14.4)
SERVER DEVICE field (#227) of the OPTION File (#19)
PERMITTED DEVICE field (#.01) of the PERMITTED DEVICE sub-field (#19.396) of the OPTION File (#19)
AUTOFINISH CLINIC PRINTER field (#22901) of the HOSPITAL LOCATION File (#44)
FAILED DEVICE field (#.01) of the PHARMACY PRINTED QUEUE File (#52.9)
LABEL PRINTER POINTER field (#.13) of the INPATIENT USER PARAMETERS File (#53.45)
MISSING DOSE PRINTER field (#4) of the CLINIC DEFINITION File (#53.46)
PRE-EXCHANGE REPORT DEVICE field (#5) of the CLINIC DEFINITION File (#53.46)
OUTPUT DEVICE field (#.06) of the BCMA REPORT REQUEST File (#53.69)
DEFAULT MAR PRINTER field (#2) of the BCMA BACKUP PARAMETERS File (#53.71)
ATC DEVICE POINTER field (#32) of the WARD GROUP File (#57.5)
DEFAULT GREEN SHEET PRINTER field (#24) of the DRUG ACCOUNTABILITY STATS File (#58.8)
DEFAULT REPORT PRINTER field (#25) of the DRUG ACCOUNTABILITY STATS File (#58.8)
DEFAULT LABEL PRINTER field (#26) of the DRUG ACCOUNTABILITY STATS File (#58.8)
EMERGENCY ORDER PRINTER field (#29) of the DRUG ACCOUNTABILITY STATS File (#58.8)
SCRIPTALK DEVICE field (#107) of the OUTPATIENT SITE File (#59)
FDA MED GUIDE PRINTER field (#.01) of the FDA MED GUIDE PRINTER sub-field (#59.0135) of the OUTPATIENT SITE File
(#59)
DISPENSING SYSTEM PRINTER field (#.01) of the DISPENSING SYSTEM PRINTER sub-field (#59.02008) of the OUTPATIENT SITE
File (#59)
DISPLAY DEVICE field (#2) of the GROUP DISPLAY File (#59.3)
DEFAULT WS REQUESTS PRINTER field (#32) of the INPATIENT SITE File (#59.4)
WARD LABEL PRINTER POINTER field (#.19) of the INPATIENT WARD PARAMETERS File (#59.6)
PHARMACY LABEL PRINTER POINTER field (#.2) of the INPATIENT WARD PARAMETERS File (#59.6)
PRE-EXCHANGE REPORT DEVICE field (#4) of the INPATIENT WARD PARAMETERS File (#59.6)
PMIS PRINTER field (#13) of the PHARMACY SYSTEM File (#59.7)
LABEL PRINTER TO BE MAPPED field (#.01) of the SCRIPTALK PRINT DEVICE MAPPING sub-field (#59.747) of the PHARMACY
SYSTEM File (#59.7)
SCRIPTALK DEVICE field (#.02) of the SCRIPTALK PRINT DEVICE MAPPING sub-field (#59.747) of the PHARMACY SYSTEM File
(#59.7)
ECHO DEVICE field (#1) of the AUTO INSTRUMENT File (#62.4)
DIRECT DEVICE field (#29) of the AUTO INSTRUMENT File (#62.4)
DEVICE field (#1) of the REPORT NAME sub-field (#64.56) of the LAB REPORTS File (#64.5)
DEVICE field (#3) of the INTERIM REPORTS File (#64.6)
LABEL PRINTERS field (#.01) of the LABEL PRINTERS sub-field (#69.863) of the HOWDY SITE FILE File (#69.86)
SPACER LABEL PRINTER field (#.01) of the SPACER LABEL PRINTER sub-field (#69.8645) of the HOWDY SITE FILE File
(#69.86)
BINGO BOARD DEVICE field (#.01) of the BINGO BOARD DEVICE sub-field (#69.8654) of the HOWDY SITE FILE File (#69.86)
LOG PRINTER FOR ROUTINE LC field (#303) of the LABORATORY SITE File (#69.9)
IMMED LAB COLLECT PRINTER field (#.05) of the IMMED LAB COLLECT DIV. sub-field (#69.9006) of the LABORATORY SITE
File (#69.9)
LOG PRINTER FOR ROUTINE LC field (#.02) of the PRINTER DIVISION sub-field (#69.9007) of the LABORATORY SITE File
(#69.9)
ACCESSION PRINTER field (#.03) of the PRINTER DIVISION sub-field (#69.9007) of the LABORATORY SITE File (#69.9)
LABEL DEVICE field (#.01) of the LABEL DEVICE sub-field (#69.9008) of the LABORATORY SITE File (#69.9)
REQUIRED FLASH CARD PRINTER field (#3) of the RAD/NUC MED PROCEDURES File (#71)
REQUIRED FLASH CARD PRINTER field (#3) of the NEW RAD PROCEDURE WORKUP File (#71.11)
RESOURCE DEVICE field (#100) of the RAD/NUC MED DIVISION File (#79)
FLASH CARD PRINTER NAME field (#3) of the IMAGING LOCATIONS File (#79.1)
JACKET LABEL PRINTER NAME field (#5) of the IMAGING LOCATIONS File (#79.1)
REPORT PRINTER NAME field (#10) of the IMAGING LOCATIONS File (#79.1)
REQUEST PRINTER NAME field (#16) of the IMAGING LOCATIONS File (#79.1)
DOSAGE TICKET PRINTER field (#23) of the IMAGING LOCATIONS File (#79.1)
CANCELLED REQUEST PRINTER field (#24) of the IMAGING LOCATIONS File (#79.1)
REGISTERED REQUEST PRINTER field (#28) of the IMAGING LOCATIONS File (#79.1)
ALTERNATE REQUEST PRINTER field (#81) of the IMAGING LOCATIONS File (#79.1)
DEVICE field (#1.5) of the OE/RR LIST File (#100.21)
SERVICE COPY DEFAULT DEVICE field (#.05) of the PACKAGE SITE PARAMETERS sub-field (#100.9901) of the ORDER
PARAMETERS File (#100.99)
SERVICE COPY PRINT DEVICE field (#.02) of the HOSPITAL SITE sub-field (#100.99011) of the PACKAGE SITE PARAMETERS
sub-field (#100.9901) of the ORDER PARAMETERS File (#100.99)
CHART COPY PRINT DEVICE field (#.04) of the HOSPITAL SITE sub-field (#100.9925) of the ORDER PARAMETERS File
(#100.99)
LABEL PRINT DEVICE field (#.05) of the HOSPITAL SITE sub-field (#100.9925) of the ORDER PARAMETERS File (#100.99)
REQUISITION PRINT DEVICE field (#.06) of the HOSPITAL SITE sub-field (#100.9925) of the ORDER PARAMETERS File
(#100.99)
DAILY ORDER SUMMARY DEVICE field (#1) of the HOSPITAL SITE sub-field (#100.9925) of the ORDER PARAMETERS File
(#100.99)
PRINTER field (#2) of the FHQUE QUEUED REPORTS/LABELS File (#117.024)
LABEL PRINTERS field (#.01) of the LABEL PRINTERS sub-field (#119.93) of the FH SITE PARAMETERS File (#119.9)
PRINTED TO field (#8) of the REQUEST PROCESSING ACTIVITY sub-field (#123.02) of the REQUEST/CONSULTATION File (#123)
SERVICE PRINTER field (#123.09) of the REQUEST SERVICES File (#123.5)
SECONDARY PRINTER field (#689) of the REQUEST SERVICES File (#123.5)
DEVICE FOR NIGHTLY PRINT field (#.02) of the LOCATION(S) USING THE SUMMARY sub-field (#142.2) of the HEALTH SUMMARY
TYPE File (#142)
SPOOL DEVICE field (#.04) of the HEALTH SUMMARY PARAMETERS File (#142.99)
CNO PRINTER field (#2) of the NURS PARAMETERS File (#213.9)
CMS-1500 AUTO PRINTER field (#8.14) of the IB SITE PARAMETERS File (#350.9)
UB-04 AUTO PRINTER field (#8.15) of the IB SITE PARAMETERS File (#350.9)
EOB AUTO PRINTER field (#8.16) of the IB SITE PARAMETERS File (#350.9)
MRA AUTO PRINTER field (#8.19) of the IB SITE PARAMETERS File (#350.9)
PRINTER ASSIGN field (#2) of the RECALL REMINDERS TEAM File (#403.55)
DEFAULT TEAM PRINTER field (#.04) of the TEAM File (#404.51)
CMOP DEVICE field (#6) of the CMOP INTERFACE File (#553)
TRANSMIT REPORT PRINTER field (#6) of the HBHC SYSTEM PARAMETERS File (#631.9)
PURCHASING DEVICE field (#9) of the PROSTHETICS SITE PARAMETERS File (#669.9)
ORTHOTIC LAB DEVICE field (#27) of the PROSTHETICS SITE PARAMETERS File (#669.9)
RESTORATION CLINIC DEVICE field (#28) of the PROSTHETICS SITE PARAMETERS File (#669.9)
SHOE LAST CLINIC DEVICE field (#29) of the PROSTHETICS SITE PARAMETERS File (#669.9)
WHEELCHAIR REPAIR SHOP DEVICE field (#30) of the PROSTHETICS SITE PARAMETERS File (#669.9)
INVENTORY DEVICE field (#35) of the PROSTHETICS SITE PARAMETERS File (#669.9)
WORKLOAD DEVICE field (#.01) of the WORKLOAD DEVICE sub-field (#690.18) of the MEDICINE PACKAGE PARAMETERS File
(#690.1)
PRIMARY PRINT DEVICE field (#5) of the EAS MT PARAMETERS File (#713)
PRINT DEVICE AT LOCATION field (#1) of the *ADDITIONAL PRINT LOCATIONS sub-field (#713.025) of the EAS MT PARAMETERS
File (#713)
INTERFACE DEVICE field (#.02) of the PCE DATA SOURCE File (#839.7)
REPORT DEVICE field (#4) of the RELATION ACTIONS sub-field (#860.22) of the ORDER CHECK RULE File (#860.2)
HLLP DEVICE field (#200.01) of the HL LOWER LEVEL PROTOCOL PARAMETER File (#869.2)
X3.28 DEVICE field (#300.01) of the HL LOWER LEVEL PROTOCOL PARAMETER File (#869.2)
HLLP DEVICE field (#200.01) of the HL LOGICAL LINK File (#870)
X3.28 DEVICE field (#300.01) of the HL LOGICAL LINK File (#870)
DEVICE # field (#.01) of the ENGINEERING COMPUTER PORT File (#6910.1)
DEVICE field (#2) of the ENGINEERING SECTION LIST File (#6922)
RESOURCE field (#2) of the NOIS OFFICE File (#7105.3)
DEFAULT RESOURCE field (#3) of the NOIS PARAMETER File (#7109)
PROGRESS NOTES DEFAULT PRINTER field (#1.03) of the TIU PRINT PARAMETERS File (#8925.93)
PROGRESS NOTES BATCH PRINTER field (#1.02) of the TIU DIVISION PRINT PARAMETERS File (#8925.94)
DEFAULT PRINTER field (#.13) of the TIU DOCUMENT PARAMETERS File (#8925.95)
CHART COPY PRINTER field (#.02) of the DIVISION sub-field (#8925.952) of the TIU DOCUMENT PARAMETERS File (#8925.95)
STAT CHART COPY PRINTER field (#.03) of the DIVISION sub-field (#8925.952) of the TIU DOCUMENT PARAMETERS File
(#8925.95)
DEVICE TO AUDIT field (#.01) of the DEVICE TO AUDIT sub-field (#8989.33) of the KERNEL SYSTEM PARAMETERS File
(#8989.3)
ENTITY field (#.01) of the PARAMETERS File (#8989.5)
CROSS
REFERENCED BY: VOLUME SET(CPU)(AC), $I(ACPU), $I(AD), NAME(B), MNEMONIC(B), $I(C), VOLUME SET(CPU)(CPU),
FORM CURRENTLY MOUNTED(F), SIGN-ON/SYSTEM DEVICE(G), LOCAL SYNONYM(LSYN)
LAST MODIFIED: APR 27,2025@08:49:26
3.5,.01 NAME 0;1 FREE TEXT (Required) (audited)
INPUT TRANSFORM: K:X[";"!(X[".")!($L(X)>30)!(X'?1U.UNP) X
LAST EDITED: DEC 18, 2023
HELP-PROMPT: NAME BY WHICH TO REFER TO THE DEVICE, Must start with 1 UPPERcase and not contain lowercase, or
';', or '.'.
DESCRIPTION: This is the name of the device. It is used at the 'DEVICE' prompt to select this device. It should
not be the internal name for the device but a logical one. It must start with 1 uppercase and not
contain lowercase.
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 3.5^B
1)= S ^%ZIS(1,"B",$E(X,1,30),DA)=""
2)= K ^%ZIS(1,"B",$E(X,1,30),DA)
3.5,.02 LOCATION OF TERMINAL 1;1 FREE TEXT (Required) (audited)
INPUT TRANSFORM: K:$L(X)>35!($L(X)<2) X
LAST EDITED: DEC 18, 2023
HELP-PROMPT: ANSWER MUST BE 2-35 CHARACTERS IN LENGTH
DESCRIPTION:
This is a free text description of where the device is located, e.g. Ward 2A nurse station, etc.
AUDIT: YES, ALWAYS
3.5,.03 MNEMONIC MN;0 Multiple #3.501
DESCRIPTION:
These are alternate names which may be used to select the device.
3.501,.01 MNEMONIC 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>35!($L(X)<1)!($D(^%ZIS(1,"C",$E(X,1,30)))) X
LAST EDITED: JUN 02, 1989
HELP-PROMPT: ANSWER MUST BE 1-35 CHARACTERS IN LENGTH and not equal to a $I.
DESCRIPTION:
This is an alternate name which may be used to select the device.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 3.5^B^MNEMONIC
1)= S ^%ZIS(1,"B",$E(X,1,30),DA(1),DA)=1
2)= K ^%ZIS(1,"B",$E(X,1,30),DA(1),DA)
Since this cross-reference is also a B cross-reference, the alternate name should not be the same
as the #.01 NAME field. If they are the same, then a change in one could affect the
cross-reference of the other.
3.5,.04 LOCAL SYNONYM 1;4 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUN 23, 1988
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION: This is an alternate name which may be used to select the device. When using the LOCAL SYNONYM to
select the device, selection can only occur on the local CPU. For example, if you assigned a LOCAL
SYNONYM to one device on the local CPU, and the same name to a device on the remote CPU, selection
using the LOCAL SYNONYM will return the device on the local CPU.
EXECUTABLE HELP: W !,"ENTER THE NAME WHICH CAN BE USED TO SELECT THIS DEVICE",!,"WHEN REFERENCING FROM THE CPU WHICH
THIS DEVICE BELONGS."
CROSS-REFERENCE: 3.5^LSYN
1)= S ^%ZIS(1,"LSYN",$E(X,1,30),DA)=""
2)= K ^%ZIS(1,"LSYN",$E(X,1,30),DA)
3.5,.13 PURGE OLD PRINT QUEUE FILES 0;13 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: NOV 07, 2011
HELP-PROMPT: Should old files in the Print Queue Directory be deleted?
DESCRIPTION: This field determines whether old HFS files associated with entries in the PRINT QUEUE JOB (#3.52)
file should be deleted. It only applies to devices of the PRINT QUEUE type. For print queues, an
intermediate host file is created in the PRINT_QUEUES subdirectory.
Normally, these files are automatically deleted once they have been submitted to the print queue.
For those files that are not automatically deleted, there is a scheduled option that will
periodically delete host files that have been somehow left in existence past their usefulness.
Setting this field to NO will prevent the purge option from deleting HFS files created via this
device. Setting this field to NO should only be done on a temporary basis while troubleshooting a
problem involving a print queue.
The default value for this field is YES.
3.5,1 $I 0;2 FREE TEXT (Required) (audited)
DEVICE $I
INPUT TRANSFORM: K:$L(X)>250 X I $D(X) N % S %=$G(^("TYPE")) I $D(^%ZIS(1,"C",X)) D EN^DDIOL(" This $I in use by oth
er Devices."_$C(7),"","?30") K:%="RES" X
MAXIMUM LENGTH: 250
9.2 = I X]"",$P(^%ZIS(1,DA,0),U,11) X:$D(^%ZIS(1,"G","SYS."_$P(^(0),U,9)_"."_X))>9 ^DD(3.5,1,9.3) I
$P(^%ZIS(1,DA,0),U,11) S ^%ZIS(1,"G","SYS."_$P(^(0),U,9)_"."_X,DA)=""
9.3 = S $P(^%ZIS(1,DA,0),U,11)="" W !,*7,"CONFLICT OCCURRED. DELETING "_$P(^DD(3.5,1.95,0),U,1)_"
FROM DEVICE "_$P(^%ZIS(1,DA,0),U,1)
LAST EDITED: SEP 05, 2024
HELP-PROMPT: on DSM, M+, and MSM $I must be numeric if it is for a local port.
DESCRIPTION: This field holds the Hardware port name that the OS can identify when referencing a port on a CPU.
On layered systems where opening of host files is supported, this field may hold the host file
name. When defining a spool device entry(TYPE="SPL") on VAX DSM or MSM-Unix, enter the name of
directory where spool host files will be created.
EXECUTABLE HELP: W !,"If the '$I' value is zero ('0'), then",!?4,"the Device will be understood to be a slave device
on the current port",!
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 3.5^C
1)= S ^%ZIS(1,"C",X,DA)=""
2)= K ^%ZIS(1,"C",X,DA)
CROSS-REFERENCE: 3.5^AD^MUMPS
1)= I $D(ZISOX) K:'$D(^%ZIS(1,DA,0))!(ZISOX=X) ZISOX I $D(ZISOX) K:$P(^(0),U,2)="" ZISOX I $D(ZISOX
) K ^%ZIS(1,"G","SYS."_$P(^(0),U,9)_"."_ZISOX,DA) X ^DD(3.5,1,9.2) K ZISOX
2)= S ZISOX=X
This sets up the 'G' cross-reference used to identify the primary device.
CROSS-REFERENCE: 3.5^ACPU^MUMPS
1)= S:$S($D(^%ZIS(1,DA,0)):$S(X]"":1,1:0),1:0) ^%ZIS(1,"CPU",$P(^(0),U,9)_"."_X,DA)=""
2)= K:$S($D(^%ZIS(1,DA,0)):$S(X]"":1,1:0),1:0) ^%ZIS(1,"CPU",$P(^(0),U,9)_"."_X,DA)
This sets up the 'CPU' cross-reference used to find devices that have a particular $I on a
specified VOLUME SET(CPU).
CROSS-REFERENCE: ^^TRIGGER^3.54^.01
1)= X ^DD(3.5,1,1,4,1.3) I X S X=DIV X ^DD(3.5,1,1,4,89.2) S Y(101)=$S($D(^%ZISL(3.54,D0,0)):^(0),1
:"") S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIV X ^DD(3.5,1,1,4,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^%ZIS(1,D0,"TYPE")):^("TYPE"),1:"") S X=$
P(Y(1),U,1),X=X S X=X="RES"
1.4)= S DIH=$S($D(^%ZISL(3.54,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,1)=DIV,DIH=3.54,DI
G=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^%ZIS(1,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S X=X
K DIC S DIC="^%ZISL(3.54,",DIC(0)="NMFL" D ^DIC S (D,D0,DIV(0))=+Y
CREATE CONDITION)= INTERNAL(#2)="RES"
CREATE VALUE)= #1
DELETE VALUE)= NO EFFECT
DIC)= LOOKUP
FIELD)= #1:RESOURCE:#.01
Whenever the $I is edited, the new value of $I is triggered into the name field of the RESOURCE
File(#3.54). This ensures that an entry in the RESOURCE File(#3.54) is established for every
device entry of TYPE RESOURCE.
3.5,1.9 VOLUME SET(CPU) 0;9 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!(X'?.8UN.1":"1.12UN) X
9.2 = K ^%ZIS(1,"G","SYS."_ZISOX_"."_$P(^%ZIS(1,DA,0),U,2),DA) I $P(^%ZIS(1,DA,0),U,11) X:$D(^%ZIS(
1,"G","SYS."_ZISNX_"."_$P(^(0),U,2)))>9 ^DD(3.5,1.9,9.3) I $P(^%ZIS(1,DA,0),U,11) S ^%ZIS(1,"G","SY
S."_ZISNX_"."_$P(^(0),U,2),DA)=""
9.3 = S $P(^%ZIS(1,DA,0),U,11)="" W !,*7,"CONFLICT OCCURRED. DELETING "_$P(^DD(3.5,1.95,0),U,1)_"
FROM DEVICE "_$P(^%ZIS(1,DA,0),U,1)
LAST EDITED: NOV 09, 1989
HELP-PROMPT: ANSWER MUST BE 1-8 ALPHA NAME OF A VOLUME SET (E.G. 'CCC')
DESCRIPTION: This field holds the name of the CPU to which this device belongs. This field holds the name of
the CPU where the physical port resides. On DSM-11, VAX DSM, this field may hold the name of the
Volume Set. On M/11+, this field may hold the name of the Directory Set.
If no name has been entered for this field, this device is assumed to be accessible from all CPUs
in the network. In other words, when this device is referenced, the device handler will operate as
if this device is resident on the local CPU.
For example, if there is a device that uses the same $I on each CPU, one entry can be made in the
Device File by leaving the 'Volume Set(CPU)' Field null. This shortcut will work only if the same
$I has been associated with this device on every CPU.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 3.5^AC^MUMPS
1)= S:'$D(ZISOX) ZISOX="" K:'$D(^%ZIS(1,DA,0))!(ZISOX=X) ZISOX I $D(ZISOX) K:$P(^(0),U,2)="" ZISOX
I $D(ZISOX) S ZISNX=X X ^DD(3.5,1.9,9.2) K ZISOX,ZISNX
2)= S ZISOX=X I $D(^%ZIS(1,DA,0)),$P(^(0),U,2)]"",$P(^(0),U,9)="" S ZISNX="" X ^DD(3.5,1.9,9.2) K Z
ISNX
This sets up the 'G' cross-reference used to identify the primary device. The AC cross-reference
is needed to support the 'G' cross-reference because the 'G' cross-reference is multifield indexed.
CROSS-REFERENCE: 3.5^CPU^MUMPS
1)= I $D(^%ZIS(1,DA,0)),$P(^(0),U,2)]"" K ^%ZIS(1,"CPU","."_$P(^(0),U,2),DA) S ^%ZIS(1,"CPU",X_"."_
$P(^%ZIS(1,DA,0),U,2),DA)=""
2)= I $D(^%ZIS(1,DA,0)),$P(^(0),U,2)]"",$D(^%ZIS(1,"CPU",X_"."_$P(^(0),U,2),DA)) K ^(DA) S ^%ZIS(1,
"CPU","."_$P(^%ZIS(1,DA,0),U,2),DA)=""
This cross-reference is a multifield index. The lookup key is a combination of $I (#1) and VOLUME
SET(CPU) (#1.9) fields.
3.5,1.95 SIGN-ON/SYSTEM DEVICE 0;11 SET
'1' FOR YES;
'0' FOR NO;
INPUT TRANSFORM: K:X=1&$S($D(^%ZIS(1,D0,0)):$S($P(^(0),U,2)]"":$S($D(^%ZIS(1,"G","SYS."_$P(^(0),U,9)_"."_$P(^(0),U,2
)))>9:1,1:0),1:1),1:0) X Q
9.2 = K:$S($D(^%ZIS(1,DA,0)):$S($P(^(0),U,2)]""&(X=0):1,1:0),1:0) ^%ZIS(1,"G","SYS."_$P(^(0),U,9)_"
."_$P(^(0),U,2),DA)
LAST EDITED: OCT 13, 1987
HELP-PROMPT: YOU MAY ASSIGN ONLY ONE SIGN-ON/SYSTEM DEVICE PER $I PER CPU.
DESCRIPTION: If answered 'YES', this field identifies that this entry is the primary device among those device
entries that have the same $I with the same VOLUME SET(CPU).
Among those device entries that have a common $I and CPU, only one of these entries can have this
field set to 'YES'. If none of the common device entries are set to 'YES', the default device will
be identified by the first device on the CPU x-ref. The default device is used when the device
handler is invoked with $I as the device to be selected.
EXECUTABLE HELP: W !,"Answer 'yes' if this device is the primary device amoung those",!,"device entries that have th
e same $I and VOLUME SET(CPU)."
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 3.5^G^MUMPS
1)= S:$S($D(^%ZIS(1,DA,0)):$S($P(^(0),U,2)]"":$S(+$O(^%ZIS(1,"G","SYS."_$P(^(0),U,9)_"."_$P(^(0),U,
2),0))'>0&(X=1):1,1:0),1:0),1:0) ^(DA)="" X ^DD(3.5,1.95,9.2)
2)= K:$S($D(^%ZIS(1,DA,0)):$S($P(^(0),U,2)]"":1,1:0),1:0) ^%ZIS(1,"G","SYS."_$P(^(0),U,9)_"."_$P(^(
0),U,2),DA)
The 'G' cross-reference is a multifield index. This index is used to identify the primary device.
The fields that affect this cross-reference are $I (#1), VOLUME SET(CPU) (#1.9) and SIGN-ON/SYSTEM
DEVICE (#1.95).
3.5,2 TYPE TYPE;1 SET (Required)
'TRM' FOR TERMINAL;
'OTH' FOR OTHER;
'MT' FOR MAGTAPE;
'SDP' FOR SDP;
'SPL' FOR SPOOL;
'BAR' FOR BARCODE READER;
'HFS' FOR HOST FILE SERVER;
'VTRM' FOR VIRTUAL TERMINAL;
'RES' FOR RESOURCES;
'CHAN' FOR NETWORK CHANNEL;
'IMPC' FOR IMAGING WORK STATION;
'PQ' FOR PRINT QUEUE;
LAST EDITED: OCT 26, 2011
DESCRIPTION: This field has the general type of device on the CPU. 'TRM' is the most common entry.
TRM -- Terminal devices such as most crts and printers
should be associated with a corresponding device entry
with a type of 'TRM'.
HFS -- Host File Server is only available on mumps platforms
that exists on a layered system(e.g.: VMS, UNIX, NT, etc.).
This type and the associated functionality provides
the vehicle to read and write to host level files.
Instead of directing reports to a printer, the results
could be placed into a VMS, NT or UNIX file. This would
allow a non-mumps based statistical package or spreadsheet
to use data produced by the mumps based application by
simply extracting data from the host file.
VTRM -- Virtual Terminal Server devices are those that are associated
with a dynamically created mumps port identification($I).
A generic device entry with a device type of 'VTRM'
can be established for users who log into the system
through terminal servers.
RES -- Resources is a type used for special sequencing of tasks
that do not require a particular device.
CHAN -- Network Channels are high speed devices that use network
protocols such as TCP/IP.
OTH -- Other devices that do not fit a particular category
should be given a type of 'OTH'.
MT -- Magtape device should have a type of 'MT'.
SPL -- Spool device is a predefined allocated disk space similar
to SDP. However, access to the spool device can be achieved
from multiple users simultaneously.
BAR -- Bar code reader. This type identifies the device
as a barcode reader.
SDP -- Sequential Disk Processor is a predefined allocated
disk space used for sequential processing. On DSM-11
and M/11+ systems, devices 59 thru 62 are reserved for SDP.
On MSM, the Sequential Block Processor(SBP) is essentially
the same as SDP. This has been replaced with HFS.
IMPC -- Imaging work station device(reserved for future use for
DHCP Imaging Project).
PQ -- Print Queues. This type of device will be used on
Cache/VMS,Linux, or Unix systems to create host files and
pass them to a print server. Print Queue devices are
not used on Windows systems.
WRITE AUTHORITY: @
CROSS-REFERENCE: ^^TRIGGER^3.54^.01
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X="RES" I X S X=DIV X ^DD(3.5,2,1,1,89.
2) ;S Y(101)=$S($D(^%ZISL(3.54,D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y X ^DD(3
.5,2,1,1,1.1) X ^DD(3.5,2,1,1,1.4)
1.1)= S X=DIV S Y(1)=$S($D(^%ZIS(1,D0,0)):^(0),1:"") S X=$P(Y(1),U,2)
1.4)= S DIH=$S($D(^%ZISL(3.54,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,1)=DIV,DIH=3.54,DI
G=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^%ZIS(1,D0,0)):^(0),1:"") S X=$P(Y(1),U,2) K DIC S DI
C="^%ZISL(3.54,",DIC(0)="NMFL" D ^DIC S (D,D0,DIV(0))=+Y
CREATE CONDITION)= INTERNAL(#2)="RES"
CREATE VALUE)= #1
DELETE VALUE)= NO EFFECT
DIC)= LOOKUP
FIELD)= #1:RESOURCE
Whenever the TYPE field of the DEVICE File(#3.5) is changed to TYPE RESOURCE, the value of $I is
triggered into the NAME field of the RESOURCE File(#3.54). This ensures that an entry in the
RESOURCE File(#3.54) is established for every device entry of TYPE RESOURCE.
CROSS-REFERENCE: ^^TRIGGER^3.5^35
1)= X ^DD(3.5,2,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^%ZIS(1,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S
DIU=X K Y S X=DIV S X="1" X ^DD(3.5,2,1,2,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X,Y(3)=$S($D(^%ZIS(1,D0,1)):^(1),1:""),X=Y(0) S X=X="RES
",Y(1)=X,Y(2)=X S X=$P(Y(3),U,10) S X=X="",Y=X,X=Y(1),X=X&Y
1.4)= S DIH=$S($D(^%ZIS(1,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,10)=DIV,DIH=3.5,DIG=35 D ^DICR:$O
(^DD(DIH,DIG,1,0))>0
2)= Q
3)= Set the default value.
CREATE CONDITION)= (INTERNAL(TYPE)="RES")&(INTERNAL(#35)="")
CREATE VALUE)= "1"
DELETE VALUE)= NO EFFECT
FIELD)= #35
Whenever a device entry is created with a TYPE RESOURCE, a default value of '1' is triggered into
the AVAILABLE SLOTS field of the RESOURCE File(#3.54).
3.5,3 SUBTYPE SUBTYPE;1 POINTER TO TERMINAL TYPE FILE (#3.2) (Required) (audited)
LAST EDITED: DEC 18, 2023
DESCRIPTION: This field tells what type of terminal is on a terminal port. It has a great impact on whether the
proper terminal control codes get sent to the terminal.
AUDIT: YES, ALWAYS
3.5,4 ASK DEVICE 0;3 SET
'1' FOR YES;
'0' FOR NO;
HELP-PROMPT: IF '0', YOU WON'T BE ASKED TO SEND OUTPUT FROM THIS DEVICE TO ANOTHER
DESCRIPTION:
This field controls if the 'DEVICE' question is asked when a call is made to ^%ZIS.
3.5,5 ASK PARAMETERS 0;4 SET
'1' FOR YES;
'0' FOR NO;
HELP-PROMPT: Enter YES if OPEN parameters(RIGHT MARGIN on TRM & VTRM devices) should be asked when the device is
selected.
DESCRIPTION: On devices of TYPE 'TRM' and 'VTRM', this field controls if the 'RIGHT MARGIN' question is asked
after selecting the device. On devices of TYPE 'MT', 'SDP', 'BAR', and 'OTH', this field controls
if the 'ADDRESS/PARAMETERS' question is asked after selecting the device.
3.5,5.1 ASK HOST FILE 1;5 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 14, 1988
HELP-PROMPT: ANSWER YES IF HOST FILE NAME SHOULD BE ASKED
DESCRIPTION: Answer 'yes' if 'HOST FILE NAME:' should be asked when the device is selected. TYPE must be 'HFS'.
Only applicable on layered systems that support host files.
3.5,5.2 ASK HFS I/O OPERATION 1;6 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 14, 1988
DESCRIPTION: For systems that support host files, this field may be used instead of 'ADDRESS/PARAMETERS' to
specify more general parameters.
If 'Ask Parameters' is null or 'NO', set this field to 'YES' and the device handler will ask for
INPUT/OUTPUT OPERATION upon selecting a device.
EXECUTABLE HELP: W !,"If you wish to have INPUT/OUTPUT OPERATION asked, answer 'yes'",!,"to this field. ASK PARAMET
ERS must be set to 'no'",!,"and the OPEN PARAMETERS must be null."
3.5,5.5 QUEUING 0;12 SET
'0' FOR ALLOWED;
'1' FOR FORCED;
'2' FOR NOT ALLOWED;
LAST EDITED: AUG 19, 2010
DESCRIPTION: When this field is set to FORCED and queuing is allowed by the calling program (%ZIS["Q"), the
Device Handler will return IO("Q")=1 upon device selection and the job will be queued. That is,
the user does not need to enter "Q" to invoke queuing and will not be prompted with the question
about wanting output queued. If the program does not allow queuing (%ZIS'["Q"), the user will see
the following message: Sorry, QUEUING is required for this device.
Set this field to NOT ALLOWED if queuing is not possible or desired for this device.
Set this field to ALLOWED if queuing is possible for this device. When this field is set to
ALLOWED, the application/user will determine if queuing is desired. Setting this field to null is
the same as setting this field to ALLOWED.
3.5,6 OUT-OF-SERVICE DATE 90;1 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 02, 1990
HELP-PROMPT: IF THERE IS AN ANSWER, TERMINAL WILL BE CONSIDERED 'OUT OF SERVICE', ON OR AFTER THAT DATE
DESCRIPTION: If entered then this device cannot be selected if the current date is greater than, or the same as,
the date specified.
3.5,7 NEAREST PHONE 90;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-25 CHARACTERS IN LENGTH
DESCRIPTION:
The location of the telephone nearest to this device.
3.5,8 KEY OPERATOR 90;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-25 CHARACTERS IN LENGTH
DESCRIPTION:
The name of the person who usually uses this device.
3.5,9 MARGIN WIDTH 91;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>256)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 05, 1997
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 256
DESCRIPTION: This field if it has data will override the Right Margin field value from the Terminal type file.
Leave this field blank unless you are sure that you need to have a different Right Margin than what
is in the terminal type file.
3.5,11 PAGE LENGTH 91;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>65534)!(X<3)!(X?.E1"."1.N) X
LAST EDITED: NOV 25, 2008
HELP-PROMPT: Type a number between 3 and 65534, 0 Decimal Digits
DESCRIPTION: This field, if it has data, will override the Page Length field value from the Terminal type file.
Leave this field blank unless you are sure that you need to have a different Page Length than what
is in the terminal type file.
If this is a CRT then this is the number of lines which can be displayed on the screen, otherwise,
for printers, it is the number of print lines per page.
3.5,11.2 SUPPRESS FORM FEED AT CLOSE 1;11 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: APR 18, 1991
DESCRIPTION: This field is used flag devices that should not have form feeds issued at the time the device is
closed. This field should be answered 'YES' for label printers.
3.5,15 SECURITY 95;E1,99 FREE TEXT
INPUT TRANSFORM: K:'$D(DUZ(0)) X I $D(X),DUZ(0)'="@" F %=1:1:$L(X) I DUZ(0)'[$E(X,%) K X Q
LAST EDITED: JAN 02, 1990
HELP-PROMPT: STRING OF SECURITY CODES (MATCHING YOUR OWN 'DUZ(0)')
DESCRIPTION: The users DUZ(0) (fileman access) must contain at least one of the characters in this field for the
user to be able to select this device.
WRITE AUTHORITY: @
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3.5,16 CLOSEST PRINTER 99;1 POINTER TO DEVICE FILE (#3.5)
DESCRIPTION: This is the name of the nearest printer, it is selected at the "DEVICE" prompt simply by entering
"P".
3.5,17 FORM CURRENTLY MOUNTED F;1 FREE TEXT
INPUT TRANSFORM: K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>30!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
This describes the type of form currently in the printer.
CROSS-REFERENCE: 3.5^F
1)= S ^%ZIS(1,"F",$E(X,1,30),DA)=""
2)= K ^%ZIS(1,"F",$E(X,1,30),DA)
3.5,19 OPEN PARAMETERS IOPAR;1 FREE TEXT
LAST EDITED: JAN 26, 1990
HELP-PROMPT: Enter the open parameters specific to this device.
DESCRIPTION: These parameters are used to open a device with specified characteristics/addresses. This field is
primarily used with non-terminal devices such as magtape and SDP. For SDP, use (block:0) on M/11;
(0:block:drive) on DSM. For Magtape, use ("VAL4":0:2048) on both M/11 and DSM.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3.5,19.3 CLOSE PARAMETERS IOCPAR;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>120!($L(X)<1) X
LAST EDITED: MAY 03, 1994
HELP-PROMPT: Answer must be 1-120 characters in length.
DESCRIPTION:
This field holds the parameters to be used in a MUMPS CLOSE statement.
3.5,19.5 USE PARAMETERS IOUPAR;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>120!($L(X)<1) X
LAST EDITED: MAY 03, 1994
HELP-PROMPT: ANSWER MUST BE 1-120 CHARACTERS IN LENGTH
DESCRIPTION:
This field holds the parameters to be used in a MUMPS USE statement.
3.5,19.7 PRE-OPEN EXECUTE POX;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: MAY 03, 1994
HELP-PROMPT: This is Standard MUMPS code.
DESCRIPTION: This is the Xecutable MUMPS code which is used by %ZIS before opening the device. Setting
%ZISQUIT=1 in the PRE-OPEN EXECUTE code will signal %ZIS to reject the selected device.
WRITE AUTHORITY: @
3.5,19.8 POST-CLOSE EXECUTE PCX;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: MAY 03, 1994
HELP-PROMPT: This is Standard MUMPS code.
DESCRIPTION:
This is the Xecutable MUMPS code which is used by %ZISC after closing the device.
WRITE AUTHORITY: @
3.5,20 BAUD RATE ; COMPUTED
MUMPS CODE: S X=$P("50^75^110^134^150^300^600^1200^1800^2000^2400^3600^4800^7200^9600",U,$P($S($D(^%IS(+$P(^%ZI
S(1,D0,0),U,2),2)):^(2),1:0),U,3)\64#16) I 'X,$D(^%ZOSF("OS")),^("OS")["DSM" D BAUD^%ZOSV
ALGORITHM: S X=$P("50^75^110^134^150^300^600^1200^1800^2000^2400^3600^4800^7200^9600",U,$P($S($D(^%IS(+$P(^%ZI
S(1,D0,0),U,2),2)):^(2),1:0),U,3)\64#16)
LAST EDITED: AUG 21, 1984
DESCRIPTION: This field returns the Baud Rate (i.e. speed) of this device, but only if it is a terminal from
which such information can be determined.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3.5,21 MICOM PRINTER CONTENTION PORT 1;7 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 21, 1988
DESCRIPTION: This field is reserved for future use to determine whether the device uses printer contention. It
would be a preliminary check to decide whether it is necessary to invoke the printer contention
programs.
3.5,23 MODEM 0;6 POINTER TO TERMINAL TYPE FILE (#3.2)
LAST EDITED: MAR 02, 1984
HELP-PROMPT: IF THIS DEVICE HAS A MODEM ATTACHED TO IT, ENTER NAME OF MODEM
DESCRIPTION: If this device is connected to a modem, this is the name of the type of modem, as found in the
TERMINAL TYPE file. Modem names must begin with "M-". This field is used by MailMan for
controlling the auto-dialer. If the device is used only for dial-in (receives calls only, never
places them), then this field is not necessary.
3.5,25 PRIORITY AT RUN TIME 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: OCT 03, 1985
HELP-PROMPT: An integer from 1 to 10 for the job priority.
DESCRIPTION: This field, if set, will be used by the Task Manager to set a job's operating system run priority.
Lowest priority is 1, and 10 is the highest.
3.5,26 TASKMAN PRINT A HEADER PAGE 0;7 SET
'y' FOR YES;
'n' FOR NO;
LAST EDITED: NOV 01, 1985
DESCRIPTION: If this field is set to YES then, Taskman will print a header page before the job is started to
form a break between reports.
3.5,27 PASSWORD 1;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<6)!'(X?.UNP) X
LAST EDITED: OCT 28, 1985
HELP-PROMPT: ANSWER MUST BE 6-15 CHARACTERS IN LENGTH
DESCRIPTION: Passwords are used for an additional level of security on devices such as modems. If a value is
entered in this field, all users trying to log on to this device will be prompted for the password
before being prompted for the access code.
3.5,28 SLAVED FROM DEVICE 0;8 POINTER TO DEVICE FILE (#3.5)
INPUT TRANSFORM: S %ZISV=$P(^%ZIS(1,D0,0),U,9),DIC("S")="I $L($P(^(0),U,2)),$P(^(0),U,9)=%ZISV" D ^DIC K DIC S DIC=D
IE,X=+Y K:Y<0 X
LAST EDITED: APR 20, 1988
HELP-PROMPT: Enter the device that this device is slaved off of.
DESCRIPTION: This field may permit queuing to slaved devices. Given hard-wiring such that a display terminal
may be identified with a device name, queuing may take place to the slaved device ($I=0). Enter
the device name of the display terminal in this field.
SCREEN: S DIC("S")="I $L($P(^(0),U,2)),$L($P(^(0),U,8,9))<2"
EXPLANATION: Can't slave off of a slave or remote device
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3.5,31 AUTO DESPOOL 1;8 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 07, 1989
DESCRIPTION:
Answer 'YES' if the report is to be automatically despooled.
3.5,32 DESPOOL DEVICES SPL;0 POINTER Multiple #3.532 (Add New Entry without Asking)
DESCRIPTION: This is the list of printers that reports will be printed during the despool process for the named
spool device.
3.532,.01 DESPOOL DEVICES 0;1 POINTER TO DEVICE FILE (#3.5) (Multiply asked)
LAST EDITED: SEP 07, 1989
DESCRIPTION:
The printer used in the despool process associated with the current spool device.
CROSS-REFERENCE: 3.532^B
1)= S ^%ZIS(1,DA(1),"SPL","B",$E(X,1,30),DA)=""
2)= K ^%ZIS(1,DA(1),"SPL","B",$E(X,1,30),DA)
3.532,1 COPIES 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 28, 1994
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
3.5,33 GENERATE SPL DOC NAME 1;9 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 07, 1989
HELP-PROMPT: Enter 'YES' if you want the system to generate document name.
DESCRIPTION:
Answer 'YES' to this field if the spool document name is to be automatically generated.
3.5,35 RESOURCE SLOTS 1;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1994
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION: Enter a value that will identify the limit of concurrent jobs that may own the same resource. If
no data is entered, the device handler will use a default value of 1.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the TYPE field of the DEVICE File
CROSS-REFERENCE: ^^TRIGGER^3.54^1
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(3.5,35,1,1,89.2) S Y(101)=$S($D(^%ZISL(3.54,D0,0)):^(0),1:"
") S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y X ^DD(3.5,35,1,1,1.1) X ^DD(3.5,35,1,1,1.4)
1.1)= S X=DIV X ^DD(3.5,35,1,1,49.4) S Y=X,X=Y(1),X=X-Y S D0=I(0,0) S D1=I(101,0)
1.4)= S DIH=$S($D(^%ZISL(3.54,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,2)=DIV,DIH=3.54,DI
G=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
49.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(2)=$S($D(^%ZIS(1,D0,0)):^(0),1:"") S X=DIV,Y(1)=X S X=$P(Y(2),
U,2) K DIC S DIC="^%ZISL(3.54,",DIC(0)="NMF" D ^DIC S (D,D0)=+Y
49.3)= X ^DD(3.5,35,1,1,49.2) S I(100,0)=$S($D(D0):D0,1:""),I(101,0)=$S($D(D1):D1,1:""),Y(101)=X,Y(
202)=""
49.4)= X ^DD(3.5,35,1,1,49.3) X "F D1=0:0 S D1=$O(^%ZISL(3.54,D0,1,D1)) Q:D1'>0 S:$S($D(^(D1,0)):$
P(^(0),U,1),1:"""")'?."" "" Y(202)=Y(202)+1" S D(1)=D1 S X=+Y(202)
89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^%ZIS(1,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S X=X
K DIC S DIC="^%ZISL(3.54,",DIC(0)="NMF" D ^DIC S (D,D0,DIV(0))=+Y
CREATE VALUE)= (#35)-(#1:RESOURCE:COUNT(#2))
DELETE VALUE)= NO EFFECT
DIC)= LOOKUP
FIELD)= #1:RESOURCE:AVAILABLE SLOTS
3.5,36 GLOBAL LOCK GBL;1 SET
'0' FOR No;
'1' FOR Yes;
OUTPUT TRANSFORM: S Y=Y
LAST EDITED: NOV 08, 2007
DESCRIPTION:
This field tells the device handler if it should use a global lock to control access to a device.
TECHNICAL DESCR: This field locks ^%ZIS("lock",IO) in the device handler. It is cleared in %ZISC. It is not
limited to CHAN devices anymore.
In the past this field held a global to lock but there was no code to support it. Old description:
Identify a global to lock/unlock to be used to limit the access to a given channel to one client.
3.5,51 OPEN COUNT 5;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 12, 2005
HELP-PROMPT: Type a Number between 0 and 99999999, 0 Decimal Digits
DESCRIPTION: This field holds a count of the number of times that %ZIS has successfully open this device. The
reason is to find LAT devices that are still in use.
3.5,51.1 TIMED READ (# OF SECONDS) XUS;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: DEC 06, 1983
HELP-PROMPT: NUMBER OF SECONDS (1-99999) THAT TERMINAL WILL WAIT FOR A RESPONSE
DESCRIPTION: The number of seconds for timed reads at this device. It is overridden by the Timed Read
specification in the USER File.
3.5,51.12 *RESERVED XUS;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X?.E) X
LAST EDITED: AUG 08, 1994
HELP-PROMPT: Reserved for XUS
WRITE AUTHORITY: ^
3.5,51.13 *RESERVED XUS;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X?.E) X
LAST EDITED: AUG 08, 1994
HELP-PROMPT: Reserved for XUS
WRITE AUTHORITY: ^
3.5,51.14 *RESERVED XUS;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X?.E) X
LAST EDITED: AUG 08, 1994
HELP-PROMPT: Reserved for XUS
WRITE AUTHORITY: ^
3.5,51.15 *RESERVED XUS;15 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X?.E) X
LAST EDITED: AUG 08, 1994
HELP-PROMPT: Reserved for XUS
WRITE AUTHORITY: ^
3.5,51.2 # OF ATTEMPTS XUS;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>5)!(X<1)!(X?.E1"."1.N) X
LAST EDITED: MAR 30, 2001
HELP-PROMPT: Type a integer between 1 and 5.
DESCRIPTION: The number of sign-on attempts before the device is locked from use. This may be ignored by
setting the BYPASS DEVICE LOCK-OUT field in the KERNEL SITE PARAMETERS File. The minimum value is
set by the VA INFORMATION SYSTEM ACCOUNT AND PASSWORD MANAGEMENT POLICY.
3.5,51.3 LOCK-OUT TIME XUS;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<600)!(X?.E1"."1.N) X
LAST EDITED: MAR 30, 2001
HELP-PROMPT: Type a integer between 600 and 99999999.
DESCRIPTION: This is the amount of time that the device must be idle before the lock will release. This may be
ignored by setting the BYPASS DEVICE LOCK-OUT field in the KERNEL SITE PARAMETERS File. The
minimum value is set by the VA INFORMATION SYSTEM ACCOUNT AND PASSWORD MANAGEMENT POLICY.
3.5,51.4 MULTIPLE SIGN-ON XUS;4 SET
'0' FOR NOT ALLOWED;
'1' FOR ALLOWED;
DESCRIPTION: Specifies whether or not the user of this device can be already signed on the system. It is
overridden by the Multiple Sign-on specification in the USER File.
3.5,51.5 ASK DEVICE TYPE AT SIGN-ON XUS;5 SET
'1' FOR YES, ASK;
'0' FOR NO, DON'T ASK;
LAST EDITED: DEC 18, 1985
HELP-PROMPT: 'ASK' IF ALL USERS SIGNING-ON TO THIS DEVICE SHOULD BE ASKED 'DEVICE TYPE'
DESCRIPTION: This field (if filled in) will over ride the ones in the KERNEL site parameter file. This is
overridden by the same specification in the NEW PERSON File. It controls if the user/terminal
should be asked for a terminal type during sign-on. If set to YES then a is sent to the
terminal to collect the answer back message, if valid the terminal type is set to this. Otherwise
the user is prompted. If set to NO then the one from the Last Sign-on field or device subtype will
be used.
EXECUTABLE HELP: W !,"IF DEVICE IS A DIAL-UP MODEM, OR A 'SWITCHED' PORT,",!?3,"THE ANSWER SHOULD PROBABLY BE 'A'",!
3.5,51.6 AUTO MENU XUS;6 SET
'0' FOR NO MENUS GENERATED;
'1' FOR MENUS GENERATED;
LAST EDITED: MAY 02, 1983
DESCRIPTION: This field controls whether the Auto-menu function will be turned on for this device. If it is
turned on, it acts just as if the user types a "?" before each prompt. This is overridden by the
same specification in the USER File.
3.5,51.7 *RESERVED XUS;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1)!'(X?.E) X
LAST EDITED: AUG 08, 1994
HELP-PROMPT: Reserved for XUS
WRITE AUTHORITY: ^
3.5,51.8 TIED ROUTINE XUS;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>13!($L(X)<3) X
LAST EDITED: APR 03, 1984
HELP-PROMPT: ENTER A ROUTINE NAME IF TERMINAL SHOULD INVOKE THAT ROUTINE *WITHOUT* ASKING USER ACCESS CODE
DESCRIPTION: This field, if filled in, has the name of a routine that is run before the 'ACCESS CODE' question
is asked. Use with care.
3.5,51.9 TYPE-AHEAD XUS;9 SET
'Y' FOR ALLOWED;
'N' FOR NOT ALLOWED;
LAST EDITED: DEC 06, 1983
HELP-PROMPT: ANSWER 'Y' IF USERS CAN ANSWER QUESTIONS BEFORE THEY ARE ASKED!
DESCRIPTION: Should the user of this device have 'Type-Ahead' turned on or off. This will be overridden by the
same specification in the USER File.
3.5,51.91 PERFORM DEVICE CHECKING XUS;11 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: AUG 08, 1985
HELP-PROMPT: Override the turning off of the device checking from the KERNEL.
DESCRIPTION: This field, if set, will override the default in the KERNEL SITE PARAMETERS File.
Device checking involves checking for device lockout, prohibited access times, etc. If turned off,
logon will be faster.
3.5,52 SECONDARY $I 2;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: APR 26, 2007
HELP-PROMPT: Enter the $IO for the secondary system (1-40 char)
DESCRIPTION: This field holds the $IO value to be used if this is the secondary system in a mixed OS
environment. It is not used otherwise. It is only used for output devices.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3.5,61 LAT SERVER NODE VMS;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<3)!'(X?1U1.9UN) X S %1=$P(^%ZIS(1,DA,0),U,2) F %=0:0 S %=$O(^%ZIS(1,"C",%1,%)) Q:
%'>0 I %-DA,$D(^%ZIS(1,%,"VMS")),$P(^("VMS"),U,1)]"" W " See ",$P(^%ZIS(1,%,0),U,1) K X Q
LAST EDITED: FEB 04, 1993
HELP-PROMPT: Enter DECserver node name. Only setup 1 per LTA.
DESCRIPTION: This is the DECserver/terminal server node name that the device is on. It is used by XTLATSET to
build data files for VMS startup.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3.5,62 LAT SERVER PORT VMS;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1)!'(X?1.15ANP) X
LAST EDITED: FEB 13, 1992
HELP-PROMPT: Answer must be 1-15 characters in length.
DESCRIPTION: This is the port on the DECserver/terminal server that this device is connected to. It can be
entered in the LC-2-5 form or 31 form. On EQUINOX it is in the PORT_31 form. This field is used
by XTLATSET to build VMS datafiles for startup.
3.5,63 VMS DEVICE TYPE VMS;3 SET
'n' FOR NOT SPOOLED;
'y' FOR YES SPOOLED;
'm' FOR HOSTSYNC/NOWRAP;
'l' FOR LAB INSTRUMENT;
'w' FOR NOWRAP;
'p' FOR PASTHRU/NOWRAP;
LAST EDITED: JUN 17, 2004
HELP-PROMPT: Will this device use VMS spooling or other special device settings
DESCRIPTION: This is a flag that is passed into the file LT_PTR.DAT by the routine XTLATSET to select how this
port should be setup in VMS by the SYS$MANAGER:SYSPRINT.COM file when it runs.
3.5,64 LAT PORT SPEED VMS;4 SET
'300' FOR 3;
'1200' FOR 12;
'2400' FOR 24;
'4800' FOR 48;
'9600' FOR 96;
'19200' FOR 192;
LAST EDITED: JAN 03, 1992
HELP-PROMPT: Enter the speed that the permanent database should be set to.
DESCRIPTION: This field holds the value that will be passed to the TSC_LOAD.COM file for loading the DECserver
permanent database.
3.5,65 PRINT SERVER NAME OR ADDRESS VMS;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<3) X
LAST EDITED: JUL 22, 2003
HELP-PROMPT: Enter the FQDN or TCP/IP address of the remote server.
DESCRIPTION: This field contains the FQDN (fully qualified domain name) or specific TCP/IP address of a remote
server (e.g., for LPD/LPR printing) or device (e.g., for telnet printer).
3.5,66 TELNET PORT VMS;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>65534)!(X<2000)!(X?.E1"."1.N) X
LAST EDITED: AUG 25, 2003
HELP-PROMPT: Enter the telnet port (range = 2000 to 65534)
DESCRIPTION: This field contains the telnet port of a remote device (e.g., a telnet printer). The allowable
range is a number between 2000 and 65534.
3.5,67 REMOTE PRINTER NAME VMS;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<2) X
LAST EDITED: AUG 18, 2004
HELP-PROMPT: Answer must be 2-45 characters in length
DESCRIPTION: This is the Name of the Remote Printer that is referenced by the "PRINT SERVER NAME OR ADDRESS" and
"TELNET PORT" fields.
3.5,75 WINDOWS NETWORK PRINTER NAME WIN;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<5) X
LAST EDITED: AUG 23, 2011
HELP-PROMPT: Answer must be 5-50 characters in length.
DESCRIPTION: This is the Windows network name for the printer (e.g., '\\vhaistfpc4\IST-HP4525-1'). It is used by
Windows applications that interact with VistA and need a printer identified for output purposes.
3.5,101 LAB LABEL PRINTER 101;1 POINTER TO DEVICE FILE (#3.5)
LAST EDITED: NOV 19, 1984
HELP-PROMPT: If there is a label printer associated with this device, indicate it
DESCRIPTION:
This field is used only if the current device has a label printer associated with it.
3.5,201 PRIMARY MENU OPTION 201;1 POINTER TO OPTION FILE (#19)
LAST EDITED: JAN 04, 1984
DESCRIPTION: This field, if filled in, contains the primary menu that is run from this device. It overrides the
user's primary menu.
3.5,646 BARCODE AVAIL 646;1 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: SEP 18, 1987
DESCRIPTION:
This field is used by Augie Turano's pharmacy barcode software.
3.5,2007 CURRENT UNSUCCESSFUL ATTEMPTS ; COMPUTED
MUMPS CODE: S X=$P(^%ZIS(1,D0,0),U,2) Q:X="" S X=$S($D(^DISV("XU",X)):+^(X),1:"")
ALGORITHM: S X=$P(^%ZIS(1,D0,0),U,2) Q:X="" S X=$S($D(^DISV("XU",X)):+^(X),1:"")
LAST EDITED: MAY 28, 1992
DESCRIPTION: This is a count of the current number of unsuccessful attempts that have been made on this device.
If it exceeds the DEFAULT # OF ATTEMPTS in the KERNEL SITE PARAMETERS File, the device will be
locked for the duration specified in DEFAULT LOCKOUT TIME in the KERNEL SITE PARAMETERS.
This field is maintained internally by the KERNEL.
3.5,2008 LAST SIGN-ON USER ; COMPUTED
MUMPS CODE: S X=$S($D(^XUSEC(0,"ALDEV",D0)):$S($D(^VA(200,+^(D0),0)):$P(^(0),U,1),1:""),1:"")
ALGORITHM: S X=$S($D(^XUSEC(0,"ALDEV",D0)):$S($D(^VA(200,+^(D0),0)):$P(^(0),U,1),1:""),1:"")
LAST EDITED: DEC 08, 1983
DESCRIPTION: This is the name of the last user who signed on to this device. It is controlled internally by the
KERNEL.
3.5,2009 PROHIBITED TIMES FOR SIGN-ON TIME;1 FREE TEXT
INPUT TRANSFORM: K:$E(X,1,2)>23!($E(X,3,4)>59)!'(X?4N1"-"4N)!($E(X,6,7)>23)!($E(X,8,9)>59) X
LAST EDITED: JAN 02, 1990
HELP-PROMPT: RANGE OF MILITARY TIMES (HHMM-HHMM) DURING WHICH SIGN-ONS WON'T BE ALLOWED
DESCRIPTION: This field allows a device to be locked out for certain periods of the day. The time period for
which logons will be prohibited is specified in the form HHMM-HHMM. For example, 1630-0800 would
lock out the device from 4:30 PM to 8:00 AM.
If device checking is bypassed for this device, these times are ignored.
EXECUTABLE HELP: W !?7,"FOR EXAMPLE, TO SHUT OFF DEVICE OVERNIGHT, TYPE '1630-0800'"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3.5,2009.5 USE TIMEOUT ON OPENS TIME;3 SET
'n' FOR NO;
'y' FOR YES;
LAST EDITED: NOV 16, 1990
DESCRIPTION:
This field determines whether a timeout will be used to open the device.
3.5,2010 OPEN TIMEOUT TIME;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 05, 1988
HELP-PROMPT: Type a Number between 0 and 10, 0 Decimal Digits
DESCRIPTION: If a specific timeout is needed when an open is performed, enter the value of the timeout into this
field. This will enable %ZIS to "hang" for the number of seconds specified in this field to
achieve a connection rather than using the default of zero.
3.5,18000 NVS PASSOVER FLAG NV;1 SET
'1' FOR YES;
LAST EDITED: AUG 19, 2010
HELP-PROMPT: Is this device to not be cleared in the test account?
DESCRIPTION: This field is a flag which will allow for the devices so selected to be skipped in the NVS TEST
ACCOUNT initialization process. If the test database has a different path to the device in
question, some editting may be needed.
FILES POINTED TO FIELDS
DEVICE (#3.5) CLOSEST PRINTER (#16)
SLAVED FROM DEVICE (#28)
LAB LABEL PRINTER (#101)
DESPOOL DEVICES:DESPOOL DEVICES (#.01)
OPTION (#19) PRIMARY MENU OPTION (#201)
RESOURCE (#3.54) $I (#1)
TYPE (#2)
RESOURCE SLOTS (#35)
TERMINAL TYPE (#3.2) SUBTYPE (#3)
MODEM (#23)
INPUT TEMPLATE(S):
XUCRT DEC 30, 1991@15:52 USER #0
XUHFSDEV JUN 17, 2003@09:49 USER #0
XUPRT DEC 30, 1991@15:55 USER #0
XUSDPDEV JUN 17, 2003@09:50 USER #0
XUSPLDEV JUN 17, 2003@09:51 USER #0
PRINT TEMPLATE(S):
XUDEV LINEPORTADDR JUN 29, 1995@15:52 USER #0 DEVICE STATISTICS
XUSDECSERVER JAN 18, 1989 USER #0 DEC server port LIST
SORT TEMPLATE(S):
XUDEV LINEPORTADDR OCT 24, 1994@11:11 USER #0
SORT BY: NAME// (NAME not null)
WITHIN NAME, SORT BY: TYPE="TERMINAL";L1// (TYPE=""TERMINAL"")
WITHIN TYPE="TERMINAL", SORT BY: INTERNAL(#1)'=0;L1// (INTERNAL(#1)'=0)
Sort logic for Line/Port address report.
FORM(S)/BLOCK(S):
XUDEVICE CHAN OCT 16, 1992 USER #0
XUDEVICE CHAN HDR DD #3.5
XUDEVICE CHAN DD #3.5
XUDEVICE HFS OCT 19, 1992 USER #0
XUDEVICE HFS HDR DD #3.5
XUDEVICE HFS DD #3.5
XUDEVICE LPD JUL 22, 2003@14:01 USER #0
XUDEVICE LPD DD #3.5
XUDEVICE MT OCT 16, 1992 USER #0
XUDEVICE MT HDR DD #3.5
XUDEVICE MT DD #3.5
XUDEVICE PQ OCT 19, 1992 USER #0
XUDEVICE PQ HDR DD #3.5
XUDEVICE PQ DD #3.5
XUDEVICE RES MAY 24, 2007@17:30 USER #0
XUDEVICE RES DD #3.5
XUDEVICE SLOTS DD #3.54
XUDEVICE SDP OCT 16, 1992 USER #0
XUDEVICE SDP HDR DD #3.5
XUDEVICE SDP DD #3.5
XUDEVICE SPL OCT 18, 1992 USER #0
XUDEVICE SPL HDR DD #3.5
XUDEVICE SPL DD #3.5
XUDEVICE SPL2 DD #3.532
XUDEVICE TRM JUL 22, 2003@14:27 USER #0
XUDEVICE TRM DD #3.5