Routine: ASUV4AL

Call Graph Total: 15

Package	Total	Call Graph
Supply	9	WRITE^ASU0TRWR SETAREA^ASULARST ACC^ASULDIRF READ^ASUMXDIO CLS^ASUUHDG (C,O,U)^ASUUZIS STA^ASUV0NT (ASUV3AN0,FLAGIT4)^ASUV3AN (ACCOUNT,INDEX,STORLOC)^ASUV9IMR
VA Fileman	4	^%DT YX^%DTC ^DIC ^DIR
IHS VA Utilities	1	^XBKVAR
Kernel	1	(,HOME)^%ZIS

Package

Total

Call Graph

WRITE^ASU0TRWR SETAREA^ASULARST ACC^ASULDIRF READ^ASUMXDIO CLS^ASUUHDG (C,O,U)^ASUUZIS STA^ASUV0NT (ASUV3AN0,FLAGIT4)^ASUV3AN
(ACCOUNT,INDEX,STORLOC)^ASUV9IMR

VA Fileman

^%DT YX^%DTC ^DIC ^DIR

IHS VA Utilities

^XBKVAR

Kernel

(,HOME)^%ZIS

Package	Total	Caller Graph
Supply	1	ASU937CFAD

Package

Total

Caller Graph

Supply

ASU937CFAD

Name	Comments	DBIA/ICR reference
SEPERATE	;
FOOTING	;
ASUV4AL0	;ADJUSTMENT DOCUMENT SORT
ASUV4AL1	;
FLAGIT	;
EXIT	;
KEY	;
ASUV4AL3	;
HEADING	;

External References

