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

Package: Supply

Routine: ASURM15P


Information

ASURM15P ; IHS/ITSC/LMH - REPORT 15 MONTHLY COST REPORT ;

Source Information

Source file <ASURM15P.m>

Call Graph

Call Graph Total: 5

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Supply 3 ASU615REPT  ASU811R15  ASUCOMOR  

Entry Points

Name Comments DBIA/ICR reference
QUIT ;----- CLEAN UP VARIABLES, CLOSE DEVICE, QUIT
SET ;----- SETS DATA INTO ^XTMP("ASUR","R15") GLOBAL
HDR ;----- WRITES REPORT HEADER
WRITE(X) ;----- WRITES TOTALS
GET ;EP ; GATHER DATA
4 ;----- LOOP THROUGH THE USER SUBSCRIPT
1 ;----- LOOP THROUGH THE AREA SUBSCRIPT
PRT ;----- PRINTS THE DATA
3 ;----- LOOP THROUGH THE SUB-STATION SUBSCRIPT
EN ;EP -- MAIN ENTRY POINT (USER INTERACTIVE)
5 ;----- LOOP THROUGH THE CAN SUBSCRIPT
EN1(ASUDT,ASUTYP)
7 ;----- LOOP THROUGH THE SUBOBJECT SUBSCRIPT
6 ;----- LOOP THROUGH THE GL ACCOUNT SUBSCRIPT
LOOPS ;----- Loops 1-7 loop through the ^XTMP("ASUR","R15") global and
; print the report
2 ;----- LOOP THROUGH THE STATION SUBSCRIPT
DQ ;EP -- QUEUED JOB STARTS HERE

External References

Name Field # of Occurrence
HOME^%ZIS EN+3
^%ZISC QUIT+5
DATA16^ASUUTIL GET+30
DT^ASUUTIL GET+18
QUE^ASUUTIL EN+7
SELXTRCT^ASUUTIL EN+4
^DIR HDR+3
^XBKVAR EN+3, DQ+6

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 REPORT 15"
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: !!,"AREA ",ASUL(1)," TOTALS"
  • Line Location: 1+8
Function Call: WRITE
  • Prompt: !,"STATION ",ASUL(2)," TOTALS"
  • Line Location: 2+9
Function Call: WRITE
  • Prompt: !,"SUB-STATION ",ASUL(3)," TOTALS"
  • Line Location: 3+9
Function Call: WRITE
  • Prompt: !
  • Line Location: 3+11
Function Call: WRITE
  • Prompt: !?25,ASUI,?31,"TOTAL"
  • Line Location: 4+9
Function Call: WRITE
  • Prompt: !?8,"USER CODE TOTALS"
  • Line Location: 4+13
Function Call: WRITE
  • Prompt: !
  • Line Location: 4+15
Function Call: WRITE
  • Prompt: !?17,"CAN TOTALS"
  • Line Location: 5+8
Function Call: WRITE
  • Prompt: !
  • Line Location: 5+10
Function Call: WRITE
  • Prompt: !?2,$E(ASUL(3),1,2),?8,ASUL(4),?17,ASUL(5),?25,ASUL(6),?31,"TOTAL"
  • Line Location: 6+10
Function Call: WRITE
  • Prompt: !?2,$E(ASUL(3),1,2),?8,ASUL(4),?17,ASUL(5),?25,ASUL(6),?38,$J($P(ASUDATA,U),10,2),?66,$S(ASUL(7)="268H":"",1:$E(ASUL(7),3,4))
  • Line Location: 7+7
Function Call: WRITE
  • Prompt: ?70,$J($P(ASUDATA,U,3),10,2),?84,$J($P(ASUDATA,U,4),10,2),?104,$J($P(ASUDATA,U,5),10,2),?118,$J($P(ASUDATA,U,6),10,2)
  • Line Location: 7+8
Function Call: WRITE
  • Prompt: ?38,$J($P(X,U),10,2),?52,$J($P(X,U,2),10,2),?70,$J($P(X,U,3),10,2),?84,$J($P(X,U,4),10,2),?104,$J($P(X,U,5),10,2),?118,$J($P(X,U,6),10,2)
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "REPORT #15 MONTHLY COST REPORT FOR ",$S(ASUTYP="M":"MONTH ",ASUTYP="I":"EXTRACT DATE ",1:"")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: Y
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?116,"PAGE ",$J(ASUPAGE,6)
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"AREA ",$G(ASUL(1)),!,"STAT ",$G(ASUL(2))
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !!,"SUB",?18,"COMMON",?27,"G L",?33,"STOCK ISSUES-OBJECT CLASS 26",?65,"DIRECT ISSUES-OBJECT CLASS 26",?101,"FUEL OIL OBJ-SUBOBJ 26.8H"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,"STAT",?8,"USER",?14,"ACCOUNTING",?26,"ACCT",?34,"CURRENT MONTH",?54,"YEAR-TO-",?66,"CURRENT MONTH",?87,"YEAR-TO-",?100,"CURRENT MONTH",?121,"YEAR-TO-"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,"CODE",?8,"CODE",?18,"NUMBER",?27,"NO.",?32,"SUBOBJ",?43,"VALUE",?52,"DATE VALUE",?64,"SUBOBJ",?75,"VALUE",?85,"DATE VALUE",?97,"SUBOBJ",?109,"VALUE",?119,"DATE VALUE"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+13
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+27
^ASUH("AX" GET+25, GET+26
^DD("DD" HDR+7
^XTMP("ASUR" GET+17!, PRT+10, 1+3, 1+6, 2+3, 2+7, 3+3, 3+7, 4+3, 4+11
, 5+3, 5+6, 6+3, 6+6, 7+3, 7+5, QUIT+3!

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HDR+2~
ASU DQ+5~
ASU("DT" GET+20*, GET+21*, GET+22*, GET+24, GET+25
ASU("TC" GET+23*, GET+29
ASU0 GET+16~, GET+27*, GET+28, GET+29, SET+30, SET+31, SET+32, SET+34, SET+35, SET+36
, SET+43
ASU1 GET+16~, GET+24*, GET+25*, GET+26, SET+29, SET+33
ASU2 GET+16~, GET+26*, GET+27, GET+30
ASUD DQ+5~
ASUD("OBJ" SET+31, SET+32, SET+35, SET+36, SET+43
ASUD("STATUS" GET+31, GET+32
ASUD("TRANS" GET+27*, GET+29
ASUD("VAL" SET+42, SET+46
ASUDATA 1+2~, 1+6*, 1+9, 2+2~, 2+7*, 2+10, 3+2~, 3+7*, 3+10, 4+2~
, 4+7*, 4+10, 4+11*, 4+14, 5+2~, 5+6*, 5+9, 6+2~, 6+6*, 6+8
, 6+11, 7+2~, 7+5*, 7+7, 7+8
ASUDT EN+2~, EN+4, EN1~, GET+18, HDR+7
ASUDT("DXTRACT" GET+19, SET+29, SET+33
ASUGLOB SET+28~, SET+41*, SET+42*, SET+45*, SET+46*
ASUI GET+16~, GET+23*, 4+2~, 4+6*, 4+7, 4+9, 6+2~, 6+7*, 6+8
>> ASUK("PTRSEL" QUIT+4
ASUL PRT+8~
ASUL(1 1+3*, 1+4, 1+6, 1+8, 2+3, 2+7, 3+3, 3+7, 4+3, 4+11
, 5+3, 5+6, 6+3, 6+6, 7+3, 7+5, HDR+9
ASUL(2 2+3*, 2+4, 2+7, 2+9, 3+3, 3+7, 4+3, 4+11, 5+3, 5+6
, 6+3, 6+6, 7+3, 7+5, HDR+9
ASUL(3 3+3*, 3+4, 3+7, 3+9, 4+3, 4+6, 4+7, 4+11, 5+3, 5+6
, 6+3, 6+6, 6+8, 6+10, 7+3, 7+5, 7+7
ASUL(4 4+3*, 4+4, 4+6, 4+7, 4+11, 5+3, 5+6, 6+3, 6+6, 6+8
, 6+10, 7+3, 7+5, 7+7
ASUL(5 5+3*, 5+4, 5+6, 6+3, 6+6, 6+10, 7+3, 7+5, 7+7
ASUL(6 6+3*, 6+4, 6+6, 6+8, 6+10, 7+3, 7+5, 7+7
ASUL(7 7+3*, 7+4, 7+5, 7+7
ASUOOT SET+28~, SET+38*, SET+40*, SET+41, SET+44*, SET+45
ASUOUT PRT+8~, PRT+9*, 1+3, 1+5, 1+7, 2+3, 2+6, 2+8, 3+3, 3+6
, 3+8, 4+3, 4+5, 4+6, 4+8, 4+12, 5+3, 5+5, 5+7, 6+3
, 6+5, 6+9, 7+3, 7+6, HDR+3*
ASUPAGE PRT+8~, 3+5, HDR+3, HDR+4*, HDR+8
ASUPC SET+28~, SET+37*, SET+42, SET+43, SET+46
ASUPCM SET+28~, SET+30*, SET+31*, SET+32*, SET+34*, SET+35*, SET+36*, SET+37
ASUPCY SET+28~, SET+30*, SET+31*, SET+32*, SET+34*, SET+35*, SET+36*, SET+37, SET+43
ASUTOT PRT+8~
ASUTOT("ACC" 4+6, 4+7, 6+8*
ASUTYP EN+2~, EN1~, GET+18, HDR+6
ASUX SET+28~, SET+39*, SET+40
DIR HDR+2~, HDR+3!
DIR(0 HDR+3*
IOF HDR+5, QUIT+4
IOSL 1+7, 2+8, 3+8, 4+8, 4+12, 5+7, 6+9, 7+6
IOST HDR+3
U GET+27, SET+42, SET+46, 6+8, 7+7, 7+8, WRITE+2
X WRITE~, WRITE+2, 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