Sub-Field: 194.51

Parent File	Name	Number	Package
LABEL PRINT FIELD(#194.5)	PARENT FILE	194.51	Record Tracking

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PARENT FILE	0;1	POINTER TO FILE FILE (#1)	FILE(#1) 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)`
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)=""`
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`

PARENT FILE

0;1

POINTER TO FILE FILE (#1)

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)

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)=""

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