Global: ^DIC(39.3

FileMan FileNo	FileMan Filename	Package
39.3	EMBOSSER EQUIPMENT FILE	Registration

Directly Accessed By Routines, Total: 2

Package	Total	Routines
Registration	2	DGQEMA1 DGQEMP

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Registration	1	EMBOSSED CARD TYPE(#39.1)[1]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:'$D(^%ZIS(1,"B",$E(X,1,30))) X` LAST EDITED: `MAY 13, 1985` HELP-PROMPT: `MUST ENTER A DEVICE THAT IS IN THE DEVICE FILE` DESCRIPTION: This field is used to assign the names of the devices to be used to print data cards. This field points to the DEVICE file (#3.5) therefore, a name entered here must match a name currently in that file. EXECUTABLE HELP: `I DZ="??" W ! S N=0,L=0 F I=1:1 S N=$N(^%ZIS(1,"B",N)) Q:N<0 W !?5,N S L=L+1 I L>21 R !,"""^"" TO QUIT: ",X:DTIME Q:X="^" W $C(13),$J("",15),$C(13) S L=0` DELETE TEST: `1,0)= I '$D(DGMENU) W !?4,*7,"Delete EMBOSSER DEVICE via the 'Edit Embosser Device File' menu option."` SOURCE OF DATA: COMPUTER SITE MANAGER NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `39.3^B` 1)= S ^DIC(39.3,"B",$E(X,1,30),DA)="" 2)= K ^DIC(39.3,"B",$E(X,1,30),DA)
1	EMBOSSER TYPE	0;2	SET	'1' FOR DATA CARD; '2' FOR ADDRESSOGRAPH; '0' FOR PLAIN PRINTER; LAST EDITED: `DEC 20, 1984` DESCRIPTION: This field is used to assign the type of the embosser device. Following are the available embosser types and their associated code number: '1' for DATACARD, '2' for ADDRESSOGRAPH, and '0' for PLAIN PRINTER. SOURCE OF DATA: COMPUTER SITE MANAGER
2	NUMBER OF CARDS EMBOSSED	1;0	Multiple #39.31	39.31 DESCRIPTION: This multiple field gives information that may be useful to site managers about data cards that have been processed. WRITE AUTHORITY: RWA SOURCE OF DATA: SYSTEM GENERATED

.01

NAME

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:'$D(^%ZIS(1,"B",$E(X,1,30))) X
LAST EDITED: MAY 13, 1985
HELP-PROMPT: MUST ENTER A DEVICE THAT IS IN THE DEVICE FILE

DESCRIPTION:

This field is used to assign the names of the devices to be used to print data cards.  This field points to the DEVICE file (#3.5) therefore, a name entered here must match a name currently in that file.

EXECUTABLE HELP: I DZ="??" W ! S N=0,L=0 F I=1:1 S N=$N(^%ZIS(1,"B",N)) Q:N<0 W !?5,N S L=L+1 I L>21 R !,"""^"" TO QUIT: ",X:DTIME Q:X="^" W $C(13),$J("",15),$C(13) S L=0
DELETE TEST: 1,0)= I '$D(DGMENU) W !?4,*7,"Delete EMBOSSER DEVICE via the 'Edit Embosser Device File' menu option."
```
SOURCE OF DATA:   COMPUTER SITE MANAGER
```
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 39.3^B

1)= S ^DIC(39.3,"B",$E(X,1,30),DA)=""

2)= K ^DIC(39.3,"B",$E(X,1,30),DA)

1

EMBOSSER TYPE

0;2

SET

'1' FOR DATA CARD;
'2' FOR ADDRESSOGRAPH;
'0' FOR PLAIN PRINTER;

LAST EDITED: DEC 20, 1984

DESCRIPTION:

This field is used to assign the type of the embosser device.  Following are the available embosser types and their associated code number: '1' for DATACARD, '2' for ADDRESSOGRAPH, and '0' for PLAIN PRINTER.

SOURCE OF DATA:   COMPUTER SITE MANAGER

2

NUMBER OF CARDS EMBOSSED

1;0

Multiple #39.31

39.31

DESCRIPTION:

This multiple field gives information that may be useful to site managers about data cards that have been processed.

WRITE AUTHORITY:  RWA

SOURCE OF DATA:   SYSTEM GENERATED

Customize PDF page

Package: Registration

Global: ^DIC(39.3

Information

Description

Directly Accessed By Routines, Total: 2

Pointed To By FileMan Files, Total: 1

Fields, Total: 3