MAGDHOW2 ;WOIFO/PMK,DAC,JSL - Capture Consult/GMRC data ;22 Jul 2021 10:13 AM
Source file <MAGDHOW2.m>
| Package | Total | Call Graph |
|---|---|---|
| Imaging | 8 | $$MAKE^MAG7UM (PID,PV1)^MAGDHLS PIDPV1^MAGDHOW2 ORC^MAGDHOW3 OBR^MAGDHOW4 (OBX,ZDS)^MAGDHOW5 ERROR^MAGDHOWA OUTPUT^MAGDHOWP |
| Health Level Seven | 4 | ($$MOVESEG,$$NEWMSG,MOVESEG)^HLOAPI $$SENDSUB^HLOAPI1 ADDSEG^HLOMSG BUILDHDR^HLOPBLD1 |
| Kernel | 1 | ($$DT,$$NOW)^XLFDT |
| VA FileMan | 1 | $$GET1^DIQ |
| 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 |
|---|---|---|
| MESSAGE(SERVICE) | ; invoked from ^MAGDHOW1
|
|
| INIT(MSGTYPE,EVENT) | ; start building a new HL7 message
|
|
| PIDPV1(HLMSTATE,DFN) | ; build the PID and PV1 segments
; Also invoked by ^MAGT7S to build these segments for Anatomic Pathology - P183 PMK 3/7/17 |
|
| OUTPUT | ; output the messages to ^MAGDHL7
|
|
| MOVESEG(HLMSTATE,SEG,ERROR) | ;Adds a segment built in the 'traditional' way as an array of lines into the message.
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | MESSAGE+22 |
| $$MOVESEG^HLOAPI | PIDPV1+16, PIDPV1+28 |
| $$NEWMSG^HLOAPI | INIT+11 |
| MOVESEG^HLOAPI | PIDPV1+16, PIDPV1+28 |
| $$SENDSUB^HLOAPI1 | MESSAGE+23 |
| ADDSEG^HLOMSG | MOVESEG+25, MOVESEG+31 |
| BUILDHDR^HLOPBLD1 | OUTPUT+7 |
| $$MAKE^MAG7UM | PIDPV1+13 |
| PID^MAGDHLS | PIDPV1+10 |
| PV1^MAGDHLS | PIDPV1+11 |
| PIDPV1^MAGDHOW2 | MESSAGE+12 |
| ORC^MAGDHOW3 | MESSAGE+13 |
| OBR^MAGDHOW4 | MESSAGE+14 |
| OBX^MAGDHOW5 | MESSAGE+16 |
| ZDS^MAGDHOW5 | MESSAGE+15 |
| ERROR^MAGDHOWA | MESSAGE+33, INIT+21, PIDPV1+26, PIDPV1+38 |
| OUTPUT^MAGDHOWP | OUTPUT+69 |
| $$DT^XLFDT | OUTPUT+41 |
| $$NOW^XLFDT | OUTPUT+41 |
| FileNo | Call Tags |
|---|---|
| ^HLD(779.4 - [#779.4] | GET1^DIQ |
| Name | Line Occurrences |
|---|---|
| $$MOVESEG | PIDPV1+16, PIDPV1+28 |
| INIT | MESSAGE+6, MESSAGE+9 |
| OUTPUT | MESSAGE+35 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CONSULT | MESSAGE+1~ |
| >> CPINVOCATION | OUTPUT+69 |
| D0 | OUTPUT+1~, OUTPUT+43*, OUTPUT+44, OUTPUT+45, OUTPUT+47, OUTPUT+51, OUTPUT+58, OUTPUT+62, OUTPUT+64, OUTPUT+67 |
| DEL | OUTPUT+1~, OUTPUT+11*, OUTPUT+12, OUTPUT+13, OUTPUT+37*, OUTPUT+38, OUTPUT+53, OUTPUT+54, OUTPUT+55, OUTPUT+60 |
| DFN | MESSAGE+12, PIDPV1~, PIDPV1+10, PIDPV1+11 |
| DT | PIDPV1+11 |
| ERROR | MESSAGE+1~, INIT+1~, INIT+11, PIDPV1+16, PIDPV1+28, MOVESEG~, MOVESEG+14!, MOVESEG+28*, MOVESEG+29*, MOVESEG+30* |
| EVENT | INIT~, INIT+4, INIT+7 |
| FMDATE | OUTPUT+1~, OUTPUT+41*, OUTPUT+44, OUTPUT+45, OUTPUT+51 |
| FMDATETIME | OUTPUT+1~, OUTPUT+41*, OUTPUT+51, OUTPUT+64, OUTPUT+67 |
| >> GMRCIEN | MESSAGE+13, MESSAGE+14, MESSAGE+15, MESSAGE+16 |
| HDR | OUTPUT+1~, OUTPUT+46*, OUTPUT+47 |
| HL | PIDPV1+2~ |
| HL7 | OUTPUT+1~ |
| HL7( | OUTPUT+14*, OUTPUT+23*, OUTPUT+32*, OUTPUT+52 |
| HL7(1 | OUTPUT+37, OUTPUT+38* |
| HL7ARRAY | PIDPV1+2~ |
| HL7ARRAY(1 | PIDPV1+6*, PIDPV1+7*, PIDPV1+8*, PIDPV1+9* |
| HL7IEN | MESSAGE+1~ |
| HL7MSH | OUTPUT+1~, OUTPUT+7, OUTPUT+10*, OUTPUT+12*, OUTPUT+13*, OUTPUT+14 |
| HL7MSH(1 | OUTPUT+10 |
| HL7MSH(2 | OUTPUT+10 |
| HL7SEG | PIDPV1+2~ |
| HL7SEG(2 | PIDPV1+14 |
| HL7SEG(3 | PIDPV1+15 |
| >> HL7SUBLIST | MESSAGE+20, MESSAGE+22 |
| HLAIEN | OUTPUT+1~, OUTPUT+2*, OUTPUT+19, OUTPUT+21, OUTPUT+22 |
| HLECH | PIDPV1+2~, PIDPV1+3*, PIDPV1+9 |
| HLFS | PIDPV1+2~, PIDPV1+4*, PIDPV1+8 |
| HLMSTATE | MESSAGE+1~, MESSAGE+12, MESSAGE+13, MESSAGE+14, MESSAGE+15, MESSAGE+16, MESSAGE+23, INIT+11, PIDPV1~, PIDPV1+16 , PIDPV1+28, OUTPUT+7, MOVESEG~, MOVESEG+25, MOVESEG+31 |
| HLMSTATE("BATCH" | MOVESEG+30 |
| HLMSTATE("BODY" | OUTPUT+2 |
| HLMSTATE("HDR" | PIDPV1+3, PIDPV1+4, OUTPUT+3*, OUTPUT+4*, OUTPUT+11, MOVESEG+21 |
| HLMSTATE("MSA" | MOVESEG+24, MOVESEG+25, MOVESEG+26! |
| HLMSTATE("UNS | TORED LINES" , OUTPUT+29, OUTPUT+30, OUTPUT+31 |
| HLQ | PIDPV1+2~, PIDPV1+5* |
| I | MESSAGE+1~, OUTPUT+1~, OUTPUT+4*, OUTPUT+21*, OUTPUT+22, OUTPUT+52* |
| I1 | OUTPUT+1~, OUTPUT+29*, OUTPUT+30, OUTPUT+31 |
| I2 | OUTPUT+1~, OUTPUT+30*, OUTPUT+31 |
| J | OUTPUT+1~, OUTPUT+14*, OUTPUT+23*, OUTPUT+32*, OUTPUT+36, OUTPUT+52*, OUTPUT+58*, OUTPUT+62*, OUTPUT+67 |
| K | OUTPUT+1~, OUTPUT+54*, OUTPUT+55, OUTPUT+60 |
| MESSAGES | MESSAGE+1~, MESSAGE+23 |
| MSG | MESSAGE+1~, MESSAGE+25~, MESSAGE+33, INIT+13~, INIT+21, PIDPV1+18~, PIDPV1+26, PIDPV1+30~, PIDPV1+38, OUTPUT+1~ |
| MSG(1 | MESSAGE+27*, INIT+15*, PIDPV1+20*, PIDPV1+32* |
| MSG(2 | MESSAGE+28*, INIT+16*, PIDPV1+21*, PIDPV1+33* |
| MSG(3 | MESSAGE+29*, INIT+17*, PIDPV1+22*, PIDPV1+34* |
| MSGTYPE | MESSAGE+5, MESSAGE+6, MESSAGE+9, INIT~, INIT+7, INIT+8, OUTPUT+51 |
| N | OUTPUT+1~, OUTPUT+36*, OUTPUT+52, OUTPUT+69 |
| NEWCOUNT | MOVESEG+15~, MOVESEG+17*, MOVESEG+18*, MOVESEG+20* |
| NEXT | MESSAGE+1~ |
| NUL | PIDPV1+2~, PIDPV1+13* |
| OBXSEGNO | MESSAGE+1~ |
| OLDCOUNT | MOVESEG+15~, MOVESEG+19*, MOVESEG+20* |
| PARMS | MESSAGE+23, INIT+1~, INIT+11 |
| PARMS("CONTIN | UATION POINTER" , INIT+3* |
| PARMS("COUNTRY" | INIT+2* |
| PARMS("ENCODI | NG CHARACTERS" , INIT+6* |
| PARMS("EVENT" | INIT+4* |
| PARMS("FIELD | SEPARATOR" , INIT+5* |
| PARMS("MESSAG | E STRUCTURE" , INIT+7*, E TYPE" , INIT+8* |
| PARMS("PROCES | SING MODE" , INIT+9* |
| PARMS("QUEUE" | MESSAGE+22* |
| PARMS("SENDIN | G APPLICATION" , MESSAGE+19* |
| PARMS("SUBSCR | IPTION IEN" , MESSAGE+20* |
| PARMS("VERSION" | INIT+10* |
| PID | PIDPV1+2~, PIDPV1+14*, PIDPV1+16 |
| PRIORITY | MESSAGE+2~ |
| PV1 | PIDPV1+2~, PIDPV1+15*, PIDPV1+28 |
| SAVEORCSEG | MESSAGE+2~, MESSAGE+13, MESSAGE+14 |
| SEG | MOVESEG~, MOVESEG+18 |
| SEG( | MOVESEG+20 |
| SERVICE | MESSAGE~, MESSAGE+14 |
| SUBJECT | MESSAGE+25~, MESSAGE+26*, MESSAGE+33, INIT+13~, INIT+14*, INIT+21, PIDPV1+18~, PIDPV1+19*, PIDPV1+26, PIDPV1+30~ , PIDPV1+31*, PIDPV1+38 |
| SUCCESS | MESSAGE+2~, MESSAGE+23*, MESSAGE+24, MESSAGE+29, INIT+1~, INIT+11*, INIT+12, INIT+17, PIDPV1+2~, PIDPV1+16* , PIDPV1+17, PIDPV1+22, PIDPV1+28*, PIDPV1+29, PIDPV1+34 |
| TIUDOC | MESSAGE+2~ |
| TOARY | MOVESEG+15~, MOVESEG+25~, MOVESEG+31 |
| TOARY( | MOVESEG+20* |
| TOARY(1 | MOVESEG+18*, MOVESEG+21, MOVESEG+25* |
| TYPE | MOVESEG+15~, MOVESEG+21*, MOVESEG+25, MOVESEG+28, MOVESEG+29 |
| VARIABLES | MESSAGE+25~, MESSAGE+33, INIT+13~, INIT+21, PIDPV1+18~, PIDPV1+26, PIDPV1+30~, PIDPV1+38 |
| VARIABLES("ERROR" | INIT+20*, PIDPV1+25*, PIDPV1+37* |
| VARIABLES("HLMSTATE" | MESSAGE+30*, INIT+19*, PIDPV1+23*, PIDPV1+35* |
| VARIABLES("MESSAGES" | MESSAGE+32* |
| VARIABLES("PARMS" | MESSAGE+31*, INIT+18* |
| VARIABLES("PID" | PIDPV1+24*, PIDPV1+36* |
| X | MESSAGE+2~, OUTPUT+1~, OUTPUT+22*, OUTPUT+23, OUTPUT+31*, OUTPUT+32, OUTPUT+52*, OUTPUT+53, OUTPUT+54, OUTPUT+55 , OUTPUT+60 |
| Y | MESSAGE+2~, OUTPUT+1~, OUTPUT+53*, OUTPUT+56, OUTPUT+58*, OUTPUT+60*, OUTPUT+62 |
| Z | OUTPUT+1~, OUTPUT+55*, OUTPUT+56 |
| Name | Field # of Occurrence |
|---|---|
| $T( | MESSAGE+27, INIT+15, PIDPV1+20, PIDPV1+32 |
| $T(MOVESEG^HLOAPI | PIDPV1+16, PIDPV1+28 |