Global: ^ASUMY

Information

FileMan FileNo	FileMan Filename	Package
9002034	ASUMST YTD ISSUE DATA	Supply

Package	Total	Routines
Supply	9	ACCOUNT ASUMKBIO ASUMKBPS ASUMYDIO ASUMYDPS ASURM74P ASURM79P ASURO760 SUB-SUB ACTIVITY

Package	Total	Routines
Supply	1	ASUMYDIO

Package	Total	FileMan Files
Supply	3	ASUTBL SUB-SUB ACTIVITY(#9002039.17)[#9002034.01(.01)] ASUTBL REQUSITIONER(#9002039.2)[.01] ASUTBL ACCOUNT(#9002039.09)[#9002034.11(.01)]

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 valid Requisitioner from table 20` DESCRIPTION: FIELD WILL CONTAIN VALID USER CODE 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: `9002034^B` 1)= S ^ASUMY("B",$E(X,1,30),DA)="" 2)= K ^ASUMY("B",$E(X,1,30),DA)
1	SUB-SUB ACTIVITY	1;0	POINTER Multiple #9002034.01	9002034.01 LAST EDITED: `MAR 31, 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 valid Requisitioner from table 20
DESCRIPTION:
```
FIELD WILL CONTAIN VALID USER CODE
```
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: 9002034^B

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

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

SUB-SUB ACTIVITY

1;0

POINTER Multiple #9002034.01

Name	Field # of Occurrence
^DIC	.01+1

Name	Line Occurrences (* Changed, ! Killed)
^ASUMY("B"	.01(XREF 1S), .01(XREF 1K)