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

Package: Supply

Routine: ASUCOMTH


Information

ASUCOMTH ; IHS/ITSC/LMH -MONTHLY CLOSEOUT ;

Source Information

Source file <ASUCOMTH.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Supply 8 (,STAT)^ASUCOKIL  ^ASUCOMOR  ^ASUCORUN  (SETCTRL,SETLM,SETSTAT,SETTY)^ASUCOSTS  ^ASURMSTD  (DATE,SETMO,SETRUN)^ASUUDATE  CLS^ASUUHDG  (Q,S)^ASUUZIS  
VA Fileman 2 DT^DILF  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Supply 2 ASU171MCLO  ASU172MCLO  

Entry Points

Name Comments DBIA/ICR reference
KILL ;
UPDT ;
END ;
ERR ;

External References

Name Field # of Occurrence
^ASUCOKIL UPDT+33
STAT^ASUCOKIL UPDT+35
^ASUCOMOR UPDT+31
^ASUCORUN ASUCOMTH+17
SETCTRL^ASUCOSTS ASUCOMTH+10
SETLM^ASUCOSTS UPDT+5
SETSTAT^ASUCOSTS UPDT+34
SETTY^ASUCOSTS UPDT+19
^ASURMSTD UPDT+32
DATE^ASUUDATE ASUCOMTH+16
SETMO^ASUUDATE ASUCOMTH+20
SETRUN^ASUUDATE ASUCOMTH+18
CLS^ASUUHDG ASUCOMTH+3
Q^ASUUZIS UPDT+28
S^ASUUZIS UPDT+11, UPDT+14
DT^DILF UPDT+1
^DIR ASUCOMTH+6, ASUCOMTH+13, UPDT+3, ERR+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?15,"S.A.M.S Monthly Closeout Process Running",!!
  • Line Location: ASUCOMTH+4
Function Call: WRITE
  • Prompt: !,"Monthly closeout will be made for Month and FISCAL year ",!?30,X(0)
  • Line Location: UPDT+2
Function Call: WRITE
  • Prompt: " for Standard Reports"
  • Line Location: UPDT+16
Function Call: WRITE
  • Prompt: !!?25,"**** ERROR ****",*7,!
  • Line Location: ERR+1
Function Call: WRITE
  • Prompt: !,"The Run Control table ASUTBL SITE indicates that month ",ASUP("MO")," should"
  • Line Location: ERR+2
Function Call: WRITE
  • Prompt: !,"be the month for the monthly closeout, but the current date of ",ASUK("DT")," is",!,"not consistent."
  • Line Location: ERR+3
Function Call: WRITE
  • Prompt: !!,"The computer program is unable to determine correct Month to closeout."
  • Line Location: ERR+8
Function Call: WRITE
  • Prompt: *7,!!?10,"***** Notify your Supervisor to correct the problem *****",*7,!!
  • Line Location: ERR+9
Routine Call
  • DIR
  • Line Location:
    • ASUCOMTH+6
    • ASUCOMTH+13
    • UPDT+3
    • ERR+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ASUSITE(1 UPDT+6*

Label References

Name Line Occurrences
END UPDT+15, UPDT+16
ERR ASUCOMTH+20
KILL ASUCOMTH+8, ASUCOMTH+15, UPDT+4
UPDT ASUCOMTH+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS("A" UPDT+10*
>> %ZIS("IOPAR" UPDT+13*
ASUF END+1!
>> ASUK("DT" ASUCOMTH+16, ERR+3
>> ASUK("IRPT" UPDT+26
>> ASUK("PTR" UPDT+8*, UPDT+27*
>> ASUK("SRPT" UPDT+13, UPDT+20, UPDT+22
ASUP ASUCOMTH+17!, END+1!, KILL+1!
ASUP("AST" UPDT+9
ASUP("CKP" UPDT+17*, UPDT+30*, UPDT+34*
ASUP("ERR" ASUCOMTH+20, ERR+4, ERR+6
ASUP("HLT" UPDT+33
ASUP("LSMO" UPDT+5*
ASUP("MO" ERR+2
ASUP("MOYR" UPDT+1, UPDT+5
ASUP("NXMO" ASUCOMTH+20
ASUP("OK" ASUCOMTH+17
ASUP("RE*" ASUCOMTH+19, UPDT+5, UPDT+7*
ASUP("SRP" UPDT+18*
ASUP("STP" UPDT+18*
ASUP("TYP" ASUCOMTH+5*
DIR ASUCOMTH+7!, ASUCOMTH+13!, UPDT+3!, ERR+10!
DIR("A" ASUCOMTH+6*, UPDT+3*
DIR("B" UPDT+3*
DIR(0 ASUCOMTH+6*, ASUCOMTH+13*, UPDT+3*, ERR+10*
DTOUT ASUCOMTH+8, ASUCOMTH+15, UPDT+15, END+1!
DUOUT ASUCOMTH+8, ASUCOMTH+14*, ASUCOMTH+15, UPDT+15, END+1!, KILL+1!
>> IOP UPDT+13*
>> POP UPDT+16
U UPDT+6
>> X ASUCOMTH+8, UPDT+1
>> X(0 UPDT+2
>> XBIOP UPDT+26*
>> XBRC UPDT+24*
>> XBRP UPDT+23*
>> XBRX UPDT+25*
>> Y ASUCOMTH+9, UPDT+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All