Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ASURO46P

Package: Supply

Routine: ASURO46P


Information

ASURO46P ; IHS/ITSC/LMH - REPORT 46 ;

Source Information

Source file <ASURO46P.m>

Call Graph

Call Graph Total: 8

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

Caller Graph

Caller Graph Total: 1

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All