Global: ^DIC(39.3

FileMan FileNo	FileMan Filename	Package
39.3	EMBOSSER EQUIPMENT FILE	Registration

Directly Accessed By Routines, Total: 1

Package	Total	Routines
Registration	1	^DIC(39.3

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.` `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.
SOURCE OF DATA: SYSTEM GENERATED

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	.01+1, .01(HELP )
^DIC(39.3 - [#39.3]	.01(XREF 1S), .01(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K)
>> DGMENU	.01DEL1+1
DTIME	.01(HELP )
>> DZ	.01(HELP )
>> I	.01(HELP )
>> L	.01(HELP )
>> N	.01(HELP )
X	.01+1!, .01(HELP ), .01(XREF 1S), .01(XREF 1K)

Customize PDF page

Package: Registration

Global: ^DIC(39.3

Information

Description

Directly Accessed By Routines, Total: 1

Pointed To By FileMan Files, Total: 1

Fields, Total: 3

Global Variables Directly Accessed

Local Variables

Legend: