Routine: ASURD11P

Package	Total	Call Graph
Supply	9	READ^ASU0TRRD (SETAREA,STA)^ASULARST ^ASUMSTRD READ^ASUMXDIO HEADER^ASURD11P ^ASUUDATA ^ASUURANG PAZ^ASUURHDR (C,O,U)^ASUUZIS
Kernel	1	(,HOME)^%ZIS

Package	Total	Caller Graph
Supply	3	ASU5111DRP ASUCORPX ASURD11P

Name	Comments	DBIA/ICR reference
EN	;EP;PRIMARY
CMPT	;EP;COMPUTE CONTENTS
P8	;WRITE DESCRIPTION LINES
CALCT	;
HEADER	;EP ;PRINT
PSER	;EP;FOR TM Q
K	;

Name	Field # of Occurrence
^%ZIS	EN+4
HOME^%ZIS	EN+1
READ^ASU0TRRD	PSER+25, CMPT+6
SETAREA^ASULARST	EN+2
STA^ASULARST	PSER+6
^ASUMSTRD	PSER+15
READ^ASUMXDIO	PSER+15
HEADER^ASURD11P	PSER+9, PSER+26, PSER+82
^ASUUDATA	PSER+1
^ASUURANG	CMPT+2
PAZ^ASUURHDR	K+1, HEADER+2
C^ASUUZIS	K+2
O^ASUUZIS	EN+4
U^ASUUZIS	PSER+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Report must be run from Kernel option" Line Location: EN+1
Function Call: WRITE	Prompt: ! Line Location: PSER+8
Function Call: WRITE	Prompt: !?3,ASUMX("ACC"),?5,ASUMS("EOQ","TP"),?7,ASUMS("SRC"),?9,$E(ASUX("IX"),3,7),".",$E(ASUX("IX"),8),?17,ASUMS("SLC") Line Location: PSER+16
Function Call: WRITE	Prompt: ?19,$E(X,1,30),?51,ASUMX("AR U/I"),?55,$E(ASUMS("ESTB"),2,3),"-",$E(ASUMS("ESTB"),4,5) Line Location: PSER+17
Function Call: WRITE	Prompt: ?51,$G(ASUT(ASUT,"U/I")),?52,ASUT(ASUT,"VOU") Line Location: PSER+40
Function Call: WRITE	Prompt: $G(ASUT(ASUT,"U/I")),?52,ASUT(ASUT,"VOU"),?63,ASUT("TRCD") Line Location: PSER+50
Function Call: WRITE	Prompt: ?51,$G(ASUT(ASUT,"U/I")) Line Location: PSER+64
Function Call: WRITE	Prompt: ?52,$E(ASUT(ASUT,"DTD"),4,5)_"-"_$E(ASUT(ASUT,"DTD"),6,7)_"-"_$E(ASUT(ASUT,"DTD"),2,3) Line Location: PSER+66
Function Call: WRITE	Prompt: ?126,$G(ASUT(ASUT,"USR")),! Line Location: PSER+79
Function Call: WRITE	Prompt: ! Line Location: PSER+80
Function Call: WRITE	Prompt: !?19,$E(ASUMX("DESC"),31,60) Line Location: PSER+83
Function Call: WRITE	Prompt: !?33,ASUV("NSN") Line Location: PSER+84
Function Call: WRITE	Prompt: @IOF Line Location: K+1
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
Function Call: WRITE	Prompt: ?5,"REPORT #11. SAMS STOCK TRANSACTION REGISTER",?100,"DATE: ",ASUX("DT"),?120,"PAGE: ",ASUC("PG") Line Location: HEADER+3
Function Call: WRITE	Prompt: !?3,"AREA: ",ASUL(1,"AR","AP"),?15,ASUL(1,"AR","NM") Line Location: HEADER+4
Function Call: WRITE	Prompt: !?3,"STATION: ",$G(ASUL(2,"STA","CD")),?15,$G(ASUL(2,"STA","NM")),?50,"ACCOUNT GROUP: ",$S(ASUX("AG")=1:"PHARMACY",ASUX("AG")=3:"SUBSISTENCE",1:"GENERAL SUPPLIES") Line Location: HEADER+5
Function Call: WRITE	Prompt: !!?3,"A",?5,"T",?7,"S",?17,"S",?51,"U",?55,"DATE",?63,"TR",?67,"QUANTITY",?80,"UNIT",?91,"TOTAL",?99,"DUE-IN",?108,"T",?118,"PO",?125,"USR CAT" Line Location: HEADER+6
Function Call: WRITE	Prompt: !?3,"C",?5,"Y",?7,"O",?9,"INDEX",?17,"L",?19,"DESCRIPTION",?51,"I",?63,"CD",?80,"COST",?91,"VALUE",?99,"QUANTITY",?108,"I",?110,"SUB",?114,"SUB",?118,"OR",?130,"CD" Line Location: HEADER+7
Function Call: WRITE	Prompt: !?3,"C",?5,"P",?7,"U",?9,"NUMBER",?17,"C",?33,"ORDER NUMBER",?53,"VOUCHER NO",?108,"R",?110,"ACT",?114,"STA",?118,"CAN" Line Location: HEADER+8
Function Call: WRITE	Prompt: !,"------------------------------------------------------------------------------------------------------------------------------------",!! Line Location: HEADER+9
Function Call: WRITE	Prompt: ?33,ASUV("NSN") Line Location: P8+3
Function Call: WRITE	Prompt: ?19,$E(ASUMX("DESC"),31,60) Line Location: P8+4
Routine Call	%ZIS Line Location: EN+1
Routine Call	%ZIS Line Location: EN+4

