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

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

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

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

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

Customize PDF page

Package: Supply

Routine: ASUUTIL

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: