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 |
