Routine: ACHSVDF

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	($$PB,ERPT,FMT,RTRN)^ACHS (BRPT,READ,SB1)^ACHSFU FC^ACHSUF
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSVNDRUSAGEFY

Entry Points

Name	Comments	DBIA/ICR reference
A	;
SORT	;SORT BY PATIENT OR PO
B	;
P6	;
D	;
P5	;
DOC2	;
DOC	;
DOC1	;
EXIT	;
DEV	;
RPT5	;
KILL	;
SELFY	; ----- Display FYs, ask FY.
B3	;
PRINT	;EP - TaskMan.
END	;
HDR	;

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: A+1
Function Call: WRITE	Prompt: *7,!!,"This vendor has no CHS documents on file.",! Line Location: A+9
Function Call: WRITE	Prompt: "" Condition for execution: $$DIR^XBDIR("E","Press <RETURN> To Continue....") Line Location: A+9
Function Call: WRITE	Prompt: !,"FY DOES NOT EXIST." Line Location: SELFY+6
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 type 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+9
Function Call: WRITE	Prompt: !!,"NO DOCUMENT ZERO NODE FOR X-REF VB FOR FACILITY: "_DUZ(2)_" DOCUMENT IEN: "_ACHSDOC Line Location: DOC+5
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) Line Location: HDR+2
Function Call: WRITE	Prompt: !,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,$$C^XBFUNC("PROVIDER-SPECIFIC CHS ACTIVITIES SUMMARY",80),!,ACHST1,!,ACHST2 Line Location: HDR+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("*",79) Line Location: HDR+5
Routine Call	%ZIS Line Location: DEV+6
Routine Call	DIC Line Location: A+5
Routine Call	DIR Line Location: SORT+3
Routine Call	%ZIS Line Location: DEV+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	A+9, DOC+1, DOC+4, DOC+11, 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+11, DOC2+9
^TMP("ACHSVDF"	DOC+12, DOC+13, DOC1+2, DOC1+3, DOC1+5, EXIT+1!

Label References

Name	Line Occurrences
A	A+9
B	B+10, D+9
B3	B+9
D	D+12
DEV	SORT+1, DEV+9, DEV+13
DOC	DOC+6, DOC+7, DOC+8, DOC+14, P6+3
DOC1	DOC+3
DOC2	DOC1+2, DOC1+5
END	DOC+2, DOC1+7
EXIT	A+6, B+7, D+10, SORT+4, DEV+2, DEV+3, DEV+6, DEV+14, DOC1+6
HDR	PRINT+8, P6+2
KILL	PRINT+3, DOC+5
P5	RPT5+2
P6	RPT5+7, P5+5
PRINT	DEV+7
RPT5	DOC+9
SELFY	SELFY+6, B+6

Naked Globals

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
>> %	SELFY+3, DEV+1, DEV+2, DEV+3
>> %ZIS	DEV+4*
A	KILL+1!, EXIT+1!
A(1	P5+3*
ACHS	B+3, B+4, B+10, DEV+11, P5+3*, EXIT+1!
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	EXIT+1!
>> ACHSBM	P6+2
ACHSCNX	PRINT+4, P5+5, END+1, END+3, KILL+1!
ACHSCNX("$"	PRINT+4, P5+5, END+3
ACHSDOC	PRINT+4, DOC+1, DOC+2, DOC+3, DOC+4, DOC+5, DOC+11, DOC+12, DOC+13, DOC1+1* , DOC1+2, DOC1+4, DOC1+5*, DOC2+1, DOC2+4, DOC2+8, RPT5+2, RPT5+4, P5+2, P5+3 , KILL+1!
ACHSDOC0	DOC+4, DOC+5, DOC+6, DOC+7, DOC+8, DOC+10, DOC2+1, DOC2+2, DOC2+5, DOC2+6 , DOC2+10, P5+1, P5+2, P5+3, P5+5, P5+6, KILL+1!
ACHSEDT	EXIT+1!
>> ACHSERR	PRINT+3
>> ACHSFC	DOC2+2
>> ACHSFYWK(	SELFY+3, SELFY+6
ACHSIO	A+8*, EXIT+1!
ACHSMAX	SELFY+3*, SELFY+4, EXIT+2!
ACHSMIN	SELFY+3*, SELFY+4, EXIT+2!
ACHSOPEN	PRINT+4, P5+6, END+1, END+4, KILL+1!
ACHSOPEN("$"	PRINT+4, P5+6, END+4
ACHSPAT	DOC1+1, DOC1+3, DOC1+5, KILL+2!
ACHSPD	PRINT+4, RPT5+6, END+1, END+2, KILL+1!
ACHSPD("$"	PRINT+4, RPT5+6, END+2
>> ACHSPG	HDR+1*, HDR+3
ACHSQUIT	B+7, D+10, DOC1+2, DOC1+3, DOC1+5, DOC1+6, P6+2, KILL+2!
ACHSRPT	D+13*, SORT+1, PRINT+5, PRINT+9, DOC+2, DOC+8, DOC+9, RPT5+1, RPT5+5, P5+1 , P5+4, P6+1, P6+2, P6+3, EXIT+1!
ACHSSFY	SELFY+4*, SELFY+6, DEV+10, PRINT+7, DOC+6, EXIT+1!
ACHSSRT	SORT+5*, DOC1+2, DOC1+3, KILL+2!
ACHSSTS	PRINT+9*, P5+1, KILL+1!
>> ACHST1	PRINT+6*, HDR+3
>> ACHST2	PRINT+7*, HDR+3
>> ACHST3	PRINT+5*, HDR+4
ACHSTOS	PRINT+9*, DOC2+6, KILL+1!
ACHSTYP	DOC+10*, DOC+11, EXIT+2!
ACHSTYPE	B3+1!, B3+2, B3+3, DOC+7, KILL+1!, EXIT+1!
>> ACHSUSR	HDR+3
ACHSVDOR	A+8*, A+9, DEV+10, PRINT+1, PRINT+6, DOC+1, KILL+1!, EXIT+1!
>> C	DOC+8*
DFN	DOC2+8*, DOC2+9, EXIT+2!
DIC	A+2*, A+5!
DIC("A"	A+4*
DIC(0	A+3*
DIR	SORT+3!
DIR("A"	SORT+2*
DIR("B"	SORT+2*
DIR(0	SORT+2*
DTOUT	SELFY+5, SORT+4, DEV+2, EXIT+1!
DUOUT	SELFY+5, B+6, D+9, SORT+4, DEV+2, EXIT+1!
DUZ(2	A+9, SELFY+3, SELFY+6, DOC+1, DOC+4, DOC+5, DOC+11, DOC2+1, DOC2+4, DOC2+8 , RPT5+2, RPT5+4, P5+2, P5+3
IO	A+8
IO("Q"	DEV+7, DEV+8!
IO("S"	DEV+9
IOF	END+6, HDR+2
IOST	DEV+9, P6+2
>> POP	DEV+6
U	B+2, DEV+2, PRINT+6, PRINT+9, DOC+6, DOC+7, DOC+8, DOC+10, DOC+11, 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+11, DOC+12, DOC+13, 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+6, A+8, B+8, B+9, B+10, B3+2, B3+3, D+11, D+12, D+13 , SORT+5, DOC2+3!, DOC2+4, DOC2+5, DOC2+6
>> ZTDESC	DEV+10*
>> ZTRTN	DEV+10*
>> ZTSAVE(	DEV+11*
ZTSK	DEV+13, EXIT+1!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSVDF

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: