STANDARD DATA DICTIONARY #194.5 -- LABEL PRINT FIELD FILE 3/24/25 PAGE 1
STORED IN ^DIC(194.5, (33 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
IDENTIFIED BY: TYPE OF LABEL (#2)[R]
POINTED TO BY: FIELD field (#.01) of the PRINT FIELDS sub-field (#194.41) of the LABEL FORMAT File (#194.4)
CROSS
REFERENCED BY: PRINT FIELD(B), INTERNAL VARIABLE(C), PARENT FILE(D), TYPE OF LABEL(E)
194.5,.01 PRINT FIELD 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
DESCRIPTION:
This defines the data which may be printed on the label.
CROSS-REFERENCE: 194.5^B
1)= S ^DIC(194.5,"B",$E(X,1,30),DA)=""
2)= K ^DIC(194.5,"B",$E(X,1,30),DA)
194.5,2 TYPE OF LABEL 0;2 SET (Required)
'r' FOR RECORD or REQUEST;
'a' FOR ALL;
'q' FOR REQUEST;
'b' FOR BORROWER;
LAST EDITED: JAN 11, 1987
DESCRIPTION:
This defines labels which are allowed to print the data.
CROSS-REFERENCE: 194.5^E
1)= S ^DIC(194.5,"E",$E(X,1,30),DA)=""
2)= K ^DIC(194.5,"E",$E(X,1,30),DA)
194.5,3 DEFAULT TITLE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<3) X
HELP-PROMPT: ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
DESCRIPTION:
This allows free text to be printed whenever this data is printed.
194.5,4 TEST VALUE 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This defines data which is displayed when testing the label format.
194.5,5 INTERNAL VARIABLE 0;5 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<6)!'(X?1"RTV("1N.N1")") X I $D(X),$N(^DIC(194.5,"C",
X,0))>0,$N(^DIC(194.5,"C",X,0))'=DA W !!?8,"*** Must be UNIQUE - This variable is already in use **
*" K X
LAST EDITED: MAY 08, 1987
HELP-PROMPT: Must be in the form RTV().
DESCRIPTION: This is the variable which contains the data and is printed by the executable code in the Label
format.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 194.5^C
1)= S ^DIC(194.5,"C",$E(X,1,30),DA)=""
2)= K ^DIC(194.5,"C",$E(X,1,30),DA)
194.5,6 BARCODED FIELD 0;6 SET
'y' FOR YES;
'n' FOR NO;
LAST EDITED: JUL 08, 1986
DESCRIPTION:
Yes means this data will be printed as barcode in the label format.
194.5,50 PARENT FILE 50;0 POINTER Multiple #194.51
DESCRIPTION:
This defines where the data for the print field comes from.
194.51,.01 PARENT FILE 0;1 POINTER TO FILE FILE (#1) (Multiply asked)
INPUT TRANSFORM: S DINUM=X Q
LAST EDITED: AUG 05, 1986
DESCRIPTION:
This defines the file where the data for the print field comes from.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 194.5^D
1)= S ^DIC(194.5,"D",$E(X,1,30),DA(1),DA)=""
2)= K ^DIC(194.5,"D",$E(X,1,30),DA(1),DA)
194.51,2 FIELD NUMBER 0;2 NUMBER
INPUT TRANSFORM:K RTZDIC S:$D(DIC) RTZDIC=DIC S DIC="^DD("_DA_",",DIC(0)="EQM",DIC("S")="I $P(^(0),U,2)'[""C""" D ^
DIC K DIC S:$D(RTZDIC) DIC=RTZDIC S X=+Y I Y'>0 K X I $D(X) K:+X'=X!(X>999999999)!(X<.01)!(X?.E1"."
10N.N) X K RTZDIC
LAST EDITED: MAY 06, 1991
HELP-PROMPT: TYPE A NUMBER BETWEEN .01 AND 999999999
DESCRIPTION:
This define the field in the parent file where the data comes from.
EXECUTABLE HELP:S DIC(0)="EQ",DIC("S")="I $P(^(0),U,2)'[""C""",DIC="^DD("_DA_",",X="?" D ^DIC S DIC=DIE K DIC
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:194.51^AC^MUMPS
1)= S $P(^DIC(194.5,DA(1),50,DA,0),U,3)=$P(^DD(DA,$P(^DIC(194.5,DA(1),50,DA,0),U,2),0),U,4)
2)= S $P(^DIC(194.5,DA(1),50,DA,0),U,3)=""
194.51,3 GLOBAL LOCATION 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: AUG 05, 1986
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This identifies the global location of the data in the print field.
UNEDITABLE
194.5,100 MUMPS CODE TO SET VARIABLE E;E1,240 FREE TEXT
INPUT TRANSFORM: K:$L(X)>240!($L(X)<1) X D ^DIM:$D(X)
LAST EDITED: JUN 26, 1991
HELP-PROMPT: ANSWER MUST BE 1-240 CHARACTERS IN LENGTH
DESCRIPTION:
This is the logic used to set the internal variable for printing in the label format.
WRITE AUTHORITY: ^
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
FILES POINTED TO FIELDS
FILE (#1) PARENT FILE:PARENT FILE (#.01)
INPUT TEMPLATE(S):
RT PRINT FIELD SETUP MAY 08, 1987 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):