Sub-Field: 9002033.02

Parent File	Name	Number	Package
ASUMST ISSUE BOOK(#9002033)	REQUSITIONER	9002033.02	Supply

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	REQUSITIONER	0;1	POINTER TO ASUTBL REQUSITIONER FILE (#9002039.2)	**********************REQUIRED FIELD********************** ASUTBL REQUSITIONER(#9002039.2) INPUT TRANSFORM: `I $E(X,1,2)=$G(ASUL(1,"AR","AP")) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X` LAST EDITED: `DEC 31, 1996` HELP-PROMPT: `Enter requisitioner from table 20` SCREEN: `I $E(X,1,2)=$G(ASUL(1,"AR","AP"))` EXPLANATION: `MUST EQUAL AREA SIGNED ON AS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002033.02^B` 1)= S ^ASUMK(DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^ASUMK(DA(1),1,"B",$E(X,1,30),DA)
1	INDEX	1;0	POINTER Multiple #9002033.21	9002033.21 LAST EDITED: `APR 04, 1994`

REQUSITIONER

0;1

POINTER TO ASUTBL REQUSITIONER FILE (#9002039.2)

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

INPUT TRANSFORM: I $E(X,1,2)=$G(ASUL(1,"AR","AP")) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: DEC 31, 1996
HELP-PROMPT: Enter requisitioner from table 20
SCREEN: I $E(X,1,2)=$G(ASUL(1,"AR","AP"))
EXPLANATION: MUST EQUAL AREA SIGNED ON AS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 9002033.02^B

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

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

INDEX

1;0

POINTER Multiple #9002033.21