Global: ^BLSLX

Field #	Name	Loc	Type	Details
.01	V LAB	0;1	POINTER TO V LAB FILE (#9000010.09)	**********************REQUIRED FIELD********************** V LAB(#9000010.09) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `DEC 12, 2001` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `90221^B` 1)= S ^BLSLX("B",$E(X,1,30),DA)="" 2)= K ^BLSLX("B",$E(X,1,30),DA)
.02	DATE ADDED	0;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 12, 2001` CROSS-REFERENCE: `90221^AEXP^MUMPS` 1)= S ^BLSLX("AEXP",X,DA)="" 2)= Q
.03	DATE EXPORTED	0;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 10, 2002` CROSS-REFERENCE: `90221^AEXP1^MUMPS` 1)= I $P(^BLSLX(DA,0),U,2)]"" K ^BLSLX("AEXP",$P(^BLSLX(DA,0),U,2),DA) 2)= Q CROSS-REFERENCE: `90221^ADXP` 1)= S ^BLSLX("ADXP",$E(X,1,30),DA)="" 2)= K ^BLSLX("ADXP",$E(X,1,30),DA)

V LAB

0;1

POINTER TO V LAB FILE (#9000010.09)

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

CROSS-REFERENCE: 90221^B

1)= S ^BLSLX("B",$E(X,1,30),DA)=""

2)= K ^BLSLX("B",$E(X,1,30),DA)

DATE ADDED

0;2

DATE

DATE EXPORTED

0;3

DATE

CROSS-REFERENCE: 90221^AEXP1^MUMPS

1)= I $P(^BLSLX(DA,0),U,2)]"" K ^BLSLX("AEXP",$P(^BLSLX(DA,0),U,2),DA)

2)= Q

CROSS-REFERENCE: 90221^ADXP

1)= S ^BLSLX("ADXP",$E(X,1,30),DA)=""

2)= K ^BLSLX("ADXP",$E(X,1,30),DA)

Information