Routine: ACHSRPU

Package	Total	Call Graph
Contract Health Management Information System	2	($$ASF,$$PARM)^ACHS $$SSV^ACHSTX3
IHS Patient	1	$$GETMBI^AUPNMBI
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^%DT

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHSRP1 ACHSRP2

Name	Comments	DBIA/ICR reference
TESTPRNT	;EP. (For test print.)
MCD	;
CONT	;
UPIN	;ACHS3.116 IHS.OIT.FCJ CHANGED UPIN TO DUNS
INSEDT	;
AGESEX	;
ORDFAC	;
INSADRS	;Field 3.c. : Insurer's address.
RATE	;PRICING INFO SEGMENT
PROCLAS	;
SIG	;
CAN	;
SSN	;Field 1 : Pat ID SSN
END	;
REF	;
EIN	;
FAX	;ACHS3.119
PVT	;
RRE	;
FORMAT	;
INSTYP	;Field 3.e. : Ins Cov Type
INSOTH2	;
INSOTH3	;OTHER INS BOX 3 h
INSOTH1	;
INSOTH5	;
AMT	;
OBJ	;
PROTYPE	;
PVT1	;
DINACK(ACHSINSZ)	;
SKIP	;
PROVIDER	;
ORDADRS1	;
DINAPI	;-- Check for PI elig at Date Of Service. Else, no print.
ORDADRS2	;
INSBDT	;Field 3.f. : Ins Eff Date
INSPOL	;Field 3.d. : Ins Pol #
INSNM	;Field 3.b. : Plan Name.
INSHLD	;Field 3.a. : Name of Pol Holder
DESC	;
OPT	;
NAME	; -- Field 2 : Pat Ident
FACHRN	;
SSV	;
PONUM	; -- Field 1 : DCR #, Document type, PDO number.
INS	;
SET(ACHSGL)	;
COMCODE	;
BOX567	;
KILL	;
PATADRS	;Field 1 : Pat ID
PROADRS2	;
PROADRS1	;
MCR	;
PROTELE	;
FROMTO	;

