Global: ^ASUL(21

FileMan FileNo	FileMan Filename	Package
9002039.21	ASUTBL BUDGET	Supply

FileMan FileNo

FileMan Filename

Package

9002039.21

ASUTBL BUDGET

Package	Total	Routines
Supply	7	ACCOUNT ASURM74P ASUTEB ASUTEB1 ASUTEB2 ASUTP21 SUB-SUB ACTIVITY

Package	Total	Routines
Supply	3	ASUTEB ASUTEB1 ASUTEB2

Package	Total	FileMan Files
Supply	4	ASUTBL AREA(#9002039.01)[.04] ASUTBL SUB-SUB ACTIVITY(#9002039.17)[#9002039.211(.01)] ASUTBL SUB STATION(#9002039.18)[.01] ASUTBL ACCOUNT(#9002039.09)[#9002039.2111(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SUB STATION NAME	0;1	POINTER TO ASUTBL SUB STATION FILE (#9002039.18)	**********************REQUIRED FIELD********************** ASUTBL SUB STATION(#9002039.18) INPUT TRANSFORM: `S DINUM=X` LAST EDITED: `MAR 31, 1994` HELP-PROMPT: `Enter Sub Station` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.04	AREA AP	0;4	POINTER TO ASUTBL AREA FILE (#9002039.01)	**********************REQUIRED FIELD********************** ASUTBL AREA(#9002039.01) INPUT TRANSFORM: `S DIC("S")=$E(X,1,2)=ASUL(1,"AR","AP") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 01, 1994` HELP-PROMPT: `Enter Area's Accounting Point` SCREEN: `S DIC("S")=$E(X,1,2)=ASUL(1,"AR","AP")` EXPLANATION: `MUST EQUAL AREA SIGNED ON AS`
2	SUB-SUB ACTIVITY	1;0	POINTER Multiple #9002039.211	9002039.211 LAST EDITED: `MAR 31, 1994` DESCRIPTION: Sub Sub Activity Code

SUB STATION NAME

0;1

POINTER TO ASUTBL SUB STATION FILE (#9002039.18)

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

AREA AP

0;4

POINTER TO ASUTBL AREA FILE (#9002039.01)

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

INPUT TRANSFORM: S DIC("S")=$E(X,1,2)=ASUL(1,"AR","AP") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 01, 1994
HELP-PROMPT: Enter Area's Accounting Point
SCREEN: S DIC("S")=$E(X,1,2)=ASUL(1,"AR","AP")
EXPLANATION: MUST EQUAL AREA SIGNED ON AS

SUB-SUB ACTIVITY

1;0

POINTER Multiple #9002039.211

Name	Field # of Occurrence
^DIC	.04+1

Information