Routine: ACHSEOB6

Information

ACHSEOB6 ; IHS/ITSC/PMF - PROCESS EOBRS (7/7) SUMMARY/ERROR REPORT ;

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Contract Health Management Information System	5	(FMT,NOW,RTRN)^ACHS ^ACHSEOB2 PRT^ACHSEOBB ^ACHSEOBG BM^ACHSFU
Kernel	3	^%ZISC $$FMTE^XLFDT $$REPEAT^XLFSTR

Package	Total	Caller Graph
Contract Health Management Information System	3	ACHSAREAEOBR9TRK ACHSEOB ACHSEOB5

Entry Points

Name	Comments	DBIA/ICR reference
SITENAME	;
P0	;
P1	;
END	;
PRNT2A	;
FTR	; Print footer, do EOP, TOP.
AREA	;
PRNT	;
R(A)	;
AREA1	;
START	;EP - From TaskMan.
RTRN	;
COST	;
W1	;
HDR2	;
DCR	; Print Begin/End values of DCRs
PRNT2	;
AREA2	;
HDR	;

External References

Name	Field # of Occurrence
^%ZISC	START+24
FMT^ACHS	START+19
NOW^ACHS	START+7
RTRN^ACHS	START+21, P1+1, PRNT2A+4, FTR+2, RTRN+2
^ACHSEOB2	PRNT+7
PRT^ACHSEOBB	PRNT+1
^ACHSEOBG	P0+3
BM^ACHSFU	START+7
$$FMTE^XLFDT	HDR+3
$$REPEAT^XLFSTR	DCR+10, R+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: START+9
Function Call: WRITE	Prompt: !?10,"TOTAL AMOUNT THIS RUN: ",?40 Line Location: START+17
Function Call: WRITE	Prompt: !!! Line Location: START+20
Function Call: WRITE	Prompt: ?34,ACHSEOBR("B",8) Line Location: PRNT+9
Function Call: WRITE	Prompt: ! Line Location: PRNT+9
Function Call: WRITE	Prompt: ?34,ACHSEOBR("B",8) Line Location: PRNT+10
Function Call: WRITE	Prompt: ! Line Location: PRNT+10
Function Call: WRITE	Prompt: ?29,ACHSER_ACHS,?34,ACHSDESC Line Location: P0+5
Function Call: WRITE	Prompt: ?55,"(",ACHSEDAT,")" Condition for execution: ACHSEDAT]"" Line Location: P0+5
Function Call: WRITE	Prompt: ! Line Location: P0+5
Function Call: WRITE	Prompt: ?70,$J($FN(+$E(ACHSEOBR(ACHSREJ,8),1,7)_"."_$E(ACHSEOBR(ACHSREJ,8),8,9),",",2),8) Line Location: COST+3
Function Call: WRITE	Prompt: @IOF Line Location: PRNT2+3
Function Call: WRITE	Prompt: ACHSTIME,?28,"CHS EOBR PROCESSING REPORT",?67,"PAGE ",$J(ACHSPG,3),!,?24,"for Documents Paid on: ",$$FMTE^XLFDT(ACHSEOBD),!,?40-(($L(ACHS("SITE"))+4)\2),"for ",ACHS("SITE"),! Line Location: HDR+3
Function Call: WRITE	Prompt: !!,"COUNT SITE P.O. NUMBER P-T CODE DESCRIPTION or PATIENT",?70,"IHS COST",!,"----- ------ ----------- --- ---- ------------------------------",?70,"--------",!! Line Location: HDR2+1
Function Call: WRITE	Prompt: !,"'COUNT' appears at the upper right of the EOBR.",!,"If 'CODE' begins with 'E', the P.O. was not processed.",!,"If 'CODE' begins with 'W', the P.O. was processed but needs further attention.",! Line Location: FTR+1
Function Call: WRITE	Prompt: @IOF Line Location: FTR+4
Function Call: WRITE	Prompt: !!,Y," Registers",?29,"Before",?45,"After",?59,"Change" Line Location: DCR+8
Function Call: WRITE	Prompt: !,$$R(20),?22,$$R(13),?37,$$R(13),?52,$$R(13) Line Location: DCR+9
Function Call: WRITE	Prompt: !,$E(R,1,20),$J($FN($P(B,U,%),",",2),15),$J($FN($P(E,U,%),",",2),15),$J($FN($P(B,U,%)-$P(E,U,%),",",2),15) Line Location: DCR+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(9 - [#9002069]	DCR+2
^ACHSEOBR	START+12, START+14, PRNT+1, PRNT+10, P1+4, PRNT2A+3, AREA1+1, AREA2+1, AREA2+3
^ACHSEOBR("DCR"	DCR+3, DCR+4*, DCR+5, DCR+6, DCR+7
^ACHSEOBR("ER"	PRNT+3, PRNT+7, P0+2, P0+5, PRNT2+1, PRNT2A+1
^ACHSEOBR(0	START+2
^DIC(4 - [#4]	SITENAME+1
^TMP("ACHSEOB"	START+6!, PRNT+7!, P1+2!

Label References

Name	Line Occurrences
$$R	DCR+9
AREA	START+11
AREA1	AREA2+2
AREA2	AREA2+6
COST	PRNT+10
DCR	START+22
END	START+3, START+11, PRNT2+2
FTR	START+21, P1+3, AREA1+6
HDR	START+9, P1+3, AREA1+6
PRNT	START+14, PRNT2A+4, AREA2+4
PRNT2	START+10, PRNT2A+2
PRNT2A	PRNT2A+6
RTRN	DCR+11
SITENAME	START+4, AREA1+5
START	END+1
W1	PRNT+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DCR+1~, DCR+10*, RTRN+1~
A	R~, R+1
>> ACHS	P0+1, P0+2, P0+5
>> ACHS("R"	START+2, START+3, SITENAME+1, AREA1+4
>> ACHS("SITE"	HDR+3, SITENAME+1*
>> ACHSBM	P1+3
>> ACHSCOST	P0+4, COST+4*, COST+5
>> ACHSCTR	PRNT+1, P1+4, AREA+1
>> ACHSCTR(1	START+14, PRNT+1, PRNT+3, PRNT+7, PRNT+10, P0+2, P0+5, P1+4, PRNT2+4, PRNT2A+1 , PRNT2A+2, PRNT2A+3, AREA+1, AREA2+1, AREA2+2, AREA2+3
>> ACHSDESC	P0+3*, P0+5
>> ACHSEDAT	P0+5*
>> ACHSEOBD	HDR+3
ACHSEOBR	PRNT+1, PRNT+7!, P1+2!
ACHSEOBR(	COST+3, COST+4
ACHSEOBR("A"	W1+2
ACHSEOBR("B"	PRNT+10
ACHSEOBR("C"	W1+2
ACHSEOBR("E"	COST+2
ACHSEOBR("J"	COST+2
>> ACHSEOIO	START+5*
>> ACHSER	P0+3*, P0+4, P0+5
>> ACHSER1	P0+1, P0+5
>> ACHSFAC	START+5, START+10, START+12, START+14, PRNT+1, PRNT+2, PRNT+3, PRNT+7, PRNT+10, P0+2 , P0+5, P1+4, PRNT2+1, PRNT2+2, PRNT2A+1, PRNT2A+3, AREA+1, AREA1+1, AREA1+2, AREA1+3 , AREA1+4, AREA1+6, AREA2+1, AREA2+3
>> ACHSFAC(1	PRNT+2, AREA+1, AREA1+6, AREA2+3
>> ACHSISAO	START+11, PRNT+2
>> ACHSLP	START+8, START+9, START+14
>> ACHSMEDA	PRNT+7
>> ACHSOLD	START+5, START+14, PRNT+1, PRNT2A+3, AREA2+3
>> ACHSPG	START+2, HDR+2, HDR+3
>> ACHSQUIT	DCR+3
>> ACHSREJ	COST+2*, COST+3, COST+4
>> ACHSRPT	START+9, START+10, START+21, START+22, END+1*, PRNT+3, PRNT+7, P1+1, P1+3
>> ACHSSUM	START+1, START+18, P0+4, COST+5*
>> ACHSTERR	START+8*
>> ACHSTIME	START+8, HDR+3
B	DCR+1~, DCR+6*, DCR+10, RTRN+1~
>> DTOUT	START+12, START+14, START+16, P1+3, PRNT2A+5, FTR+3, AREA1+6, AREA2+5
>> DUOUT	START+12, START+14, START+16, P1+3, PRNT2A+5, FTR+3, AREA1+6, AREA2+5
DUZ(2	DCR+2
E	DCR+1~, DCR+7*, DCR+10, RTRN+1~
>> I	P0+5*
IO	START+5, HDR+1
IOF	START+9, PRNT2+3, FTR+4
N	DCR+1~, DCR+2*, DCR+10, RTRN+1~
R	DCR+1~, DCR+10*, RTRN+1~
U	P0+5, SITENAME+1, DCR+10
X	START+8, START+18, PRNT+7*, DCR+1~, RTRN+1~
Y	DCR+1~, DCR+2, DCR+3, DCR+4, DCR+5, DCR+6, DCR+7, DCR+8, RTRN+1~

Marked Items

Name	Field # of Occurrence
$T(@ACHS^ACHSEOBG	P0+3

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSEOB6

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items