Name	Field # of Occurrence
^%DT	DINACK+7, DINAPI+4
$$ASF^ACHS	TESTPRNT+2, PONUM+17, SKIP+2, PROVIDER+2, PROVIDER+4
$$PARM^ACHS	PONUM+12, PONUM+15
$$SSV^ACHSTX3	SSV+7
$$GETMBI^AUPNMBI	MCR+5, RRE+8
$$FMTE^XLFDT	INSBDT+2, INSEDT+1, PVT1+19, PVT1+20, SET+8, SET+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @ACHSFF Line Location: TESTPRNT+3
Function Call: WRITE	Prompt: !!!!!!,"",$S(ACHSTYPE="C":"CANCELLATION",1:"PO SUPPLEMENT DATED "_E(11)),"**",! Line Location: TESTPRNT+4
Function Call: WRITE	Prompt: "****** ",$S(ACHSTYPE="C":"CANCELLATION ******",1:"SUPPLEMENT TO P.O. DATED "_E(11)) Line Location: TESTPRNT+6
Function Call: WRITE	Prompt: ?20,"HHS #:",ACHSDHHS Line Location: PONUM+10
Function Call: WRITE	Prompt: ?ACHSTAB+57,$S($$PARM^ACHS(2,20)="Y":$S(ACHSTYPV=1:323,ACHSTYPV=2:324,1:325),1:"") Line Location: PONUM+15
Function Call: WRITE	Prompt: ?ACHSTAB2,$E($P(^ACHSF(DUZ(2),"D",ACHSDIEN,0),U,27),3),ACHSORDN,ACHSSF Line Location: PONUM+17
Function Call: WRITE	Prompt: ?ACHSTAB+61,"0",ACHSORDN,ACHSSF Line Location: PONUM+18
Function Call: WRITE	Prompt: !! Line Location: NAME+1
Function Call: WRITE	Prompt: !?ACHSTAB," BLANKET " Line Location: NAME+3
Function Call: WRITE	Prompt: ! Line Location: NAME+4
Function Call: WRITE	Prompt: ?ACHSTAB,A(%) Condition for execution: $D(A(%)) Line Location: NAME+4
Function Call: WRITE	Prompt: ?ACHSTAB,$G(A(2)) Line Location: NAME+6
Function Call: WRITE	Prompt: ! Line Location: PATADRS+1
Function Call: WRITE	Prompt: ?ACHSTAB,$G(A(3)) Line Location: PATADRS+2
Function Call: WRITE	Prompt: ! Line Location: SSN+1
Function Call: WRITE	Prompt: ?ACHSTAB,$G(A(11)) Line Location: SSN+2
Function Call: WRITE	Prompt: ! Line Location: INSADRS+3
Function Call: WRITE	Prompt: ?ACHSTAB,ACHSSSNS Line Location: SSV+7
Function Call: WRITE	Prompt: ?ACHSTAB+48,$G(I(N,4)) Line Location: SSV+10
Function Call: WRITE	Prompt: ! Line Location: INSPOL+1
Function Call: WRITE	Prompt: ?ACHSTAB+52,$G(I(N,5)) Line Location: INSPOL+2
Function Call: WRITE	Prompt: !?ACHSTAB,$E($G(A(1)),1,27) Line Location: FACHRN+1
Function Call: WRITE	Prompt: ?ACHSTAB+52,$G(I(N,6)) Line Location: INSTYP+1
Function Call: WRITE	Prompt: !?ACHSTAB,$G(A(4)) Line Location: AGESEX+1
Function Call: WRITE	Prompt: " ",$G(A(5)) Line Location: COMCODE+1
Function Call: WRITE	Prompt: ! Line Location: INSBDT+1
Function Call: WRITE	Prompt: ?ACHSTAB+53,$$FMTE^XLFDT($G(I(N,7))) Line Location: INSBDT+2
Function Call: WRITE	Prompt: !?ACHSTAB,"Desc: " Line Location: DESC+1
Function Call: WRITE	Prompt: ?ACHSTAB+6,$G(A(7)) Line Location: DESC+2
Function Call: WRITE	Prompt: ?ACHSTAB+53,$$FMTE^XLFDT(I(N,8)) Line Location: INSEDT+1
Function Call: WRITE	Prompt: ! Line Location: ORDFAC+1
Function Call: WRITE	Prompt: ! Line Location: ORDFAC+2
Function Call: WRITE	Prompt: !!,?ACHSTAB,"PONCA TRIBE OF NEBRASKA" Line Location: ORDFAC+3
Function Call: WRITE	Prompt: !!?ACHSTAB,$G(B(1)) Line Location: ORDFAC+4
Function Call: WRITE	Prompt: ?ACHSTAB+25,"(",$G(B(4)),")" Line Location: ORDFAC+5
Function Call: WRITE	Prompt: !?ACHSTAB,$G(B(2)) Line Location: ORDADRS1+1
Function Call: WRITE	Prompt: ?ACHSTAB+39,$P(I("B",N),U,2) Line Location: INSOTH2+1
Function Call: WRITE	Prompt: !?ACHSTAB,$G(B(3)) Line Location: ORDADRS2+1
Function Call: WRITE	Prompt: ! Line Location: AMT+2
Function Call: WRITE	Prompt: !! Line Location: FROMTO+1
Function Call: WRITE	Prompt: ! Line Location: REF+1
Function Call: WRITE	Prompt: ! Line Location: REF+4
Function Call: WRITE	Prompt: ?ACHSTAB+27,"SCC: ",$G(F(8)) Line Location: REF+6
Function Call: WRITE	Prompt: ! Line Location: REF+8
Function Call: WRITE	Prompt: ! Line Location: REF+11
Function Call: WRITE	Prompt: ! Line Location: REF+13
Function Call: WRITE	Prompt: !!! Line Location: REF+16
Function Call: WRITE	Prompt: ?ACHSTAB+49,F(6) Line Location: RATE+2
Function Call: WRITE	Prompt: ?ACHSTAB+D(10)-1,"X" Line Location: RATE+4
Function Call: WRITE	Prompt: ?ACHSTAB+49,"Open Market" Line Location: RATE+5
Function Call: WRITE	Prompt: ?ACHSTAB+49,D(9) Line Location: RATE+8
Function Call: WRITE	Prompt: ! Line Location: SKIP+1
Function Call: WRITE	Prompt: ! Line Location: SKIP+2
Function Call: WRITE	Prompt: ! Line Location: SKIP+3
Function Call: WRITE	Prompt: !! Line Location: SKIP+5
Function Call: WRITE	Prompt: ?ACHSTAB+D(12,1),"X" Line Location: SKIP+8
Function Call: WRITE	Prompt: ?ACHSTAB+D(12,2),"X" Line Location: SKIP+9
Function Call: WRITE	Prompt: ?ACHSTAB+52,$G(D(13)) Line Location: SKIP+10
Function Call: WRITE	Prompt: ?ACHSTAB+22,"X",?ACHSTAB+52,$G(D(13)) Line Location: SKIP+12
Function Call: WRITE	Prompt: ! Line Location: SKIP+13
Function Call: WRITE	Prompt: !! Line Location: PROVIDER+4
Function Call: WRITE	Prompt: !!! Line Location: PROVIDER+5
Function Call: WRITE	Prompt: ! Line Location: PROADRS1+1
Function Call: WRITE	Prompt: ! Line Location: PROADRS2+1
Function Call: WRITE	Prompt: ! Line Location: FAX+1
Function Call: WRITE	Prompt: ?ACHSTAB+9,D(7) Line Location: PROTYPE+1
Function Call: WRITE	Prompt: ! Line Location: PROCLAS+1
Function Call: WRITE	Prompt: !!!!!! Line Location: PROCLAS+3
Function Call: WRITE	Prompt: @IOF Line Location: PROCLAS+8

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(4 - [#9002064]	PROCLAS+5, PROCLAS+6
^ACHSCTYP - [#9002068.1]	PONUM+7
^ACHSF - [#9002080]	PONUM+4, PONUM+6, PONUM+9, PONUM+17, RATE+8
^AUPN3PPH - [#9000003.1]	PVT1+10, PVT1+11, PVT1+12
^AUPNMCD - [#9000004]	MCD+7
^AUPNMCD("B"	MCD+1, MCD+4
^AUPNMCR - [#9000003]	MCR+3, MCR+6, MCR+14
^AUPNMCR("B"	MCR+2, MCR+3
^AUPNPRVT - [#9000006]	PVT+3, PVT1+1, PVT1+2
^AUPNRRE - [#9000005]	RRE+7, RRE+12
^AUPNRRE("B"	RRE+1, RRE+2
^AUTNINS - [#9999999.18]	PVT1+15, SET+1
^AUTTLOC - [#9999999.06]	KILL+2
^AUTTMCS - [#9999999.32]	MCR+6
^AUTTPIC - [#9999999.65]	PVT1+17
^AUTTRRP - [#9999999.33]	RRE+9
^DIC(5 - [#5]	PROCLAS+6, PVT1+16
^DPT - [#2]	MCR+14, RRE+12

Name	Line Occurrences
DINACK	MCR+8, MCD+5, RRE+5
DINAPI	PVT1+3
END	RRE+1, RRE+3, RRE+6, RRE+10
FORMAT	INS+3
MCD	MCR+2, MCR+7, MCR+9
MCR	PVT+3
ORDFAC	NAME+3
RRE	MCD+1
SET	MCR+15, MCD+8, RRE+15
SKIP	RATE+2, RATE+5, RATE+6, RATE+8

Name	Field # of Occurrence
^(0	PVT1+16, SET+4
^(21	MCR+14, RRE+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NAME+4*
>> %DT	DINACK+6, DINAPI+3
A	KILL+3!
A(	NAME+4
A(1	FACHRN+1
A(11	SSN+2
A(2	NAME+6
A(3	PATADRS+2
A(4	AGESEX+1
A(5	COMCODE+1
A(7	DESC+2
>> ACHSACFY	PONUM+8
>> ACHSADTE	SIG+5
>> ACHSARCO	RATE+9
>> ACHSASIG	SIG+5, PROVIDER+3
>> ACHSBLKF	NAME+3
ACHSBZD	INS+5, INSOTH3+6, BOX567+1, INSOTH5+6*, AMT+1, END+1!
ACHSBZD("B"	DINACK+12, DINACK+13, DINACK+14, DINAPI+6, DINAPI+7, DINAPI+8
ACHSBZD("DT"	SET+5, SET+6, DINACK+8, DINACK+13, DINACK+14, DINAPI+5, DINAPI+7, DINAPI+8
ACHSBZD("E"	DINACK+12, DINACK+13, DINACK+14, DINAPI+6, DINAPI+7, DINAPI+8
ACHSBZD("I"	DINACK+8, DINACK+10, DINACK+11
ACHSBZD("OK"	PVT1+4, MCR+9, MCD+4, MCD+6, RRE+6, DINACK+4, DINACK+10, DINACK+13, DINACK+14, DINAPI+1 , DINAPI+7, DINAPI+8
ACHSBZD("REC"	DINACK+11*, DINACK+12
>> ACHSCPY	KILL+2
>> ACHSCTYP	PONUM+5, PONUM+6, PONUM+7*, PONUM+9
>> ACHSDCR	PONUM+12
>> ACHSDEST	PROCLAS+6, PROCLAS+7
>> ACHSDHHS	PONUM+9*, PONUM+10
>> ACHSDIEN	PONUM+4, PONUM+6, PONUM+17
>> ACHSDOFY	PONUM+4, PONUM+5, PONUM+8*, PONUM+9
>> ACHSEDTE	SIG+3
>> ACHSESIG	SIG+3, SIG+4
>> ACHSFDT	PVT1+18
>> ACHSFF	TESTPRNT+2*, TESTPRNT+3
ACHSGL	END+1!, SET~, SET+3, SET+4
ACHSINS	PVT1+2, PVT1+8, PVT1+10, PVT1+11, PVT1+12, PVT1+14, MCR+3, MCR+6, MCD+7, RRE+7 , RRE+9, END+1!, SET+1, DINAPI+6
ACHSINS1	PVT1+15*, PVT1+16, END+1!
ACHSINSZ	DINACK~, DINACK+10, DINACK+11
>> ACHSIPRM	INS+2, INSHLD+1, INSHLD+3, INSOTH1+2, PVT1+18, SET+7
>> ACHSL	KILL+2
>> ACHSLTH	RATE+13*
>> ACHSMBI	MCR+5, MCR+6, MCR+7, MCR+12, RRE+8, RRE+9, RRE+10, RRE+11
ACHSMDFN	MCR+3, MCR+14, MCD+3, MCD+4, MCD+7, RRE+2, RRE+3, RRE+7, RRE+12, END+1! , SET+3, SET+4, DINACK+10, DINACK+11
>> ACHSMPP	RATE+2, SKIP+12
ACHSMR	MCR+3, MCD+3, RRE+2*, END+1!, SET+10, SET+11
>> ACHSORDN	PONUM+4, PONUM+5, PONUM+6, PONUM+8, PONUM+9, PONUM+17, PONUM+18
>> ACHSSF	PONUM+17, PONUM+18
>> ACHSSIG	SIG+3, SIG+4
>> ACHSSSNS	SSV+7*
>> ACHSTAB	PONUM+12, PONUM+15, PONUM+17, PONUM+18, NAME+3, NAME+4, NAME+6, INSHLD+4, PATADRS+2, INSNM+1 , SSN+2, INSADRS+1, SSV+7, SSV+10, INSPOL+2, FACHRN+1, INSTYP+1, AGESEX+1, INSBDT+2, DESC+1 , DESC+2, INSEDT+1, ORDFAC+3, ORDFAC+4, ORDFAC+5, INSOTH1+3, ORDADRS1+1, INSOTH2+1, ORDADRS2+1, INSOTH3+4 , INSOTH3+5, BOX567+2, BOX567+3, BOX567+4, INSOTH5+4, INSOTH5+5, AMT+3, CAN+1, OBJ+1, FROMTO+2 , FROMTO+3, REF+2, REF+3, REF+5, REF+6, REF+7, REF+9, REF+10, REF+12, REF+14 , REF+15, RATE+2, RATE+4, RATE+5, RATE+8, RATE+15, SKIP+4, SKIP+8, SKIP+9, SKIP+10 , SKIP+12, SKIP+14, SIG+3, SIG+4, SIG+5, PROVIDER+6, PROTELE+1, PROADRS1+2, EIN+1, PROADRS2+2 , UPIN+1, FAX+2, PROCLAS+2, PROCLAS+6, PROCLAS+7
>> ACHSTAB1	PROVIDER+2*, PROTELE+1
>> ACHSTAB2	PONUM+17*
>> ACHSTPRT	TESTPRNT+4, INS+3, KILL+2
>> ACHSTYPE	TESTPRNT+4
>> ACHSTYPV	PONUM+15, BOX567+2, BOX567+3, BOX567+4
B	KILL+3!
B(1	ORDFAC+4, PROCLAS+7
B(2	ORDADRS1+1, PROCLAS+7
B(3	ORDADRS2+1, PROCLAS+7
B(4	ORDFAC+2, ORDFAC+3, ORDFAC+5
C	KILL+3!
C(5	FROMTO+2, DINACK+5, DINACK+6, DINAPI+2, DINAPI+3
C(6	REF+2
D	KILL+3!
D("FAX"	FAX+2
D(1	PROVIDER+6
D(10	RATE+4, SKIP+10
D(11	SKIP+4
D(12	SKIP+8, SKIP+9
D(13	SKIP+10, SKIP+12
D(14	PROCLAS+2
D(15	SKIP+14
D(2	PROADRS1+2
D(3	PROADRS2+2
D(4	EIN+1
D(6	PROTELE+1
D(8	UPIN+1
D(9	RATE+6, RATE+8, RATE+9, RATE+10, RATE+13*, RATE+15
DA	PVT+2, PVT1+1, PVT1+2, END+1!, SET+2, SET+3, SET+4
>> DFN	SSV+7, PVT+1, PVT+3, PVT1+1, PVT1+2, MCR+2, MCR+3, MCR+5, MCR+6, MCR+14 , MCD+1, MCD+4, RRE+1, RRE+2, RRE+8, RRE+12
DT	MCR+5, RRE+8
DUZ(2	TESTPRNT+2, PONUM+4, PONUM+6, PONUM+9, PONUM+17, RATE+8, SKIP+2, PROVIDER+2, PROVIDER+4, KILL+2
E	KILL+3!
E(11	TESTPRNT+4
E(7	SIG+4
E(9	AMT+3, SIG+5
F	KILL+3!
F(6	RATE+2
F(7	CAN+1
F(8	REF+6
F(9	OBJ+1
I	PROCLAS+5, PROCLAS+6, KILL+3!, PVT1+5
I(	INSHLD+4, INSNM+1, INSADRS+1, SSV+10, INSPOL+2, INSTYP+1, INSBDT+2, INSEDT+1, PVT1+5, PVT1+8 , PVT1+11, PVT1+12, PVT1+14, PVT1+15, PVT1+16, PVT1+17, PVT1+18, PVT1+19, PVT1+20, PVT1+21 , PVT1+22!, MCR+12, MCR+14, MCD+7, RRE+11, RRE+12, SET+1, SET+4, SET+5, SET+6 , SET+8, SET+9*, SET+10, SET+11!
I("B"	INSOTH1+1, INSOTH1+2, INSOTH1+3, INSOTH2+1, INSOTH3+2, INSOTH3+4, INSOTH3+5, INSOTH5+2, INSOTH5+4, INSOTH5+5 , PVT1+21, SET+10
I("P"	INSHLD+2, PVT1+18, SET+7
IO	PONUM+2
IOF	PROCLAS+8
N	INS+4, INSHLD+2, INSHLD+3, INSHLD+4, INSNM+1, INSADRS+1, SSV+10, INSPOL+2, INSTYP+1, INSBDT+2 , INSEDT+1, INSOTH1+1, INSOTH1+2, INSOTH1+3, INSOTH2+1, INSOTH3+1, INSOTH3+2, INSOTH3+3, INSOTH3+4, INSOTH3+5 , INSOTH5+1, INSOTH5+2, INSOTH5+3, INSOTH5+4, INSOTH5+5, KILL+3!, PVT+2, PVT1+2, PVT1+4, PVT1+5 , PVT1+8, PVT1+11, PVT1+12, PVT1+14, PVT1+15, PVT1+16, PVT1+17, PVT1+18, PVT1+19, PVT1+20 , PVT1+21, PVT1+22, MCR+1, MCR+3, MCR+12, MCR+14, MCD+3, MCD+7, RRE+2, RRE+11 , RRE+12, SET+1, SET+4, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11 , SET+12
R	KILL+3!
R("D"	FROMTO+3, REF+3, REF+7
R("P"	REF+5, REF+9, REF+12, REF+14
R(1	REF+10
R(2	REF+15
U	PONUM+4, PONUM+6, PONUM+7, PONUM+9, PONUM+17, INSOTH1+3, INSOTH2+1, INSOTH3+4, INSOTH3+5, INSOTH5+4 , INSOTH5+5, RATE+8, PROCLAS+6, KILL+2, PVT1+8, PVT1+10, PVT1+11, PVT1+12, PVT1+14, PVT1+15 , PVT1+16, PVT1+17, MCR+6, MCR+14, MCD+7, RRE+9, RRE+12, SET+1, SET+4, DINACK+12 , DINAPI+6
X	KILL+3!, PVT1+16, DINACK+6, DINAPI+3*
>> Y	DINACK+8, DINAPI+5

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSRPU

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: