Routine: ACHSDSTE

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
Contract Health Management Information System	4	($$DATE,$$EBB,ERPT)^ACHS (BRPT,READ)^ACHSFU FC^ACHSUF ^ACHSVAR
VA Fileman	2	COMMA^%DTC ^DIR
IHS VA Utilities	1	$$C^XBFUNC

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR

Contract Health Management Information System

($$DATE,$$EBB,ERPT)^ACHS (BRPT,READ)^ACHSFU FC^ACHSUF ^ACHSVAR

VA Fileman

COMMA^%DTC ^DIR

IHS VA Utilities

$$C^XBFUNC

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSDOCSTATUSREPEOBR

Package

Total

Caller Graph

Contract Health Management Information System

ACHSDOCSTATUSREPEOBR

Name	Comments	DBIA/ICR reference
A	; Main loop.
END	; Print totals, ask RTRN, write IOF.
HDR	; Print report header.
TITLE	;;DOCUMENT STATUS
FY	;
K	;
DEV	;
BDT	;
KILL	; Do ERPT, kill vars, quit.
EDT	;
PRINT	;EP - From TaskMan.
CHECK	;Check for Quit

External References

Name	Field # of Occurrence
COMMA^%DTC	A+24, END+3
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	DEV+6, K+2
^%ZTLOAD	DEV+9
$$DATE^ACHS	BDT+1, EDT+1
$$EBB^ACHS	EDT+3
ERPT^ACHS	KILL+2
BRPT^ACHSFU	PRINT+6
READ^ACHSFU	FY+1
FC^ACHSUF	PRINT+2
^ACHSVAR	ACHSDSTE+8
^DIR	CHECK+6
$$C^XBFUNC	PRINT+5, HDR+2
$$FMTE^XLFDT	PRINT+5
$$REPEAT^XLFSTR	END+1, HDR+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"Enter 4 DIGIT Fiscal Year" Line Location: FY+1
Function Call: WRITE	Prompt: !!!,"ONLY DOCUMENTS THAT HAVE HAD PAYMENTS WILL BE LISTED (P/IP/ZA)" Line Location: FY+4
Function Call: WRITE	Prompt: !! Line Location: FY+5
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79),! Line Location: END+1
Function Call: WRITE	Prompt: "TOTAL PAID DOCUMENTS:",$J(ACHSTOTP,11),?40,"TOTAL DOLLARS PAID: ",X,! Line Location: END+3
Function Call: WRITE	Prompt: @IOF Line Location: END+5
Function Call: WRITE	Prompt: @IOF,!!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,$$C^XBFUNC("* CONTRACT HEALTH MANAGEMENT SYSTEM *",80),!!,ACHSLOC,!?25,"DOCUMENT STATUS REPORT"_" - "_"FY-"_ACHSFY Line Location: HDR+2
Function Call: WRITE	Prompt: !,ACHSTIME,!,ACHST1,!,ACHST2,!!,"Patient Name",?25,"Provider of Service",?52,"Trans Date",?64,"Status",?73,"Amount",!,"Document Number",?25,"Type",?52,"EOBR Date" Line Location: HDR+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",79),! Line Location: HDR+4
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIR Line Location: CHECK+6
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	A+1, A+2, A+4, A+5, A+6, A+7, A+11, A+12
^AUTTVNDR - [#9999999.11]	A+8, A+9
^DPT - [#2]	A+13

Name	Line Occurrences
BDT	EDT+2
CHECK	A+29, END+4
DEV	DEV+6, DEV+10
EDT	EDT+3
FY	FY+1
HDR	PRINT+7, A+29
K	BDT+2, EDT+2, DEV+3
KILL	PRINT+3
PRINT	DEV+4
TITLE	BDT+1, EDT+1

Name	Field # of Occurrence
^(0	A+7, A+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV+1*
ACHS	DEV+8*, K+1!
ACHSBDT	BDT+1, BDT+2, EDT+3, K+1!, PRINT+5, PRINT+8, A+1*, A+2, A+4, A+11
ACHSBLNK	A+7*, A+14, KILL+3!
>> ACHSBM	A+29
ACHSCNX	PRINT+4*, KILL+3!
ACHSCNX("$"	PRINT+4*
ACHSDOC	A+10*, A+26, KILL+3!
ACHSDOC1	A+7*, A+10, KILL+3!
ACHSDOC2	A+7*, A+10, KILL+3!
ACHSDOS	KILL+3!
ACHSEDT	EDT+1*, EDT+2, EDT+3, K+1!, PRINT+5, A+1
ACHSEOBR	A+19*, A+26, KILL+3!
>> ACHSERR	PRINT+3
ACHSFC	A+10, KILL+1!
ACHSFY	FY+2*, K+1!, HDR+2
ACHSIO	TITLE+1*, K+1!
>> ACHSLOC	HDR+2
ACHSNAME	A+13, A+14, A+20, KILL+3!
ACHSOPEN	PRINT+4*, KILL+3!
ACHSOPEN("$"	PRINT+4*
>> ACHSPG	HDR+1*, HDR+2
ACHSPMTP	A+18*, KILL+3!
ACHSQIO	DEV+7*, K+1!
ACHSRPT	K+1!
ACHSSTS	KILL+3!
>> ACHST1	PRINT+5*, HDR+3
>> ACHST2	PRINT+5*, HDR+3
>> ACHSTIME	HDR+3
ACHSTOS	A+7*, A+26, KILL+3!
ACHSTOTP	PRINT+4, A+27, END+3, KILL+3!
ACHSTOTP("$"	PRINT+4, A+27, END+3
ACHSTXAM	A+17*, A+23, A+27, KILL+3!
ACHSTXDT	A+15*, A+20, KILL+3!
ACHSTXN	A+12*, A+13, A+15, A+16, A+17, A+18, A+19, KILL+3!
ACHSTXTP	A+16*, A+22, KILL+3!
ACHSTYPE	A+2*, A+3, A+4, A+11, KILL+3!
>> ACHSUSR	HDR+2
ACHSVNDR	A+9*, A+20, KILL+3!
ACHSVPTR	A+7*, A+8, A+9, KILL+3!
DA	A+4*, A+5, A+6, A+7, A+11, A+12, KILL+4!
DFN	A+13*, KILL+4!
DIR	CHECK+4!
DIR(0	CHECK+5*
>> DTOUT	BDT+2, EDT+2, FY+1, CHECK+7
>> DUOUT	BDT+2, EDT+2, FY+1, CHECK+7
DUZ(2	A+1, A+2, A+4, A+5, A+6, A+7, A+11, A+12
FY	FY+2*, K+1!, A+6, KILL+4!
IO	TITLE+1
IO("Q"	DEV+4, DEV+5!
IO("S"	DEV+6, CHECK+1
IOF	END+5, HDR+2
IOM	DEV+7
ION	DEV+7
IOSL	DEV+7
IOST	DEV+6, DEV+7
>> POP	DEV+3
QFLG	A+1, A+2, A+4, A+11, A+29, END+4, CHECK+3!, CHECK+7*
TXN	A+11*, A+12, KILL+4!
U	A+6, A+7, A+9, A+13, A+15, A+16, A+17, A+18, A+19
>> X	A+23, A+25, END+3
X2	TITLE+2!, END+2*, KILL+4!
X3	TITLE+2!, PRINT+8, END+2, KILL+4!
>> Y	FY+1, FY+2
>> ZTDESC	DEV+7*
ZTIO	DEV+7*, K+1!
>> ZTQUEUED	KILL+1, CHECK+2
>> ZTRTN	DEV+7*
>> ZTSAVE(	DEV+8*
ZTSK	DEV+10, K+1!, PRINT+3!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDSTE

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items