Name	Line Occurrences (* Changed, ! Killed)
^ASUH - [#9002036]	CMPT+4
^XTMP("ASUMA"	PSER+13, CALCT+1, CALCT+2
^XTMP("ASUR"	PSER+1, PSER+4, PSER+7, PSER+12, PSER+24, PSER+25, CMPT+1!, CMPT+7

Name	Line Occurrences
CALCT	PSER+10
CMPT	PSER+1
HEADER	PSER+91
K	PSER+1
P8	PSER+40, PSER+50, PSER+64
PSER	EN+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASUA	PSER+10!
ASUA("LIA"	PSER+3, PSER+92, PSER+94, CALCT+4
ASUA("LIN"	PSER+93, PSER+94, CALCT+6*
ASUA("QTDI"	PSER+14*, PSER+20, PSER+21
ASUA("QTY"	PSER+14*, PSER+18
ASUA("VAL"	PSER+14*, PSER+19
ASUA("VL"	PSER+11, PSER+98
ASUA("VLA"	PSER+91, PSER+92, PSER+98, CALCT+4
ASUA("VLN"	PSER+91, PSER+96, CALCT+6*
ASUA(0	PSER+13, PSER+14, CALCT+2, CALCT+3, CALCT+4, CALCT+6
ASUC	K+1!
ASUC("DEL"	PSER+3*
ASUC("LI-TOT"	PSER+3, PSER+27
ASUC("LN"	PSER+2, PSER+8, PSER+9, PSER+16, PSER+26, PSER+81, PSER+82, PSER+83, PSER+84, PSER+89* , PSER+91, PSER+98, HEADER+10*
ASUC("PG"	HEADER+2*, HEADER+3
ASUC("TOT"	PSER+3*
ASUC("VALTOT"	PSER+3*
ASUC("VLGT"	PSER+91, PSER+97, PSER+98
ASUC("VLI"	PSER+3, PSER+47, PSER+61, PSER+91, PSER+94, PSER+98
ASUC("VLJ"	PSER+3, PSER+48, PSER+62, PSER+91, PSER+95, PSER+98
ASUC("VLR"	PSER+3, PSER+46, PSER+60, PSER+91, PSER+93, PSER+98
ASUCX	PSER+89!, K+1!
ASUCX("QTDIT"	PSER+14, PSER+21, PSER+28, PSER+57, PSER+71, PSER+74, PSER+86*, PSER+88
ASUCX("QTT"	PSER+14, PSER+45, PSER+59, PSER+74, PSER+87*, PSER+88
ASUCX("VLT"	PSER+14, PSER+44, PSER+58, PSER+74, PSER+88
>> ASUF("DESC"	PSER+21, PSER+83, PSER+84, P8+1, P8+2, P8+3, P8+4*
>> ASUHDA	PSER+25, CMPT+3, CMPT+4*, CMPT+5, CMPT+6, CMPT+7
>> ASUK(	EN+5
>> ASUK("DT"	CMPT+1
>> ASUK("PTR"	EN+5
>> ASUK("PTRSEL"	EN+3*, K+1
>> ASUL(1	EN+2, HEADER+4
>> ASUL(2	PSER+6!, HEADER+5
>> ASUL(9	CMPT+7
>> ASUMS("CST/U"	PSER+19
>> ASUMS("E#"	PSER+15*
>> ASUMS("EOQ"	PSER+16
>> ASUMS("ESTB"	PSER+17
>> ASUMS("LPP"	PSER+36
>> ASUMS("ORD#"	PSER+22
>> ASUMS("PMIQ"	PSER+88
>> ASUMS("SLC"	PSER+16
>> ASUMS("SRC"	PSER+16, PSER+53
>> ASUMX("ACC"	PSER+16
>> ASUMX("AR U/I	" , PSER+17
>> ASUMX("CAT"	PSER+20
>> ASUMX("DELDS"	PSER+17
>> ASUMX("DESC"	PSER+17, PSER+83, P8+4
>> ASUMX("E#"	PSER+15*
>> ASUMX("NSN"	PSER+22
>> ASUN("B#"	CMPT+3
>> ASUN("E#"	CALCT+1*, CALCT+2, CMPT+4
>> ASUN("TYP"	CMPT+2
ASUQ	K+1!
ASUQ("HDR"	PSER+1*
ASUT	PSER+25!, PSER+30, PSER+34, PSER+36, PSER+37, PSER+40, PSER+41, PSER+42, PSER+43, PSER+44 , PSER+45, PSER+46, PSER+47, PSER+48, PSER+50, PSER+51, PSER+53, PSER+54, PSER+55, PSER+56 , PSER+58, PSER+59, PSER+60, PSER+61, PSER+62, PSER+64, PSER+65, PSER+66, PSER+74, PSER+75 , PSER+76, PSER+77, PSER+78, PSER+79, CMPT+6, CMPT+7
ASUT(	PSER+30, PSER+34, PSER+36, PSER+37, PSER+40, PSER+41, PSER+42, PSER+43, PSER+44, PSER+45 , PSER+46, PSER+47, PSER+48, PSER+50, PSER+51, PSER+53, PSER+54, PSER+55, PSER+56, PSER+58 , PSER+59, PSER+60, PSER+61, PSER+62, PSER+64, PSER+65, PSER+66, PSER+74, PSER+75, PSER+76 , PSER+77, PSER+78, PSER+79, CMPT+7
ASUT("TRCD"	PSER+25, PSER+28, PSER+29, PSER+39, PSER+41, PSER+46, PSER+47, PSER+48, PSER+49, PSER+50 , PSER+60, PSER+61, PSER+62, PSER+63, PSER+67, PSER+73, CMPT+6
ASUT("TYPE"	PSER+18, PSER+76, PSER+78, PSER+79
>> ASUTX	CMPT+1*
ASUV	K+1!
ASUV("ARST"	PSER+5, PSER+6*
ASUV("CST/U"	PSER+27, PSER+32, PSER+34, PSER+36, PSER+37, PSER+38, PSER+40*, PSER+41, PSER+52, PSER+69
ASUV("NSN"	PSER+22, PSER+23, PSER+84, P8+3
ASUV("RPT"	PSER+1*
ASUX	K+1!
ASUX("AG"	PSER+7*, PSER+12, PSER+13, PSER+24, PSER+25, HEADER+1, HEADER+5, CALCT+1, CALCT+2
ASUX("AS"	PSER+4*, PSER+5, PSER+6, PSER+7, PSER+12, PSER+13, PSER+24, PSER+25, CALCT+1, CALCT+2
ASUX("DT"	HEADER+3
ASUX("IX"	PSER+12*, PSER+13, PSER+15, PSER+16, PSER+24, PSER+25
ASUX("NDTA"	PSER+1
ASUX("QTDI"	PSER+30, PSER+31, PSER+32, PSER+34, PSER+56, PSER+57, PSER+58, PSER+71, PSER+72
ASUX("SQ"	PSER+24*, PSER+25
>> DUOUT	PSER+4, PSER+7, PSER+12, PSER+90, PSER+91, HEADER+2
DUZ(2	EN+1
IO	EN+1
IOF	K+1, HEADER+2
>> IOP	EN+4*
IOSL	PSER+8, PSER+9, PSER+26, PSER+82, PSER+91, PSER+98
>> POP	EN+4
U	PSER+14, CALCT+3, CALCT+4, CALCT+6, CMPT+1
X	PSER+17*, PSER+41!
>> ZTDESC	EN+4*
>> ZTRTN	EN+4*

Customize PDF page

Package: Supply

Routine: ASURD11P

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: