Routine: ACHS3PPT

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

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHS3PPP

Entry Points

Name	Comments	DBIA/ICR reference
P2	;
HEADER	;Prints Heading
P1	;
END	;Close device, kill variables, quit
TOT2	;
DETAIL	;
TOTL	;
PRT	;Prints Data
HEADER1	;
NODATA	;

External References

Name	Field # of Occurrence
COMMA^%DTC	PRT+5, PRT+8, PRT+11, TOT2+5, TOT2+8, TOT2+11, TOTL+3, TOTL+6, TOTL+9
^%ZISC	END+2
$$LOC^ACHS	HEADER+6
^ACHS3PPQ	NODATA+4
$$DIR^XBDIR	PRT+14, TOT2+14, TOTL+15, NODATA+4
$$HTE^XLFDT	HEADER+4
$$REPEAT^XLFSTR	TOT2+1, TOTL+1, HEADER+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?1,ACHSDOC,?15,ACHSSERV,?23,ACHSIDT,?40 Line Location: PRT+3
Function Call: WRITE	Prompt: $J(X,12),?55 Line Location: PRT+6
Function Call: WRITE	Prompt: $J(X,12),?68 Line Location: PRT+9
Function Call: WRITE	Prompt: $J(X,12) Line Location: PRT+12
Function Call: WRITE	Prompt: !?1,"TOTAL",?10,$J(ACHSDOCT,4) Line Location: TOT2+3
Function Call: WRITE	Prompt: ?40,$J(X,12) Line Location: TOT2+6
Function Call: WRITE	Prompt: ?55,$J(X,12) Line Location: TOT2+9
Function Call: WRITE	Prompt: ?68,$J(X,12) Line Location: TOT2+12
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: !! Line Location: HEADER1+1
Function Call: WRITE	Prompt: "PAYOR" Condition for execution: ACHSRTYP["T" Line Location: HEADER1+1
Function Call: WRITE	Prompt: ?41,"$ OBLIGD $",?55,"$ IHS PMT $",?70,"$ 3P PMT $" Line Location: HEADER1+3
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)
^AUTNINS - [#9999999.18]	P2+4
^TMP("ACHS3PP"	P1+1, P1+7, P1+9, P1+10, P1+12, P1+13, P2+2, P2+5, P2+6, P2+7 , P2+8, END+9!, NODATA+2!

Label References

Name	Line Occurrences
DETAIL	P1+14, P2+9
END	PRT+14, TOT2+14, TOTL+15, NODATA+4, NODATA+5
HEADER	P1+2, PRT+13, PRT+14, TOT2+14, TOT2+15
P2	P1+6
PRT	P1+14, P2+9
TOT2	P1+16, P2+11
TOTL	P1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACHS0ST	DETAIL+11*, TOTL+13, END+4!
ACHS3PP	DETAIL+3*, DETAIL+5, DETAIL+6, PRT+10, END+3!
ACHS3PPS	DETAIL+5*, TOTL+8, TOTL+12, END+3!
ACHS3PPT	P1+5, DETAIL+6, TOT2+10, END+3!
ACHS43ST	DETAIL+8*, TOTL+13, END+6!
ACHS43T	END+6!
ACHS57ST	DETAIL+9*, TOTL+13, END+6!
ACHS57T	END+6!
ACHS64ST	DETAIL+10*, TOTL+13, END+7!
ACHS64T	END+7!
>> ACHSBM	ACHS3PPT+5*, PRT+13, PRT+14, TOT2+14
ACHSDAT	END+3!, HEADER+4*, HEADER+5
ACHSDOC	P1+4, P1+7, P1+9, P1+10, P1+12, P1+13, P2+3, P2+5, P2+6, P2+7 , P2+8, PRT+3, END+3!
ACHSDOCS	DETAIL+4*, TOTL+1, END+3!
ACHSDOCT	P1+5, P2+3, DETAIL+4*, TOT2+3, END+3!
>> ACHSFAC	P1+1*, P1+7, P1+9, P1+10, P1+12, P1+13, P2+2, P2+5, P2+6, P2+7 , P2+8
ACHSFLG	P1+4, DETAIL+4, PRT+13, PRT+14, END+6!, HEADER+18*
ACHSFLG1	P1+2, P1+4, P1+16, P2+3, P2+11, PRT+1, PRT+13, PRT+14, TOT2+15, END+6! , HEADER1+4
>> ACHSFY	HEADER+14
ACHSHRN	END+4!
ACHSI	P2+1, P2+2, P2+4, P2+5, P2+7, P2+8, END+8!
ACHSIDT	DETAIL+1*, PRT+3, END+4!
ACHSIHSP	DETAIL+3*, DETAIL+5, DETAIL+6, PRT+7, END+4!
ACHSIHSS	DETAIL+5*, TOTL+5, TOTL+11, END+4!
ACHSIHST	P1+5, P2+3, DETAIL+6*, TOT2+7, END+4!
ACHSINS	P1+2, P1+11, P2+4*, PRT+1, TOT2+2, END+8!, HEADER1+4
>> ACHSINSP	P1+5, P1+12, P2+3, P2+7, DETAIL+6, PRT+10
ACHSINSS	P1+5, DETAIL+5, END+8!
ACHSINST	P1+8, P1+12, P2+1, P2+8, DETAIL+5, END+8!
>> ACHSINSX	P1+5, P2+3, DETAIL+6*, TOT2+10
ACHSOBL	DETAIL+3*, DETAIL+5, DETAIL+6, PRT+4, END+5!
ACHSOBLS	DETAIL+5*, TOTL+2, TOTL+11, TOTL+12, END+5!
ACHSOBLT	P1+5, P2+3, DETAIL+6*, TOT2+4, END+5!
ACHSOT	END+6!
ACHSPAGE	P1+2, END+6!, HEADER+3, HEADER+11
ACHSPAT	END+5!
ACHSQIO	END+4!
ACHSRTYP	P1+14, P2+9, TOT2+1, TOT2+2, TOT2+15, END+8!, HEADER1+1, HEADER1+2
ACHSSER	DETAIL+7, TOTL+13, END+7!, HEADER+16
ACHSSERP	END+5!, HEADER+16*, NODATA+3
ACHSSERV	DETAIL+2*, PRT+3, END+5!
ACHSTIM	END+5!, HEADER+4*, HEADER+8
ACHSUSR	END+5!, HEADER+8
ACHSX	P1+3*, P1+6, P1+7, P1+10, P1+11, P1+12, P1+13, P2+2, P2+5, P2+7 , P2+8, PRT+10, TOT2+10, END+8!
C	DETAIL+4*, END+5!
D	DETAIL+1*, END+5!
DIR	TOT2+13!, TOTL+14!, END+6!
>> DUOUT	P1+1, P1+3, P1+7, P1+15, P2+2, P2+5, P2+10
I	END+6!
IO	HEADER+1, HEADER+8
IO("S"	PRT+14, TOT2+14, TOTL+15, NODATA+4
IOF	HEADER+2
IOST	PRT+13, PRT+14, TOT2+14, TOTL+15, NODATA+4
P	END+5!
S	DETAIL+2*, DETAIL+8, DETAIL+9, DETAIL+10, DETAIL+11, END+5!
U	P1+13, P2+4, P2+8, DETAIL+1, DETAIL+2, DETAIL+3
X	PRT+4, PRT+6, PRT+7, PRT+9, PRT+10, PRT+12, TOT2+4, TOT2+6, TOT2+7, TOT2+9 , TOT2+10, TOT2+12, 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	PRT+4, PRT+7, PRT+10, TOT2+4, TOT2+7, TOT2+10, TOTL+2, TOTL+5, TOTL+8*, END+6!
Y	END+6!, HEADER+4*
Z	P1+9, P2+6, DETAIL+1, DETAIL+2, DETAIL+3, TOTL+11*, END+5!
>> Z1	P1+10*
>> ZTQUEUED	END+1
>> ZTREQ	END+1*

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHS3PPT

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: