Global: ^ASUML

FileMan FileNo	FileMan Filename	Package
9002039.98	ASULOG EXTRACT	Supply

Directly Accessed By Routines, Total: 5

Package	Total	Routines
Supply	5	ASURM83P ASURQ810 ASUUTIL ASUW2SAM EXTRACT DATE

Package	Total	Routines
Supply	2	ASUUTIL ASUW2SAM

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	MONTH OF DATA	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 31, 2003` DESCRIPTION: Extract as of month CROSS-REFERENCE: `9002039.98^B` 1)= S ^ASUML("B",$E(X,1,30),DA)="" 2)= K ^ASUML("B",$E(X,1,30),DA)
1	EXTRACT DATE	1;0	DATE Multiple #9002039.981	9002039.981 DESCRIPTION: Date of Extract - computer generated
2	QUARTER	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X X:$D(X) "K:$L(X)>6!($L(X)<6)!'(X?6N) X"` LAST EDITED: `JUN 09, 1992` HELP-PROMPT: `Answer must be 6 characters in length.` DESCRIPTION: Quarter of extract NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002039.98^C` 1)= S ^ASUML("C",$E(X,1,30),DA)="" 2)= K ^ASUML("C",$E(X,1,30),DA)

MONTH OF DATA

0;1

DATE

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

CROSS-REFERENCE: 9002039.98^B

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

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

EXTRACT DATE

1;0

DATE Multiple #9002039.981

QUARTER

0;2

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X X:$D(X) "K:$L(X)>6!($L(X)<6)!'(X?6N) X"
LAST EDITED: JUN 09, 1992
HELP-PROMPT: Answer must be 6 characters in length.
DESCRIPTION:
```
Quarter of extract
```
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 9002039.98^C

1)= S ^ASUML("C",$E(X,1,30),DA)=""

2)= K ^ASUML("C",$E(X,1,30),DA)

Name	Field # of Occurrence
^%DT	.01+1

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