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

Package: Supply

Routine: ASURM16P


Information

ASURM16P ; IHS/ITSC/LMH - REPORT 16 STATION MONTHLY SUB-SUB-ACTIVITY ;

Source Information

Source file <ASURM16P.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Supply 4 ASU616REPT  ASU617REPT  ASU812R16  ASUCOMOR  

Entry Points

Name Comments DBIA/ICR reference
QUIT ;----- CLEAN UP VARIABLES, CLOSE DEVICE, QUIT
SET ;----- SETS DATA INTO ^XTMP("ASUR","R16") GLOBAL
GET ;EP -- GETS THE DATA
4 ;----- LOOP THROUGH THE SUB-SUB-ACTIVITY SUBSCRIPT
1 ;----- LOOP THROUGH THE AREA SUBSCRIPT
PRT ;----- PRINT THE DATA
3 ;----- LOOP THROUGH THE SUB-STATION SUBSCRIPT
EN ;EP -- MAIN ENTRY POINT (USER INTERACTIVE)
5 ;----- LOOP THROUGH THE GENERAL LEDGER ACCOUNT SUBSCRIPT
EN1(ASUDT,ASUTYP)
LOOPS ;----- LOOPS THROUGH ^XTMP("ASUR","R16") GLOBAL AND PRINTS
; 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+26
DT^ASUUTIL GET+15
HDR16^ASUUTIL 1+4, 2+5, 2+7, 2+9, 2+13, 3+4, 5+6
QUE^ASUUTIL EN+7
SELXTRCT^ASUUTIL EN+4
TC16^ASUUTIL GET+20
WRITE16^ASUUTIL 2+12, 2+16, 5+8
^XBKVAR EN+3, DQ+7

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 16"
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: !,"ALL ACCT ",$P(ASUD("ACC"),".",2)
  • Line Location: 2+10
Function Call: WRITE
  • Prompt: !,"STA TOTAL"
  • Line Location: 2+14
Function Call: WRITE
  • Prompt: !?1,$S(ASUL(3)="UNK":"",1:$P(ASUL(3)," ")),?6,$S(ASUL(4)="UNK":"",1:ASUL(4)),?10,$P(ASUL(5),".",2)
  • Line Location: 5+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: QUIT+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ASUH - [#9002036] GET+24
^ASUH("AX" GET+22, GET+23
^XTMP("ASUR" GET+14!, SET+24*, SET+25*, SET+26*, SET+27*, SET+28*, SET+29*, PRT+11, 1+2, 2+3
, 2+8, 2+11, 2+15, 3+2, 4+2, 5+3, 5+5, QUIT+3!

Label References

Name Line Occurrences
2 1+5
3 2+6
4 3+5
5 4+4
GET DQ+8
LOOPS PRT+20
PRT DQ+8
QUIT EN+4, EN+8, DQ+8
SET GET+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ASU DQ+6~
ASU("DT" GET+17*, GET+18*, GET+19*, GET+21, GET+22
ASU("TC" GET+27, SET+21, SET+22
ASU0 GET+13~, GET+24*, GET+25
ASU1 GET+13~, GET+21*, GET+22*, GET+23, SET+22
ASU2 GET+13~, GET+23*, GET+24, GET+26
ASUD DQ+6~
ASUD("ACC" SET+24, SET+29, 2+8*, 2+10, 2+11
ASUD("AREA" SET+24, SET+25, SET+26, SET+27, SET+28, SET+29, PRT+14
ASUD("SSA" SET+28, SET+29
ASUD("SST" SET+27, SET+28, SET+29
ASUD("STA" SET+24, SET+26, SET+27, SET+28, SET+29, PRT+15
ASUD("STATUS" GET+28, GET+29
ASUD("TRANS" GET+24*, GET+27, SET+21, SET+22
ASUD("VAL" SET+24, SET+25, SET+26, SET+27, SET+28, SET+29
ASUDATA 2+2~, 2+11*, 2+12, 2+15*, 2+16, 5+2~, 5+5*, 5+8
ASUDT EN+2~, EN+4, EN1~, GET+15, 1+4, 2+5, 2+7, 2+9, 2+13, 3+4
, 5+6
ASUDT("DXTRACT" GET+16, SET+22
ASUHDR PRT+9~, 1+4, 2+5, 2+7, 2+9, 2+13, 3+4, 5+6
ASUHDR(1 PRT+13*
ASUHDR(2 PRT+14*
ASUHDR(3 PRT+15*
ASUHDR(4 PRT+16*
ASUHDR(5 PRT+17*
ASUHDR(6 PRT+18*
>> ASUK("PTRSEL" QUIT+4
ASUL PRT+9~
ASUL(1 1+2*, 1+3, 2+3, 2+8, 2+11, 2+15, 3+2, 4+2, 5+3, 5+5
ASUL(2 2+3*, 2+4, 2+8, 2+11, 2+15, 3+2, 4+2, 5+3, 5+5
ASUL(3 3+2*, 3+3, 4+2, 5+3, 5+5, 5+7
ASUL(4 4+2*, 4+3, 5+3, 5+5, 5+7
ASUL(5 5+3*, 5+4, 5+5, 5+7
ASUOUT PRT+9~, PRT+10*, 1+2, 1+4, 1+5, 2+3, 2+5, 2+6, 2+7, 2+8
, 2+9, 2+13, 3+2, 3+4, 3+5, 4+2, 4+4, 5+3, 5+6
ASUPAGE PRT+9~, 1+4, 2+5, 2+7, 2+9, 2+13, 3+4, 5+6
ASUPC SET+20~, SET+23*, SET+24, SET+25, SET+26, SET+27, SET+28, SET+29
ASUPCM SET+20~, SET+22*, SET+23
ASUPCY SET+20~, SET+21*, SET+23
ASUTYP EN+2~, EN1~, GET+15, 1+4, 2+5, 2+7, 2+9, 2+13, 3+4, 5+6
IOF QUIT+4
IOSL 2+9, 2+13, 5+6
U GET+24, SET+24, SET+25, SET+26, SET+27, SET+28, SET+29
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