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: ASURMDBA

Package: Supply

Routine: ASURMDBA


Information

ASURMDBA ; IHS/ITSC/LMH - MANAGEMENT SUPPLY DATA BOOK REPORT A ;

Source Information

Source file <ASURMDBA.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 ASU691RDBA  ASU815RPA  ASUCOMOR  

Entry Points

Name Comments DBIA/ICR reference
QUIT ;CLEAN UP VARIABLES, CLOSE DEVICE, QUIT
SET ;----- SETS COUNTS IN ^TMP GLOBAL
HDR ;----- WRITES REPORT HEADER
GET ;EP ; GATHER DATA
REV ;----- SETS UP REVERSAL TRANSACTION CODE ARRAY
1 ;----- LOOP THROUGH THE AREA SUBSCRIPT
PRT ;----- PRINTS THE REPORT
3 ;----- LOOP THROUGH THE STATION SUBSCRIPT
EN ;EP -- MAIN ENTRY POINT (USER INTERACTIVE)
EN1(ASUDT,ASUTYP)
WRITE(X) ;----- WRITES DATA
LOOPS ;----- LOOPS THROUGH THE ^TMP("ASU",$J,"ASURMDBA") GLOBAL AND PRINTS
; THE REPORT
2 ;----- LOOP THROUGH THE ACCOUNT SUBSCRIPT
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+3
^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 A"
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !,"TOTAL"
  • Line Location: 2+9
Function Call: WRITE
  • Prompt: !,$E(ASUL(3),1,20)
  • Line Location: 3+7
Function Call: WRITE
  • Prompt: ?24,$J($P(X,U),8),?34,$J($P(X,U,2),8),?44,$J($P(X,U,3),8)
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: ?54,$J(ASUX,4,1)
  • Line Location: WRITE+7
Function Call: WRITE
  • Prompt: ?61,$J($P(X,U,4),8),?71,$J($P(X,U,5),8),?81,$J($P(X,U,6),8)
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: ?91,$J(ASUX,4,1)
  • Line Location: WRITE+10
Function Call: WRITE
  • Prompt: ?98,$J($P(X,U,7),8),?108,$J($P(X,U,8),8),?118,$J($P(X,U,9),8)
  • Line Location: WRITE+11
Function Call: WRITE
  • Prompt: ?128,$J(ASUX,4,1)
  • Line Location: WRITE+13
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITE+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "MANAGEMENT SUPPLY DATA BOOK FOR "
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: $P(Y," ")," ",$P(Y,",",2)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"AREA ",ASUL(1)
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!,"A. RECORDS PROCESSED INTO THE SUPPLY ACCOUNTING AND MANAGEMENT SYSTEM (SAMS)"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !?3,"Category: ",ASUL(2)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !!?29,"CURRENT FISCAL YEAR",?66,"PREVIOUS FISCAL YEAR",?103,"PREV-PREV FISCAL YEAR"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !?25,"Number Number Number %",?62,"Number Number Number %",?99,"Number Number Number %"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,"STATION",?25,"Regular Reversal Rejects Rej",?62,"Regular Reversal Rejects Rej",?99,"Regular Reversal Rejects Rej"
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: QUIT+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+3
Routine Call
  • DIR
  • Line Location:
    • HDR+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ASUH("AX" GET+18, GET+19
^DD("DD" HDR+7
^XTMP("ASUR" DQ+6, GET+13!, SET+2*, SET+3*, PRT+8, 1+2, 2+3, 2+8, 3+3, 3+6
, QUIT+3!

Label References

Name Line Occurrences
$$PRCNT WRITE+6, WRITE+9, WRITE+12
2 1+4
3 2+6
GET DQ+6
HDR 2+5, 2+7, 3+5
LOOPS PRT+10
PRT DQ+7
QUIT EN+4, EN+8, DQ+7
REV GET+16
SET GET+28
WRITE 2+10, 3+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HDR+2~
ASU GET+12~
ASU("DT" GET+17, GET+22, GET+23, GET+24
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
ASUD("AREA" SET+2, SET+3
ASUD("STA" SET+3
ASUD("STATUS" GET+25, GET+26, GET+27
ASUD("TRANS" GET+25, GET+26
ASUDATA 2+2~, 2+8*, 2+10, 3+2~, 3+6*, 3+8
ASUDT EN+2~, EN+4, EN1~, GET+14, GET+15*, GET+18, HDR+7
>> ASUK("PTRSEL" QUIT+4
ASUL PRT+7~
ASUL(1 1+2*, 1+3, 2+3, 2+8, 3+3, 3+6, HDR+8
ASUL(2 2+3*, 2+4, 2+8, 3+3, 3+6, HDR+10
ASUL(3 3+3*, 3+4, 3+6, 3+7
ASUOUT PRT+7~, PRT+9*, 1+2, 1+4, 2+3, 2+5, 2+6, 2+7, 3+3, 3+5
, HDR+3*
ASUPAGE PRT+7~, HDR+3, HDR+4*
ASUPC GET+12~, GET+21*, GET+22*, GET+23*, GET+24*, GET+25*, GET+26*, GET+27*, SET+2, SET+3
ASUREV GET+12~, REV+4!, REV+5*
ASUREV( GET+25, GET+26, REV+5*
ASUTYP EN+2~, EN1~, GET+15
ASUX WRITE+4~, WRITE+6*, WRITE+7, WRITE+9*, WRITE+10, WRITE+12*, WRITE+13
DIR HDR+2~, HDR+3!
DIR(0 HDR+3*
IOF HDR+5, QUIT+4
IOSL 2+7, 3+5
IOST HDR+3
U SET+2, SET+3, WRITE+5, WRITE+6, WRITE+8, WRITE+9, WRITE+11, WRITE+12
X WRITE~, WRITE+5, WRITE+6, WRITE+8, WRITE+9, WRITE+11, WRITE+12, HDR+2~, PRCNT~, PRCNT+3
, PRCNT+4
Y HDR+2~, HDR+3, HDR+7*, 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