MAGDTR01 ;WOIFO/PMK/NST - Unread List for Consult/Procedure Request ; 12 Apr 2012 1:24 AM
Source file <MAGDTR01.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ENTRY | ; entry point from ^MAGDHWC for a consult request
|
|
ORRIN | ; entry point for processing IFC responses
|
|
ORRINER1 | ; Log the error
|
|
ORRINER2 | ; Unwind
|
|
ORRINPRC | ;
; this is "piggy-backed" onto the GMRC IFC ORM EVENT protocol ; see the RESPONSE PROCESSING ROUTINE for this protocol ; the HL7 event handler first invokes ORRIN^GMRCIMSG and then this |
|
GETHL7A(STATUS,GMRCIEN) | ; get data from HL7 message - called from above
; input: none ; output: PERSON name of person ordering the consult ; LOCATION IEN of the location from which the consult is ordered |
|
GETHL7B(PERSON,LOCATION) | ; get data from HL7 message - call from ^MAGDTR03
; input: none ; output: PERSON name of person ordering the consult ; LOCATION IEN of the location from which the consult is ordered |
|
GETHL7 | ; get data from HL7 message
; called from above and also called from ^MAGDTR03 |
|
FINDLIST(GMRCIEN,ISPECIDX,IPROCIDX,ACQSITE,TRIGGER,TIUNOTE,ALTSERV) | ;
; find the read/unread list for this consult |
FileNo | Call Tags |
---|---|
^GMR(123 - [#123] | GET1^DIQ |