Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: GMRCHL7

Package: Consult Request Tracking

Routine: GMRCHL7


Information

GMRCHL7 ;SLC/DCM,JFR - CONSULTS-->CPRS HL7 MESSAGING ;May 15, 2020@11:01:07

Source Information

Source file <GMRCHL7.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 ($$FMTHL7,$$HL7TFM,$$NOW)^XLFDT  MSG^XQOR  
Consult Request Tracking 1 (NTE,OBR,OBX)^GMRCHL72  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 20

Package Total Caller Graph
Consult Request Tracking 20 GMRC101H  GMRCA1  GMRCAAC  GMRCADC  GMRCAFRD  GMRCASF  GMRCDIS  GMRCGUIA  
GMRCGUIB  GMRCGUIC  GMRCGUIS  GMRCHL72  GMRCHL7A  GMRCHL7U  GMRCIAC1  GMRCIAC2  
GMRCMED  GMRCR  GMRCSTS1  GMRCTIU1  

Entry Points

Name Comments DBIA/ICR reference
INIT
MSH(X) ;Format MSH segment of HL-7 message.
PID(GMRCIEN) ;Format the HL-7 PID segment
PV1(GMRCIEN,RMBED,VISIT) ;Format the HL-7 PV1 segment
NTE(NTE,ND) ;Format the HL-7 NTE segment
EN(PATID,GMRCIEN,GMRCRTYP,RMBED,ORCTRL,GMRCPLCR,VISIT,GMRCOM,GRPUPD,ACTDT) ;;Main entry point
BLD(MSH,PID,PV1,ORC,OBR,ZSV,OBX,NTE,CTRLCD) ;Build the HL-7 message global to pass to OR
HL7DT(DATE) ;Convert Fileman Date to HL-7 Date
FMDATE(DATE) ;Convert HL-7 formatted date to a Fileman formatted date
ORC(GMRCIEN,GMRCTRL,ORCPLCR,MAINT,GMRCDT) ;Build ORC segment of HL-7 msg
ZSV(GMRCO) ;build ZSV segment for at least forward

External References

