Global: ^DIC(39.3

Information

FileMan FileNo	FileMan Filename	Package
39.3	EMBOSSER EQUIPMENT FILE	Registration

Description

This file stores the devices that are used as embossers. For each embosser, the type of embosser (data card, addressograph, or plain printer) and usage statistics (number printed and error statistics) are stored in this file.

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

Customize PDF page

Package: Registration

Global: ^DIC(39.3

Information

Description

Pointed To By FileMan Files, Total: 1

Fields, Total: 3