Routine: ACHS3PPP

Package	Total	Call Graph
Contract Health Management Information System	4	$$LOC^ACHS ^ACHS3PPQ ^ACHS3PPT BRPT^ACHSFU
Kernel	3	^%ZISC $$HTE^XLFDT $$REPEAT^XLFSTR
IHS VA Utilities	1	$$DIR^XBDIR
VA Fileman	1	COMMA^%DTC

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHS3PPC

Entry Points

Name	Comments	DBIA/ICR reference
P2	;
NODATA	;
P1	;
END	;Close device, kill variables, quit
PATHEAD	;
GETPAT	;
TOTL	;
HEADER	;Prints Heading
GETIDT	;
HEADER1	;

External References

Name	Field # of Occurrence
COMMA^%DTC	GETIDT+9, GETIDT+12, GETIDT+15, TOTL+3, TOTL+6, TOTL+9
^%ZISC	END+2
$$LOC^ACHS	HEADER+6
^ACHS3PPQ	NODATA+4
^ACHS3PPT	ACHS3PPP+9
BRPT^ACHSFU	ACHS3PPP+3
$$DIR^XBDIR	GETIDT+19, TOTL+15, NODATA+4
$$HTE^XLFDT	HEADER+4
$$REPEAT^XLFSTR	TOTL+1, HEADER+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?1,ACHSDOC,?15,ACHSSERV,?23,ACHSIDT,?40 Line Location: GETIDT+7
Function Call: WRITE	Prompt: $J(X,12),?55 Line Location: GETIDT+10
Function Call: WRITE	Prompt: $J(X,12),?68 Line Location: GETIDT+13
Function Call: WRITE	Prompt: $J(X,12) Line Location: GETIDT+16
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("-",80),!?1,"TOTAL",?10,$J(ACHSDOCS,4) Line Location: TOTL+1
Function Call: WRITE	Prompt: ?40,$J(X,12) Line Location: TOTL+4
Function Call: WRITE	Prompt: ?55,$J(X,12) Line Location: TOTL+7
Function Call: WRITE	Prompt: ?68,$J(X,12) Line Location: TOTL+10
Function Call: WRITE	Prompt: !! Line Location: TOTL+11
Function Call: WRITE	Prompt: "PERCENTAGE OF PAYMENT TO OBLIGATED",?61,$E(Z,1,5)_"%" Line Location: TOTL+11
Function Call: WRITE	Prompt: ?74,$E(X,1,5)_"%" Line Location: TOTL+12
Function Call: WRITE	Prompt: !?5,"HOSP - ",ACHS43ST,"",?25,"DENT - ",ACHS57ST,"",?45,"OUTP - ",ACHS64ST,"",?65,"UNKN - ",ACHS0ST,"" Line Location: TOTL+13
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"*",ACHSDAT Line Location: HEADER+5
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X Line Location: HEADER+7
Function Call: WRITE	Prompt: ?71,ACHSTIM,"",!,"User: ",ACHSUSR,?70,"Device:",IO,"*" Line Location: HEADER+8
Function Call: WRITE	Prompt: !! Line Location: HEADER+9
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X_ACHSPAGE Line Location: HEADER+11
Function Call: WRITE	Prompt: ! Line Location: HEADER+12
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X_ACHSFY Line Location: HEADER+14
Function Call: WRITE	Prompt: ! Line Location: HEADER+15
Function Call: WRITE	Prompt: ?33,"SERVICE: "_ACHSSERP Line Location: HEADER+16
Function Call: WRITE	Prompt: ! Line Location: HEADER+16
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("*",80) Line Location: HEADER+17
Function Call: WRITE	Prompt: !!?1,"# DOCS #" Line Location: HEADER1+1
Function Call: WRITE	Prompt: ?41,"$ OBLIGD $",?55,"$ IHS PMT $",?70,"$ 3P PMT $",! Line Location: HEADER1+3
Function Call: WRITE	Prompt: !!?1,"Patient: ",ACHSPAT," Chart #: ",ACHSHRN Line Location: PATHEAD+1
Function Call: WRITE	Prompt: !!!,"NO DATA FOR SPECIFIED FISCAL YEAR" Line Location: NODATA+1
Function Call: WRITE	Prompt: " FOR "_ACHSSERP_" SERVICE(S)" Line Location: NODATA+3
Function Call: WRITE	Prompt: !!!! Line Location: NODATA+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	GETPAT+1
^TMP("ACHS3PP"	ACHS3PPP+4, P1+1, P2+1, P2+3, END+8!, NODATA+2!

Label References

Name	Line Occurrences
END	GETIDT+19, TOTL+15, NODATA+4, NODATA+5
GETIDT	PATHEAD+2
HEADER	ACHS3PPP+4, P1+5, GETIDT+18, GETIDT+19
HEADER1	GETPAT+2
NODATA	ACHS3PPP+4
P2	GETIDT+27
PATHEAD	GETPAT+1
TOTL	P1+2, P2+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACHS0ST	ACHS3PPP+7, GETIDT+25, TOTL+13, END+4!
>> ACHS0T	ACHS3PPP+7*
ACHS3PP	ACHS3PPP+5, GETIDT+3, GETIDT+14, GETIDT+20, END+3!
ACHS3PPS	ACHS3PPP+5, GETIDT+20, TOTL+8, TOTL+12, END+3!
ACHS3PPT	ACHS3PPP+5*, END+3!
ACHS43ST	ACHS3PPP+6, GETIDT+22, TOTL+13, END+6!
ACHS43T	ACHS3PPP+7*, END+6!
ACHS57ST	ACHS3PPP+6, GETIDT+23, TOTL+13, END+6!
ACHS57T	ACHS3PPP+7*, END+6!
ACHS64ST	ACHS3PPP+7, GETIDT+24, TOTL+13, END+7!
ACHS64T	ACHS3PPP+7*, END+7!
>> ACHSBM	GETIDT+18, GETIDT+19
ACHSDAT	END+3!, HEADER+4*, HEADER+5
ACHSDOC	P1+3, P2+1, P2+2, P2+3, GETIDT+7, END+3!
ACHSDOCS	ACHS3PPP+5, GETIDT+4, TOTL+1, END+3!
ACHSDOCT	ACHS3PPP+6*, END+3!
>> ACHSFAC	ACHS3PPP+4, ACHS3PPP+8, P1+1, P1+2, P2+1, P2+3
ACHSFLG	GETPAT+2, GETIDT+4, GETIDT+18, GETIDT+19, END+6!, HEADER+18
>> ACHSFY	HEADER+14
ACHSHRN	GETPAT+1*, END+4!, PATHEAD+1
ACHSIDT	GETIDT+1*, GETIDT+7, END+4!
ACHSIHSP	ACHS3PPP+6, GETIDT+3, GETIDT+11, GETIDT+20, END+4!
ACHSIHSS	ACHS3PPP+6, GETIDT+20, TOTL+5, TOTL+11, END+4!
ACHSIHST	ACHS3PPP+6*, END+4!
ACHSOBL	ACHS3PPP+5, GETIDT+3, GETIDT+8, GETIDT+20, END+5!
ACHSOBLS	ACHS3PPP+5, GETIDT+20, TOTL+2, TOTL+11, TOTL+12, END+5!
ACHSOBLT	ACHS3PPP+5*, END+5!
ACHSOT	END+6!
ACHSPAGE	ACHS3PPP+4, ACHS3PPP+6, P1+4, END+6!, HEADER+3, HEADER+11
ACHSPAT	GETPAT+1*, END+5!, PATHEAD+1
ACHSPAT(0	GETPAT+1
ACHSQIO	END+4!
>> ACHSRTYP	ACHS3PPP+9, GETIDT+6, HEADER1+2
ACHSSER	GETIDT+21, TOTL+13, END+7!, HEADER+16
ACHSSERP	END+5!, HEADER+16*, NODATA+3
ACHSSERV	GETIDT+2*, GETIDT+7, END+5!
ACHSTIM	END+5!, HEADER+4*, HEADER+8
ACHSUSR	END+5!, HEADER+8
C	ACHS3PPP+6, GETIDT+4, END+5!
D	GETIDT+1*, END+5!
DIR	TOTL+14!, END+6!
I	END+6!
IO	HEADER+1, HEADER+8
IO("S"	GETIDT+19, TOTL+15, NODATA+4
IOF	HEADER+2
IOST	GETIDT+18, GETIDT+19, TOTL+15, NODATA+4
P	GETPAT+1*, END+5!
S	GETIDT+2*, GETIDT+22, GETIDT+23, GETIDT+24, GETIDT+25, END+5!
U	GETPAT+1, GETIDT+1, GETIDT+2, GETIDT+3
X	GETIDT+8, GETIDT+10, GETIDT+11, GETIDT+13, GETIDT+14, GETIDT+16, TOTL+2, TOTL+4, TOTL+5, TOTL+7 , TOTL+8, TOTL+10, TOTL+12, END+6!, HEADER+6, HEADER+7, HEADER+10, HEADER+11, HEADER+13, HEADER+14
X2	GETIDT+8, GETIDT+11, GETIDT+14, TOTL+2, TOTL+5, TOTL+8, END+6!
Y	END+6!, HEADER+4*
Z	P2+3, GETPAT+1, GETIDT+1, GETIDT+2, GETIDT+3, TOTL+11, END+5!
>> ZTQUEUED	END+1
>> ZTREQ	END+1*

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHS3PPP

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: