Routine: RMPRHL7A

Information

RMPRHL7A ;HINES CIOFO/HNC - Receive HL-7 CPRS Message, parse into components and store in File 668 ;3/13/00

Package	Total	Call Graph
Prosthetics	3	$$FMDATE^RMPRHL7 NEW^RMPRHL7B (EXIT,PID,PV1,REJECT)^RMPRHL7U
Order Entry Results Reporting	1	$$PKGID^ORX8
VA FileMan	1	^DIE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Kernel	1	^ORD(101
Prosthetics	1	RMPR RECEIVE

Entry Points

Name	Comments	DBIA/ICR reference
URG(X)	;Return Urgency give Z-code from HL-7 segment; see ORC+9
ORC(RMPRORC)	;Get fields from ORC segment and set into RMPR variables
OBR(RMPROBR)	;Get fields from OBR segment and set into RMPR variables
DG1(RMPRDG1)	;Get fields from DG1 and ZCL segments ; RMPRSID = Set ID ; RMPRDIAG = pointer to ICD DIAGNOSIS (#80) ; RMPRCI = Outpat. Classification Type ; RMPRVAL = Value of each SC or EI - 0,1,Null.
ZSV(RMPRZSV)	;Get service from ZSV segment
OBX(RMPROBX)	;Get fields from OBX segment and set into RMPR variables
EN(MSG)	;Entry point from protocol RMPR RECEIVE
RTN(RMPRORN,RMPRO)	;Put ^OR(100, ien for order into ^RMPR(668,

External References

Name	Field # of Occurrence
^DIE	RTN+3
$$PKGID^ORX8	RTN+6
$$FMDATE^RMPRHL7	ORC+21, OBR+24, OBR+27
NEW^RMPRHL7B	EN+37
EXIT^RMPRHL7U	EN+32, EN+33, EN+34, EN+35, EN+39, EN+43, RTN+8
PID^RMPRHL7U	EN+16
PV1^RMPRHL7U	EN+17
REJECT^RMPRHL7U	EN+39, RTN+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RMPR(668 - [#668]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123.5 - [#123.5]	OBR+11
^RMPR(668 - [#668]	RTN+3, RTN+6, RTN+7*
^TMP("SPS"	ORC+1*

Label References

Name	Line Occurrences
$$URG	ORC+18
DG1	EN+24
OBR	EN+21
OBX	EN+27
ORC	EN+19
RTN	EN+41
ZSV	EN+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	RTN+1*
DFN	EN+5~
DIE	RTN+2*, RTN+4!
DR	RTN+2*, RTN+4!
LN	OBX+11, OBX+21, OBX+23!
MSG	EN~, EN+39, RTN+8
MSG(	DG1+5, OBX+6, OBX+11, OBX+21, EN+10, EN+15
N	EN+14*, EN+30!
>> NL	OBX+21
ORC	EN+7~
ORIFN	EN+6~
PRDXSEG	OBX+16~*, OBX+17, OBX+18
RMPR99C	OBR+7~, OBR+8*, OBR+9
RMPRACT	EN+5~
RMPRAD	ORC+21*, EN+7~
RMPRADD	EN+5~
>> RMPRAPP	ORC+13*
>> RMPRATN	OBR+25*
>> RMPRCI	DG1+11*, DG1+13
>> RMPRCMT(	OBX+21*
>> RMPRCMT(1	OBX+20*
RMPRDG1	DG1~, DG1+5
>> RMPRDIAG	DG1+8*, DG1+9
RMPRFAC	EN+5~, EN+11*
>> RMPRGMRC	RTN+6*, RTN+7
>> RMPRI	EN+9*
>> RMPRINTR	OBR+29*
>> RMPRMSG	ORC+9, DG1+5, DG1+6, DG1+7, DG1+8, DG1+10, DG1+11, DG1+12, OBX+6, OBX+7 , OBX+10, OBX+14, OBX+16, OBX+20, EN+9, EN+10, EN+11, EN+14, EN+15, EN+16 , EN+17, EN+19, EN+21, EN+24, EN+26, EN+27
>> RMPRMSG1(	DG1+9, DG1+13
RMPRMSGO	EN+8~
RMPRMTP	EN+5~, EN+11*
>> RMPRNATO	ORC+23*
>> RMPRNOD	EN+9, EN+10, EN+14, EN+15, EN+24, EN+27
RMPRO	ORC+19*, EN+5~, EN+39, EN+41, RTN~, RTN+1, RTN+3, RTN+6, RTN+7
RMPROBR	OBR~, OBR+8, OBR+10, OBR+23, OBR+25, OBR+26, OBR+28, OBR+29
RMPROBX	OBX~, OBX+6, OBX+11, OBX+21
RMPROCR	ORC+22*, ORC+23, EN+5~
RMPRODT	ORC+20~, ORC+21, OBR+23, OBR+24*
>> RMPROID	OBX+7*, OBX+8, OBX+9, OBX+13, OBX+19
RMPRORC	ORC~, ORC+1, ORC+10, ORC+11, ORC+13, ORC+14, ORC+15, ORC+16, ORC+17, ORC+19 , ORC+20, ORC+22
RMPRORFN	ORC+11, ORC+12, EN+6~, EN+41
RMPRORN	RTN~
RMPRORNP	ORC+17*, EN+5~
RMPROTXT	ZSV+3*, EN+7~
RMPRPLCR	ORC+16*, EN+6~
RMPRPNM	EN+5~
>> RMPRPRCD	OBX+18*
>> RMPRPRDG	OBX+14, OBX+17
>> RMPRQT	ORC+9, OBR+9, OBR+21, EN+14, EN+15, EN+20, EN+21*, EN+22
RMPRRB	EN+6~
>> RMPRRFQ(	OBX+11*
>> RMPRRFQ(1	OBX+10*
>> RMPRS38	ORC+14*
>> RMPRS668	OBR+28*
RMPRSBR	EN+7~
RMPRSEND	EN+6~, EN+11*
>> RMPRSID	DG1+6*, DG1+9, DG1+13
RMPRSS	OBR+9, OBR+11, OBR+13, OBR+14, OBR+15, OBR+16, OBR+17, OBR+19, OBR+21, EN+7~ , EN+21!, EN+34, EN+35
RMPRSST	OBR+10*, OBR+11, EN+7~
>> RMPRSTDT	OBR+26, OBR+27
RMPRSTS	EN+6~
RMPRTRLC	ORC+10*, EN+6~, EN+7~, EN+32, EN+33
>> RMPRURGI	ORC+15, ORC+18
>> RMPRVAL	DG1+12, DG1+13, OBX+8
>> RMPRVTYP	OBX+7*, OBX+14, OBX+15
RMPRWARD	EN+6~
RMPRZSS	ZSV+1*, EN+7~
RMPRZSV	ZSV~, ZSV+1, ZSV+3
U	OBR+11, RTN+6, RTN+7
X	URG~, URG+1, URG+2, URG+3

Customize PDF page

Package: Prosthetics