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 |  Marked Items |  All
Print Page as PDF
Routine: ASURO80P

Package: Supply

Routine: ASURO80P


Information

ASURO80P ; IHS/ITSC/LMH -RPT 80 ISS-ANAL STATION DRIVER ;

Source Information

Source file <ASURO80P.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Supply 6 (ARE,SETAREA)^ASULARST  ACC^ASULDIRF  ^ASURO800  CLS^ASUUHDG  PAZ^ASUURHDR  (C,O,U)^ASUUZIS  
Kernel 1 (,HOME)^%ZIS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Supply 1 ASU880IVLC  

Entry Points

Name Comments DBIA/ICR reference
P2 ;
P3 ;
PRLINE ;PRINT LINE
EN ;EP;PRIMARY ENTRY POINT FOR REPORT 80
TOTNAM ;;
P4 ;
P5 ;
K ;
PRLI2 ;
HEADER ;EP; -PRINT HEADER
PSER ;EP;FOR TASKMAN QUEUE OF PRINT
P1 ;
PRLIN3 ;
PRLIN2 ;
PRTOTL ;EP; -PRINT TOTALS
ZEROTOT ;
PRDASH ;
ROLLTOT ;EP ;ACCUMULATE TOTALS

External References

Name Field # of Occurrence
^%ZIS EN+9
HOME^%ZIS EN+2
ARE^ASULARST PSER+13
SETAREA^ASULARST EN+4
ACC^ASULDIRF P5+6
^ASURO800 EN+6
CLS^ASUUHDG PSER+21
PAZ^ASUURHDR HEADER+2
C^ASUUZIS K+6
O^ASUUZIS EN+8
U^ASUUZIS PSER+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Report must be run from Kernel option"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"NO DATA FOR REPORT 80"
  • Line Location: PSER+4
Function Call: WRITE
  • Prompt: !?5,$P(ASUA(ASUV("LEV"),ASUV("SST")),U)
  • Line Location: PRLINE+1
Function Call: WRITE
  • Prompt: ?55+((ASUV("PIECE")-5)*7),$J($P(ASUA(ASUV("LEV"),ASUV("SST")),U,ASUV("PIECE")),7)
  • Line Location: PRLIN3+1
Function Call: WRITE
  • Prompt: !,$P($T(TOTNAM+ASUV("LEV")),";",4)
  • Line Location: PRTOTL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTOTL+29
Function Call: WRITE
  • Prompt: ?X," ========"
  • Line Location: PRTOTL+31
Function Call: WRITE
  • Prompt: ?X," ________"
  • Line Location: PRDASH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRDASH+2
Function Call: WRITE
  • Prompt: @IOF,!,"REPORT #80 ANALYSIS OF ISSUE VALUES BY ITEM/LOCATION/CATEGORY",?71,"PAGE :",$J(ASUC("PG"),3)
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"AREA: ",ASUL(1,"AR","AP")," -",ASUL(1,"AR","NM"),?35,"DATE : ",ASUV("DT")
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,"STAT: ",ASUL(2,"STA","CD")," -",ASUL(2,"STA","NM")
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: ?40,"GL ACCOUNT : ",ASUV("ACC")," ",$P(ASUA("ACC"),U,2)
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,"OBJECT/SUBOBJECT CODE: ",$E(ASUV("OBJ"),1,2),".",$E(ASUV("OBJ"),3,4)," -",$P(ASUA("OBJ"),U,2),!
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"CATEGORY: ",ASUV("CAT")," -",$P(ASUA("CAT"),U,2),!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !?3,"INDEX ITEM PERCENT OF TOTAL"
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !?2,"NUMBER DESCRIPTION STORES STOCK ISSUE VALUES ISSUE VALUE",?78,"U"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !?6,"USING LOCATION",?32,"FY-",$E(ASUV("FY"),2,3),?42,"FY-",$E((ASUV("FY")-1),2,3),?52,"FY-",$E((ASUV("FY")-2),2,3)
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: ?59,"FY-",$E(ASUV("FY"),2,3),?66,"FY-",$E((ASUV("FY")-1),2,3),?73,"FY-",$E((ASUV("FY")-2),2,3)
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: "_"
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER+14
Routine Call
  • %ZIS
  • Line Location:
    • EN+2
Routine Call
  • %ZIS
  • Line Location:
    • EN+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSER+6
