MAGDTR01 ;WOIFO/PMK/NST - Unread List for Consult/Procedure Request ; 12 Apr 2012 1:24 AM
Source file <MAGDTR01.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Field # of Occurrence |
|---|---|
| ^%ZTER | ORRINER1+1 |
| $$GET1^DIQ | ENTRY+20, FINDLIST+6, FINDLIST+7, FINDLIST+8 |
| $$PARSE^MAG7UP | GETHL7+15 |
| $$GETDATA^MAGDHRC0 | GETHL7A+13, GETHL7A+14, GETHL7B+14, GETHL7B+15, GETHL7B+16, GETHL7B+17, GETHL7B+18, GETHL7B+25 |
| $$GETSEG^MAGDHRC0 | GETHL7A+11, GETHL7B+12, GETHL7B+24 |
| $$FINDLIST^MAGDTR01 | ORRINPRC+15 |
| GETHL7A^MAGDTR01 | ORRINPRC+14 |
| $$TIMESTMP^MAGDTR02 | ORRINPRC+17 |
| $$UNREAD^MAGDTR02 | ORRINPRC+16 |
| FORWARD^MAGDTR02 | ENTRY+16 |
| ADD^MAGDTR03 | ENTRY+6, ENTRY+22 |
| CANCEL^MAGDTR03 | ENTRY+11, ENTRY+28 |
| COMPLETE^MAGDTR03 | ENTRY+25 |
| $$IEN^XUAF4 | GETHL7B+25 |
| FileNo | Call Tags |
|---|---|
| ^GMR(123 - [#123] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^MAG(2006.5841 - [#2006.5841] | FINDLIST+9, FINDLIST+11 |
| ^MAG(2006.5849 - [#2006.5849] | ORRINPRC+18, ORRINPRC+20*, ORRINPRC+23*, ORRINPRC+26!, ORRINPRC+27* |
| ^TMP("MAG" | GETHL7+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACQSITE | ORRINPRC+10~, ORRINPRC+24*, ORRINPRC+26, ORRINPRC+27, FINDLIST~, FINDLIST+3*, FINDLIST+13* |
| ALTSERV | FINDLIST~, FINDLIST+5 |
| CONSPROC | FINDLIST+2~, FINDLIST+7*, FINDLIST+8 |
| >> DEL | ENTRY+5, ENTRY+10, ENTRY+15 |
| >> DEL2 | ENTRY+15 |
| GMRCIEN | ENTRY+6, ENTRY+20, ENTRY+22, ORRINPRC+5~, ORRINPRC+14, ORRINPRC+15, ORRINPRC+16, GETHL7A~, GETHL7A+10*, GETHL7A+14* , FINDLIST~, FINDLIST+4, FINDLIST+6, FINDLIST+7, FINDLIST+8 |
| GMRCSTS | ENTRY+1~, ENTRY+20*, ENTRY+21, ENTRY+24, ENTRY+27 |
| >> HL7ORC | ENTRY+5, ENTRY+10, ENTRY+15 |
| HL7PARSE | GETHL7A+5~, GETHL7A+16, GETHL7B+5~, GETHL7B+26, GETHL7+10*, GETHL7+12, GETHL7+15 |
| HL7RAW | GETHL7A+6~, GETHL7B+6~, GETHL7+11*, GETHL7+14, GETHL7+15 |
| HL7SEGNO | GETHL7A+7~, GETHL7A+11*, GETHL7A+12, GETHL7B+7~, GETHL7B+12*, GETHL7B+24*, GETHL7B+25 |
| >> HLNEXT | GETHL7+14 |
| HLNODE | GETHL7+6~, GETHL7+14 |
| >> HLQUIT | GETHL7+14 |
| I | GETHL7+7~, GETHL7+14* |
| IPERSON | GETHL7B+8~, GETHL7B+14*, GETHL7B+15, GETHL7B+16, GETHL7B+17, GETHL7B+18 |
| IPROCIDX | ORRINPRC+11~, ORRINPRC+25*, ORRINPRC+26, ORRINPRC+27, FINDLIST~, FINDLIST+3*, FINDLIST+13* |
| ISPECIDX | ORRINPRC+12~, ORRINPRC+24*, ORRINPRC+26, ORRINPRC+27, FINDLIST~, FINDLIST+3*, FINDLIST+13* |
| LISTDATA | ORRINPRC+9~, ORRINPRC+18*, ORRINPRC+20, ORRINPRC+22, ORRINPRC+24, ORRINPRC+25 |
| LOCATION | GETHL7B~, GETHL7B+11*, GETHL7B+25* |
| MAGETLVL | ORRIN+1~, ORRIN+2*, ORRINER1+3, ORRINER2+1 |
| ORDCTRL | ORRINPRC+6~, ORRINPRC+14 |
| PERSON | GETHL7B~, GETHL7B+11!, GETHL7B+19*, GETHL7B+20*, GETHL7B+21*, GETHL7B+22* |
| PERSON("FAMILY" | GETHL7B+15*, GETHL7B+19 |
| PERSON("GIVEN" | GETHL7B+16*, GETHL7B+20 |
| PERSON("MIDDLE" | GETHL7B+17*, GETHL7B+21 |
| PERSON("SUFFIX" | GETHL7B+18*, GETHL7B+22 |
| PROC | FINDLIST+2~, FINDLIST+8*, FINDLIST+9 |
| RESULT | ENTRY+2~, ENTRY+6, ENTRY+22 |
| STATUS | GETHL7A~, GETHL7A+10*, GETHL7A+13* |
| TIMESTMP | ORRINPRC+8~, ORRINPRC+17*, ORRINPRC+20 |
| TIUNOTE | FINDLIST~, FINDLIST+3*, FINDLIST+14* |
| TOSERV | FINDLIST+2~, FINDLIST+5*, FINDLIST+6*, FINDLIST+9 |
| TRIGGER | FINDLIST~, FINDLIST+3*, FINDLIST+14* |
| UNREAD | ORRINPRC+7~, ORRINPRC+16*, ORRINPRC+17, ORRINPRC+18, ORRINPRC+20, ORRINPRC+23, ORRINPRC+26, ORRINPRC+27 |
| X | GETHL7+8~, GETHL7+15*, FINDLIST+2~, FINDLIST+11*, FINDLIST+12, FINDLIST+13, FINDLIST+14 |
| XREF | FINDLIST+2~, FINDLIST+9*, FINDLIST+10, FINDLIST+11, FINDLIST+15 |
