Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: GMRCIAC2

Package: Consult Request Tracking

Routine: GMRCIAC2


Information

GMRCIAC2 ;SLC/JFR - FILE IFC ACTIVITIES CONT'D ; Feb 6, 2023@11:28:17

Source Information

Source file <GMRCIAC2.m>

Entry Points

Name Comments DBIA/ICR reference
FILRES(GMRCO,GMRCOBX) ;file or delete results
UPDORD(GMRCDA,GMRC40) ; update CPRS order if action on placer order.
; Input:
; GMRCDA = ien from file 123
; GMRC40 = ien of activity in 40 multiple
FILEACT(GMRCO,GMRCLAST,GMRCFR,GMRCAR,GMRCCRNR,GMRCROUT) ;file REQUEST PROCESSING ACTIVITY - P184
; Input:
; GMRCO = ien from file 123
; GMRCLAST = last action taken on request
; GMRCFR = service that consult was forwarded from
; GMRCAR = name of the array containing the message
; GMRCCRNR = 1 if from Cerner [OPTIONAL]
; GMRCROUT = Routine station [OPTIONAL]
TST(ARRAY) ;process test message and check item ordered
GETDA(GMRCORC) ; determine what local Consult ien to work on
; Input:
; GMRCORC = ORC seg from incoming message
; Output:
; ien from file 123
DUPACT(GMRCO,ACTVT,ORC,OBX,CRNR,MSGI) ;check to see if activity is a dup transmission ;MKN added CRNR and MSGI
APPACK(GMRCO,ACK,ERR,CRNR,MSGID) ;send application acknowledgement for all cases ;MKN GMRC*3*154 added CRNR and MSGID
MGMSG(ERR,MSGID) ;Send message to required mail groups
SENDMSG(GRP,ERR,ERRTEXT,MSGID) ; Send a MailMan Message with the errors
CRNR ;GMRC CRNR IFC ERRORS;GMRC CRNR IFC TECH ERRORS;GMRC CRNR IFC CLIN ERRORS;GMRC TIER II CRNR IFC ERRORS
101 ;1;1;0;1;Unknown Consult/Procedure request
202 ;1;0;1;1;Local or Unknown MPI Identifiers
301 ;1;0;1;1;Service not Matched to Receiving Facility
401 ;1;0;1;1;Procedure not Matched to Receiving Facility
501 ;1;0;1;1;Error in Procedure Name
601 ;1;0;1;1;Multiple Services Matched to Procedure
701 ;1;0;1;1;Error in Service Name
702 ;1;0;1;1;Service is Disabled
703 ;1;0;1;1;Procedure is Inactive
801 ;1;1;0;1;Inappropriate Action for Specified Request
802 ;1;0;0;1;Duplicate, activity not filed
901 ;1;0;0;1;Unable to Update Record Successfully
902 ;1;0;0;1;Earlier Pending Transactions
903 ;0;0;0;0;HL Logical Link not Found - will not hit the APPACK API
904 ;0;0;0;0;VistA HL7 Unable to Send Transaction - will not hit the APPACK API
201 ;0;0;0;0;Unknown Patient - will not hit the APPACK API

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
123.02 WP^DIE
^XMB(3.8 - [#3.8] GET1^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call