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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Routine: GMRCIUTL

Package: Consult Request Tracking

Routine: GMRCIUTL


Information

GMRCIUTL ;SLC/JFR - UTILITIES FOR INTER-FACILITY CONSULTS ;11/26/01 15:34

Source Information

Source file <GMRCIUTL.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 $$NOW^XLFDT  ($$FMNAME,$$HLNAME,$$NAMEFMT)^XLFNAME  ($$IEN,$$NS,$$STA)^XUAF4  $$KSP^XUPARAM  
Consult Request Tracking 3 $$MSA^GMRCISEG  $$ORCRESP^GMRCISG1  GETSVC^GMRCPR0  
VA FileMan 2 $$FIND1^DIC  UPDATE^DIE  
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: 8

Package Total Caller Graph
Consult Request Tracking 8 GMRCIAC1  GMRCIAC2  GMRCIACT  GMRCIEV1  GMRCIEVT  GMRCIMSG  GMRCISEG  GMRCISG1  

Entry Points

Name Comments DBIA/ICR reference
DIV(LOC) ; get the division from a hospital location
; Input -- LOC HOSPITAL LOCATION file (#44) IEN
; Output -- INSTITUTION file (#4) IEN^INSTITUTION file (#4) NAME
HLNAME(GMRCWHO)
UNHLNAME(GMRCNM,GMRCNMC,STD,DEL) ;return regular name from HL7 name
TRIMWP(ARRAY,PIECE) ;trim OBX or NTE segments so that only comment remains
; Input:
; ARRAY = the array in which the segments are contained
; ex. ^TMP("GMRCIF",541083753,"OBX",3,3)=3|TX|^COMMENTS^|3|text "
; PIECE = the piece in the array where the text lives
;
; Output:
; trimmed array
; ex. ^TMP("GMRCIF",541083753,"OBX",3,3)="text"
VALMSG(GMRCPID,GMRCORC) ; determine if message is valid
URG(GMRCO) ;return urgency code to send in HL7 msg
; Input:
; GMRCO = consult ien from file 123
GETSERV(GMRCSRV) ;return local service from IFC service in HL7 msg
GETPROC(GMRCSID) ;return procedure and sercvice ordered by IFC
CODEOI(GMRCDA) ; look at ordered procedure or service and code it for IFC msg
RESP(GMRCAC,GMRCMID,GMRCOC,GMRCDA,GMRCERR) ;build and send appl ACK/NAK
; Input:
; GMRCAC = acknowledgement code (AA or AR)
; GMRCMID = message id from original msg
; GMRCOC = order control from original msg ORC
; GMRCDA = ien of consult being worked on
; GMRCERR = only defined if an error is found
LOGMSG(GMRCO,GMRCACT,GMRCMSG,GMRCER) ;create or update IFC MESSAGE LOG entry
ERR101 ;Unknown Consult/Procedure request
ERR201 ;Unknown Patient
ERR202 ;Local or unknown MPI identifiers
ERR301 ;Service not matched to receiving facility
ERR401 ;Procedure not matched to receiving facility
ERR501 ;Error in procedure name
ERR601 ;Multiple services matched to procedure
ERR701 ;Error in Service name
ERR702 ;Service is Disabled
ERR703 ;Procedure is Inactive
ERR801 ;Inappropriate action for specified request
ERR802 ;Duplicate, activity not filed
ERR901 ;Unable to update record successfully
ERR902 ;Earlier pending transactions
ERR903 ;HL Logical Link not found
ERR904 ;VistA HL7 unable to send transaction

External References

Name Field # of Occurrence
$$FIND1^DIC GETSERV+7, GETPROC+8
UPDATE^DIE LOGMSG+14, LOGMSG+25
$$MSA^GMRCISEG RESP+8
$$ORCRESP^GMRCISG1 RESP+10
GETSVC^GMRCPR0 GETPROC+17
$$SITE^VASITE DIV+7
$$NOW^XLFDT LOGMSG+10, LOGMSG+17
$$FMNAME^XLFNAME UNHLNAME+16
$$HLNAME^XLFNAME HLNAME+6
$$NAMEFMT^XLFNAME UNHLNAME+17
$$IEN^XUAF4 GETSERV+11, GETPROC+12
$$NS^XUAF4 DIV+11
$$STA^XUAF4 CODEOI+9
$$KSP^XUPARAM CODEOI+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123.3 - [#123.3] FIND1^DIC
^GMR(123.5 - [#123.5] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] URG+17, CODEOI+10, CODEOI+11, CODEOI+14, LOGMSG+18
^GMR(123.3 - [#123.3] GETPROC+14, GETPROC+21, CODEOI+12
^GMR(123.5 - [#123.5] GETSERV+13, GETSERV+16, CODEOI+15
^GMR(123.6 - [#123.6] LOGMSG+8, LOGMSG+12
^ORD(101 - [#101] URG+18
^ORD(101.42 - [#101.42] URG+21, URG+23
^SC - [#44] DIV+5
^VA(200 - [#200] HLNAME+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY TRIMWP~, TRIMWP+11, TRIMWP+12
DEL UNHLNAME~, UNHLNAME+14*
DUZ(2 DIV+11
ERROR GETSERV+6~, GETSERV+8*, GETSERV+9, GETSERV+12, GETSERV+14*, GETSERV+15, GETSERV+17*, GETSERV+18, GETPROC+7~, GETPROC+9*
, GETPROC+10, GETPROC+13, GETPROC+15*, GETPROC+16, GETPROC+18*, GETPROC+20, GETPROC+22*, GETPROC+23
FDA LOGMSG+7~
FDA(1 LOGMSG+10*, LOGMSG+11*, LOGMSG+12*, LOGMSG+13*, LOGMSG+17*, LOGMSG+18*, LOGMSG+19*, LOGMSG+20*, LOGMSG+21*, LOGMSG+22*
, LOGMSG+23*, LOGMSG+24*
GMRC HLNAME+2~, HLNAME+6
GMRC("FIELD" HLNAME+5*
GMRC("FILE" HLNAME+3*
GMRC("IENS" HLNAME+4*
GMRCAC RESP~, RESP+8
GMRCACT LOGMSG~, LOGMSG+8, LOGMSG+21
GMRCDA VALMSG+12~, CODEOI~, CODEOI+10, CODEOI+11, CODEOI+14, RESP~, RESP+10
GMRCDIV DIV+4~, DIV+9*, DIV+10, DIV+11*, DIV+12
GMRCER LOGMSG~, LOGMSG+13, LOGMSG+24
GMRCERR RESP~, RESP+8, LOGMSG+7~
GMRCHL DIV+4~, DIV+5*, DIV+6, DIV+7
GMRCINST VALMSG+12~
GMRCLG LOGMSG+7~, LOGMSG+8*, LOGMSG+9, LOGMSG+10, LOGMSG+11, LOGMSG+12, LOGMSG+13
GMRCMID RESP~, RESP+8
GMRCMSG LOGMSG~, LOGMSG+11, LOGMSG+19
GMRCNM UNHLNAME~, UNHLNAME+15
GMRCNMC UNHLNAME~, UNHLNAME+15*, UNHLNAME+16*, UNHLNAME+17*
GMRCO URG~, URG+17, LOGMSG~, LOGMSG+8, LOGMSG+18, LOGMSG+20
GMRCOC RESP~, RESP+9, RESP+10
GMRCOI CODEOI+8~, CODEOI+12*, CODEOI+13, CODEOI+15*, CODEOI+16
GMRCORC VALMSG~
GMRCPID VALMSG~
GMRCPR GETPROC+7~, GETPROC+8*, GETPROC+9, GETPROC+14, GETPROC+17, GETPROC+21, GETPROC+23, CODEOI+8~, CODEOI+11*, CODEOI+12
GMRCSID GETPROC~, GETPROC+8, GETPROC+11
GMRCSIT CODEOI+8~, CODEOI+9*, CODEOI+12, CODEOI+15
GMRCSRV GETSERV~, GETSERV+7, GETSERV+10
GMRCSS GETPROC+7~, GETPROC+17, GETPROC+18, GETPROC+19*, GETPROC+23, CODEOI+8~, CODEOI+14*, CODEOI+15
GMRCSS(1 GETPROC+19
GMRCSTN DIV+4~, DIV+7*, DIV+8, DIV+9
GMRCWHO HLNAME~, HLNAME+1, HLNAME+4
>> HLA("HLA" RESP+8*, RESP+10*
I TRIMWP+10~*, TRIMWP+11*, TRIMWP+12
LOC DIV~, DIV+5
ORURG URG+16~, URG+20*, URG+21*, URG+22, URG+23
PIECE TRIMWP~, TRIMWP+12
PROT URG+16~, URG+17*, URG+18
SENDER GETSERV+6~, GETSERV+10*, GETSERV+11*, GETSERV+13, GETPROC+7~, GETPROC+11*, GETPROC+12*, GETPROC+14
SERV GETSERV+6~, GETSERV+7*, GETSERV+8, GETSERV+13, GETSERV+16, GETSERV+18
STD UNHLNAME~, UNHLNAME+17
U DIV+5, DIV+8, DIV+9, DIV+11, UNHLNAME+14, URG+17, URG+18, GETSERV+7, GETSERV+10, GETSERV+16
, GETPROC+8, GETPROC+11, GETPROC+21, GETPROC+23, CODEOI+10, CODEOI+11, CODEOI+12, CODEOI+14, CODEOI+15, LOGMSG+12
, LOGMSG+18
URG URG+16~, URG+18*, URG+19, URG+20
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables  | All