Sub-Field: 67.901

Parent File	Name	Number	Package
LAB MONTHLY WORKLOADS(#67.9)	DIVISION	67.901	Lab Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DIVISION	0;1	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) INPUT TRANSFORM: `I $D(X) S DINUM=X` OUTPUT TRANSFORM: `S Y=$P(^DIC(4,+Y,0),U,1)` LAST EDITED: `AUG 18, 1992` DESCRIPTION: `This field contains what division this site is identified by.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^67.901^.5` `1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LRO(67.9,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(67.901,.01,1,1,1.1) X ^DD(67.901,.01,1,1,1.4)` `1.1)= S X=DIV S X=$P(^DIC(4,+^LRO(67.9,DA(1),1,DA,0),0),"^",1)` `1.4)= S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=67.901,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LRO(67.9,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(67.901,.01,1,1,2.4)` `2.4)= S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=67.901,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= S X=$P(^DIC(4,+^LRO(67.9,DA(1),1,DA,0),0),"^",1)` `DELETE VALUE)= S X=""` `FIELD)= #.5` CROSS-REFERENCE: `67.901^B` `1)= S ^LRO(67.9,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^LRO(67.9,DA(1),1,"B",$E(X,1,30),DA)`
.5	PRINT NAME DIVISION	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>35!($L(X)<3) X` LAST EDITED: `JUL 08, 1992` HELP-PROMPT: `Answer must be 3-35 characters in length.` DESCRIPTION: `This is the print name of the division.` `UNEDITABLE` NOTES: `TRIGGERED by the DIVISION field of the DIVISION sub-field of the LAB MONTHLY WORKLOADS File`
1	MONTH	1;0	DATE Multiple #67.911	67.911 DESCRIPTION: `Multiple field. Contains information about the monthly data.`

.01

DIVISION

0;1

POINTER TO INSTITUTION FILE (#4)

INSTITUTION(#4)

INPUT TRANSFORM: I $D(X) S DINUM=X
OUTPUT TRANSFORM: S Y=$P(^DIC(4,+Y,0),U,1)
LAST EDITED: AUG 18, 1992
DESCRIPTION:
This field contains what division this site is identified by.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^67.901^.5
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LRO(67.9,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(67.901,.01,1,1,1.1) X ^DD(67.901,.01,1,1,1.4)
1.1)= S X=DIV S X=$P(^DIC(4,+^LRO(67.9,DA(1),1,DA,0),0),"^",1)
1.4)= S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=67.901,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LRO(67.9,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(67.901,.01,1,1,2.4)
2.4)= S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=67.901,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= S X=$P(^DIC(4,+^LRO(67.9,DA(1),1,DA,0),0),"^",1)
DELETE VALUE)= S X=""
FIELD)= #.5
CROSS-REFERENCE: 67.901^B
1)= S ^LRO(67.9,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LRO(67.9,DA(1),1,"B",$E(X,1,30),DA)

PRINT NAME DIVISION

0;2

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>35!($L(X)<3) X
LAST EDITED: JUL 08, 1992
HELP-PROMPT: Answer must be 3-35 characters in length.
DESCRIPTION:
This is the print name of the division.
UNEDITABLE
NOTES: TRIGGERED by the DIVISION field of the DIVISION sub-field of the LAB MONTHLY WORKLOADS File

MONTH

1;0

DATE Multiple #67.911

67.911

DESCRIPTION:
Multiple field. Contains information about the monthly data.

Customize PDF page

Package: Lab Service

LAB MONTHLY WORKLOADS(#67.9)-->67.901

Sub-Field: 67.901

Information

Details