Global: ^AZHLRER

Field #	Name	Loc	Type	Details
.01	ASUFAC	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6)!'(X?6N) X S:$D(X) DINUM=X` LAST EDITED: `JUN 09, 1992` HELP-PROMPT: `Answer must be 6 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `8008907^B` 1)= S ^AZHLRER("B",$E(X,1,30),DA)="" 2)= K ^AZHLRER("B",$E(X,1,30),DA)
1	H-DATE	1;0	Multiple #8008907.01	8008907.01 LAST EDITED: `DEC 03, 1992`

ASUFAC

0;1

FREE TEXT

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

CROSS-REFERENCE: 8008907^B

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

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

H-DATE

1;0

Multiple #8008907.01

Information