^XTMP("ASUR" PSER+4, PSER+5, PSER+14, PSER+17, P1+1, P1+3, P1+4, P1+6, P1+7, P4+2
, P4+3, P5+2, P5+5

Label References

Name Line Occurrences
HEADER PRTOTL+1, PRTOTL+9, P4+8, P5+8
K PSER+1, PSER+18, PSER+19
P1 PSER+17
P3 PRLINE+3, PRTOTL+10, PRTOTL+20
P4 P1+8
P5 P4+11
PRDASH PRTOTL+6, PRTOTL+21
PRLI2 PRTOTL+9, PRTOTL+26
PRLIN2 PRLINE+3, PRTOTL+19
PRLIN3 PRLINE+3, PRTOTL+19
PRLINE P5+9
PRTOTL PSER+20, P1+10, P1+12, P4+13, P5+11
PSER EN+5
ROLLTOT PRTOTL+4, P5+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ASUA( PRLINE+1, PRLIN2+2, PRLIN2+3, PRLIN2+7, PRLIN2+9*, PRLIN3+1, PRTOTL+10, PRTOTL+16, PRTOTL+17, PRTOTL+33!
, P3+1*, P3+3*, P3+4!, ROLLTOT+1*, ROLLTOT+3*, ZEROTOT+1!
>> ASUA("ACC" P1+1*, HEADER+6
>> ASUA("AR" PSER+12*, PSER+13
>> ASUA("CAT" P1+7*, HEADER+8
>> ASUA("DS2" P4+7*, P4+9
>> ASUA("IDX" P4+6*, P4+9
>> ASUA("OBJ" P1+4*, HEADER+7
>> ASUA("STA" PSER+14*
>> ASUA(0 P4+4*, P4+5*, P5+5*
ASUC K+1!
ASUC("LN" PRLINE+2*, PRLI2+1, PRTOTL+3*, PRTOTL+15*, PRTOTL+18*, PRTOTL+22*, PRTOTL+24*, PRTOTL+28*, PRTOTL+30*, PRTOTL+32*
, PRDASH+2*, HEADER+15*, P4+10*, P5+7
ASUC("PG" PSER+6*, HEADER+1*, HEADER+2, HEADER+3
ASUF K+1!
ASUF("HDR" PSER+3*, PRLI2+1*, PRTOTL+1, PRTOTL+9, PRTOTL+13*, HEADER+15*, P4+8, P5+7*, P5+8
>> ASUK( EN+10, PRLI2+1, P5+7
>> ASUK("PTR" EN+10, PRLI2+1, P5+7
>> ASUK("PTRSEL" EN+5*, K+5
>> ASUL( K+2!
>> ASUL(1 EN+4, PSER+13, HEADER+4
>> ASUL(2 PSER+9, HEADER+5
ASUP K+1!
ASUS K+1!
ASUT K+1!
>> ASUU(1 P3+2*, P3+3, ROLLTOT+2*, ROLLTOT+3, P4+5*
>> ASUU(2 PRTOTL+8*, PRTOTL+11, PRTOTL+14*, PRTOTL+27
>> ASUU(3 HEADER+13*
>> ASUU(4 PRTOTL+31*, PRDASH+1*
ASUV K+1!
ASUV("%" PRLIN2+5*, PRLIN2+8*, PRLIN2+9
ASUV("%SST" PRLIN2+7*, PRLIN2+8
ASUV("%TOT" PRLIN2+3*, PRLIN2+4, PRLIN2+8
ASUV("ACC" PSER+19, P1+1*, HEADER+6
ASUV("ARE" PSER+12*, PSER+13
ASUV("CAT" PSER+19, P1+7*, HEADER+8
ASUV("DT" PSER+6*, HEADER+4
ASUV("FY" PSER+5*, HEADER+11, HEADER+12
ASUV("LEV" PSER+20*, P1+10*, P1+12*, PRLINE+1, PRLIN2+2, PRLIN2+3, PRLIN2+7, PRLIN2+9, PRLIN3+1, PRTOTL+4
, PRTOTL+5, PRTOTL+10, PRTOTL+16, PRTOTL+17, PRTOTL+33, P3+1, P3+3, P3+4, ROLLTOT+1, ROLLTOT+3
, ZEROTOT+1, P4+13*, P5+3*, P5+11*
ASUV("OBJ" PSER+19, P1+4*, HEADER+7
ASUV("PIECE" PRLIN2+1*, PRLIN2+2, PRLIN2+3, PRLIN2+7, PRLIN2+9, PRLIN3+1*
ASUV("SST" PRLINE+1, PRLIN2+2, PRLIN2+7, PRLIN2+9, PRLIN3+1, PRTOTL+8*, PRTOTL+10*, PRTOTL+11*, PRTOTL+14*, PRTOTL+16*
, PRTOTL+17, PRTOTL+25*, PRTOTL+27*, P3+1, P3+3, P3+4, P5+4*, P5+5
ASUX K+1!
ASUX("ACC" PSER+16*, PSER+17*, P1+1, P1+3, P1+4, P1+6, P1+7, P4+2, P4+3, P5+2
, P5+5, P5+6
ASUX("CAT" P1+5*, P1+6*, P1+7, P4+2, P4+3, P5+2, P5+5
ASUX("DSC" P4+1*, P4+2*, P4+3, P4+9, P5+2, P5+5
ASUX("OBJ" P1+2*, P1+3*, P1+4, P1+6, P1+7, P4+2, P4+3, P5+2, P5+5
ASUX("SST" P5+1*, P5+2*, P5+4, P5+5
ASUX("STA" PSER+4*, PSER+9*, PSER+12, PSER+14, PSER+17, P1+3, P1+6, P4+2, P4+3, P5+2
, P5+5
ASUX(0 P4+3*, P4+5, P4+6, P4+7
DFOUT K+3!
DIR K+3!
DLOUT K+3!
DTOUT EN+7, PSER+1, PSER+18, K+3!, P1+3, P1+6, P1+9, P1+11, P4+2, P4+12
, P5+2
DUOUT EN+7, PSER+1, PSER+18, K+3!, P1+3, P1+6, P1+9, P1+11, P4+2, P4+12
, P5+2
DUZ(2 EN+3
IO EN+2
IOF HEADER+3
>> IOP EN+9*
>> POP EN+9
U PSER+5, PSER+14, PRLINE+1, PRLIN2+2, PRLIN2+3, PRLIN2+7, PRLIN2+9, PRLIN3+1, PRTOTL+17, HEADER+6
, HEADER+7, HEADER+8, P3+1, P3+3, ROLLTOT+3, P4+5, P4+6, P4+7
X K+2*, K+4!, PRTOTL+31*, PRDASH+1*
X1 K+4!
X2 K+4!
X3 K+4!
X4 K+4!
Y PSER+5*, PSER+6, K+4!
>> ZTDESC EN+8*
>> ZTRTN EN+8*

Marked Items

Name Field # of Occurrence
$T(TOTNAM+ASUV(1) PRTOTL+2, PRTOTL+7, PRTOTL+23
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All