Global: ^%ZIS(1

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.

1)= S ^%ZIS(1,"B",$E(X,1,30),DA)=""

2)= K ^%ZIS(1,"B",$E(X,1,30),DA)

This is a free text description of where the device is located, e.g. Ward 2A nurse station, etc.

These are alternate names which may be used to select the 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.

1)= S ^%ZIS(1,"LSYN",$E(X,1,30),DA)=""

2)= K ^%ZIS(1,"LSYN",$E(X,1,30),DA)

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.

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)

spool device entry(TYPE="SPL") on VAX DSM or MSM-Unix, enter the name of directory where spool host files will be created.

1)= S ^%ZIS(1,"C",X,DA)=""

2)= K ^%ZIS(1,"C",X,DA)

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.

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).

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.

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)

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.

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.

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.

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)

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.

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).

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:  @

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.

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).

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.

This field controls if the 'DEVICE' question is asked when a call is made to ^%ZIS.

'ADDRESS/PARAMETERS' question is asked after selecting the device.

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.

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.

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.

If entered then this device cannot be selected if the current date is greater than, or the same as, the date specified.

The location of the telephone nearest to this device.

The name of the person who usually uses this device.

file.

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.

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.

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:  @

This is the name of the nearest printer, it is selected at the "DEVICE" prompt simply by entering "P".

This describes the type of form currently in the printer.

1)= S ^%ZIS(1,"F",$E(X,1,30),DA)=""

2)= K ^%ZIS(1,"F",$E(X,1,30),DA)

For Magtape, use ("VAL4":0:2048) on both M/11 and DSM.

This field holds the parameters to be used in a MUMPS CLOSE statement.

This field holds the parameters to be used in a MUMPS USE statement.

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:  @

This is the Xecutable MUMPS code which is used by %ZISC after closing the device.

WRITE AUTHORITY:  @

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.

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.

device is used only for dial-in (receives calls only, never places them), then this field is not necessary.

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.

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.

the access code.

display terminal in this field.

Answer 'YES' if the report is to be automatically despooled.

This is the list of printers that reports will be printed during the despool process for the named spool device.

Answer 'YES' to this field if the spool document name is to be automatically generated.

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:  ^

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

This field tells the device handler if it should use a global lock to control access to a device.

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.

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.

The number of seconds for timed reads at this device. It is overridden by the Timed Read specification in the USER File.

WRITE AUTHORITY:  ^

WRITE AUTHORITY:  ^

WRITE AUTHORITY:  ^

WRITE AUTHORITY:  ^

SYSTEM ACCOUNT AND PASSWORD MANAGEMENT POLICY.

INFORMATION SYSTEM ACCOUNT AND PASSWORD MANAGEMENT POLICY.

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.

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.

File.

WRITE AUTHORITY:  ^

This field, if filled in, has the name of a routine that is run before the 'ACCESS CODE' question is asked. Use with care.

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.

Device checking involves checking for device lockout, prohibited access times, etc. If turned off, logon will be faster.

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.

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.

datafiles for startup.

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.

This field holds the value that will be passed to the TSC_LOAD.COM file for loading the DECserver permanent database.

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).

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.

This is the Name of the Remote Printer that is referenced by the "PRINT SERVER NAME OR ADDRESS" and "TELNET PORT" fields.

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.

This field is used only if the current device has a label printer associated with it.

This field, if filled in, contains the primary menu that is run from this device. It overrides the user's primary menu.

This field is used by Augie Turano's pharmacy barcode software.

specified in DEFAULT LOCKOUT TIME in the KERNEL SITE PARAMETERS.

This field is maintained internally by the KERNEL.

This is the name of the last user who signed on to this device. It is controlled internally by the KERNEL.

PM to 8:00 AM.

If device checking is bypassed for this device, these times are ignored.

This field determines whether a timeout will be used to open the device.

than using the default of zero.

needed.