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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ASUUTIL

Package: Supply

Routine: ASUUTIL


Information

ASUUTIL ; IHS/ITSC/LMH - VARIOUS UTILITY SUBROUTINES USED BY SAMS REPORTS ;

Source Information

Source file <ASUUTIL.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^%DT  ^DIC  ^DIR  
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
Supply 1 ($$EXTDATE,$$FY)^ASUUTIL1  

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Supply 10 ASUMSOLR  ASURM15P  ASURM16P  ASURM17P  ASURM18P  ASURMDBA  ASURMDBC  ASURMDBH  
ASURMDBK  ASURMDBL  

Entry Points

Name Comments DBIA/ICR reference
QUE(ZTRTN,ZTSAVE,ZTDESC)
TC16 ;EP -- SETS UP TRANSACTION CODE ARRAY USED BY REPORTS 16,17,18
DAYS(ASUDT)
WRITE16(X)
OUT(ASUOUT)
LIST ;EP -- LIST EXTRACT DATES
MONTH ;----- SELECT MONTH FOR REPORT
DT(ASUDT,ASUTYP)
DATA16(ASU2)
AX(ASU1) ;EP -- BUILDS LIST OF EXTRACT DATES
HDR16(ASUDT,ASUTYP,ASUPAGE,ASUHDR,ASUOUT)
SELXTRCT ;EP -- SELECT INDIVIDUAL EXTRACT DATE OR EXTRACT MONTH FOR REPORTS
INDIV ;----- SELECT ONE INDIVIDUAL EXTRACT/CLOSEOUT DATE FOR REPORTS

External References

Name Field # of Occurrence
^%DT INDIV+18
^%ZIS QUE+4
HOME^%ZIS OUT+9
^%ZTLOAD QUE+5
$$EXTDATE^ASUUTIL1 AX+12
$$FY^ASUUTIL1 DT+18
^DIC MONTH+10
^DIR HDR16+10, SELXTRCT+9, INDIV+25, OUT+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?13,J
  • Line Location: WRITE16+10
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITE16+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR16+12
Function Call: WRITE
  • Prompt: ASUHDR(1)," FOR ",$S(ASUTYP="M":"MONTH ",ASUTYP="I":"EXTRACT DATE ",1:"")
  • Line Location: HDR16+13
Function Call: WRITE
  • Prompt: Y
  • Line Location: HDR16+14
Function Call: WRITE
  • Prompt: ?116,"PAGE ",$J(ASUPAGE,6)
  • Line Location: HDR16+15
Function Call: WRITE
  • Prompt: !,$G(ASUHDR(2))
  • Line Location: HDR16+16
Function Call: WRITE
  • Prompt: !,$G(ASUHDR(3))
  • Line Location: HDR16+17
Function Call: WRITE
  • Prompt: !!,ASUHDR(4),?23,"PURCHASED",?36,"UNREQ/EXCESS",?55,"DONATIONS",?75,"STORE",?87,"PURCHASED",?100,"UNREQ/EXCESS",?119,"DONATIONS"
  • Line Location: HDR16+18
Function Call: WRITE
  • Prompt: !,ASUHDR(5),?24,"RECEIPTS",?36,"RECEIVED FOR",?52,"RECEIVED FOR",?76,"ROOM",?88,"RECEIPTS",?100,"RECEIVED FOR",?116,"RECEIVED FOR"
  • Line Location: HDR16+19
Function Call: WRITE
  • Prompt: !,ASUHDR(6),?27,"STOCK",?43,"STOCK",?59,"STOCK",?74,"ISSUES",?84,"DIRECT ISSUE",?100,"DIRECT ISSUE",?116,"DIRECT ISSUE"
  • Line Location: HDR16+20
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR16+21
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: INDIV+23
Function Call: WRITE
  • Prompt: !,"Choose from:"
  • Line Location: LIST+11
Function Call: WRITE
  • Prompt: !?3,ASUX(ASU1)
  • Line Location: LIST+14
Function Call: WRITE
  • Prompt: *13,$J("",50),*13
  • Line Location: OUT+11
Function Call: WRITE
  • Prompt: !,"Task #",$G(ZTSK)," queued"
  • Line Location: QUE+5
Routine Call
  • %ZIS
  • Line Location:
    • OUT+9
Routine Call
  • DIC
  • Line Location:
    • MONTH+10
Routine Call
  • DIR
  • Line Location:
    • HDR16+10
    • SELXTRCT+9
    • INDIV+25
    • OUT+10
Routine Call
  • %ZIS
  • Line Location:
    • QUE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ASUML - [#9002039.98] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ASUH - [#9002036] DATA16+15, DATA16+45
^ASUH("AX" AX+11
^ASUL(1 - [#9002039.01] DATA16+18
^ASUL(17 - [#9002039.17] DATA16+36
^ASUL(18 - [#9002039.18] DATA16+24
^ASUL(19 - [#9002039.19] DATA16+33
^ASUL(2 - [#9002039.02] DATA16+21
^ASUL(5 - [#9002039.05] DATA16+40
^ASUL(9 - [#9002039.09] DATA16+27, DATA16+29, DATA16+30
^ASUML - [#9002039.98] MONTH+12, DAYS+14, DAYS+15
^ASUML("B" DAYS+13
^DD("DD" HDR16+14

Label References

Name Line Occurrences
@( QUE+6
AX INDIV+15, DT+15
DAYS DT+17
INDIV SELXTRCT+11
LIST INDIV+26
MONTH SELXTRCT+12
OUT LIST+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HDR16+9~
%DT INDIV+13~, INDIV+16*
%DT("A" INDIV+16*
%ZIS QUE+3~, QUE+4*
>> ASU("DT" DT+18*
>> ASU("TC" TC16+9!, TC16+10*, TC16+11*, TC16+12*, TC16+13*, TC16+14*, TC16+15*, TC16+16*
ASU0 DAYS+11~, DAYS+13*, DAYS+14, DAYS+15
ASU1 MONTH+7~, DAYS+11~, DAYS+14*, DAYS+15, INDIV+13~, INDIV+15*, AX~, LIST+9~, LIST+12*, LIST+14
, DT+13~, DT+15*
ASU2 DAYS+11~, DAYS+15*, DAYS+16, INDIV+13~, AX+10~, AX+11*, AX+12, DATA16~, DATA16+15, DATA16+45
ASUCOL WRITE16+7~, WRITE16+11*, WRITE16+12*
ASUD DATA16+14!
ASUD("ACC" DATA16+26*, DATA16+27*, DATA16+28*, DATA16+29
ASUD("ACCNAM" DATA16+29*, DATA16+30*, DATA16+31*
ASUD("AREA" DATA16+17*, DATA16+18*, DATA16+19*
ASUD("CAN" DATA16+51*, DATA16+52*
ASUD("DOBJPTR" DATA16+43*
ASUD("IDXPTR" DATA16+44*
ASUD("OBJ" DATA16+53*, DATA16+54*
ASUD("SRC" DATA16+38*, DATA16+39, DATA16+40*, DATA16+41*, DATA16+42*
ASUD("SSA" DATA16+35*, DATA16+36*, DATA16+37*
ASUD("SST" DATA16+23*, DATA16+24*, DATA16+25*
ASUD("STA" DATA16+20*, DATA16+21*, DATA16+22*
ASUD("STATUS" DATA16+16*
ASUD("TRANS" DATA16+46*, DATA16+48
ASUD("USR" DATA16+32*, DATA16+33*, DATA16+34*
ASUD("VAL" DATA16+47*, DATA16+48*
ASUD("VOUCH" DATA16+49*, DATA16+50*
ASUDATA DATA16+13~, DATA16+15*, DATA16+16, DATA16+17, DATA16+20, DATA16+23, DATA16+26, DATA16+32, DATA16+35, DATA16+38
, DATA16+43, DATA16+44, DATA16+45*, DATA16+46, DATA16+47, DATA16+49, DATA16+51, DATA16+53
ASUDT HDR16~, HDR16+14, MONTH+8!, MONTH+12*, DAYS~, DAYS+12, DAYS+13, INDIV+14!, INDIV+20*, INDIV+21
, INDIV+22!, DT~, DT+16, DT+17, DT+18
ASUDT("DXTRACT" DAYS+16*, DT+16*
ASUDT("MXTRACT" DAYS+12*
ASUHDR HDR16~
ASUHDR(1 HDR16+13
ASUHDR(2 HDR16+16
ASUHDR(3 HDR16+17
ASUHDR(4 HDR16+18
ASUHDR(5 HDR16+19
ASUHDR(6 HDR16+20
ASUOUT HDR16~, HDR16+10*, INDIV+13~, INDIV+17*, INDIV+19*, INDIV+21*, LIST+9~, LIST+11*, LIST+12, LIST+13
, OUT~, OUT+10*
ASUPAGE HDR16~, HDR16+10, HDR16+11*, HDR16+15
ASUPC WRITE16+7~, WRITE16+8*, WRITE16+12*
ASUTYP HDR16~, HDR16+13, SELXTRCT+10*, SELXTRCT+11, SELXTRCT+12, DT~, DT+14, DT+17
ASUX INDIV+13~
ASUX( INDIV+21, AX+12*, LIST+12, LIST+14, DT+16
DIC MONTH+7~, MONTH+9*
DIC("A" MONTH+9*
DIC(0 MONTH+9*
DIR HDR16+9~, HDR16+10!, SELXTRCT+7~, INDIV+13~, OUT+8~
DIR("A" INDIV+24*
DIR("B" INDIV+24*
DIR(0 HDR16+10*, SELXTRCT+8*, INDIV+24*, OUT+10*
DX OUT+8~, OUT+12*
DY OUT+8~, OUT+12*
I WRITE16+7~, WRITE16+12*, TC16+8~, TC16+11*, TC16+13*, TC16+15*
IO QUE+3~
IO("Q" QUE+5!
IOF HDR16+12
IOM QUE+5
ION QUE+5
IOSL LIST+13, QUE+5
IOST HDR16+10, QUE+5
>> IOXY OUT+12
J WRITE16+7~, WRITE16+9*, WRITE16+10
POP QUE+3~, QUE+4
U WRITE16+12, MONTH+12, DAYS+15, DATA16+16, DATA16+17, DATA16+18, DATA16+20, DATA16+21, DATA16+23, DATA16+24
, DATA16+26, DATA16+27, DATA16+30, DATA16+32, DATA16+33, DATA16+35, DATA16+36, DATA16+38, DATA16+41, DATA16+43
, DATA16+44, DATA16+46, DATA16+47, DATA16+48, DATA16+49, DATA16+51, DATA16+53
X WRITE16~, WRITE16+12, HDR16+9~, SELXTRCT+7~, MONTH+7~, INDIV+13~
Y HDR16+9~, HDR16+10, HDR16+14*, SELXTRCT+7~, SELXTRCT+10, MONTH+7~, MONTH+11, MONTH+12, INDIV+13~, INDIV+19
, INDIV+20, INDIV+26, OUT+8~, OUT+10
ZTDESC QUE~
ZTIO QUE+3~, QUE+5*
ZTRTN QUE~, QUE+6
ZTSAVE QUE~
ZTSK QUE+3~, QUE+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All