Name Field # of Occurrence
NTE^GMRCHL72 EN+27
OBR^GMRCHL72 EN+23
OBX^GMRCHL72 EN+26
$$SITE^VASITE MSH+4
$$FMTHL7^XLFDT HL7DT+2
$$HL7TFM^XLFDT FMDATE+2
$$NOW^XLFDT ORC+14
MSG^XQOR EN+30

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PID+4
^GMR(123 - [#123] PID+3, PV1+2, PV1+3, ORC+8, ORC+11, ORC+12, ORC+15, ORC+17, ZSV+2, ZSV+5
, ZSV+7, ZSV+8
^GMR(123.5 - [#123.5] ZSV+4
^ORD(100.01 - [#100.01] ORC+16
^ORD(101 - [#101] ORC+8
^ORD(101.42 - [#101.42] ORC+10

Label References

Name Line Occurrences
$$HL7DT PV1+3, ORC+11, ORC+12, ORC+13, ORC+23
$$MSH EN+17
$$PID EN+18
$$PV1 EN+19
BLD EN+28
INIT MSH+3
NTE BLD+5
ORC EN+20
ZSV EN+25

Naked Globals

Name Field # of Occurrence
^(0 PV1+3, ORC+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTDT EN~, EN+20, EN+23
CTRLCD BLD~
CTYPE ZSV+1~, ZSV+5*, ZSV+6*, ZSV+7*, ZSV+9
DATE HL7DT~, HL7DT+1, HL7DT+2, HL7DT+4, FMDATE~, FMDATE+1, FMDATE+2
DSID ZSV+1~, ZSV+8*, ZSV+9
DUZ(2 MSH+4
GMRCA EN+15~
>> GMRCAUTH EN+23
GMRCDPT PID+3*, PID+4, PID+5, PID+6!
GMRCDT ORC~, ORC+14*, ORC+23*, ORC+26
GMRCERDT ORC+6~, ORC+11*, ORC+22
GMRCIEN PID~, PID+3, PV1~, PV1+2, PV1+3, EN~, EN+18, EN+19, EN+20, EN+23
, EN+25, EN+26, EN+27, ORC~, ORC+8, ORC+11, ORC+12, ORC+15, ORC+17, ORC+25
GMRCMSG EN+30, EN+31!
GMRCMSS EN+14!
GMRCND NTE+2*, NTE+4*, EN+31!
GMRCND1 NTE+2*, NTE+3*, NTE+4*, EN+31!, BLD+11*, BLD+12
GMRCNLTD ORC+6~, ORC+12*, ORC+22
GMRCNOD EN+31!
GMRCO ZSV~, ZSV+2, ZSV+5, ZSV+7, ZSV+8
GMRCOM EN~, EN+27
GMRCOM(0 EN+27
GMRCORFN EN+31!
GMRCPLCR EN~, EN+20
GMRCPLI EN+15~, EN+31!
GMRCPR EN+16~
GMRCPRI EN+31!
GMRCPTN PID+4*, PID+5, PID+6!
GMRCRTYP EN~
GMRCSS EN+16~
GMRCSTS PV1+1~, PV1+3*, PV1+4, PV1+5!
GMRCTRL ORC~, ORC+7*, ORC+20, ORC+24
GMRCTYPE EN+16~
GMRCURG ORC+6~, ORC+10*, ORC+22
GMRCURGI EN+15~
GRPUPD EN~, EN+20
HL7DT EN+31!
HLQ INIT*, MSH+3, EN+31!
HOSPLOC PV1+2*, PV1+3, PV1+4, PV1+5!
J EN+31!, BLD+3*
MAINT ORC~, ORC+21
MSG NTE+3, NTE+4, EN+15~, BLD+1*, BLD+2, BLD+3, BLD+4, BLD+6, BLD+7, BLD+10
, BLD+12
MSH EN+15~, EN+17*, EN+28, BLD~
ND NTE~, NTE+3, NTE+4, EN+31!, BLD+1*, BLD+3*, BLD+4*, BLD+5*, BLD+6*, BLD+7*
, BLD+10, BLD+12, BLD+13*
ND1 EN+31!
ND2 EN+31!
NOTIFY EN+31!
NTE NTE~, NTE+1, EN+15~, EN+28, BLD~, BLD+5
NTE( NTE+3, NTE+4
NTE(0 NTE+1, BLD+5
OBR EN+15~, EN+28, BLD~, BLD+6
OBX EN+15~, EN+28, BLD~
OBX( BLD+9, BLD+10, BLD+11, BLD+12
OBX("" BLD+8
OBXND EN+31!, BLD+8*, BLD+9*, BLD+10, BLD+11, BLD+12
OBXNO EN+31!
ORC EN+15~, EN+22*, EN+28, BLD~, BLD+4, ORC+24*, ORC+25*, ORC+26*
ORCACT EN+31!, ORC+6~, ORC+16*
ORCDT EN+31!, ORC+6~, ORC+8*, ORC+13*, ORC+26
ORCNATR ORC+6~, ORC+19*, ORC+20*, ORC+21*, ORC+26
ORCPLCR EN+16~, ORC~, ORC+26
ORCPRV ORC+6~, ORC+8*, ORC+26
ORCSTS ORC+6~, ORC+18*, ORC+25
ORCTRL EN~, EN+13, EN+19, EN+20, EN+21*, EN+22, EN+23, EN+26, EN+27, EN+28
ORIEN ORC+6~, ORC+17*, ORC+24
ORURG EN+31!, ORC+8*, ORC+9*, ORC+10
PATID EN~
PID EN+15~, EN+18*, EN+28, BLD~
PV1 EN+15~, EN+19*, EN+28, BLD~
QUANT ORC+6~, ORC+22*, ORC+25
REAS ORC+6~, ORC+7*, ORC+20
RMBED PV1~, PV1+4, EN~, EN+19
SEP1 INIT+1*, PV1+1~, EN+22, EN+31!
SEP2 INIT+1*, EN+31!
SEP3 INIT+1*, EN+31!
SEP4 INIT+1*, EN+31!
SEP5 INIT+1*, EN+31!
SERV ZSV+1~, ZSV+2*, ZSV+3, ZSV+4, ZSV+9
SERVNM ZSV+1~, ZSV+4*, ZSV+6, ZSV+9
STS ORC+6~, ORC+15*, ORC+16, ORC+18
U EN+21, ORC+7, ORC+16, ZSV+2, ZSV+4, ZSV+7, ZSV+9
VISIT PV1~, PV1+3*, PV1+4, PV1+5!, EN~, EN+19
X MSH~, MSH+2~, MSH+4*, MSH+5, PID+2~, PID+5*, PID+7, PV1+1~, PV1+4*, PV1+6
, HL7DT+3~, HL7DT+4*, HL7DT+5, FMDATE+3~
Y PV1+1~, PV1+5!
ZSV EN+15~, EN+28, BLD~, BLD+7, ZSV+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All