Routine: ACHSEOB2

Package	Total	Call Graph
Contract Health Management Information System	2	($$RPL,$$SB,RTRN)^ACHS REC2^ACHSEOBB
Kernel	2	(,HOME)^%ZIS $$FMTE^XLFDT
VA Fileman	2	^DIWP ^DIWW

Package	Total	Caller Graph
Contract Health Management Information System	6	ACHSEBAT ACHSEDOC ACHSEOB6 ACHSEOB7 ACHSEOBB ACHSEPAT

Name	Comments	DBIA/ICR reference
A	;
F1	;
C	;
B	;
E	;
D	;
G	;
F	;
GW	;
FMT	;
GWA	;
FHDR	;
END	;
HDR	;

Name	Field # of Occurrence
^%ZIS	ACHSEOB2+4
HOME^%ZIS	END+1
$$RPL^ACHS	GWA+3
$$SB^ACHS	GWA+3
RTRN^ACHS	B+13, D+17, E+23, G+7
REC2^ACHSEOBB	F1+5
^DIWP	GWA+4
^DIWW	GWA+6
$$FMTE^XLFDT	B+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ACHSEOB2+7
Function Call: WRITE	Prompt: @($P(^%ZIS(2,IOST(0),5),U,2)) Line Location: ACHSEOB2+8
Function Call: WRITE	Prompt: !!?20,"+++ EXPLANATION OF BENEFITS REPORT +++",!,ACHSTIME Line Location: ACHSEOB2+9
Function Call: WRITE	Prompt: !?5,"INDIAN HEALTH SERVICE",?47,"CONTRACT HEALTH SERVICES",! Line Location: ACHSEOB2+10
Function Call: WRITE	Prompt: ?62,"CLAIM SEQ. COUNT ",$J(+$G(ACHSEOBR("A",8)),9) Line Location: ACHSEOB2+12
Function Call: WRITE	Prompt: !!,"AREA OFFICE: ",$E($P(^AUTTAREA($O(^AUTTAREA("C",ACHSEOBR("A",1),0)),0),U),1,17) Line Location: A+1
Function Call: WRITE	Prompt: ?34,"CHECK NUMB.: ",$G(ACHSEOBR("A",9)) Line Location: A+2
Function Call: WRITE	Prompt: !!,"SERVICE UNIT: ",$E($P(^AUTTSU($O(^AUTTSU("C",ACHSEOBR("A",1)_ACHSEOBR("A",2),0)),0),U),1,17) Line Location: A+3
Function Call: WRITE	Prompt: ?34,"REMITTANCE.: ",$G(ACHSEOBR("A",10)) Line Location: A+8
Function Call: WRITE	Prompt: ?64,"DATE: ",$E(ACHSEOBR("A",11),5,6),"/",$E(ACHSEOBR("A",11),7,8),"/",$E(ACHSEOBR("A",11),1,4) Line Location: A+9
Function Call: WRITE	Prompt: !!!,"PURCHASE ORDER NO: ",$G(ACHSEOBR("A",12)) Line Location: A+11
Function Call: WRITE	Prompt: ?34,"CONTROL NO.: ",$G(ACHSEOBR("A",13)),"-",$G(ACHSEOBR("A",5)) Line Location: A+12
Function Call: WRITE	Prompt: !!,"AUTHORIZING FAC..: ",$G(ACHSEOBR("A",14)) Line Location: B+1
Function Call: WRITE	Prompt: ?34,"PATIENT NAM: ",$G(ACHSEOBR("B",8)),! Line Location: B+2
Function Call: WRITE	Prompt: ?19,"(",$P(^AUTTLOC($O(^AUTTLOC("C",ACHSEOBR("A",14),0)),0),U,2),")" Line Location: B+3
Function Call: WRITE	Prompt: !,"DOCUMENT TYPE....: ",$G(ACHSEOBR("A",15)) Line Location: B+5
Function Call: WRITE	Prompt: ?34,"HLTH REC NO: ",$G(ACHSEOBR("B",9)) Line Location: B+6
Function Call: WRITE	Prompt: !!,"AUTH. DATE.......: ",$$FMTE^XLFDT($G(ACHSEOBR("B",10))-17000000) Line Location: B+8
Function Call: WRITE	Prompt: ?34,"ACTUAL DAYS:",?47,$G(ACHSEOBR("B",11)) Line Location: B+9
Function Call: WRITE	Prompt: !!,"COMMON ACCTG NO..: ",$E($G(ACHSEOBR("C",8)),1,7) Line Location: C+1
Function Call: WRITE	Prompt: ?34,"DRG........: ",$E($G(ACHSEOBR("C",8)),1,7) Line Location: C+2
Function Call: WRITE	Prompt: ?47,"RATE QUOTE:" Line Location: C+3
Function Call: WRITE	Prompt: !,"INTEREST CAN.....: ",$G(ACHSEOBR("I",8)) Line Location: C+5
Function Call: WRITE	Prompt: ?34,"DIS. STATUS: ",$G(ACHSEOBR("B",13)) Line Location: C+6
Function Call: WRITE	Prompt: !!,"OBJECT CLASS CODE: ",$G(ACHSEOBR("C",9)) Line Location: C+7
Function Call: WRITE	Prompt: ?34,"SERV BILLED:" Line Location: C+8
Function Call: WRITE	Prompt: ?47,$S(X="A":"PROFESSIONAL",X="B":"INPATIENT",X="C":"OUTPAT",X="D":"DENTAL",X="E":"ANCILLARY",X="F":"NON-PATIENT SPECIFIC",1:"UNKNOWN") Line Location: C+10
Function Call: WRITE	Prompt: !,"SERVICE CLASS CODE: ",$G(ACHSEOBR("B",14)) Line Location: C+11
Function Call: WRITE	Prompt: ?34,"INTERST OCC: ",$G(ACHSEOBR("I",9)) Line Location: C+12
Function Call: WRITE	Prompt: !!,"BLANKET IND......: ",$S($G(ACHSEOBR("C",11))="Y":"YES",$G(ACHSEOBR("C",11))="N":"NO",1:"??") Line Location: C+13
Function Call: WRITE	Prompt: ?34,"CONTRACT NO: ",$G(ACHSEOBR("C",12)) Line Location: C+14
Function Call: WRITE	Prompt: !!,"INTERIM/FINAL IND: ",$S($G(ACHSEOBR("C",13))="F":"FINAL",$G(ACHSEOBR("C",13))="I":"INTERIM",1:"??") Line Location: C+15
Function Call: WRITE	Prompt: ?34,"VENDOR NO..: ",$G(ACHSEOBR("C",16)) Line Location: C+16
Function Call: WRITE	Prompt: !!,"EST SERV DATES...: " Line Location: D+1
Function Call: WRITE	Prompt: $E(ACHSEOBR("C",14),5,6),"/",$E(ACHSEOBR("C",14),7,8),"/",$E(ACHSEOBR("C",14),1,4) Line Location: D+2
Function Call: WRITE	Prompt: ?34,"VENDOR NAME: ",$E($G(ACHSEOBR("D",8)),1,30),! Line Location: D+4
Function Call: WRITE	Prompt: ?19,$E(ACHSEOBR("C",15),5,6),"/",$E(ACHSEOBR("C",15),7,8),"/",$E(ACHSEOBR("C",15),1,4) Line Location: D+6
Function Call: WRITE	Prompt: !,"INTEREST RATE.(%): " Line Location: D+8
Function Call: WRITE	Prompt: $FN($E(X,1,2)_"."_$E(X,3,5),"",3) Line Location: D+10
Function Call: WRITE	Prompt: !,"DAYS ELIGIBLE....: " Line Location: D+12
Function Call: WRITE	Prompt: !!!?19,"BILLED BY PROVIDER..........$",$G(X) Line Location: D+21
Function Call: WRITE	Prompt: !?19,"ALLOWABLE AMOUNT............$",$G(X) Line Location: D+24
Function Call: WRITE	Prompt: !?19,"AMOUNT PAID BY THIRD PARTY..$",$G(X) Line Location: D+27
Function Call: WRITE	Prompt: !?19,"FI PRINCIPLE PAYMENT........$",$G(X) Line Location: E+4
Function Call: WRITE	Prompt: !?19,$S($G(ACHSEOBR(ACHSREJ,9))=1:"P.O.NBR",$G(ACHSEOBR(ACHSREJ,9))=2:"SHR 424",1:"???????")," OBLIGATION AMOUNT...$",$G(X) Line Location: E+7
Function Call: WRITE	Prompt: !?19,"INTEREST PAID...............$",$G(X) Line Location: E+11
Function Call: WRITE	Prompt: !?19,"ADDITIONAL PENALTY PAID.....$",$G(X) Line Location: E+15
Function Call: WRITE	Prompt: !?19,"TOTAL PAID THIS TRANSACTION.$",$G(X) Line Location: E+19
Function Call: WRITE	Prompt: !!,"DIAGNOSIS CODES: " Line Location: E+25
Function Call: WRITE	Prompt: " ",$G(ACHSEOBR("E",ACHS)) Line Location: E+26
Function Call: WRITE	Prompt: $G(ACHSEOBR(ACHSREJ,ACHS))," " Line Location: E+27
Function Call: WRITE	Prompt: ! Condition for execution: ACHS#8=0 Line Location: E+27
Function Call: WRITE	Prompt: !,"PROCEDURE CODES:" Line Location: E+30
Function Call: WRITE	Prompt: " ",$G(ACHSEOBR("G",ACHS)) Line Location: E+31
Function Call: WRITE	Prompt: ! Line Location: G+3
Function Call: WRITE	Prompt: !,ACHSMSG," -" Line Location: G+5
Function Call: WRITE	Prompt: @($P(^%ZIS(2,IOST(0),5),U,1)) Line Location: END+2
Function Call: WRITE	Prompt: ?6,ACHSMSGN Line Location: GW+3
Function Call: WRITE	Prompt: !!?32,"+++ Continued +++",@IOF,!!?16,"+++ EOBR FOR PURCHASE ORDER NO '",ACHSEOBR("A",12),"' +++",!?32,"+++ Continued +++",!,ACHSTIME,!! Line Location: HDR+1
Function Call: WRITE	Prompt: ?72,"TOOTH",!,"DATES OF SERVICE PROCEDURE UNITS BILLED CHGS ALLOWABLE MSG NBR SURF",!,"----------------- --------- ----- ------------ ------------ ---- --------" Line Location: FHDR+1
Routine Call	%ZIS Line Location: END+1
Routine Call	%ZIS Line Location: ACHSEOB2+4

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	ACHSEOB2+8, END+2
^ACHSEOBM - [#9002076]	GWA+2, GWA+3
^ACHSEOBM("B"	GW+2
^AUTTAREA - [#9999999.21]	A+1
^AUTTAREA("C"	A+1
^AUTTLOC - [#9999999.06]	B+3
^AUTTLOC("C"	B+3
^AUTTSU - [#9999999.22]	A+3
^AUTTSU("C"	A+3
^TMP("ACHSEOB"	F1+2, F1+3

Name	Line Occurrences
END	B+13, D+17, E+23
FHDR	F+1, F1+4
FMT	D+20, D+23, D+26, E+3, E+6, E+10, E+14, E+18, F1+15, F1+19
GW	G+5
HDR	F1+4, GWA+5

Name	Field # of Occurrence
^(5	ACHSEOB2+8, END+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACHS	E+27, E+31, F1+1, F1+2, F1+3
>> ACHSEOBR(	E+2, E+5, E+7, E+27
>> ACHSEOBR("A"	ACHSEOB2+12, A+1, A+2, A+3, A+8, A+9, A+11, A+12, B+1, B+3 , B+5, HDR+1
>> ACHSEOBR("B"	B+2, B+6, B+8, B+9, C+6, C+11
>> ACHSEOBR("C"	C+1, C+2, C+7, C+9, C+13, C+14, C+15, C+16, D+2, D+6
>> ACHSEOBR("D"	D+4, D+19, D+22, D+25
>> ACHSEOBR("E"	ACHSEOB2+5
>> ACHSEOBR("G"	E+31
>> ACHSEOBR("I"	C+5, C+12, D+9, D+13, E+9, E+13, E+17
>> ACHSEOBR("J"	ACHSEOB2+5
>> ACHSEOBR("M"	G+5, END+3!
>> ACHSEOIO	ACHSEOB2+4, ACHSEOB2+6
>> ACHSMSG	G+4, G+5, GW+2
>> ACHSMSGN	GW+1*, GW+3
>> ACHSQUIT	B+13, D+17, E+23
>> ACHSREJ	ACHSEOB2+5*, E+2, E+5, E+7, E+27
ACHSTEMP	F1+5!
ACHSTEMP("F"	F1+6, F1+7, F1+8, F1+9, F1+10, F1+12, F1+14, F1+18, F1+20
>> ACHSTIME	ACHSEOB2+9, HDR+1
>> ACHSX	F1+3*, F1+5
>> ACHSY	GWA+1, GWA+2, GWA+3
>> ACHSZ	F1+10, F1+11, GW+2, GW+3, GWA+2, GWA+3
DIWF	G+1~, G+2*
DIWL	G+1~, G+2*
DIWR	G+1~, G+2*
>> I	F1+11*
IO	ACHSEOB2+4, B+13, D+17, E+23, F1+4, G+7, END+1, GWA+5
IO(0	B+13, D+17, E+23, F1+4, G+7, END+1, GWA+5
IOF	ACHSEOB2+7, HDR+1
IOM	ACHSEOB2+8, END+2
>> IOP	ACHSEOB2+4*
IOSL	F1+4, GWA+5
IOST(0	ACHSEOB2+8, END+2
U	ACHSEOB2+8, A+1, A+3, B+3, END+2
>> X	C+9, C+10, D+9, D+10, D+19, D+21, D+22, D+24, D+25, D+27 , E+2, E+4, E+5, E+7, E+9, E+11, E+13, E+15, E+17, E+19 , F1+10, F1+11, F1+12, F1+14, F1+16, F1+18, F1+20, GWA+3, FMT+1, FMT+2* , FMT+3*

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSEOB2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: