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 |