Routine: ASURO76P

Package	Total	Call Graph
Supply	5	SETAREA^ASULARST (REQ,SST)^ASULDIRR DATE^ASUUDATE PAZ^ASUURHDR (C,O,U)^ASUUZIS
Kernel	1	(,HOME)^%ZIS

Package	Total	Caller Graph
Supply	4	ASU876IUSA ASURM77P ASURM78P ASURO76D

Entry Points

Name	Comments	DBIA/ICR reference
PRLINE	;
ZAP0	;EP; -CLEAN UP VARIABLES
PR2	;
PCT	;
PSER	;EP;FOR TASKMAN QUEUE OF PRINT
PRINT	;EP;PRIMARY ENTRY POINT FOR REPORT 76
P3	;EP ;
P1	;EP ;
PR20	;
PR21	;
PR22	;
PR23	;
PR24	;
PR25	;
PR26	;
PR5	;
HEADER	;EP ;HEADER ROUTINE
PR7	;
PR6	;
PR1	;
PR0	;
PR3	;
PR18	;
PR9	;
PR8	;
PR11	;
PR10	;
PR13	;
PR12	;
PR15	;
PR14	;
PR17	;
PR16	;
PR19	;
PTOT	;
PRVALUE	;
CALC	;

External References

Name	Field # of Occurrence
^%ZIS	PRINT+7
HOME^%ZIS	PRINT+2
SETAREA^ASULARST	PRINT+4
REQ^ASULDIRR	HEADER+9
SST^ASULDIRR	HEADER+7
DATE^ASUUDATE	PSER+3
PAZ^ASUURHDR	HEADER+3
C^ASUUZIS	PSER+14
O^ASUUZIS	PRINT+6
U^ASUUZIS	PSER+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Report must be run from Kernel option" Line Location: PRINT+3
Function Call: WRITE	Prompt: @IOF,!?1,"REPORT #",ASUV("RPT")," ANALYSIS OF ISSUES BY ",$S(ASUV("RPT")=76:"USER",ASUV("RPT")=77:"SUB STATION",ASUV("RPT")=78:"AREA",1:"") Line Location: HEADER+4
Function Call: WRITE	Prompt: ?75,"DATE: ",ASUK("DT"),?104,"PAGE: ",ASUC("PG") Line Location: HEADER+5
Function Call: WRITE	Prompt: !?1,"AREA: ",ASUL(1,"AR","AP")," -",?10,ASUL(1,"AR","NM") Line Location: HEADER+6
Function Call: WRITE	Prompt: !?1,"SUBSTAT: ",ASUL(18,"SST")," - ",ASUL(18,"SST","NM") Line Location: HEADER+8
Function Call: WRITE	Prompt: !?1,"USER: ",ASUL(20,"REQ")," - ",ASUL(19,"USR","NM") Line Location: HEADER+10
Function Call: WRITE	Prompt: !!?51,"DRUGS MEDICAL SUBSIST LABORATORY OFF/ADMIN ALL OTHER TOTAL" Line Location: HEADER+11
Function Call: WRITE	Prompt: !?31,"YEAR-TO-DATE" Line Location: PR24+1
Function Call: WRITE	Prompt: !!?1,"SCHEDULED STOCK ISSUE REQUEST" Line Location: PR7+1
Function Call: WRITE	Prompt: !!?1,"UNSCHEDULED STOCK ISSUE REQUEST" Line Location: PR11+1
Function Call: WRITE	Prompt: !!?1,"TOTAL STOCK ISSUE REQUEST" Line Location: PR1+1
Function Call: WRITE	Prompt: !!?1,"DIRECT ISSUE" Line Location: PR19+1
Function Call: WRITE	Prompt: !?11,"NUMBER LINE ITEMS -CURRENT MONTH" Line Location: PR0+1
Function Call: WRITE	Prompt: !!?11,"NUMBER DOCUMENTS -CURRENT MONTH" Line Location: PR23+1
Function Call: WRITE	Prompt: !!?1,"NUMBER LINE ITEMS WITH ZERO ISSUE YTD" Line Location: PR15+1
Function Call: WRITE	Prompt: !!?1,"NUMBER LINE ITEMS WITH PARTIAL ISSUE YTD" Line Location: PR16+1
Function Call: WRITE	Prompt: !!?1,"NUMBER LINE ITEMS BACK ORDERED YTD" Line Location: PR17+1
Function Call: WRITE	Prompt: !!?1,"NUMBER LINE ITEMS WITH QUANTITY ADJUSTED YTD" Line Location: PR18+1
Function Call: WRITE	Prompt: !!?1,"NUMBER LINE ITEMS PENDING B/O RELEASE" Line Location: PR26+1
Function Call: WRITE	Prompt: !!?1,"VALUE OF DIRECT ISSUES -CURRENT MONTH" Line Location: PR5+1
Function Call: WRITE	Prompt: !!?1,"VALUE OF STOCK ISSUES -CURRENT MONTH" Line Location: PR2+1
Function Call: WRITE	Prompt: !?31,"PERCENT" Line Location: PCT+1
Routine Call	%ZIS Line Location: PRINT+2
Routine Call	%ZIS Line Location: PRINT+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^XTMP("ASUR"	PSER+5, PSER+6, PSER+8

Label References

Name	Line Occurrences
@(	PRLINE+5, PRVALUE+2
CALC	P3+6, P3+7, P3+10, P3+11, P3+12, P3+13, P3+14, P3+15, P3+19, P3+20 , P3+21, P3+22, P3+23, P3+24, P3+25, P3+26
HEADER	PSER+11
P1	PSER+4, PSER+11
P3	PSER+11
PR0	PR7+1, PR11+1, PR1+1
PRLINE	HEADER+12
PRVALUE	HEADER+13
PSER	PRINT+5
ZAP0	PSER+12

Naked Globals

Name	Field # of Occurrence
^(	PSER+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASUC	ZAP0+1!
ASUC(	PSER+10, P1+3, P1+5, PTOT+6, PRLINE+10, PRLINE+12, PRLINE+15, PRLINE+17, PRVALUE+6, PRVALUE+8 , P3+18*
ASUC("PG"	PSER+2, HEADER+2, HEADER+3, HEADER+5
ASUC("TR"	PSER+8*, PSER+10
ASUC(1	PTOT+4, P3+2
ASUC(10	PTOT+2, P3+4, P3+6, P3+19*
ASUC(11	P3+2
ASUC(12	PTOT+2, P3+8, P3+11, P3+24*
ASUC(13	P3+3
ASUC(14	PTOT+2, P3+4, P3+7, P3+20*
ASUC(15	P3+12, P3+25
ASUC(16	P3+13, P3+21
ASUC(17	P3+14, P3+26
ASUC(18	P3+15, P3+22
ASUC(23	PTOT+4, P3+3
ASUC(24	PTOT+4, P3+4, P3+5*, P3+6, P3+7, P3+19, P3+20
ASUC(25	PTOT+4, P3+8, P3+9*, P3+10, P3+11, P3+12, P3+13, P3+14, P3+15, P3+21 , P3+22, P3+23, P3+24, P3+25, P3+26
ASUC(26	PTOT+4*
ASUC(7	P3+2
ASUC(8	PTOT+2, P3+8, P3+10, P3+23*
ASUC(9	P3+3
>> ASUK(	PRINT+8
>> ASUK("DT"	PSER+3, HEADER+5
>> ASUK("PTR"	PRINT+8
>> ASUK("PTRSEL"	PRINT+5*, PSER+13
>> ASUL(1	PRINT+4, HEADER+6
>> ASUL(18	HEADER+8
>> ASUL(19	HEADER+10
>> ASUL(20	HEADER+10
ASUR	ZAP0+1!
ASURZX	ZAP0+1!
ASURZX(1	P3+6, P3+7, P3+10, P3+11, P3+12, P3+13, P3+14, P3+15, P3+19, P3+20 , P3+21, P3+22, P3+23, P3+24, P3+25, P3+26, CALC+1, CALC+2
ASURZX(2	P3+6, P3+7, P3+10, P3+11, P3+12, P3+13, P3+14, P3+15, P3+19, P3+20 , P3+21, P3+22, P3+23, P3+24, P3+25, P3+26, CALC+2
ASURZX(3	P3+6, P3+7, P3+10, P3+11, P3+12, P3+13, P3+14, P3+15, P3+19, P3+20 , P3+21, P3+22, P3+23, P3+24, P3+25, P3+26, CALC+1, CALC+2
ASUV	ZAP0+1!
ASUV("%"	PRLINE+2, PRLINE+4, PRLINE+9, PRLINE+14, PRVALUE+1*
ASUV("ACC"	P1+1, P1+3, P1+5, PTOT+1, PTOT+2, PTOT+4, PRLINE+6, PRLINE+7, PRLINE+8, PRLINE+15 , PRLINE+17, PRVALUE+3, PRVALUE+4, PRVALUE+5, PRVALUE+8, P3+1, P3+2, P3+3, P3+4, P3+5 , P3+6, P3+7, P3+8, P3+9, P3+10, P3+11, P3+12, P3+13, P3+14, P3+15 , P3+17, P3+18
ASUV("FIELD"	PSER+9, PSER+10, P1+2, P1+3, P1+4, P1+5, PTOT+5, PTOT+6, HEADER+12, HEADER+13 , PRLINE+1, PRLINE+2, PRLINE+4, PRLINE+10, PRLINE+12, PRLINE+15, PRLINE+17, PRVALUE+1, PRVALUE+6, PRVALUE+8 , P3+16, P3+18
ASUV("POS"	PRLINE+7, PRLINE+15, PRLINE+17, PRVALUE+4, PRVALUE+8
ASUV("ROUT"	PRLINE+2, PRLINE+4, PRLINE+5, PRVALUE+1*, PRVALUE+2
ASUV("RPT"	PSER+2*, HEADER+4, HEADER+8, HEADER+10
ASUV("SST"	HEADER+2*
ASUV("USR"	HEADER+2*
>> ASUX("ACC"	PSER+4, PSER+8, PSER+10
>> ASUX("REQ"	PSER+7*, HEADER+1, HEADER+9
>> ASUX("SST"	PSER+4, PSER+5, PSER+6, PSER+7, PSER+8, HEADER+7
>> ASUX("USR"	PSER+4, PSER+6, PSER+7, PSER+8
DUZ(2	PRINT+3
IO	PRINT+2
IOF	HEADER+4
>> IOP	PRINT+7*
>> POP	PRINT+7
U	PSER+10
>> ZTDESC	PRINT+6*
>> ZTRTN	PRINT+6*

Customize PDF page

Package: Supply

Routine: ASURO76P

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: