Routine: ACHSDST

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
Contract Health Management Information System	3	($$DATE,$$EBB,$$PB,ERPT,RTRN)^ACHS (BRPT,READ)^ACHSFU FC^ACHSUF
IHS VA Utilities	3	$$C^XBFUNC VIEWR^XBLM EN^XBVK
VA Fileman	1	COMMA^%DTC

Package

Total

Call Graph

Kernel

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

Contract Health Management Information System

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

IHS VA Utilities

$$C^XBFUNC VIEWR^XBLM EN^XBVK

VA Fileman

COMMA^%DTC

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSDOCSTATUSREP

Package

Total

Caller Graph

Contract Health Management Information System

ACHSDOCSTATUSREP

Entry Points

Name	Comments	DBIA/ICR reference
A	; Main loop.
P2	;
C	;
B	;
E	;
D	;
TITLE	;;DOCUMENT STATUS
K	;
DEV	;
Q	;
BDT	;
P1	;
KILL	; Do ERPT, kill vars, quit.
EDT	;
PRINT	;EP - From TaskMan.
END	; Print totals, ask RTRN, write IOF.
P3	; Ask RTRN if EOP, do header, go main loop.
TYPE	;
HDR	; Print report header.

External References

Name	Field # of Occurrence
COMMA^%DTC	E+10, P1+1, END+3, END+4, END+5
^%ZIS	DEV+5
HOME^%ZIS	DEV+6
^%ZISC	DEV+9, K+2
^%ZTLOAD	DEV+12
$$DATE^ACHS	BDT+1, EDT+1
$$EBB^ACHS	EDT+3
$$PB^ACHS	DEV+1
ERPT^ACHS	KILL+2
RTRN^ACHS	P3+2, END+6
BRPT^ACHSFU	PRINT+6
READ^ACHSFU	TYPE+2
FC^ACHSUF	PRINT+2
$$C^XBFUNC	PRINT+5, HDR+2
VIEWR^XBLM	DEV+3
EN^XBVK	DEV+3
$$FMTE^XLFDT	DEV+10, PRINT+5
$$REPEAT^XLFSTR	END+1, HDR+4

Interaction Calls

