Routine: ACHSDSTR

Package	Total	Call Graph
Contract Health Management Information System	4	BM^ACHS ^ACHSDSTR1 (LINES,READ)^ACHSFU ^ACHSVAR
IHS VA Utilities	2	$$DIR^XBDIR $$C^XBFUNC
Kernel	2	^%ZIS ^%ZTLOAD
VA Fileman	1	^%DT

Package

Total

Call Graph

Contract Health Management Information System

BM^ACHS ^ACHSDSTR1 (LINES,READ)^ACHSFU ^ACHSVAR

IHS VA Utilities

$$DIR^XBDIR $$C^XBFUNC

Kernel

^%ZIS ^%ZTLOAD

VA Fileman

^%DT

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHSDOCSTATUSREPFY-FILE ACHSDOCSTATUSREPFYTOT

Package

Total

Caller Graph

Contract Health Management Information System

ACHSDOCSTATUSREPFY-FILE ACHSDOCSTATUSREPFYTOT

Name	Comments	DBIA/ICR reference
A	;
ENDQ	;
C	;
B	;
D	;
QUES	;
A3	;
A2	;
FILE	;CREATE A FILE
DEVICE	;

Name	Field # of Occurrence
^%DT	A2+1, A3+1
^%ZIS	DEVICE+1, DEVICE+6
^%ZTLOAD	DEVICE+4
BM^ACHS	A+4
^ACHSDSTR1	DEVICE+5, DEVICE+6
LINES^ACHSFU	A+4
READ^ACHSFU	A2+1, A3+1, B+1, C+1, D+1
^ACHSVAR	A+4
$$DIR^XBDIR	FILE+2
$$C^XBFUNC	A+1, A+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$C^XBFUNC("* DOCUMENT STATUS REPORT *",80) Line Location: A+1
Function Call: WRITE	Prompt: !!,$$C^XBFUNC("for "_$P(^DIC(4,DUZ(2),0),"^"),80) Line Location: A+2
Function Call: WRITE	Prompt: !!,"Enter the BEGINNING ISSUE DATE for this report: " Line Location: A2+1
Function Call: WRITE	Prompt: !!,*7,"Do not use future dates." Line Location: A2+1
Function Call: WRITE	Prompt: !!,"Enter the ENDING ISSUE DATE for this report: " Line Location: A3+1
Function Call: WRITE	Prompt: !!,*7,"Do not use future dates." Line Location: A3+1
Function Call: WRITE	Prompt: !!,*7,"INVALID ENTRY - The END is before the BEGINNING." Line Location: A3+2
Function Call: WRITE	Prompt: !!,"Which type of report?",!!," 1. OPEN DOCUMENTS only",!," 2. CLOSED DOCUMENTS only",!," 3. COMBINED list",!!," ENTER OPTION (1-3) 3//" Line Location: B+1
Function Call: WRITE	Prompt: !!,*7," Enter only a 1, 2, or 3" Line Location: B+3
Function Call: WRITE	Prompt: !!,"Choice 1 - only open documents will be listed.",!,"Choice 2 - only documents which have been paid or cancelled will be listed.",!,"Choice 3 - open and closed documents will be listed together." Line Location: QUES+1
Function Call: WRITE	Prompt: !!,"TYPE OF DATA ON REPORT: ",!!," 1. TOTALS ONLY",!," 2. DETAILED DOCUMENTS & TOTALS",!!," ENTER 1 or 2: 1//" Line Location: C+1
Function Call: WRITE	Prompt: *7," ??" Line Location: C+3
Function Call: WRITE	Prompt: !!,"Enter Fiscal Year (e.g. 2016): " Line Location: D+1
Function Call: WRITE	Prompt: *7," ??" Line Location: D+3
Function Call: WRITE	Prompt: !!,*7,"NO DATA ON FILE FOR FY!!" Line Location: D+4
Function Call: WRITE	Prompt: ! Line Location: DEVICE+1
Function Call: WRITE	Prompt: !,*7,"No device specified." Line Location: DEVICE+1
Function Call: WRITE	Prompt: *7,!,"Please queue to printers only." Line Location: DEVICE+2
Function Call: WRITE	Prompt: !,*7,"Device ",IO," busy." Line Location: DEVICE+7
Routine Call	%ZIS Line Location: DEVICE+1 DEVICE+6

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(9 - [#9002069]	D+4
^DIC(4 - [#4]	A+2

Name	Line Occurrences
A	B+2
A2	A2+1, A3+1, A3+2
A3	A3+1
B	A3+2, B+3, QUES+1, C+2
C	B+2, C+3, D+2
D	D+3, D+4, FILE+3
DEVICE	FILE+1, DEVICE+2, DEVICE+7
ENDQ	B+2, C+2, D+2, FILE+3, DEVICE+4
QUES	B+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	FILE+2*, FILE+4
>> %DT	A2+1, A3+1
%ZIS	DEVICE+1*!
%ZIS("B"	DEVICE+1!
>> ACHSFIL	FILE+1, FILE+4
ACHSIO	A+3*, ENDQ+1!
>> ACHSRTYP	FILE+1
BDATE	A2+1*, A3+2, DEVICE+3, ENDQ+1!
DFOUT	A2+1, A3+1, B+2, C+2, D+2, ENDQ+1!
DLOUT	A2+1, A3+1, B+1, C+1, D+2, ENDQ+1!
DQOUT	A2+1, A3+1, B+2, ENDQ+1!
DT	A2+1, A3+1
DTOUT	A2+1, A3+1, B+2, C+2, D+2, FILE+3, ENDQ+1!
DUOUT	A2+1, A3+1, B+2, C+2, D+2, FILE+3, ENDQ+1!
DUZ(2	A+2, D+4
EDATE	A3+1*, A3+2, DEVICE+3, ENDQ+1!
>> G	DEVICE+3*
IO	A+3, DEVICE+1, DEVICE+5, DEVICE+6, DEVICE+7
IO("Q"	DEVICE+2!, DEVICE+3!
IOP	DEVICE+1!, DEVICE+6
IOST	DEVICE+2
>> POP	DEVICE+6
>> TOTFY	D+5*
>> TOTFYN	D+5*
>> TOTONLY	C+2*, C+3
>> TYPE	B+2*, DEVICE+3
X	A2+1, A3+1, ENDQ+1!
Y	A2+1, A3+1, B+1, B+2, C+1, C+2, D+3, D+4, D+5, ENDQ+1!
>> ZTDESC	DEVICE+3*
>> ZTRTN	DEVICE+3*
>> ZTSAVE(	DEVICE+3*

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDSTR

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: