Routine: ASURO46P

Package	Total	Call Graph
Supply	4	(ARE,STA)^ASULARST ^ASUMSTRD READ^ASUMXDIO PAZ^ASUURHDR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Supply	1	ASU846VNMA

Entry Points

Name	Comments	DBIA/ICR reference
NEWPAGE	;Form Feed
ASUR0	;
SETHEADR	;EP; -Set hdr
OUT(X)	;Print Data line
HEADER	;EP; -Print hdr
KILL	;Kill
KIL	;Kill
QUE	;EP; for task man
SETDATA	;Set DATA line
ON(X)	;EP; -Set VENDOR ORDER NUMBER -EXTRINSIC
VSCS(X)	;Print out Vendor Source Code Summary

External References

Name	Field # of Occurrence
NOW^%DTC	HEADER+2
^%ZIS	ASURO46P+4
^%ZISC	QUE+5
^%ZTLOAD	ASURO46P+5
ARE^ASULARST	ASUR0+6
STA^ASULARST	ASUR0+6
^ASUMSTRD	ASUR0+5
READ^ASUMXDIO	ASUR0+5
PAZ^ASUURHDR	QUE+5, HEADER+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No device selected or report queued." Line Location: ASURO46P+4
Function Call: WRITE	Prompt: !,"Queued" Line Location: ASURO46P+5
Function Call: WRITE	Prompt: @IOF Line Location: QUE+5
Function Call: WRITE	Prompt: ! Line Location: QUE+12
Function Call: WRITE	Prompt: @IOF,"REPORT # 46 ANALYSIS OF STOCK ITEM BY VENDOR",?65,ASUR("DT"),?112,"PAGE ",ASUR("PG")+1,!,"SUMMARY PAGE" Line Location: VSCS+6
Function Call: WRITE	Prompt: !!!?6,"VENDOR SOURCE CODE SUMMARY:",?36,"SOU CDE",?60,"NO. LI",?79,"PROJ ANN ISS VAL" Line Location: VSCS+8
Function Call: WRITE	Prompt: !?35,$J(Y,8),?60,$J($FN($P(X(Y),U,2),","),6),?80,$J($FN($P(X(Y),U),","),15) Line Location: VSCS+9
Function Call: WRITE	Prompt: !?38,"TOTAL",?60,$J($FN($G(ASUR("T2")),","),6),?80,$J($FN($G(ASUR("T1")),","),15) Line Location: VSCS+13
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+3
Function Call: WRITE	Prompt: "REPORT # 46 ANALYSIS OF STOCK ITEM BY VENDOR",?65,ASUR("DT"),?112,"PAGE ",ASUR("PG"),!,"AREA : ",ASURD1 Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"STATION: ",ASURD2,?50,"CATEGORY: ",$S(ASURD3=1:"PHARMACY",ASURD3=3:"SUBSISTENCE",1:"GENERAL SUPPLIES"),?86,"VENDOR NAME: ",ASURD4 Line Location: HEADER+5
Function Call: WRITE	Prompt: !!!,ASU1(1),?86,ASU1(2),?105,ASU1(3),?115,ASU1(4) Line Location: HEADER+8
Function Call: WRITE	Prompt: !,ASU2(1),?5,ASU2(2),?48,ASU2(3),?69,ASU2(4),?74,ASU2(5),?79,ASU2(6),?82,ASU2(7),?103,ASU2(8),?118,ASU2(9) Line Location: HEADER+11
Function Call: WRITE	Prompt: !,ASU3(1),?4,ASU3(2),?12,ASU3(3),?44,ASU3(4),?48,ASU3(5),?69,ASU3(6),?74,ASU3(7),?79,ASU3(8),?85,ASU3(9),?94,ASU3(10),?104,ASU3(11),?118,ASU3(12) Line Location: HEADER+14
Function Call: WRITE	Prompt: !,ASUR("LN") Line Location: HEADER+16
Function Call: WRITE	Prompt: ! Line Location: HEADER+17
Function Call: WRITE	Prompt: ! Line Location: SETDATA+23
Function Call: WRITE	Prompt: X(1) Line Location: OUT+3
Function Call: WRITE	Prompt: ?3,X(2) Line Location: OUT+4
Function Call: WRITE	Prompt: ?12,X(3) Line Location: OUT+5
Function Call: WRITE	Prompt: ?44,X(4) Line Location: OUT+6
Function Call: WRITE	Prompt: ?48,X(5) Line Location: OUT+7
Function Call: WRITE	Prompt: ?69,X(6) Line Location: OUT+8
Function Call: WRITE	Prompt: ?74,X(7) Line Location: OUT+9
Function Call: WRITE	Prompt: ?79,X(8) Line Location: OUT+10
Function Call: WRITE	Prompt: ?83,$J(X(9),7,2) Line Location: OUT+11
Function Call: WRITE	Prompt: ?94,$J(X(10),5) Line Location: OUT+12
Function Call: WRITE	Prompt: ?103,$J(X(11),6) Line Location: OUT+13
Function Call: WRITE	Prompt: ?114,$J($FN(X(12),","),9) Line Location: OUT+14
Function Call: WRITE	Prompt: ! Line Location: OUT+15
Function Call: WRITE	Prompt: ?12,X(13) Line Location: OUT+16
Routine Call	%ZIS Line Location: ASURO46P+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUMS - [#9002031]	ASUR0+3, ASUR0+4
^DD("DD"	HEADER+2
^XTMP("ASUR"	QUE+6, QUE+7, QUE+8, QUE+10, QUE+12, ASUR0+1!, ASUR0+2, ASUR0+16

Label References

Name	Line Occurrences
$$ON	SETDATA+5
ASUR0	QUE+1
HEADER	QUE+10, NEWPAGE+1
KIL	ASURO46P+4, ASURO46P+5, QUE+2, QUE+5
KILL	ASUR0+1
NEWPAGE	QUE+12, VSCS+8, VSCS+9, VSCS+13, SETDATA+23, OUT+15
OUT	SETDATA+23
SETDATA	QUE+12
SETHEADR	QUE+4
VSCS	QUE+5, QUE+13, QUE+14

Naked Globals

Name	Field # of Occurrence
^(	QUE+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HEADER+2
%ZIS	ASURO46P+4!*
ASU1	KILL+1!
ASU1(1	SETHEADR+2*, HEADER+8
ASU1(2	SETHEADR+2*, HEADER+8
ASU1(3	SETHEADR+2*, HEADER+8
ASU1(4	SETHEADR+2*, HEADER+8
ASU2	KILL+1!
ASU2(1	SETHEADR+5*, HEADER+11
ASU2(2	SETHEADR+5*, HEADER+11
ASU2(3	SETHEADR+5*, HEADER+11
ASU2(4	SETHEADR+5*, HEADER+11
ASU2(5	SETHEADR+5*, HEADER+11
ASU2(6	SETHEADR+5*, HEADER+11
ASU2(7	SETHEADR+5*, HEADER+11
ASU2(8	SETHEADR+5*, HEADER+11
ASU2(9	SETHEADR+5*, HEADER+11
ASU3	KILL+1!
ASU3(1	SETHEADR+8*, HEADER+14
ASU3(10	SETHEADR+9*, HEADER+14
ASU3(11	SETHEADR+9*, HEADER+14
ASU3(12	SETHEADR+9*, HEADER+14
ASU3(2	SETHEADR+8*, HEADER+14
ASU3(3	SETHEADR+8*, HEADER+14
ASU3(4	SETHEADR+8*, HEADER+14
ASU3(5	SETHEADR+8*, HEADER+14
ASU3(6	SETHEADR+8*, HEADER+14
ASU3(7	SETHEADR+8*, HEADER+14
ASU3(8	SETHEADR+8*, HEADER+14
ASU3(9	SETHEADR+8*, HEADER+14
>> ASUK("DT"	ASUR0+2
>> ASUL(1	ASUR0+15
>> ASUL(2	ASUR0+15
ASUMS	KILL+1!
ASUMS("AR"	ASUR0+6, ASUR0+15
ASUMS("DMD"	ASUR0+13
ASUMS("E#"	ASUR0+3, ASUR0+4, ASUR0+5, ASUR0+6
ASUMS("EOQ"	ASUR0+13
ASUMS("LPP"	ASUR0+13
ASUMS("LTM"	ASUR0+13
ASUMS("ORD#"	ASUR0+12
ASUMS("PMIQ"	ASUR0+13
ASUMS("PMIV"	ASUR0+10
ASUMS("SLC"	ASUR0+12
ASUMS("SRC"	ASUR0+13
ASUMS("VENAM"	ASUR0+14
ASUMX	KILL+1!
ASUMX("ACC"	ASUR0+7
ASUMX("AR U/I	" , ASUR0+12
ASUMX("DESC"	ASUR0+9, ASUR0+12
ASUMX("E#"	ASUR0+5*
ASUMX("IDX"	ASUR0+8
ASUMX("NSN"	ASUR0+12
ASUR	KILL+1!, SETDATA+5*
ASUR("ACC"	ASUR0+7*, ASUR0+16
ASUR("AR/NM"	ASUR0+15*, ASUR0+16
ASUR("DESC"	ASUR0+9*, ASUR0+16
ASUR("DT"	VSCS+6, HEADER+2*, HEADER+4
ASUR("DTA"	QUE+12*, SETDATA+1, SETDATA+2, SETDATA+3, SETDATA+4, SETDATA+5, SETDATA+6, SETDATA+7, SETDATA+8, SETDATA+9 , SETDATA+10, SETDATA+11, SETDATA+12, SETDATA+13, SETDATA+14
ASUR("IDX"	ASUR0+8*, ASUR0+12
ASUR("LN"	HEADER+1*, HEADER+16
ASUR("PG"	VSCS+6, HEADER+3*, HEADER+4
ASUR("PMIV"	ASUR0+10*, ASUR0+13
ASUR("STA/NM"	ASUR0+15*, ASUR0+16
ASUR("T1"	VSCS+7!, VSCS+10*, VSCS+13
ASUR("T2"	VSCS+7!, VSCS+11*, VSCS+13
ASUR("VEN"	ASUR0+14*, ASUR0+16
ASUR1	KIL+1!
ASURD1	QUE+6*, QUE+7, QUE+8, QUE+10, QUE+12, KIL+1!, HEADER+4
ASURD2	QUE+7*, QUE+8, QUE+10, QUE+12, KIL+1!, HEADER+5
ASURD3	QUE+8*, QUE+10, QUE+12, KIL+1!, HEADER+5
ASURD4	QUE+10*, QUE+12, KIL+1!, HEADER+5
ASURD5	QUE+12*, KIL+1!
ASURDL	KIL+1!, SETDATA+23
ASURDL(1	SETDATA+1*
ASURDL(10	SETDATA+10*
ASURDL(11	SETDATA+11*
ASURDL(12	SETDATA+12*, SETDATA+17, SETDATA+19, SETDATA+21
ASURDL(13	SETDATA+13*
ASURDL(14	SETDATA+14*, ON+11
ASURDL(2	SETDATA+2*
ASURDL(3	SETDATA+3*
ASURDL(4	SETDATA+4*
ASURDL(5	SETDATA+5*
ASURDL(6	SETDATA+6*, SETDATA+16, SETDATA+17, SETDATA+18, SETDATA+19, SETDATA+20, SETDATA+21
ASURDL(7	SETDATA+7*
ASURDL(8	SETDATA+8*
ASURDL(9	SETDATA+9*
ASUREND	QUE+5*, VSCS+6, KIL+2!
ASURVSCA	QUE+9!, QUE+14
ASURVSCA(	SETDATA+20, SETDATA+21
ASURVSCS	QUE+11!, QUE+13, KIL+2!
ASURVSCS(	SETDATA+16, SETDATA+17
ASURVSCT	QUE+5, KIL+2!
ASURVSCT(	SETDATA+18, SETDATA+19
>> DUOUT	QUE+6, QUE+7, QUE+8, QUE+10, NEWPAGE+1, HEADER+3
IO	QUE+2
IO("Q"	ASURO46P+4!, ASURO46P+5!
IOF	QUE+5, VSCS+6, HEADER+3
ION	ASURO46P+5
IOP	ASURO46P+4!
IOSL	NEWPAGE+1
>> POP	ASURO46P+4
U	VSCS+9, VSCS+10, VSCS+11, ASUR0+2, ASUR0+12, ASUR0+13, SETDATA+1, SETDATA+2, SETDATA+3, SETDATA+4 , SETDATA+5, SETDATA+6, SETDATA+7, SETDATA+8, SETDATA+9, SETDATA+10, SETDATA+11, SETDATA+12, SETDATA+13, SETDATA+14 , SETDATA+17, SETDATA+19, SETDATA+21
X	VSCS~, ASUR0+12, ASUR0+13, ASUR0+16, OUT~, ON~, ON+9, ON+10, ON+11
X(	VSCS+9, VSCS+10, VSCS+11
X(1	OUT+3
X(10	OUT+12
X(11	OUT+13
X(12	OUT+14
X(13	OUT+16
X(2	OUT+4
X(3	OUT+5
X(4	OUT+6
X(5	OUT+7
X(6	OUT+8
X(7	OUT+9
X(8	OUT+10
X(9	OUT+11
Y	VSCS+9, VSCS+10, VSCS+11, VSCS+12!, HEADER+2
ZTDTH	ASURO46P+5!*
>> ZTIO	ASURO46P+5*
>> ZTRTN	ASURO46P+5*
ZTSAVE	ASURO46P+5!
ZTSAVE("DUZ*"	ASURO46P+5*
ZTSK	ASURO46P+5!

Customize PDF page

Package: Supply

Routine: ASURO46P

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: