Sub-Field: 68.03

Parent File	Name	Number	Package
ACCESSION(#68)	ASSOCIATED DIVISION	68.03	Lab Service

Parent File

Name

Number

Package

ASSOCIATED DIVISION

68.03

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ASSOCIATED DIVISION	0;1	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) INPUT TRANSFORM: `S DIC("S")="I $E(+$G(^DIC(4,+Y,99)),1,3)=+$P($$SITE^VASITE,U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X` LAST EDITED: `MAR 05, 2014` SCREEN: `S DIC("S")="I $E(+$G(^DIC(4,+Y,99)),1,3)=+$P($$SITE^VASITE,U,3)"` EXPLANATION: `Allows only divisions related to site.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `68.03^B` `1)= S ^LRO(68,DA(1),3,"B",$E(X,1,30),DA)=""` `2)= K ^LRO(68,DA(1),3,"B",$E(X,1,30),DA)`

ASSOCIATED DIVISION

0;1

POINTER TO INSTITUTION FILE (#4)

INPUT TRANSFORM: S DIC("S")="I $E(+$G(^DIC(4,+Y,99)),1,3)=+$P($$SITE^VASITE,U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAR 05, 2014
SCREEN: S DIC("S")="I $E(+$G(^DIC(4,+Y,99)),1,3)=+$P($$SITE^VASITE,U,3)"
EXPLANATION: Allows only divisions related to site.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 68.03^B
1)= S ^LRO(68,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^LRO(68,DA(1),3,"B",$E(X,1,30),DA)