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

Package: Supply

Routine: ASURMDBC


Information

ASURMDBC ; IHS/ITSC/LMH - MANAGEMENT SUPPLY DATA BOOK REPORT C ;

Source Information

Source file <ASURMDBC.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 ASU693RDBC  ASU816RPC  ASUCOMOR  

Entry Points

Name Comments DBIA/ICR reference
QUIT ;----- CLEAN UP VARIABLES, CLOSE DEVICE, QUIT
SET ;----- SETS COUNTS AND TOTALS IN ^TMP GLOBAL
HDR ;----- PRINTS HEADER
GET ;EP ; GATHER DATA
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(X) ;----- WRITES THE DATA
LOOPS ;----- LOOPS THROUGH THE ^TMP("ASU",$J,"ASUDBC") GLOBAL AND PRINTS
; THE REPORT
2 ;----- LOOP THROUGH THE ACCOUNT SUBSCRIPT
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+14
FPP^ASUUTIL1 GET+13
^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 C"
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !,"TOTAL"
  • Line Location: 2+8
Function Call: WRITE
  • Prompt: !,$E(ASUL(3),1,20)
  • Line Location: 3+7
Function Call: WRITE
  • Prompt: !
  • Line Location: 3+9
Function Call: WRITE
  • Prompt: ?$P(ASUCOL,U,I),$J($P(X,U,I),4)
  • Line Location: WRITE+7
Function Call: WRITE
  • Prompt: ?$P(ASUCOL,U,I+1),$J($P(X,U,I+1),10,2)
  • Line Location: WRITE+8
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: !!,"C. INVENTORY ADJUSTMENTS, LINE ITEMS and VALUES"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !," Category: ",ASUL(2)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !!?31,"CURRENT FISCAL YEAR",?68,"PREVIOUS FISCAL YEAR",?102,"PREVIOUS-PREV FISCAL YEAR"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !?24,"DEBIT ADJUSTMNTS",?42,"CRED ADJUSTMENTS",?61,"DEBIT ADJUSTMNTS",?79,"CRED ADJUSTMENTS",?98,"DEBIT ADJUSTMNTS",?116,"CRED ADJUSTMENTS"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,"STATION",?24,"# LI",?35,"VALUE",?42,"# LI",?53,"VALUE",?61,"# LI",?72,"VALUE",?79,"# LI",?90,"VALUE",?98,"# LI",?108,"VALUE",?116,"# LI",?127,"VALUE"
  • 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 - [#9002036] GET+18
^ASUTH("AX" GET+16, GET+17
^DD("DD" HDR+7
^XTMP("ASUR" DQ+6, GET+12!, SET+2*, SET+3*, SET+4*, SET+5*, PRT+8, 1+2, 2+2, 2+7
, 3+3, 3+6, QUIT+3!

Label References

Name Line Occurrences
2 1+4
3 2+5
GET DQ+6
HDR 2+4, 2+6, 3+5
LOOPS PRT+10
PRT DQ+7
QUIT EN+4, EN+8, DQ+7
SET GET+27
WRITE 2+9, 3+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HDR+2~
ASU GET+11~
ASU("DT" GET+15, GET+22, GET+23, GET+24
>> ASU0 GET+18*
ASU1 GET+11~, GET+15*, GET+16*, GET+17, GET+22, GET+23, GET+24
ASU2 GET+11~, GET+17*, GET+18, GET+20
ASUCOL WRITE+4~, WRITE+5*, WRITE+7, WRITE+8
ASUD GET+11~
ASUD("ACCNAM" SET+2, SET+3, SET+4, SET+5
ASUD("AREA" SET+2, SET+3, SET+4, SET+5
ASUD("STA" SET+4, SET+5
ASUD("TRANS" GET+18*, GET+19, GET+25, GET+26
ASUD("VAL" SET+3, SET+5
ASUDATA 2+7*, 2+9, 3+2~, 3+6*, 3+8
ASUDT EN+2~, EN+4, EN1~, GET+13, GET+14*, GET+16, HDR+7
>> ASUK("PTRSEL" QUIT+4
ASUL PRT+7~
ASUL(1 1+2*, 1+3, 2+2, 2+7, 3+3, 3+6, HDR+8
ASUL(2 2+2*, 2+3, 2+7, 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+2, 2+4, 2+5, 2+6, 3+3, 3+5
, HDR+3*
ASUPAGE PRT+7~, HDR+3, HDR+4*
ASUPC GET+11~, GET+21*, GET+22*, GET+23*, GET+24*, GET+25*, GET+26*, SET+2, SET+3, SET+4
, SET+5
ASUTYP EN+2~, EN1~, GET+14
DIR HDR+2~, HDR+3!
DIR(0 HDR+3*
I WRITE+4~, WRITE+6*, WRITE+7, WRITE+8
IOF HDR+5, QUIT+4
IOSL 2+6, 3+5
IOST HDR+3
U GET+18, SET+2, SET+3, SET+4, SET+5, WRITE+7, WRITE+8
X WRITE~, WRITE+7, WRITE+8, HDR+2~
Y HDR+2~, HDR+3, HDR+7*
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