Routine: ACHSDSF

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
Contract Health Management Information System	4	($$FYSEL,$$PB,ERPT,RTRN)^ACHS (BRPT,READ)^ACHSFU FC^ACHSUF (,$$FY)^ACHSVAR
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

($$FYSEL,$$PB,ERPT,RTRN)^ACHS (BRPT,READ)^ACHSFU FC^ACHSUF (,$$FY)^ACHSVAR

IHS VA Utilities

$$C^XBFUNC VIEWR^XBLM EN^XBVK

VA Fileman

COMMA^%DTC

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSDOCSTATUSREPF

Package

Total

Caller Graph

Contract Health Management Information System

ACHSDOCSTATUSREPF

Entry Points

Name	Comments	DBIA/ICR reference
A	; Main loop. Check end date.
Q	;
C	;
B	; Get IEN.
END	; Print totals.
HDR	; Doc status rpt header.
P3	; End of transaction.
K	;
P2	;
DEV	;
FYSEL	; Select fiscal year for report.
P1	; Open doc amt.
KILL	; Do ERPT, kill vars, quit.
PRINT	;EP - From TaskMan.
TYPE	; Select type of report.

External References

Name	Field # of Occurrence
COMMA^%DTC	C+26, P1+1, END+3, END+4, END+5
^%ZIS	DEV+5
HOME^%ZIS	DEV+6
^%ZISC	DEV+9, K+3
^%ZTLOAD	DEV+12
$$FYSEL^ACHS	FYSEL+1
$$PB^ACHS	DEV+1
ERPT^ACHS	KILL+1
RTRN^ACHS	P3+2, END+7
BRPT^ACHSFU	PRINT+5
READ^ACHSFU	TYPE+2
FC^ACHSUF	PRINT+1
^ACHSVAR	K+1
$$FY^ACHSVAR	FYSEL+3
$$C^XBFUNC	PRINT+4, HDR+2
VIEWR^XBLM	DEV+3
EN^XBVK	DEV+3, K+1
$$FMTE^XLFDT	DEV+10, PRINT+4
$$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(ACHSDDT,4,7),$E(ACHSDDT,2,3) Line Location: C+20
Function Call: WRITE	Prompt: ?64 Line Location: C+22
Function Call: WRITE	Prompt: $S(ACHSSTS="P":"PAID",1:"CANCEL") Line Location: C+24
Function Call: WRITE	Prompt: ?80-$L(X),X Line Location: C+27
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: ?64,"P-CAN" Line Location: P2+2
Function Call: WRITE	Prompt: ?79-$L(X),X Line Location: P2+2
Function Call: WRITE	Prompt: !! Line Location: P3+1
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80),! 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: !,"NOTE: Partial Cancels are not included in count, but ARE included in $." Line Location: END+6
Function Call: WRITE	Prompt: @IOF Line Location: END+8
Function Call: WRITE	Prompt: @IOF,!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,$$C^XBFUNC("* CONTRACT HEALTH MANAGEMENT SYSTEM *",80),!,ACHSLOC,!,$$C^XBFUNC("DOCUMENT STATUS REPORT, FY "_ACHSFY,80) 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("=",80),! 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+4, C+8, C+12, C+13, C+15, C+16, C+17 , C+18
^AUTTVNDR - [#9999999.11]	C+5
^DPT - [#2]	C+9

Name	Line Occurrences
A	B+2, C+1
B	C+2, C+3, C+5, C+11, P3+3
DEV	TYPE+5, DEV+9, DEV+13
END	A+2
FYSEL	TYPE+4
HDR	PRINT+5, P3+2
K	FYSEL+2, TYPE+4, DEV+2, DEV+3, DEV+6
KILL	PRINT+2, P3+2
P1	C+23
P2	C+28
P3	P2+3, P2+4
PRINT	DEV+7
Q	TYPE+4
TYPE	TYPE+7, Q+2

Name	Field # of Occurrence
^("PA"	C+12
^("ZA"	C+13
^(0	C+1, C+4, C+5, C+9, C+17, C+18
^(11	C+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	FYSEL+3, DEV+1, DEV+2, DEV+3, DEV+11*
>> %ZIS	DEV+4*
>> ACHS	C+15*, C+16, C+17, C+18
>> ACHS("$"	C+4, C+12, C+13, C+17, C+25, P1+1, P2+3, P2+4, P2+5
>> ACHS("$PCAN"	C+4, C+18, P2+2, P2+6
>> ACHSBDT	FYSEL+3*, DEV+10, PRINT+4
ACHSBLNK	C+4*, C+10, KILL+2!
>> ACHSBM	P3+2
ACHSCNX	PRINT+3, P2+4, END+4, END+6, KILL+2!
ACHSCNX("$"	PRINT+3, P2+4, P2+6*, END+4
ACHSDDT	C+4*, C+20, KILL+2!
ACHSDIEN	A+3, B+1, B+2, C+1, C+4, C+8, C+12, C+13, C+15, C+16 , C+17, C+18, KILL+2!
ACHSDNU	PRINT+6, A+1, A+2, B+1, KILL+2!
ACHSDOC	C+6*, P2+1, KILL+2!
ACHSDOC1	C+4*, C+6, KILL+2!
ACHSDOC2	C+4*, C+6, KILL+2!
ACHSDOS	C+16*, C+21, KILL+2!
>> ACHSEDT	FYSEL+3, FYSEL+4, DEV+10, PRINT+4
ACHSEIN	C+5*, P2+1, KILL+2!
>> ACHSERR	PRINT+2
>> ACHSFC	C+6
ACHSFY	FYSEL+1*, FYSEL+3, PRINT+6, A+2, KILL+2!, HDR+2
>> ACHSIO	ACHSDSF+3*
>> ACHSLOC	HDR+2
ACHSNAME	C+7!, C+9, C+10, C+11, C+20, KILL+2!
ACHSOPEN	PRINT+3, P2+5, END+5, KILL+2!
ACHSOPEN("$"	PRINT+3, P2+5, END+5
>> ACHSPG	HDR+1*, HDR+2
>> ACHSRPT	TYPE+5*, DEV+10, PRINT+4, C+2, C+3
ACHSSTS	C+1*, C+2, C+3, C+23, C+24, P2+3, P2+4, KILL+2!
>> ACHST1	PRINT+4*, HDR+4
>> ACHST2	PRINT+4*, HDR+4
>> ACHSTIME	HDR+4
ACHSTOS	C+4*, P2+1, KILL+2!
ACHSTOTP	PRINT+3, P2+3, END+3, KILL+2!
ACHSTOTP("$"	PRINT+3, P2+3, END+3
ACHSTYPE	KILL+2!
>> ACHSUSR	HDR+2
ACHSVNDR	C+5*, C+20, KILL+2!
ACHSVPTR	C+4*, C+5, KILL+2!
DFN	C+8*, C+9, KILL+2!
DT	FYSEL+4
>> DTOUT	FYSEL+2, TYPE+4, DEV+2, P3+2
>> DUOUT	FYSEL+2, TYPE+4, DEV+2, P3+2
DUZ(2	A+1, B+1, C+1, C+4, C+8, C+12, C+13, C+15, C+16, C+17 , C+18
IO	ACHSDSF+3
IO("Q"	DEV+7, DEV+8!
IO("S"	DEV+9
IOF	END+8, HDR+2
IOM	DEV+10
ION	DEV+10
IOSL	DEV+10
IOST	DEV+9, DEV+10
>> POP	DEV+6
U	FYSEL+3, DEV+2, C+1, C+4, C+5, C+8, C+9, C+16, C+17, C+18
>> X	C+25, C+27, P1+1, P2+2, END+3, END+4, END+5
X2	END+2*, KILL+2!
X3	PRINT+6, END+2, KILL+2!
>> Y	TYPE+3*, TYPE+4, TYPE+5
>> ZTDESC	DEV+10*
ZTIO	DEV+10*, K+2!
>> ZTQUEUED	HDR+3
>> ZTRTN	DEV+10*
>> ZTSAVE(	DEV+11*
ZTSK	DEV+13, K+2!, PRINT+2!, HDR+3

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDSF

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: