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: GMRCHL7U

Package: Consult Request Tracking

Routine: GMRCHL7U


Information

GMRCHL7U ;SLC/DCM,MA - Utilities assoc. with HL7 messages ; 12/1/20 4:51pm

Source Information

Source file <GMRCHL7U.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Consult Request Tracking 5 $$ORTX^GMRCAU  ($$FMDATE,$$MSH,$$PID,BLD,ORC)^GMRCHL7  COMMENT^GMRCHL7B  TRIGR^GMRCIEVT  MSG^GMRCP  
Kernel 2 $$NOW^XLFDT  MSG^XQOR  
VA FileMan 1 ^DIE  

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: 3

Package Total Caller Graph
Consult Request Tracking 3 GMRCGUIB  GMRCHL7A  GMRCHL7B  

Entry Points

Name Comments DBIA/ICR reference
INIT(MSH) ;break out MSH segment separators and set other needed variables
PID(GMRCPID) ;Get fields from PID segment and set into GMRC variables.
NTE(MSG,GMRCNTE,GMRCNODE,CTRLCODE) ;set NTE segments of HL-7 message into variables and globals
PV1(GMRCPV1) ;Get fields from PV1 segment of HL-7 message and set into GMRC variables
REJECT(GMRCMSG,REAS) ;action can't be filed send reject message
RETURN(GMRCIEN,GMRCTRLC) ;return IEN of record in ^GMR(123,IEN, to OERR
FILE(GMRCO,DR) ;File data into ^GMR(123,IEN,40 using ^DIE
EXIT ;Kill variables and exit
AUDIT0 ;place activity audit tracking info into global ^GMR(123,IEN,40,
ALERT(GMRCDFN,GMRCSS,GMRCPR,GMRCFN,GMRCURG,GMRCORA) ;generate an alert when receiving a consult
CHKTXT(GMRCTXT) ;Added by GMRC*3*168

External References

Name Field # of Occurrence
^DIE FILE+9
$$ORTX^GMRCAU ALERT+9
$$FMDATE^GMRCHL7 PV1+7
$$MSH^GMRCHL7 REJECT+11, RETURN+5
$$PID^GMRCHL7 RETURN+6
BLD^GMRCHL7 RETURN+8
ORC^GMRCHL7 RETURN+7
COMMENT^GMRCHL7B FILE+10, FILE+11
TRIGR^GMRCIEVT FILE+14
MSG^GMRCP ALERT+11
$$NOW^XLFDT AUDIT0+7
MSG^XQOR REJECT+16, RETURN+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] FILE+5, FILE+6, FILE+8*, FILE+13, FILE+15, AUDIT0+8*, AUDIT0+16
^GMR(123.1 - [#123.1] NTE+7, AUDIT0+12
^ORD(101 - [#101] ALERT+9

Label References

Name Line Occurrences
FILE AUDIT0+15

Naked Globals

Name Field # of Occurrence
^(0 FILE+5*, FILE+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CTRLCD REJECT+5~, REJECT+7*, REJECT+8
CTRLCODE NTE~, NTE+7
DA FILE+1~, FILE+6*, FILE+8
DA(1 FILE+6*
>> DFN PID+1*
DIE FILE+1~, FILE+7*
>> DILOCKTM FILE+5, AUDIT0+8
DR FILE~, AUDIT0+14*, AUDIT0+15
GMRCA EXIT+2!
GMRCACT NTE+5~, NTE+7*, EXIT+2!, AUDIT0+12*, AUDIT0+13*
GMRCACTI FILE+1~, FILE+6*, FILE+14
GMRCAD NTE+6*, EXIT+2!, AUDIT0+9*
GMRCADUZ ALERT+11, ALERT+12!
GMRCAP EXIT+2!
GMRCAPP EXIT+2!
GMRCATN EXIT+2!
GMRCCMT FILE+11, EXIT+5!
GMRCDA EXIT+2!, AUDIT0+6~, AUDIT0+7*, AUDIT0+9
GMRCDEV NTE+6*, EXIT+2!, AUDIT0+9*
GMRCDFN ALERT~, ALERT+11
GMRCDSID EXIT+4!
GMRCERDT EXIT+4!
GMRCFAC EXIT+2!
GMRCFF NTE+6*, EXIT+2!, AUDIT0+9*
GMRCFN REJECT+5~, REJECT+6*, REJECT+8, ALERT~, ALERT+11
GMRCFQ EXIT+2!
GMRCIEN RETURN~, RETURN+6, RETURN+7
GMRCINTR EXIT+2!
>> GMRCMESS REJECT+16
>> GMRCMESS(1 REJECT+13*
>> GMRCMESS(2 REJECT+14*
>> GMRCMESS(3 REJECT+15*
GMRCMSG REJECT~, RETURN+9, EXIT+2!
GMRCMSG( REJECT+2, REJECT+3, REJECT+4, REJECT+6, REJECT+7
GMRCMSH EXIT+2!
GMRCMTP EXIT+2!
GMRCNATO EXIT+4!
GMRCND EXIT+3!
GMRCND1 EXIT+3!
GMRCNOD EXIT+2!
GMRCNODE NTE~
GMRCNTC FILE+10, EXIT+2!
GMRCNTC( NTE+9*
GMRCNTC(1 NTE+8*
GMRCNTE NTE~, NTE+8, NTE+9
GMRCO FILE~, FILE+4, FILE+5, FILE+6, FILE+7, FILE+8, FILE+13, FILE+14, FILE+15, EXIT+6!
AUDIT0+8, AUDIT0+15, AUDIT0+16, ALERT+9
GMRCODT EXIT+2!
GMRCOFN EXIT+5!
GMRCOID EXIT+2!
GMRCORA ALERT~, ALERT+10*, ALERT+11
GMRCORCC RETURN+3~, RETURN+4*, RETURN+7
GMRCORFN EXIT+2!
GMRCORNP NTE+6*, EXIT+6!, AUDIT0+9*
GMRCORPV EXIT+4!
GMRCORTX ALERT+8~, ALERT+9*, ALERT+11
GMRCOTXT EXIT+4!
GMRCPA NTE+6*, EXIT+2!, AUDIT0+9*
GMRCPID PID~, PID+1
GMRCPLCR EXIT+2!, AUDIT0+9*
GMRCPLI EXIT+2!
GMRCPNM PID+1*, EXIT+2!
GMRCPR EXIT+2!, ALERT~
GMRCPRA EXIT+4!
GMRCPRDG EXIT+3!
GMRCPRI EXIT+2!
GMRCPRV EXIT+3!
GMRCPV1 PV1~, PV1+4, PV1+5
GMRCRB PV1+6*, EXIT+4!
GMRCRFQ EXIT+4!
GMRCS123 EXIT+5!
GMRCS38 EXIT+5!
>> GMRCSBR PV1+4*
GMRCSEND EXIT+3!
GMRCSS EXIT+6!, ALERT~
GMRCSTDT EXIT+3!
GMRCSTS EXIT+3!
GMRCTRLC RETURN~, RETURN+4, RETURN+8, EXIT+6!, AUDIT0+12
GMRCTXT CHKTXT~, CHKTXT+2, CHKTXT+3, CHKTXT+4*, CHKTXT+5
GMRCTYPE EXIT+3!
GMRCURG ALERT~, ALERT+9
GMRCURGI EXIT+3!
GMRCVAL EXIT+3!
>> GMRCVSIT PV1+7*
GMRCVTYP EXIT+3!
GMRCWARD PV1+5*, EXIT+3!
HLQ EXIT+1!
I REJECT+1~, REJECT+2*, REJECT+3, REJECT+4, REJECT+6, REJECT+7
J EXIT+1!
LN NTE+9*, NTE+10!, EXIT+1!
LN1 NTE+9*, NTE+10!
MSG NTE~
MSG( NTE+8, NTE+9
MSH INIT~, INIT+4, REJECT+1~, REJECT+11*, REJECT+12*, REJECT+13, RETURN+3~, RETURN+5*, RETURN+8, EXIT+4!
ND EXIT+1!
ND1 EXIT+1!
ND2 EXIT+1!
OBXND EXIT+4!
ORC REJECT+1~, REJECT+8*, REJECT+10*, REJECT+15, RETURN+3~, RETURN+7*, RETURN+8
ORFN REJECT+5~, REJECT+6*, REJECT+8
P17 REJECT+5~, REJECT+9*, REJECT+10
PID REJECT+3*, REJECT+14, RETURN+3~, RETURN+6*, RETURN+8, EXIT+4!
REAS REJECT~, REJECT+9
SEP1 INIT+3*, INIT+4*, PID+1, NTE+8, PV1+4, PV1+5, REJECT+12, RETURN+4*, RETURN+5, EXIT+1!
SEP2 INIT+3*, INIT+5*, PV1+5, PV1+6, EXIT+1!
SEP3 INIT+3*, INIT+5*, EXIT+1!
SEP4 INIT+3*, INIT+5*, EXIT+1!
SEP5 INIT+3*, INIT+5*, EXIT+1!
VISIT PV1+5*, PV1+7, EXIT+3!
X INIT+2~, INIT+4*, INIT+5, PV1+3~, PV1+4*, PV1+5*, PV1+6, RETURN+5
X1 CHKTXT+1~, CHKTXT+2*, CHKTXT+3, CHKTXT+4
X2 CHKTXT+1~, CHKTXT+3*, CHKTXT+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All