Routine: ASURM83P

Information

ASURM83P ; IHS/ITSC/LMH -RPT 83 INVOICE SUMMARY ;

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Supply	7	READ^ASU0TRRD SETAREA^ASULARST (REQ,SSA,SST,USR)^ASULDIRR ^ASUUDATA DATE^ASUUDATE PAZ^ASUURHDR (C,O,U)^ASUUZIS
IHS VA Utilities	1	^XBKVAR
Kernel	1	(,HOME)^%ZIS
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Supply	2	ASU683IVSM ASUCORPX

Entry Points

Name	Comments	DBIA/ICR reference
P0	;
P1	;
CMPT	;EP ;COMPUTE EXTRACTS
HDR	;
HEADER	;
PSER	;EP;FOR TASKMAN QUEUE OF PRINT
EXIT	;
KIL	;

External References

Name	Field # of Occurrence
^%ZIS	ASURM83P+15
HOME^%ZIS	ASURM83P+5
READ^ASU0TRRD	CMPT+7
SETAREA^ASULARST	ASURM83P+8
REQ^ASULDIRR	P1+2
SSA^ASULDIRR	PSER+12, CMPT+16
SST^ASULDIRR	PSER+9, HEADER+5, CMPT+10
USR^ASULDIRR	CMPT+13
^ASUUDATA	PSER+3
DATE^ASUUDATE	ASURM83P+7, P0+1
PAZ^ASUURHDR	KIL+4, HEADER+2
C^ASUUZIS	KIL+6
O^ASUUZIS	ASURM83P+14
U^ASUUZIS	PSER+1
^DIR	P0+11, P0+24, P0+36
^XBKVAR	ASURM83P+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Report must be run from Kernel option" Line Location: ASURM83P+4
Function Call: WRITE	Prompt: !!!?2,"TOTAL FOR AREA ",ASUL(1,"AR","AP")," ",ASUL(1,"AR","NM"),?69,$J($FN(ASUC("SST"),",",2),10),! Line Location: PSER+25
Function Call: WRITE	Prompt: @IOF Line Location: KIL+5
Function Call: WRITE	Prompt: !?11,"TOTAL FOR USER ",?35,ASUL(20,"REQ"),?39,ASUL(19,"USR","NM"),?69,$J($FN(ASUC("VOU"),",",2),10),! Line Location: P1+23
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
Function Call: WRITE	Prompt: "REPORT #83 MONTHLY INVOICE SUMMARY REPORT",?51,"DATE: ",$G(ASUK("DT")),?69,"PAGE :",$J(ASUC("PG"),5) Line Location: HEADER+3
Function Call: WRITE	Prompt: !!,"CHARGED TO: AREA : ",?19,ASUL(1,"AR","AP")," ",$G(ASUL(1,"AR","NM")) Line Location: HEADER+4
Function Call: WRITE	Prompt: !?13,"FAC : ",ASUL(18,"SST")," ",ASUL(18,"SST","NM") Line Location: HEADER+6
Function Call: WRITE	Prompt: ?45,"AS OF MONTH: ",$G(ASUX("AO MO")) Line Location: HEADER+7
Function Call: WRITE	Prompt: !!,"SUB",?55,"INVOICE" Line Location: HEADER+8
Function Call: WRITE	Prompt: !,"SUB",?35,"USER",?55,"VOUCHER",?66,"P/" Line Location: HEADER+9
Function Call: WRITE	Prompt: !,"ACT-NAME",?27,"CAN",?35,"CODE-NAME",?55,"NUMBER",?67,"C",?74,"VALUE",! Line Location: HEADER+10
Routine Call	%ZIS Line Location: ASURM83P+5
Routine Call	DIR Line Location: P0+11 P0+24 P0+36
Routine Call	%ZIS Line Location: ASURM83P+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUH - [#9002036]	CMPT+5
^ASUH("AX"	P0+21, P0+38, CMPT+3
^ASUML - [#9002039.98]	P0+27, P0+28, P0+33, P0+37
^ASUSITE(1	P0+16, P0+18
^XTMP("ASUR"	ASURM83P+11, PSER+7, PSER+11, PSER+14, P0+5, P0+15, P0+42!, P1+6, P1+8, P1+10 , P1+12, CMPT+1!, CMPT+2, CMPT+18, CMPT+20*

Label References

Name	Line Occurrences
CMPT	P0+7, P0+22, P0+43
EXIT	P0+5
HEADER	PSER+16, PSER+24, P1+11
KIL	PSER+3
P0	ASURM83P+10
P1	PSER+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASUC	KIL+1!
ASUC("AR"	PSER+6*
ASUC("LN"	ASURM83P+9, PSER+15, PSER+16, PSER+19, PSER+23, PSER+24, P1+11, P1+20, P1+22, HEADER+11*
ASUC("PG"	ASURM83P+9, HEADER+2, HEADER+3
ASUC("SSA"	PSER+6, PSER+18, PSER+20, PSER+22*
ASUC("SST"	PSER+6, PSER+22, PSER+25
ASUC("TR"	PSER+7, CMPT+3, CMPT+18
ASUC("TRANS"	PSER+6*
ASUC("USR"	PSER+6, PSER+17, PSER+18, P1+24*
ASUC("VAL"	PSER+6, P1+16, P1+19, P1+21*
ASUC("VOU"	PSER+6, P1+21, P1+23, P1+24*
ASUF	KIL+1!
ASUF("BK"	ASURM83P+9*
ASUF("HDR"	ASURM83P+9, PSER+19, PSER+21, P1+4, P1+11, HEADER+1*
>> ASUHDA	P0+2, CMPT+3, CMPT+5, CMPT+7
>> ASUK(	ASURM83P+16
>> ASUK("DT"	ASURM83P+7, P0+1, P0+3, P0+42, HEADER+3, CMPT+2, CMPT+20
>> ASUK("PTR"	ASURM83P+16
>> ASUK("PTRSEL"	ASURM83P+12*, ASURM83P+13, KIL+5
>> ASUL(	KIL+2!, P1+1!
>> ASUL(1	ASURM83P+8, PSER+25, P0+2, HEADER+4, CMPT+8
>> ASUL(17	PSER+17, P1+17, CMPT+17
>> ASUL(18	PSER+20, HEADER+5, HEADER+6, CMPT+11
>> ASUL(19	P1+4, P1+17, P1+23, CMPT+14
>> ASUL(20	P1+17, P1+23
>> ASUP("SEL83"	P0+4*, P0+6
>> ASUQ("HDR"	PSER+2*
ASUT	PSER+4, PSER+7, PSER+8, PSER+9, PSER+10, PSER+11, PSER+12, PSER+13, PSER+14, KIL+1! , P1+2, P1+5, P1+6, P1+8, P1+10, P1+12, P1+13, P1+14, P1+15, P1+17 , P1+18, HEADER+5, CMPT+1, CMPT+7, CMPT+8, CMPT+9, CMPT+10, CMPT+11, CMPT+12, CMPT+13 , CMPT+14, CMPT+15, CMPT+16, CMPT+17, CMPT+18, CMPT+19
ASUT(	PSER+4, PSER+7, PSER+8, PSER+9, PSER+10, PSER+11, PSER+12, PSER+13, PSER+14, P1+2 , P1+5, P1+6, P1+8, P1+10, P1+12, P1+13, P1+14, P1+15, P1+17, P1+18 , HEADER+5, CMPT+8, CMPT+9, CMPT+10, CMPT+11, CMPT+12, CMPT+13, CMPT+14, CMPT+15, CMPT+16 , CMPT+17*, CMPT+18, CMPT+19!
ASUT("TRCD"	P1+7, P1+8, P1+10, P1+12, P1+14, P1+19, CMPT+5*, CMPT+6, CMPT+18
ASUV	KIL+1!
ASUV("R83DT"	P0+3, P0+18, P0+21, P0+28, P0+37*, P0+38, CMPT+3
ASUV("RPT"	PSER+2*
ASUV("VAL"	P1+15*, P1+16
ASUV("VOU"	PSER+5*
ASUV("XLGMO"	P0+26*, P0+27, P0+28, P0+33, P0+37
ASUX	KIL+1!
ASUX("AO DT"	ASURM83P+11*
ASUX("AO MO"	ASURM83P+11*, HEADER+7
ASUX("AR"	PSER+8, P0+2, P0+5, P1+4
ASUX("LINE"	PSER+5, P1+9, P1+10*, P1+12
ASUX("NDTA"	PSER+3
ASUX(1	P1+12*, P1+13
DA	KIL+3!
DIC	KIL+3!
DIR	P0+10!, P0+11!, P0+24!, P0+36!
DIR("A"	P0+10, P0+24, P0+36*
DIR(0	P0+10, P0+24, P0+36*
>> DTOUT	ASURM83P+10, P0+11, P0+25
>> DUOUT	ASURM83P+10, PSER+7, PSER+11, PSER+16, PSER+24, P0+11, P0+25, P0+41*, P1+6, P1+8 , P1+10, P1+11, HEADER+2
DUZ(2	ASURM83P+4
IO	ASURM83P+5
IOF	KIL+5, HEADER+2
ION	P0+9
>> IOP	ASURM83P+15*
IOSL	ASURM83P+9, PSER+16, PSER+24, P1+11
IOST	P0+9
>> POP	ASURM83P+15
U	ASURM83P+6, ASURM83P+11, P0+16, P0+18, P0+27, P0+28, P0+34, P0+37, P0+42, P1+13 , CMPT+2, CMPT+5, CMPT+18, CMPT+20
X	KIL+2, KIL+3!, P0+16, P0+17, P0+20, P0+21, P0+25, P0+33, P0+34, P0+38 , P0+39, P1+1*
Y	KIL+3!, P0+13, P0+14, P0+25, P0+26, P0+33, P0+34, P0+36, P0+37
Y(0	P0+40
>> ZTDESC	ASURM83P+14*
>> ZTRTN	ASURM83P+14*

Customize PDF page

Package: Supply

Routine: ASURM83P

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: