Routine: ASURQ25P

Package	Total	Call Graph
Supply	6	(ARE,SETAREA,STA)^ASULARST ^ASUMSTRD READ^ASUMXDIO ^ASUUDATA PAZ^ASUURHDR (O,U)^ASUUZIS
Kernel	1	(,HOME)^%ZIS

Package	Total	Caller Graph
Supply	1	ASURQSTD

Entry Points

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Report must be run from Kernel option" Line Location: EN+2
Function Call: WRITE	Prompt: !!,"AREA LINE ITEMS: ",ASUC("TOTLI") Line Location: PSER+19
Function Call: WRITE	Prompt: !!,"AREA LINE ITEMS: ",ASUC("TOTLI") Line Location: PSER+20
Function Call: WRITE	Prompt: @(IOF),"REPORT #25 PHARMACY QUARTERLY LIST OF R AND N ITEMS",?90,ASUK("DT"),?110,"PAGE",?115,$J($FN(ASUC("PG"),","),7) Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"AREA",?6,ASUL(1,"AR","AP"),?9,ASUL(1,"AR","NM") Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"STAT",?6,ASUL(2,"STA","CD"),?9,ASUL(2,"STA","NM") Line Location: HEADER+5
Function Call: WRITE	Prompt: !,"P INDEX",?54,"RECORD UNIT WHSE REC/ ADJ OVERAGES SHORTAGES" Line Location: HEADER+6
Function Call: WRITE	Prompt: !,"C NUMBER",?15,"DESCRIPTION",?47,"U/I",?53,"QUANTITY COST COUNT ISSUE QTY QTY VALUE QTY VALUE",! Line Location: HEADER+7
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
^XTMP("ASUR"	PSER+1, PSER+4, PSER+8, PSER+12, SORT+1!, SORT+2, SORT+3, SORT+10*

Name	Field # of Occurrence
ASUC	K+1!
ASUC("LI"	PSER+17, PSER+18
ASUC("LINE"	PSER+16, HEADER+1
ASUC("PG"	PSER+3, PSER+7, HEADER+1*, HEADER+2, HEADER+3
ASUC("TOTLI"	PSER+18, PSER+19, PSER+20*
>> ASUF("BK"	PSER+3, PSER+7, PSER+14, K+1!
>> ASUK(	EN+7
>> ASUK("DT"	HEADER+3, SORT+2, SORT+3
>> ASUK("PTR"	EN+7
>> ASUK("PTRSEL"	EN+4*
>> ASUL(1	EN+3, HEADER+4
>> ASUL(2	HEADER+5
ASUMS	K+1!
ASUMS("CST/U"	PSER+15
ASUMS("E#"	PSER+3, PSER+7, PSER+8, PSER+9, PSER+10, PSER+11, PSER+12, PSER+13, PSER+19, SORT+3 , SORT+4, SORT+5, SORT+7, SORT+10
ASUMS("QTY"	PSER+15
ASUMX	K+1!
ASUMX("ACC"	SORT+8
ASUMX("AR U/I	" , PSER+15
ASUMX("CAT"	PSER+15, SORT+9
ASUMX("DESC"	PSER+15, PSER+16
ASUMX("DLIDX"	SORT+8
ASUMX("E#"	PSER+13, SORT+7
ASUMX("IDX"	PSER+15
>> ASUQ("HDR"	PSER+5*
ASURX	K+1!
>> ASUV("E#"	PSER+4, PSER+10
>> ASUV("RPT"	PSER+5*
ASUX	K+1!
ASUX("NDTA"	PSER+6
>> DTOUT	PSER+8, PSER+12, PSER+14, HEADER+2
>> DUOUT	PSER+8, PSER+12, PSER+14, HEADER+2
DUZ(2	EN+2
IO	EN+1
IOF	HEADER+3
>> IOP	EN+6*
IOSL	PSER+16
>> POP	EN+6
U	SORT+2
>> ZTDESC	EN+5*
>> ZTRTN	EN+5*