Name	Line Occurrences
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: TYPE+1
Function Call: WRITE	Prompt: !!,*7," Enter only a 1, 2, or 3" Line Location: TYPE+6
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: Q+1
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+9
Function Call: WRITE	Prompt: $E(ACHSNAME,1,24),?25,$E(ACHSVNDR,1,26),?52,$E(ACHSBDT,4,7),$E(ACHSBDT,2,3) Line Location: E+4
Function Call: WRITE	Prompt: ?64 Line Location: E+6
Function Call: WRITE	Prompt: $S(ACHSSTS="P":"PAID",1:"CANCEL") Line Location: E+8
Function Call: WRITE	Prompt: ?80-$L(X),X Line Location: E+11
Function Call: WRITE	Prompt: ?80-$L(X),X Line Location: P1+1
Function Call: WRITE	Prompt: !,ACHSDOC,?25,ACHSEIN,?52,$S(ACHSTOS=1:"HOSPITAL",ACHSTOS=2:"DENTAL",ACHSTOS=3:"OUTPATIENT",1:"") Line Location: P2+1
Function Call: WRITE	Prompt: !! Line Location: P3+1
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: "TOTAL CANCELLED DOCUMENTS:",$J(ACHSCNX,6),?40,"TOTAL DOLLARS CANCELLED: ",X,! Line Location: END+4
Function Call: WRITE	Prompt: "TOTAL OPEN DOCUMENTS:",$J(ACHSOPEN,11),?40,"TOTAL DOLLARS OPEN: ",X Line Location: END+5
Function Call: WRITE	Prompt: @IOF Line Location: END+7
Function Call: WRITE	Prompt: @IOF,!!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,$$C^XBFUNC("* CONTRACT HEALTH MANAGEMENT SYSTEM *",80),!!,ACHSLOC,!?29,"DOCUMENT STATUS REPORT" Line Location: HDR+2
Function Call: WRITE	Prompt: ?77-$L(ZTSK),"(",ZTSK,")" Line Location: HDR+3
Function Call: WRITE	Prompt: !,ACHSTIME,!,ACHST1,!,ACHST2,!!,"Patient Name",?25,"Provider of Service",?52,"Issue /DOS",!,"Document number",?25,"EIN Number",?52,"Type",?64,"Status",?73,"Amount",!,$$REPEAT^XLFSTR("=",79),! Line Location: HDR+4
Routine Call	%ZIS Line Location: DEV+6
Routine Call	%ZIS Line Location: DEV+5

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	A+1, B+1, C+1, C+2, C+5, C+9, C+10, D+2, D+3, E+1 , E+3
^AUTTVNDR - [#9999999.11]	C+6
^DPT - [#2]	C+10

Label References

Name	Line Occurrences
A	B+2, C+2, C+6
B	B+2
BDT	EDT+2, TYPE+4
C	C+3, C+4, D+1, P3+3
DEV	TYPE+5, DEV+9, DEV+13
EDT	EDT+3
END	A+2
HDR	PRINT+7, P3+2
K	BDT+2, EDT+2, TYPE+4, DEV+2, DEV+3, DEV+6
KILL	PRINT+3, P3+2
P1	E+7
P2	E+12
P3	P2+2, P2+3
PRINT	DEV+7
Q	TYPE+4
TITLE	BDT+1, EDT+1, DEV+10
TYPE	TYPE+7, Q+2

Name	Field # of Occurrence
^(	E+1
^("PA"	D+2
^("ZA"	D+3
^(0	C+2, C+5, C+6, C+10
^(11	C+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEV+1*, DEV+2, DEV+3
>> %ZIS	DEV+4*
ACHS	DEV+11, K+1!, C+9, C+10, E+1*
ACHS("$"	C+5, D+2, D+3, E+1, E+9, P1+1, P2+2, P2+3, P2+4
ACHSBDT	BDT+1, BDT+2, EDT+3, DEV+10, K+1!, PRINT+5, PRINT+8, A+1*, A+2, B+1 , C+1, C+9, E+3, E+4
ACHSBLNK	C+5*, C+11, KILL+3!
>> ACHSBM	P3+2
ACHSCNX	PRINT+4, P2+3, END+4, KILL+3!
ACHSCNX("$"	PRINT+4, P2+3, END+4
ACHSDOC	C+7*, P2+1, KILL+3!
ACHSDOC1	C+5*, C+7, KILL+3!
ACHSDOC2	C+5*, C+7, KILL+3!
ACHSDOS	E+2, E+3, E+5, KILL+3!
ACHSEDT	EDT+1*, EDT+2, EDT+3, DEV+10, K+1!, PRINT+5, A+2
ACHSEIN	C+6*, P2+1, KILL+3!
>> ACHSERR	PRINT+3
ACHSFC	C+7, KILL+1!
ACHSIO	TITLE+1*, K+1!
>> ACHSLOC	HDR+2
ACHSNAME	C+8!, C+10, C+11, D+1, E+4, KILL+3!
ACHSOPEN	PRINT+4, P2+4, END+5, KILL+3!
ACHSOPEN("$"	PRINT+4, P2+4, END+5
>> ACHSPG	HDR+1*, HDR+2
ACHSQIO	DEV+10*, K+1!
ACHSRPT	TYPE+5*, DEV+10, K+1!, PRINT+5, C+3, C+4
ACHSSTS	C+2*, C+3, C+4, E+1, E+7, E+8, P2+2, P2+3, KILL+3!
>> ACHST1	PRINT+5*, HDR+4
>> ACHST2	PRINT+5*, HDR+4
>> ACHSTIME	HDR+4
ACHSTOS	C+5*, P2+1, KILL+3!
ACHSTOTP	PRINT+4, P2+2, END+3, KILL+3!
ACHSTOTP("$"	PRINT+4, P2+2, END+3
ACHSTYPE	A+3, B+1, B+2, C+1, C+9, KILL+3!
>> ACHSUSR	HDR+2
ACHSVNDR	C+6*, E+4, KILL+3!
ACHSVPTR	C+5*, C+6, KILL+3!
DA	B+3, C+1, C+2, C+5, C+9, C+10, D+2, D+3, E+1, E+3 , KILL+4!
DFN	C+10*, KILL+4!
>> DTOUT	BDT+2, EDT+2, TYPE+4, DEV+2, P3+2
>> DUOUT	BDT+2, EDT+2, TYPE+4, DEV+2, P3+2
DUZ(2	A+1, B+1, C+1, C+2, C+5, C+9, C+10, D+2, D+3, E+1 , E+3
IO	TITLE+1
IO("Q"	DEV+7, DEV+8!
IO("S"	DEV+9
IOF	END+7, HDR+2
IOM	DEV+10
ION	DEV+10
IOSL	DEV+10
IOST	DEV+9, DEV+10
>> POP	DEV+6
U	DEV+2, C+2, C+5, C+6, C+10, E+1, E+3
>> X	E+9, E+11, P1+1, END+3, END+4, END+5*
X2	TITLE+2!, END+2*, KILL+4!
X3	TITLE+2!, PRINT+8, END+2, KILL+4!
>> Y	TYPE+3*, TYPE+4, TYPE+5
>> ZTDESC	DEV+10*
ZTIO	DEV+10*, K+1!
>> ZTQUEUED	KILL+1, HDR+3
>> ZTRTN	DEV+10*
>> ZTSAVE(	DEV+11*
ZTSK	DEV+13, K+1!, PRINT+3!, HDR+3

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDST

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