Routine: ACHSVDC

Call Graph

Call Graph Total: 14

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

Package

Total

Call Graph

Kernel

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

IHS VA Utilities

$$DIR^XBDIR $$C^XBFUNC VIEWR^XBLM EN^XBVK

Contract Health Management Information System

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

VA Fileman

^DIC ^DIR

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSVDOCS

Package

Total

Caller Graph

Contract Health Management Information System

ACHSVDOCS

Entry Points

Name	Comments	DBIA/ICR reference
A	;
SORT	;SORT BY PATIENT OR PO
B	;
P6	;
D	;
P5	;
DOC2	;ACHS3.111 9.8.04 IHS/ITSC/FCJ END OF CHANGES
DOC	;
K	;
DOC1
DEV	;
BDT	;
RPT5	;
KILL	;
EDT	;
B3	;
PRINT	;EP - TaskMan.
END	;
HDR	;

External References

Name	Field # of Occurrence
^%ZIS	DEV+7
HOME^%ZIS	DEV+8
^%ZISC	DEV+11, K+3
^%ZTLOAD	DEV+14
$$DATE^ACHS	BDT+1, EDT+1
$$EBB^ACHS	EDT+4
$$PB^ACHS	DEV+3
ERPT^ACHS	KILL+3
FMT^ACHS	RPT5+5, P5+4, END+2, END+3, END+4
RTRN^ACHS	P6+2, P6+3, END+5
BRPT^ACHSFU	PRINT+8
READ^ACHSFU	B+5, D+8
FC^ACHSUF	PRINT+2
^DIC	A+4
^DIR	SORT+3
$$DIR^XBDIR	A+8
$$C^XBFUNC	PRINT+5, PRINT+6, PRINT+7, HDR+2
VIEWR^XBLM	DEV+5
EN^XBVK	DEV+5
$$FMTE^XLFDT	DEV+12, PRINT+7, DOC2+6
$$REPEAT^XLFSTR	P6+1, HDR+2, HDR+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!,"This vendor has no CHS documents on file.",! Line Location: A+8
Function Call: WRITE	Prompt: "" Condition for execution: $$DIR^XBDIR("E","Press <RETURN> To Continue....") Line Location: A+8
Function Call: WRITE	Prompt: !!,"TYPE of service:" Line Location: B+1
Function Call: WRITE	Prompt: ?20,$P(ACHS(ACHS),":")," ",$P(ACHS(ACHS),":",2),! Line Location: B+3
Function Call: WRITE	Prompt: !,"Select TYPE of service (1 - ",ACHS-1," 'A' = 'ALL') ALL // " Line Location: B+4
Function Call: WRITE	Prompt: !!,"Enter an 'A' to view documents for all types of service,",!,"otherwise, enter a number from 1 to ",ACHS-1,".",! Line Location: B+10
Function Call: WRITE	Prompt: !!,"Type of Report:" Line Location: D+1
Function Call: WRITE	Prompt: !!,"1 list only PAID documents" Line Location: D+2
Function Call: WRITE	Prompt: !,"2 list only OPEN documents" Line Location: D+3
Function Call: WRITE	Prompt: !,"3 list only CANCELLED documents" Line Location: D+4
Function Call: WRITE	Prompt: !,"4 list ALL documents" Line Location: D+5
Function Call: WRITE	Prompt: !,"5 print TOTALS ONLY (no specific documents)",!! Line Location: D+6
Function Call: WRITE	Prompt: "list ALL documents// " Line Location: D+7
Function Call: WRITE	Prompt: !!,*7,"Enter only '1' through '5'." Line Location: D+12
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+11
Function Call: WRITE	Prompt: !!,"NO DOCUMENT ZERO NODE FOR X-REF VB FOR FACILITY: "_DUZ(2)_" DOCUMENT IEN: "_ACHSDOC Line Location: DOC+6
Function Call: WRITE	Prompt: !,"DOC. #: ",$P(ACHSDOC0,U,14),"-",ACHSFC,"-",$P(ACHSDOC0,U)," (" Line Location: DOC2+2
Function Call: WRITE	Prompt: $$FMTE^XLFDT(Y),")",?45,"SERVICE: ",$P($P(ACHSTOS,";",$P(ACHSDOC0,U,4)),":",2) Line Location: DOC2+6
Function Call: WRITE	Prompt: !?2 Line Location: DOC2+7
Function Call: WRITE	Prompt: $P(^DPT(DFN,0),U) Line Location: DOC2+9
Function Call: WRITE	Prompt: $S($P(ACHSDOC0,U,3)=1:"* BLANKET",$P(ACHSDOC0,U,3)=2:"* SPECIAL TRANS",1:"") Line Location: DOC2+10
Function Call: WRITE	Prompt: "(PAID: " Line Location: RPT5+5
Function Call: WRITE	Prompt: ")" Line Location: RPT5+5
Function Call: WRITE	Prompt: "(",$P($P(ACHSSTS,";",$P(ACHSDOC0,U,12)+1),":",2),": " Line Location: P5+1
Function Call: WRITE	Prompt: ")" Line Location: P5+4
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: P6+1
Function Call: WRITE	Prompt: !,"Total documents: ",ACHSPD+ACHSCNX+ACHSOPEN,!! Line Location: END+1
Function Call: WRITE	Prompt: "TOTAL PAID DOCUMENTS:",$J(ACHSPD,12),?40,"TOTAL DOLLARS PAID: " Line Location: END+2
Function Call: WRITE	Prompt: ! Line Location: END+2
Function Call: WRITE	Prompt: "TOTAL CANCELLED DOCUMENTS:",$J(ACHSCNX,7),?40,"TOTAL DOLLARS CANCELLED:" Line Location: END+3
Function Call: WRITE	Prompt: ! Line Location: END+3
Function Call: WRITE	Prompt: "TOTAL OPEN DOCUMENTS:",$J(ACHSOPEN,12),?40,"TOTAL DOLLARS OPEN: " Line Location: END+4
Function Call: WRITE	Prompt: ! Line Location: END+4
Function Call: WRITE	Prompt: @IOF Line Location: END+6
Function Call: WRITE	Prompt: @IOF,!,$$REPEAT^XLFSTR("*",79),!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,$$C^XBFUNC("PROVIDER-SPECIFIC CHS ACTIVITIES SUMMARY",80),!,ACHST1,!,ACHST2 Line Location: HDR+2
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("*",79) Line Location: HDR+4
Routine Call	%ZIS Line Location: DEV+8
Routine Call	DIC Line Location: A+4
Routine Call	DIR Line Location: SORT+3
Routine Call	%ZIS Line Location: DEV+7

