Routine: ASURM24P

Package	Total	Call Graph
Supply	7	(ARE,SETAREA,STA)^ASULARST (ACC,ACGNM)^ASULDIRF ^ASUMSTRD READ^ASUMXDIO ^ASUUDATA PAZ^ASUURHDR (O,U)^ASUUZIS
Kernel	1	(,HOME)^%ZIS
VA Fileman	1	^%DTC

Package	Total	Caller Graph
Supply	1	ASUCOMOR

Entry Points

Name	Comments	DBIA/ICR reference
SORT	;EP ;
HEADER	;EP ;HEADING LINES
PSER	;EP;FOR TASKMAN QUEUE OF PRINT
EN	;EP;PRIMARY ENTRY POINT FOR REPORT 24
K	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Report must be run from Kernel option" Line Location: EN+2
Function Call: WRITE	Prompt: ?58,Y,?67,$J($FN(ASUMS("DXP",ASUV("DXP")),","),8) Line Location: PSER+26
Function Call: WRITE	Prompt: @(IOF),"REPORT #24 SUPPLY EXPIRATION REPORT",?90,ASUK("DT"),?110,"PAGE",?115,$J($FN(ASUC("PG"),","),7) Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"AREA",?6,$G(ASUL(1,"AR","AP")),?9,$G(ASUL(1,"AR","NM")) Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"STAT",?6,$G(ASUL(2,"STA","CD")),?9,$G(ASUL(2,"STA","NM")),?50,"G L ACCOUNT 125.",$G(ASUL(9,"ACG")),?68,$G(ASUL(9,"ACG","NM")),! Line Location: HEADER+5
Function Call: WRITE	Prompt: !?61,"EXP",?66,"SHORT DATED",?82,"TOTAL" Line Location: HEADER+6
Function Call: WRITE	Prompt: !?3,"INDEX",?60,"DATE QUANTITY QUANTITY" Line Location: HEADER+7
Function Call: WRITE	Prompt: !?3,"NUMBER",?10,"SLC",?15,"DESCRIPTION",?47,"U/I",?52,"PAMIQ",?69,"ON HAND ON HAND ACTION TAKEN",! Line Location: HEADER+8
Routine Call	%ZIS Line Location: EN+1
Routine Call	%ZIS Line Location: EN+6

Name	Line Occurrences (* Changed, ! Killed)
^ASUMS - [#9002031]	SORT+4, SORT+5
^DD("DD"	PSER+26
^XTMP("ASUR"	PSER+1, PSER+2, PSER+5, PSER+8, PSER+12, PSER+15, PSER+18, SORT+1!, SORT+2, SORT+13

Name	Field # of Occurrence
ASUC	K+1!
ASUC("LINE"	HEADER+1*
ASUC("PG"	PSER+4, PSER+11, PSER+16, HEADER+1*, HEADER+2, HEADER+3
ASUC("TOTLI"	PSER+31*
>> ASUF("BK"	PSER+4, PSER+11, PSER+20, K+1!
>> ASUF("DXP"	SORT+7, SORT+8, SORT+10, SORT+11
>> ASUK(	EN+7
>> ASUK("DT"	PSER+24, HEADER+3, SORT+2, SORT+9
>> ASUK("PTR"	EN+7
>> ASUK("PTRSEL"	EN+4*
>> ASUL(1	EN+3, HEADER+4
>> ASUL(2	HEADER+5
>> ASUL(9	HEADER+5, SORT+13
ASUMS	K+1!
ASUMS("DXP"	PSER+23, PSER+26, SORT+6, SORT+8
ASUMS("E#"	PSER+4, PSER+5, PSER+6, PSER+7, PSER+8, PSER+11, PSER+12, PSER+13, PSER+15, PSER+17* , PSER+18, PSER+19, SORT+3, SORT+4, SORT+5, SORT+12, SORT+13
ASUMS("PMIQ"	PSER+21
ASUMS("QTY"	PSER+27
ASUMS("SLC"	PSER+21
ASUMX	K+1!
ASUMX("ACC"	SORT+12
ASUMX("AR U/I	" , PSER+21
ASUMX("DESC"	PSER+21, PSER+25, PSER+29
ASUMX("E#"	PSER+19, SORT+12
ASUMX("IDX"	PSER+21
>> ASUQ("HDR"	PSER+9*
ASURX	K+1!
ASURX("ACG"	PSER+8, PSER+14, PSER+15*, PSER+16, PSER+18
>> ASUV("DXP"	PSER+22, PSER+23, PSER+24, PSER+26, SORT+7, SORT+8, SORT+9, SORT+13
>> ASUV("DXPC"	PSER+23*, PSER+25, PSER+27, PSER+29
>> ASUV("RPT"	PSER+9*
ASUX	K+1!
ASUX("NDTA"	PSER+10
>> DTOUT	PSER+12, PSER+15, PSER+18, PSER+20, HEADER+2
>> DUOUT	PSER+12, PSER+15, PSER+18, PSER+20, HEADER+2
DUZ(2	EN+2
IO	EN+1
IOF	HEADER+3
>> IOP	EN+6*
>> POP	EN+6
U	SORT+2
>> X	PSER+24, SORT+10
>> X1	PSER+24, SORT+9
>> X2	PSER+24, SORT+9
>> Y	PSER+26*
>> ZTDESC	EN+5*
>> ZTRTN	EN+5*