Name	Field # of Occurrence
^%DT	ASUV4AL+6
YX^%DTC	ASUV4AL+4
^%ZIS	ASUV4AL+39
HOME^%ZIS	ASUV4AL+5, ASUV4AL+34
WRITE^ASU0TRWR	KEY+31
SETAREA^ASULARST	ASUV4AL+36
ACC^ASULDIRF	ASUV4AL+16
READ^ASUMXDIO	ASUV4AL1+24
CLS^ASUUHDG	ASUV4AL+7, FLAGIT+1, HEADING+1
C^ASUUZIS	EXIT+3, FLAGIT+3
O^ASUUZIS	ASUV4AL+38
U^ASUUZIS	ASUV4AL1+2
STA^ASUV0NT	ASUV4AL+8
ASUV3AN0^ASUV3AN	ASUV4AL+31
FLAGIT4^ASUV3AN	FLAGIT+2
ACCOUNT^ASUV9IMR	ASUV4AL+21, ASUV4AL1+7, ASUV4AL1+12
INDEX^ASUV9IMR	ASUV4AL1+20
STORLOC^ASUV9IMR	ASUV4AL1+18
^DIC	ASUV4AL+11, KEY+25
^DIR	ASUV4AL+24
^XBKVAR	ASUV4AL+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Report must be run from Kernel option" Line Location: ASUV4AL+35
Function Call: WRITE	Prompt: "REPORT 37C INVENTORY ADJUSTMENT DOUCMENT DATE: ",ASUK("RUN","DT"),?70," PAGE: ",ASUC("PG") Line Location: HEADING+2
Function Call: WRITE	Prompt: !,"AREA: ",ASUL(1,"AR","NM") Line Location: HEADING+3
Function Call: WRITE	Prompt: !,"STAT: ",ASUL(2,"STA","NM"),?33,"ACCOUNT : ",ASUL(9,"ACC","NM"),?55,"INV. DATE ",ASUV("DTPRNT") Line Location: HEADING+4
Function Call: WRITE	Prompt: !,"VOUCHER NO: ",$E(ASUMV("VOU"),1,2),"-",$E(ASUMV("VOU"),3,4),"-",$E(ASUMV("VOU"),5,8) Line Location: HEADING+5
Function Call: WRITE	Prompt: !!,"ITEM INDEX" Line Location: HEADING+6
Function Call: WRITE	Prompt: ?34,"U UNIT OVERAGE SHORTAGE" Line Location: HEADING+7
Function Call: WRITE	Prompt: !," NO. NUMBER DESCRIPTION" Line Location: HEADING+8
Function Call: WRITE	Prompt: ?34," I COST QTY VALUE QTY VALUE" Line Location: HEADING+9
Function Call: WRITE	Prompt: !,"_______________________________________________________________________________" Line Location: SEPERATE+1
Function Call: WRITE	Prompt: !!?5,"TOTALS: OVERAGES: NO. LI: ",$J(ASUC("OVR","LI"),6),?45," VAL: ",$J($FN(ASUC("OVR","VAL"),",",2),10) Line Location: FOOTING+2
Function Call: WRITE	Prompt: !?13,"SHORTAGES: NO. LI: ",$J(ASUC("SHT","LI"),6),?45," VAL: ",$J($FN(ASUC("SHT","VAL"),",",2),10) Line Location: FOOTING+3
Routine Call	%ZIS Line Location: ASUV4AL+5 ASUV4AL+34
Routine Call	DIC Line Location: ASUV4AL+11 KEY+25
Routine Call	DIR Line Location: ASUV4AL+24
Routine Call	%ZIS Line Location: ASUV4AL+39

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUMS - [#9002031]	ASUV4AL1+25
^ASUMV - [#9002030]	ASUV4AL+20, ASUV4AL0+3, ASUV4AL0+5, ASUV4AL0+6, ASUV4AL0+7
^ASUMX - [#9002032]	KEY+21
^ASUV("AJ"	ASUV4AL0+1!, ASUV4AL0+8*, ASUV4AL1+6, ASUV4AL1+16, ASUV4AL1+17
^DD("DD"	ASUV4AL1+8, ASUV4AL1+13

Label References

Name	Line Occurrences
ASUV4AL0	ASUV4AL+33
ASUV4AL1	ASUV4AL+41
ASUV4AL3	ASUV4AL1+34, ASUV4AL1+40
EXIT	ASUV4AL+8, ASUV4AL+19, ASUV4AL+22, ASUV4AL+32, ASUV4AL+35, ASUV4AL+39, ASUV4AL+40
FLAGIT	ASUV4AL1+6
FOOTING	ASUV4AL1+45
HEADING	ASUV4AL1+9, ASUV4AL1+15, ASUV4AL1+19
KEY	ASUV4AL3+2
SEPERATE	ASUV4AL1+43, HEADING+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	ASUV4AL+6*
%H	ASUV4AL+4*!
ASUC	EXIT+1!, KEY+6, KEY+30
ASUC("LN"	ASUV4AL1+3, ASUV4AL1+15, ASUV4AL1+19, ASUV4AL1+44, ASUV4AL1+45, HEADING+1, FOOTING+1
ASUC("OVR"	ASUV4AL1+4, ASUV4AL1+42, FOOTING+2
ASUC("PG"	ASUV4AL1+3, HEADING+1, HEADING+2
ASUC("SHT"	ASUV4AL1+5, ASUV4AL1+36, FOOTING+3
ASUC(0	KEY+2*, KEY+34!
ASUF	ASUV4AL+26, ASUV4AL+27, ASUV4AL+28, ASUV4AL+32, EXIT+1!
ASUF("RPRN"	FLAGIT+2, ASUV4AL3+1
ASUF("SV"	KEY+31*
ASUF("UPDT"	KEY+2*
>> ASUHDA	KEY+29*
>> ASUK(	ASUV4AL+40!
>> ASUK("DT"	KEY+8
>> ASUK("PTR"	ASUV4AL+40!, EXIT+3, FLAGIT+3
>> ASUK("PTR-Q"	ASUV4AL+40!
>> ASUK("RUN"	ASUV4AL+4*, HEADING+2
>> ASUL(1	ASUV4AL+36, HEADING+3, KEY+9, KEY+20
>> ASUL(2	ASUV4AL+8, ASUV4AL+15, ASUV4AL+18, ASUV4AL0+7*, ASUV4AL1+25, HEADING+4, KEY+3, KEY+12
>> ASUL(9	ASUV4AL+23, ASUV4AL1+10, HEADING+4
ASUMS	EXIT+1!
ASUMS("E#"	ASUV4AL1+25*
ASUMSG	KEY+33!
ASUMV	EXIT+1!
ASUMV("ACC"	ASUV4AL+15*, ASUV4AL+16, ASUV4AL+23, ASUV4AL1+10
ASUMV("CNT"	ASUV4AL1+22
ASUMV("E#"	ASUV4AL+15, ASUV4AL+18, ASUV4AL+19, ASUV4AL+20, ASUV4AL+25, ASUV4AL+37, ASUV4AL0+2, ASUV4AL0+3, ASUV4AL0+4, ASUV4AL0+5 , ASUV4AL0+6, ASUV4AL0+7, ASUV4AL0+8, ASUV4AL1+1, ASUV4AL1+6, ASUV4AL1+11, ASUV4AL1+14, ASUV4AL1+16, ASUV4AL1+17*
ASUMV("IDX"	ASUV4AL1+21, ASUV4AL1+25, KEY+5
ASUMV("INVBEG"	ASUV4AL1+8, ASUV4AL1+13
ASUMV("MODE"	ASUV4AL+28*
ASUMV("QTY"	ASUV4AL1+23, ASUV4AL1+30, ASUV4AL1+32, ASUV4AL1+35, ASUV4AL1+39, ASUV4AL1+41
ASUMV("U/C"	ASUV4AL1+23, ASUV4AL1+27
ASUMV("VOU"	HEADING+5, KEY+4
ASUMX	EXIT+1!
ASUMX("AR U/I	" , ASUV4AL1+27
ASUMX("DESC"	ASUV4AL1+27
ASUMX("IDX"	ASUV4AL1+26
ASUR	EXIT+1!
ASUSAV	EXIT+1!
>> ASUT	ASUV4AL1+28*, ASUV4AL1+29, ASUV4AL1+32, ASUV4AL1+33, ASUV4AL1+39, KEY+1, KEY+2, KEY+3, KEY+4, KEY+5 , KEY+7, KEY+8, KEY+9, KEY+10, KEY+11, KEY+12, KEY+13, KEY+14, KEY+16, KEY+17 , KEY+18, KEY+20, KEY+21, KEY+22, KEY+24, KEY+25, KEY+34
>> ASUT(	ASUV4AL1+29, ASUV4AL1+32, ASUV4AL1+33, ASUV4AL1+39, KEY+1, KEY+2, KEY+3, KEY+4, KEY+5, KEY+7 , KEY+8, KEY+9, KEY+10, KEY+11, KEY+12, KEY+13, KEY+14, KEY+16, KEY+17, KEY+18 , KEY+20, KEY+21, KEY+22, KEY+24*, KEY+25, KEY+34!
>> ASUT("TRCD"	ASUV4AL1+31, ASUV4AL1+38
>> ASUU(11	EXIT+1!, ASUV4AL1+16*, ASUV4AL1+26
ASUV	EXIT+1!
ASUV("ADJUST	VAL" , ASUV4AL1+23*, ASUV4AL1+29, ASUV4AL1+35, ASUV4AL1+36, ASUV4AL1+41, ASUV4AL1+42
ASUV("ASA"	ASUV4AL+25, ASUV4AL+37, ASUV4AL1+1
ASUV("CNT"	ASUV4AL1+22*
ASUV("DT"	ASUV4AL+6*, KEY+1
ASUV("DTPRNT"	ASUV4AL1+8, ASUV4AL1+13, HEADING+4
ASUV("MSG"	ASUV4AL+30*
ASUV("TIME"	ASUV4AL3+2, ASUV4AL3+3, ASUV4AL3+4, KEY+1
DA	KEY+29*, KEY+31, KEY+33!
DIC	ASUV4AL+10, ASUV4AL+11!, KEY+25, KEY+33!
DIC("A"	ASUV4AL+9*
DIC(0	ASUV4AL+10, KEY+25
DIE	KEY+33!
DIR	ASUV4AL+24!
DIR(0	ASUV4AL+24*
DR	KEY+33!
DT	ASUV4AL+4
DTOUT	ASUV4AL+8, ASUV4AL+12, EXIT+2!
DUOUT	ASUV4AL+8, ASUV4AL+12, EXIT+2!
DUZ	KEY+2, KEY+7
DUZ(2	ASUV4AL+35
IO	ASUV4AL+34
IO(0	ASUV4AL+5, FLAGIT+1
IOP	ASUV4AL+39*, ASUV4AL+40!
POP	ASUV4AL+39, ASUV4AL+40!
U	ASUV4AL+15, ASUV4AL0+6, ASUV4AL0+7, KEY+21
X	ASUV4AL+4!, ASUV4AL+6, EXIT+2!, KEY+25, KEY+33!
X1	EXIT+2!
Y	ASUV4AL+4!, ASUV4AL+6, ASUV4AL+13, ASUV4AL+14, ASUV4AL+15, EXIT+2!, ASUV4AL1+8!, ASUV4AL1+13!, KEY+26, KEY+29 , KEY+33!
ZTDESC	ASUV4AL+38*, ASUV4AL+40!, EXIT+2!
ZTRTN	ASUV4AL+38*, ASUV4AL+40!, EXIT+2!
ZTSK	ASUV4AL+40!

Customize PDF page

Package: Supply