MAGDHOW1 ;WOIFO/PMK/DAC - Capture Consult/Procedure Request data ; Jul 26, 2022@07:38:34
Source file <MAGDHOW1.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 |
|---|---|---|
| MSGSETUP(GMRCIEN,SERVICE,ORC1,ORC5,APTSCHED) | ; called by ^MAGDHOWC and ^MAGDHOWS
; setup to send a message, if required |
|
| SERVICE(SERVICE,GMRCIEN,DIVISION,ITYPNAME,ITYPCODE,CPTIEN,HL7SUBLIST) | ;
; check if the service is in the DICOM Clinical Service dictionary, and ; if so, then get all of the attributes |
|
| MWLFIND(SERVICE,GMRCIEN) | ; lookup 2006.5831 entry by service and procedure
; ordering a procedure and the 2006.5831 procedure entry are optional |
|
| IREQUEST(SERVICE,PROCEDURE) | ; return the IEN of the consult or procedure for the request service
|
| FileNo | Call Tags |
|---|---|
| ^GMR(123 - [#123] | GET1^DIQ |
| ^HLD(779.4 - [#779.4] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^MAG(2005.84 - [#2005.84] | SERVICE+19, SERVICE+20 |
| ^MAG(2005.85 - [#2005.85] | SERVICE+23, SERVICE+24 |
| ^MAG(2006.5831 - [#2006.5831] | SERVICE+9, IREQUEST+7, IREQUEST+10, IREQUEST+13, IREQUEST+14 |
| Name | Line Occurrences |
|---|---|
| $$IREQUEST | MWLFIND+4 |
| $$MWLFIND | SERVICE+6 |
| $$SERVICE | MSGSETUP+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APTSCHED | MSGSETUP~ |
| CONSULT | MSGSETUP+2~ |
| CPTIEN | MSGSETUP+2~, MSGSETUP+11, SERVICE~, SERVICE+4*, SERVICE+10* |
| DATETIME | MSGSETUP+2~ |
| DIC | SERVICE+13~, SERVICE+14* |
| DIC(0 | SERVICE+14* |
| DIVISION | MSGSETUP+2~, MSGSETUP+11, SERVICE~, SERVICE+4*, SERVICE+7*, SERVICE+10* |
| DO | SERVICE+13~ |
| FILLER2 | MSGSETUP+23*, MSGSETUP+39*, MSGSETUP+44! |
| FMDATE | MSGSETUP+2~, MSGSETUP+6* |
| FMDATETM | MSGSETUP+2~, MSGSETUP+6* |
| GMRCIEN | MSGSETUP~, MSGSETUP+11, MSGSETUP+38, MSGSETUP+59, SERVICE~, SERVICE+6, MWLFIND~, MWLFIND+3 |
| HL7SUBLIST | MSGSETUP+3~, MSGSETUP+11, SERVICE~, SERVICE+4*, SERVICE+10*, SERVICE+11*, SERVICE+12, SERVICE+15* |
| I | MSGSETUP+3~, MSGSETUP+59* |
| IEN | IREQUEST+1~, IREQUEST+10*, IREQUEST+14*, IREQUEST+15 |
| ITYPCODE | MSGSETUP+3~, MSGSETUP+11, SERVICE~, SERVICE+4*, SERVICE+20*, SERVICE+24* |
| ITYPNAME | MSGSETUP+3~, MSGSETUP+11, SERVICE~, SERVICE+4*, SERVICE+19*, SERVICE+23* |
| LIST | IREQUEST+1~ |
| LIST( | IREQUEST+10*, IREQUEST+15! |
| LIST("" | IREQUEST+19 |
| MSGTYPE | MSGSETUP+3~, MSGSETUP+7*, MSGSETUP+36* |
| MWLCONFIG | SERVICE+3~, SERVICE+6*, SERVICE+8, SERVICE+9 |
| OBXSEGNO | MSGSETUP+3~ |
| ORC1 | MSGSETUP~, MSGSETUP+15, MSGSETUP+21, MSGSETUP+29, MSGSETUP+35, MSGSETUP+57 |
| ORC5 | MSGSETUP~, MSGSETUP+29, MSGSETUP+38 |
| ORCTRL | MSGSETUP+4~, MSGSETUP+16*, MSGSETUP+24*, MSGSETUP+30*, MSGSETUP+40*, MSGSETUP+45*, MSGSETUP+51* |
| ORIGSERV | MSGSETUP+4~ |
| ORSTATUS | MSGSETUP+4~, MSGSETUP+17*, MSGSETUP+25*, MSGSETUP+31*, MSGSETUP+41*, MSGSETUP+46*, MSGSETUP+52* |
| PARMS | MSGSETUP+4~ |
| PROCEDURE | MWLFIND+2~, MWLFIND+3*, MWLFIND+4, IREQUEST~, IREQUEST+6*, IREQUEST+7, IREQUEST+13*, IREQUEST+14 |
| SEGMENT | MSGSETUP+4~ |
| SENDIT | MSGSETUP+4~, MSGSETUP+11*, MSGSETUP+13, SERVICE+3~, SERVICE+4*, SERVICE+26*, SERVICE+29 |
| SERVICE | MSGSETUP~, MSGSETUP+11, MSGSETUP+54, SERVICE~, SERVICE+5, SERVICE+6, MWLFIND~, MWLFIND+4, IREQUEST~, IREQUEST+3* , IREQUEST+7, IREQUEST+10, IREQUEST+13, IREQUEST+14 |
| X | MSGSETUP+4~, SERVICE+3~, SERVICE+9*, SERVICE+10, SERVICE+13~, SERVICE+14*, SERVICE+18, SERVICE+21 |
| Y | MSGSETUP+4~, SERVICE+3~, SERVICE+13~, SERVICE+15, SERVICE+18*, SERVICE+19, SERVICE+20 |
| Z | MSGSETUP+4~, SERVICE+3~, SERVICE+21*, SERVICE+22, SERVICE+23, SERVICE+24 |
