Global: ^%ZIS(1

FileMan FileNo	FileMan Filename	Package
3.5	DEVICE	Kernel

Package	Total	Routines
Radiology Nuclear Medicine	7	RADOSTIK RAEDCN RAHLO4 RAMAORPT RAORD RAPSET1 RAUTL0
Outpatient Pharmacy	5	PSOB PSOBGMG1 PSOBGMG2 PSOBMST PSOFDAUT
Inpatient Medications	4	PSGPER PSGPER1 PSJ010 PSJUTL
Controlled Substances	3	PSDTER PSDTER1 PSDTER2
Lab Service	3	LRHYAFT LRLABLIO LRLNC63
Scheduling	3	SDECDEV SDRRTSK SDRRTSK1
MailMan	2	XMDIR1 XMXADDR3
Record Tracking	2	RTDPA3 RTSM3
Auto Replenishment Ward Stock	1	PSGWODRN
Automated Information Collection System	1	IBD3KPT
Clinical Reminders	1	PXRMHOST
Consult Request Tracking	1	GMRCSLM4
Dietetics	1	FHQUE
Enrollment Application System	1	EASMTPAR
Enterprise Health Management Platform	1	HMPDJ03
Event Capture	1	ECRRPT1
Health Data and Informatics	1	HDI1000B
Health Summary	1	GMTSXAW3
Imaging	1	MAGGDEV
National Drug File	1	PSNPPIP
Order Entry Results Reporting	1	ORLPR0
Prosthetics	1	RMPR29R
Quality Assurance Integration	1	QAQAUTL
Text Integration Utility	1	TIUPS139
VA Point of Service	1	VPSPRINT
Womens Health	1	WVRPCGF1

Package	Total	FileMan Files
Kernel	8	DEVICE(#3.5)[16, 28, 101, #3.532(.01)] LINE/PORT ADDRESS(#3.23)[2] PRINT QUEUE JOB(#3.52)[.01] TASKS(#14.4)[91] FAILED ACCESS ATTEMPTS LOG(#3.05)[.01] OPTION(#19)[227, #19.396(.01)] KERNEL SYSTEM PARAMETERS(#8989.3)[#8989.33(.01)] SIGN-ON LOG(#3.081)[5]
Lab Service	5	AUTO INSTRUMENT(#62.4)[1, 29] LAB REPORTS(#64.5)[#64.56(1)] INTERIM REPORTS(#64.6)[3] LABORATORY SITE(#69.9)[303, #69.9006(.05), #69.9007(.02), #69.9007(.03), #69.9008(.01)] HOWDY SITE FILE(#69.86)[#69.863(.01), #69.8645(.01), #69.8654(.01)]
Inpatient Medications	4	INPATIENT USER PARAMETERS(#53.45)[.13] CLINIC DEFINITION(#53.46)[4, 5] WARD GROUP(#57.5)[32] INPATIENT WARD PARAMETERS(#59.6)[.19, .2, 4]
Radiology Nuclear Medicine	4	RAD/NUC MED DIVISION(#79)[100] IMAGING LOCATIONS(#79.1)[3, 5, 10, 16, 23, 24, 28, 81] RAD/NUC MED PROCEDURES(#71)[3] NEW RAD PROCEDURE WORKUP(#71.11)[3]
Order Entry Results Reporting	3	ORDER CHECK RULE(#860.2)[#860.22(4)] OE/RR LIST(#100.21)[1.5] ORDER PARAMETERS(#100.99)[#100.9901(.05), #100.99011(.02), #100.9925(.04), #100.9925(.05), #100.9925(.06), #100.9925(1)]
Outpatient Pharmacy	3	PHARMACY PRINTED QUEUE(#52.9)[.01] OUTPATIENT SITE(#59)[107, #59.0135(.01), #59.02008(.01)] GROUP DISPLAY(#59.3)[2]
Scheduling	3	HOSPITAL LOCATION(#44)[22901] TEAM(#404.51)[.04] RECALL REMINDERS TEAM(#403.55)[2]
Text Integration Utility	3	TIU PRINT PARAMETERS(#8925.93)[1.03] TIU DIVISION PRINT PARAMETERS(#8925.94)[1.02] TIU DOCUMENT PARAMETERS(#8925.95)[.13, #8925.952(.02), #8925.952(.03)]
Barcode Medication Administration	2	BCMA BACKUP PARAMETERS(#53.71)[2] BCMA REPORT REQUEST(#53.69)[.06]
Consult Request Tracking	2	REQUEST/CONSULTATION(#123)[#123.02(8)] REQUEST SERVICES(#123.5)[123.09, 689]
Dietetics	2	FHQUE QUEUED REPORTS/LABELS(#117.024)[2] FH SITE PARAMETERS(#119.9)[#119.93(.01)]
Engineering	2	ENGINEERING COMPUTER PORT(#6910.1)[.01] ENGINEERING SECTION LIST(#6922)[2]
Health Level Seven	2	HL LOWER LEVEL PROTOCOL PARAMETER(#869.2)[200.01, 300.01] HL LOGICAL LINK(#870)[200.01, 300.01]
Health Summary	2	HEALTH SUMMARY TYPE(#142)[#142.2(.02)] HEALTH SUMMARY PARAMETERS(#142.99)[.04]
National Online Information Sharing	2	NOIS OFFICE(#7105.3)[2] NOIS PARAMETER(#7109)[3]
Auto Replenishment Ward Stock	1	INPATIENT SITE(#59.4)[32]
CMOP	1	CMOP INTERFACE(#553)[6]
Drug Accountability	1	DRUG ACCOUNTABILITY STATS(#58.8)[24, 25, 26, 29]
Enrollment Application System	1	EAS MT PARAMETERS(#713)[5, #713.025(1)]
Hospital Based Home Care	1	HBHC SYSTEM PARAMETERS(#631.9)[6]
Integrated Billing	1	IB SITE PARAMETERS(#350.9)[8.14, 8.15, 8.16, 8.19]
Medicine	1	MEDICINE PACKAGE PARAMETERS(#690.1)[#690.18(.01)]
Nursing Service	1	NURS PARAMETERS(#213.9)[2]
PCE Patient Care Encounter	1	PCE DATA SOURCE(#839.7)[.02]
Pharmacy Data Management	1	PHARMACY SYSTEM(#59.7)[13, #59.747(.01), #59.747(.02)]
Prosthetics	1	PROSTHETICS SITE PARAMETERS(#669.9)[9, 27, 28, 29, 30, 35]
Toolkit	1	PARAMETERS(#8989.5)[.01]

Package	Total	FileMan Files
Kernel	3	DEVICE(#3.5)[16, 28, 101, #3.532(.01)] TERMINAL TYPE(#3.2)[3, 23] OPTION(#19)[201]

Fields, Total: 74

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[";"!(X[".")!($L(X)>30)!(X'?1U.UNP) X` LAST EDITED: `NOV 03, 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)`
.02	LOCATION OF TERMINAL	1;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>35!($L(X)<2) X` LAST EDITED: `NOV 03, 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`
.03	MNEMONIC	MN;0	Multiple #3.501	3.501 DESCRIPTION: `These are alternate names which may be used to select the device.`
.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)`
.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.`
1	$I	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>40 X I $D(X) N % S %=$G(^("TYPE")) I $D(^%ZIS(1,"C",X)) D EN^DDIOL(" This $I in use by other Devices."_$C(7),"","?30") K:%="RES" X` `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: `NOV 03, 2023` 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,DIG=.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.`
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","SYS."_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 ZISNX` `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.`
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 the 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).`
2	TYPE	TYPE;1	SET	**********************REQUIRED FIELD********************** '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,DIG=.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 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` `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	SUBTYPE	SUBTYPE;1	POINTER TO TERMINAL TYPE FILE (#3.2)	**********************REQUIRED FIELD********************** TERMINAL TYPE(#3.2) LAST EDITED: `NOV 03, 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`
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.`
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.`
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.`
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 PARAMETERS must be set to 'no'",!,"and the OPEN PARAMETERS must be null."`
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.`
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.`
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.`
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.`
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.`
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.`
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.`
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`
16	CLOSEST PRINTER	99;1	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) DESCRIPTION: `This is the name of the nearest printer, it is selected at the "DEVICE" prompt simply by entering "P".`
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)`
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`
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.`
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.`
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: @`
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: @`
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(^%ZIS(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(^%ZIS(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`
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.`
23	MODEM	0;6	POINTER TO TERMINAL TYPE FILE (#3.2)	TERMINAL TYPE(#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.`
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.`
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.`
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.`
28	SLAVED FROM DEVICE	0;8	POINTER TO DEVICE FILE (#3.5)	DEVICE(#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=DIE,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`
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.`
32	DESPOOL DEVICES	SPL;0	POINTER Multiple #3.532	3.532 DESCRIPTION: `This is the list of printers that reports will be printed during the despool process for the named spool device.`
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.`
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,DIG=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`
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.`
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.`
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.`
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: ^`
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: ^`
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: ^`
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: ^`
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.`
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.`
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.`
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'",!`
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.`
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: ^`
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.`
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.`
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.`
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`
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`
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.`
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.`
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.`
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).`
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.`
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.`
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.`
101	LAB LABEL PRINTER	101;1	POINTER TO DEVICE FILE (#3.5)	DEVICE(#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.`
201	PRIMARY MENU OPTION	201;1	POINTER TO OPTION FILE (#19)	OPTION(#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.`
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.`
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.`
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.`
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`
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.`
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.`
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.`

NAME: TIS51	NAME: TIS52	NAME: TIS53	NAME: TIS54	NAME: CONSOLE	NAME: LATTERM	NAME: TCP/IP DEVICE	NAME: NULL
NAME: LMINIOUT0	NAME: HFS	NAME: FAUX PRINTER	NAME: BROWSER DSM/VMS	NAME: BROWSER MSM/DOS	NAME: BROWSER MSM/NT	NAME: MESSAGE P-MESSAGE-HFS-MSM/DOS	NAME: MESSAGE P-MESSAGE-HFS-VXD
NAME: MESSAGE P-MESSAGE-HFS-OPENM-NT	NAME: MESSAGE P-MESSAGE-HFS-MSM/NT	NAME: VIC CARD	NAME: IBD RESOURCE	NAME: TIU/PXAPI RESOURCE	NAME: TELNET	NAME: OR WORKSTATION	NAME: ORW/PXAPI RESOURCE
NAME: ORB NOTIFICATION RESOURCE	NAME: OR MOVEMENT RESOURCE	NAME: BROWSER (CIRN)	NAME: XDRBROWSER1	NAME: BROWSER CACHE/NT	NAME: MSM/HFS	NAME: NULL-DSM	NAME: SCCV RESOURCE
NAME: ORW THREAD RESOURCE	NAME: OR WINDOWS HFS	NAME: IMAGING WORKSTATION	NAME: LRRESOURCE	NAME: RG QUEUE	NAME: DG FIELD MONITOR	NAME: GTM-UNIX-NULL	NAME: GTM-UNIX-TELNET
NAME: GTM-UNIX-CONSOLE	NAME: HDIS VUID RESOURCE DEVICE	NAME: HDIS STATUS RESOURCE DEVICE	NAME: GMRA UPDATE RESOURCE	NAME: PRCHITEM	NAME: SYS$INPUT	NAME: REMOTE TERMINAL	NAME: CACHE-WINDOWS-CONSOLE
NAME: TRM	NAME: ORWG GRAPHING RESOURCE	NAME: HOME	NAME: FTA	NAME: HMP EXTRACT RESOURCE	NAME: TIU ACTIONS RESOURCE

ICR LINK	Subscribing Package(s)	Fields Referenced
ICR #290	Fee Basis CMOP Fee Basis
ICR #835	Controlled Substances
ICR #1139	Order Entry Results Reporting Clinical Information Resource Network Clinical Reminders	NAME (.01). Access: Both R/W w/Fileman $I (1). Access: Both R/W w/Fileman TYPE (2). Access: Both R/W w/Fileman RESOURCE SLOTS (35). Access: Both R/W w/Fileman
ICR #2469	Lab Service	LAB LABEL PRINTER (101). Access: Read w/Fileman
ICR #2963	Order Entry Results Reporting	NAME (.01). Access: Direct Global Read & w/Fileman (1). Access: Direct Global Read & w/Fileman QUEUING (5.5). Access: Direct Global Read & w/Fileman LOCATION OF TERMINAL (.02). Access: Direct Global Read & w/Fileman OUT-OF-SERVICE DATE (6). Access: Direct Global Read & w/Fileman MARGIN WIDTH (9). Access: Direct Global Read & w/Fileman PAGE LENGTH (11). Access: Direct Global Read & w/Fileman SECURITY (15). Access: Direct Global Read & w/Fileman PROHIBITED TIMES FOR SIGN-ON (2009). Access: Direct Global Read & w/Fileman TYPE (2). Access: Direct Global Read & w/Fileman
ICR #3262	General Medical Record - Vitals	$I (1). Access: Direct Global Read & w/Fileman QUEUING (5.5). Access: Direct Global Read & w/Fileman SUBTYPE (3). Access: Direct Global Read & w/Fileman
ICR #5718	Outpatient Pharmacy	WINDOWS NETWORK PRINTER NAME (75). Access: Direct Global Read & w/Fileman
ICR #6147	VA Point of Service	NAME (.01). Access: Read w/Fileman LOCATION OF TERMINAL (.02). Access: Read w/Fileman MARGIN WIDTH (9). Access: Read w/Fileman PAGE LENGTH (11). Access: Read w/Fileman PRINT SERVER NAME OR ADDRESS (65). Access: Read w/Fileman
ICR #10114		NAME (.01). Access: Read w/Fileman TYPE (2). Access: Read w/Fileman SUBTYPE (3). Access: Read w/Fileman

Customize PDF page

Package: Kernel

Global: ^%ZIS(1

Information

Description

Accessed By FileMan Db Calls, Total: 47

Pointed To By FileMan Files, Total: 59

Pointer To FileMan Files, Total: 3

Fields, Total: 74

Found Entries, Total: 54

ICR, Total: 9