FileNo	Call Tags
^AUTTVNDR - [#9999999.11]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	A+8, DOC+1, DOC+5, DOC+12, DOC2+1, DOC2+4, DOC2+8, RPT5+2, RPT5+4, P5+2 , P5+3
^AUTTVNDR - [#9999999.11]	PRINT+1, PRINT+6
^DD(9002080.01	B+2, PRINT+9
^DPT - [#2]	DOC+12, DOC2+9
^TMP($J	DOC+13, DOC+14, DOC1+1, DOC1+2, DOC1+4, KILL+2!

Label References

Name	Line Occurrences
A	A+8
B	B+10, D+10
B3	B+9
BDT	EDT+3, B+7
D	D+12
DEV	SORT+1, DEV+11, DEV+15
DOC	DOC+7, DOC+8, DOC+15, P6+5
DOC1	DOC+4
DOC2	DOC1+1, DOC1+4
EDT	EDT+4
END	DOC+3, DOC1+6
HDR	PRINT+8, P6+2, P6+3
K	A+5, BDT+2, EDT+2, B+6, D+9, SORT+4, DEV+4, DEV+5, DEV+8, DOC1+5
KILL	K+2, PRINT+3, DOC+6, P6+2, P6+3, P6+4
P5	RPT5+2
P6	RPT5+7, P5+5
PRINT	DEV+9
RPT5	DOC+9

Name	Field # of Occurrence
^(	P5+3
^("ZA"	P5+2
^(3	DOC2+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEV+3*, DEV+4, DEV+5
>> %ZIS	DEV+6*
A	K+1!, KILL+1!
A(1	P5+3*
ACHS	B+3, B+4, B+10, DEV+13, K+1!, P5+3*
ACHS(	B+3*
ACHS("$"	RPT5+4, RPT5+5, RPT5+6, P5+2, P5+3*, P5+4, P5+5, P5+6
ACHS("A"	B+2*, B+3
ACHSBDT	BDT+1*, BDT+2, EDT+4, DEV+12, K+1!, PRINT+7, DOC+7
>> ACHSBM	P6+2, P6+3
ACHSCNX	PRINT+4, P5+5, END+1, END+3, KILL+1!
ACHSCNX("$"	PRINT+4, P5+5, END+3
ACHSDOC	PRINT+4, DOC+1, DOC+3, DOC+4, DOC+5, DOC+6, DOC+12, DOC+13, DOC+14, DOC1* , DOC1+1, DOC1+3, DOC1+4*, DOC2+1, DOC2+4, DOC2+8, RPT5+2, RPT5+4, P5+2, P5+3 , KILL+1!
ACHSDOC0	DOC+5, DOC+6, DOC+7, DOC+8, DOC+11, DOC2+1, DOC2+2, DOC2+5, DOC2+6, DOC2+10 , P5+1, P5+2, P5+3, P5+5, P5+6, KILL+1!
ACHSEDT	EDT+1*, EDT+2, EDT+4, DEV+12, K+1!, PRINT+7, DOC+7
>> ACHSERR	PRINT+3
>> ACHSFC	DOC2+2
ACHSIO	A+7*, K+1!
ACHSOPEN	PRINT+4, P5+6, END+1, END+4, KILL+1!
ACHSOPEN("$"	PRINT+4, P5+6, END+4
ACHSPAT	DOC1, DOC1+2, DOC1+4, KILL+2!
ACHSPD	PRINT+4, RPT5+6, END+1, END+2, KILL+1!
ACHSPD("$"	PRINT+4, RPT5+6, END+2
>> ACHSPG	HDR+1*, HDR+2
ACHSQUIT	B+6, D+9, DOC1+1, DOC1+2, DOC1+4, DOC1+5, P6+2, P6+4, KILL+2!
ACHSRPT	D+13*, SORT+1, K+1!, PRINT+5, PRINT+9, DOC+3, DOC+8, DOC+9, RPT5+1, RPT5+5 , P5+1, P5+4, P6+1, P6+2, P6+3, P6+5
ACHSSRT	DEV+1*, DOC1+1, DOC1+2, KILL+2!
ACHSSTS	PRINT+9*, P5+1, KILL+1!
>> ACHST1	PRINT+6*, HDR+2
>> ACHST2	PRINT+7*, HDR+2
>> ACHST3	PRINT+5*, HDR+3
ACHSTOS	PRINT+9*, DOC2+6, KILL+1!
>> ACHSTYP	DOC+11*, DOC+12
ACHSTYPE	B3+1!, B3+2, B3+3, K+1!, DOC+7, KILL+1!
>> ACHSUSR	HDR+2
ACHSVDOR	A+7*, A+8, DEV+12, K+1!, PRINT+1, PRINT+6, DOC+1, KILL+1!
>> C	DOC+8*
>> DFN	DOC2+8*, DOC2+9
DIC	A+1*, A+4!
DIC("A"	A+3*
DIC(0	A+2*
DIR	SORT+3!
DIR("A"	SORT+2*
DIR("B"	SORT+2*
DIR(0	SORT+2*
DTOUT	BDT+2, EDT+2, SORT+4, DEV+4, K+1!, P6+2, P6+3
DUOUT	BDT+2, EDT+3, B+7, D+10, SORT+4, DEV+4, K+1!, P6+2, P6+3
DUZ(2	A+8, DOC+1, DOC+5, DOC+6, DOC+12, DOC2+1, DOC2+4, DOC2+8, RPT5+2, RPT5+4 , P5+2, P5+3
IO	A+7
IO("Q"	DEV+9, DEV+10!
IO("S"	DEV+11
IOF	END+6, HDR+2
IOST	DEV+11, P6+2, P6+3
>> POP	DEV+8
U	B+2, DEV+4, PRINT+6, PRINT+9, DOC+7, DOC+8, DOC+11, DOC+12, DOC2+2, DOC2+4 , DOC2+5, DOC2+6, DOC2+8, DOC2+9, DOC2+10, P5+1, P5+2, P5+3, P5+5, P5+6
>> X	DOC+12, DOC+13, DOC+14, RPT5+5, P5+4, END+2, END+3, END+4
>> X2	RPT5+5, P5+4, END+2, END+3
>> X3	END+2, END+3, END+4*
Y	A+5, A+7, B+8, B+9, B+10, B3+2, B3+3, D+11, D+12, D+13 , DEV+1, DOC2+3!, DOC2+4, DOC2+5, DOC2+6
>> ZTDESC	DEV+12*
>> ZTRTN	DEV+12*
>> ZTSAVE(	DEV+13*
ZTSK	DEV+15, K+1!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSVDC

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: