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 |  Local Variables |  All
Print Page as PDF
Routine: ASURMDBL

Package: Supply

Routine: ASURMDBL


Information

ASURMDBL ; IHS/ITSC/LMH - MANAGEMENT SUPPLY DATA BOOK REPORT L ;

Source Information

Source file <ASURMDBL.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 HOME^%ZIS  ^%ZISC  
Supply 2 (DATA16,QUE,SELXTRCT)^ASUUTIL  ($$LDOM,FPP)^ASUUTIL1  
IHS VA Utilities 1 ^XBKVAR  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Supply 3 ASU698RDBL  ASU819RPL  ASUCOMOR  

Entry Points

Name Comments DBIA/ICR reference
QUIT ;----- CLEAN UP VARIABLES, CLOSE DEVICE, QUIT
SET ;----- SETS TOTALS IN ^TMP GLOBAL
GET ;EP ; GATHER DATA
4 ;----- LOOP THROUGH THE SOURCE CODE SUBSCRIPT
SRC(X1,X2,X3)
1 ;----- LOOP THROUGH THE AREA SUBSCRIPT
PRT ;----- PRINTS THE DATA
3 ;----- LOOP THROUGH THE STATION SUBSCRIPT
EN ;EP -- MAIN ENTRY POINT (USER INTERACTIVE)
EN1(ASUDT,ASUTYP)
WRITE(X1,X2)
LOOPS ;----- LOOPS THROUGH THE ^XTMP("ASUR","RDBK") GLOBAL AND PRINTS
; THE REPORT
2 ;----- LOOP THROUGH THE ACCOUNT SUBSCRIPT
HDR(X1,X2,X3)
PRCNT(X,Y)
DQ ;EP -- QUEUED JOB STARTS HERE

External References

Name Field # of Occurrence
HOME^%ZIS EN+3
^%ZISC QUIT+5
DATA16^ASUUTIL GET+20
QUE^ASUUTIL EN+7
SELXTRCT^ASUUTIL EN+4
$$LDOM^ASUUTIL1 GET+15
FPP^ASUUTIL1 GET+14
^DIR HDR+8
^XBKVAR EN+3, DQ+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,"THIS REPORT REQUIRES 132 COLUMNS!"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"NO DATA FOR DATABOOK REPORT L"
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !!,"TOTAL RECEIPTS"
  • Line Location: 3+7
Function Call: WRITE
  • Prompt: !!,ASUL(4)
  • Line Location: 4+8
Function Call: WRITE
  • Prompt: !?5,$J($P(X1,U),8,2)
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: ?14,$J(ASUX,4,1)
  • Line Location: WRITE+6
Function Call: WRITE
  • Prompt: ?19,$J($P(X1,U,2),8,2)
  • Line Location: WRITE+7
Function Call: WRITE
  • Prompt: ?28,$J(ASUX,4,1)
  • Line Location: WRITE+9
Function Call: WRITE
  • Prompt: ?33,$J($P(X1,U)+$P(X1,U,2),8,2)
  • Line Location: WRITE+10
Function Call: WRITE
  • Prompt: ?42,$J(ASUX,4,1)
  • Line Location: WRITE+12
Function Call: WRITE
  • Prompt: ?48,$J($P(X1,U,3),8,2)
  • Line Location: WRITE+13
Function Call: WRITE
  • Prompt: ?57,$J(ASUX,4,1)
  • Line Location: WRITE+15
Function Call: WRITE
  • Prompt: ?62,$J($P(X1,U,4),8,2)
  • Line Location: WRITE+16
Function Call: WRITE
  • Prompt: ?71,$J(ASUX,4,1)
  • Line Location: WRITE+18
Function Call: WRITE
  • Prompt: ?76,$J($P(X1,U,3)+$P(X1,U,4),8,2)
  • Line Location: WRITE+19
Function Call: WRITE
  • Prompt: ?85,$J(ASUX,4,1)
  • Line Location: WRITE+21
Function Call: WRITE
  • Prompt: ?91,$J($P(X1,U,5),8,2)
  • Line Location: WRITE+22
Function Call: WRITE
  • Prompt: ?100,$J(ASUX,4,1)
  • Line Location: WRITE+24
Function Call: WRITE
  • Prompt: ?105,$J($P(X1,U,6),8,2)
  • Line Location: WRITE+25
Function Call: WRITE
  • Prompt: ?114,$J(ASUX,4,1)
  • Line Location: WRITE+27
Function Call: WRITE
  • Prompt: ?119,$J($P(X1,U,5)+$P(X1,U,6),8,2)
  • Line Location: WRITE+28
Function Call: WRITE
  • Prompt: ?128,$J(ASUX,4,1)
  • Line Location: WRITE+30
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: "MANAGEMENT SUPPLY DATA BOOK for "
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: $P(Y," ")," ",$P(Y,",",2)
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: ?116,"PAGE ",$J(ASUPAGE,6)
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,"AREA ",X1
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !!,"L. RECEIPT VALUES BY MAJOR SOURCES OF SUPPLY"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !?3,"Category: ",X2
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !!,"LOCATION: ",X3
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !!?16,"CURRENT FISCAL YEAR",?58,"PREVIOUS FISCAL YEAR",?98,"PREVIOUS-PREV FISCAL YEAR"
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !?7,"DIRECT",?17,"%",?22,"STOCK",?31,"%",?36,"TOTAL",?45,"%",?50,"DIRECT",?60,"%",?65,"STOCK",?74,"%",?79,"TOTAL",?88,"%",?93,"DIRECT",?103,"%",?108,"STOCK",?117,"%",?122,"TOTAL",?131,"%"
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !?7,"ISSUES",?15,"DIR RECEIPTS",?29,"STK RECEIPTS",?43,"TOT",?50,"ISSUES",?58,"DIR RECEIPTS",?72,"STK RECEIPTS",?86,"TOT",?93,"ISSUES",?101,"DIR RECEIPTS",?115,"STK RECEIPTS",?129,"TOT"
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: QUIT+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+3
Routine Call
  • DIR
  • Line Location:
    • HDR+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ASUL(5 - [#9002039.05] SRC+9, SRC+11
^ASUTH( GET+18, GET+19
^DD("DD" HDR+12
^XTMP("ASUR" DQ+6, GET+13!, SET+2, SET+3*, SET+4*, SRC+10*, SRC+11*, PRT+9, 1+3, 2+2
, 3+3, 3+8, 4+3, 4+4, 4+6, QUIT+3!

Label References

Name Line Occurrences
$$PRCNT WRITE+5, WRITE+8, WRITE+11, WRITE+14, WRITE+17, WRITE+20, WRITE+23, WRITE+26, WRITE+29
2 1+4
3 2+4
4 3+5
GET DQ+6
HDR 3+4, 3+6, 4+7
LOOPS PRT+11
PRT DQ+7
QUIT EN+4, EN+8, DQ+7
SET GET+26
SRC SET+2
WRITE 3+9, 4+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HDR+7~
ASU GET+12~
ASU("DT" GET+17, GET+22, GET+23, GET+24
ASU0 GET+12~, GET+16*, GET+18, GET+19, GET+20, GET+25
ASU1 GET+12~, GET+17*, GET+18*, GET+19, GET+22, GET+23, GET+24
ASU2 GET+12~, GET+19*, GET+20
ASUD GET+12~
ASUD("ACCNAM" SET+2, SET+3, SET+4
ASUD("AREA" SET+2, SET+3, SET+4
ASUD("SRC" SET+4
ASUD("STA" SET+2, SET+3, SET+4
ASUD("VAL" SET+3, SET+4
ASUDATA 1+2~, 3+2~, 3+8*, 3+9, 4+2~, 4+6*, 4+9
ASUDATA2 1+2~, 3+2~, 3+8*, 3+9, 4+2~, 4+3*, 4+9
ASUDT EN+2~, EN+4, EN1~, GET+14, GET+15*, GET+18, HDR+12
>> ASUK("PTRSEL" QUIT+4
ASUL PRT+8~
ASUL(1 1+3*, 2+2, 3+3, 3+4, 3+6, 3+8, 4+3, 4+4, 4+6, 4+7
ASUL(2 2+2*, 2+3, 3+3, 3+4, 3+6, 3+8, 4+3, 4+4, 4+6, 4+7
ASUL(3 3+3*, 3+4, 3+6, 3+8, 4+3, 4+4, 4+6, 4+7
ASUL(4 4+4*, 4+5, 4+6, 4+8
ASUOUT PRT+8~, PRT+10*, 1+3, 1+4, 2+2, 2+4, 3+3, 3+4, 3+5, 3+6
, 4+4, 4+7, HDR+8*
ASUPAGE PRT+8~, HDR+8, HDR+9*, HDR+13
ASUPC GET+12~, GET+21*, GET+22*, GET+23*, GET+24*, GET+25*, SET+3, SET+4
ASUTYP EN+2~, EN1~, GET+15
ASUX WRITE+3~, WRITE+5*, WRITE+6, WRITE+8*, WRITE+9, WRITE+11*, WRITE+12, WRITE+14*, WRITE+15, WRITE+17*
, WRITE+18, WRITE+20*, WRITE+21, WRITE+23*, WRITE+24, WRITE+26*, WRITE+27, WRITE+29*, WRITE+30
DIR HDR+7~, HDR+8!
DIR(0 HDR+8*
IOF HDR+10, QUIT+4
IOSL 3+6, 4+7
IOST HDR+8
U SET+3, SET+4, SRC+11, WRITE+4, WRITE+5, WRITE+7, WRITE+8, WRITE+10, WRITE+11, WRITE+13
, WRITE+14, WRITE+16, WRITE+17, WRITE+19, WRITE+20, WRITE+22, WRITE+23, WRITE+25, WRITE+26, WRITE+28
, WRITE+29
X HDR+7~, PRCNT~, PRCNT+3, PRCNT+4
X1 SRC~, SRC+10, SRC+11, WRITE~, WRITE+4, WRITE+5, WRITE+7, WRITE+8, WRITE+10, WRITE+11
, WRITE+13, WRITE+14, WRITE+16, WRITE+17, WRITE+19, WRITE+20, WRITE+22, WRITE+23, WRITE+25, WRITE+26
, WRITE+28, WRITE+29, HDR~, HDR+14
X2 SRC~, SRC+10, SRC+11, WRITE~, WRITE+11, WRITE+20, WRITE+29, HDR~, HDR+16
X3 SRC~, SRC+10, SRC+11, HDR~, HDR+17
X4 SRC+8~, SRC+9*, SRC+11
Y HDR+7~, HDR+8, HDR+12*, PRCNT~, PRCNT+4
ZTSAVE EN+7, QUIT+2!
ZTSAVE("ASUDT" EN+6*
ZTSAVE("ASUTYP" EN+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All