Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in HL7 Interface |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: MAGDHOWA

Package: Imaging

Routine: MAGDHOWA


Information

MAGDHOWA ;WOIFO/PMK - Route traditional 1.6 HL7 ADT messages via HLO ;17 Nov 2017 9:36 AM

Source Information

Source file <MAGDHOWA.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Imaging 5 $$PARSE^MAG7UP  $$PLACE^MAGBAPI  INIT^MAGDHOW2  ERROR^MAGDHOWA  MAILSHR^MAGQBUT1  
Health Level Seven 2 $$ADDSEG^HLOAPI  $$SENDSUB^HLOAPI1  
VA FileMan 2 ^DIC  $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 15

Package Total Caller Graph
Imaging 14 MAG CPACS A01 SUBS-HLO  MAG CPACS A02 SUBS-HLO  MAG CPACS A03 SUBS-HLO  MAG CPACS A08 SUBS-HLO  MAG CPACS A11 SUBS-HLO  MAG CPACS A12 SUBS-HLO  MAG CPACS A13 SUBS-HLO  MAG CPACS A47 SUBS-HLO  
MAGDHOW2  MAGDHOW3  MAGDHOW4  MAGDHOW5  MAGDHOWA  MAGT7MA  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
ENTRY ; subscriber entry point
INPUT ; get the generated HL7 message and save it in HLO's HLMSTATE
OUTPUT ; send the HL7 message using HLO's subscription list
ERROR(SUBJECT,MSG,VARIABLES) ; error logging subroutine
ADD(X) ; add a line to the email message
TEST ; this tests the email error trap
; S DUZ=126,DUZ(2)=660 - set these appropriately before calling TEST

External References

Name Field # of Occurrence
^DIC OUTPUT+4
$$GET1^DIQ OUTPUT+9
$$ADDSEG^HLOAPI INPUT+40
$$SENDSUB^HLOAPI1 OUTPUT+10
$$PARSE^MAG7UP INPUT+10
$$PLACE^MAGBAPI ERROR+3
INIT^MAGDHOW2 INPUT+36
ERROR^MAGDHOWA INPUT+51, OUTPUT+19, TEST+16
MAILSHR^MAGQBUT1 ERROR+22

Used in HL7 Interface

HL7 Protocol Name Call Tags
MAG CPACS A01 SUBS-HLO ENTRY
MAG CPACS A02 SUBS-HLO ENTRY
MAG CPACS A03 SUBS-HLO ENTRY
MAG CPACS A11 SUBS-HLO ENTRY
MAG CPACS A12 SUBS-HLO ENTRY
MAG CPACS A13 SUBS-HLO ENTRY
MAG CPACS A08 SUBS-HLO ENTRY
MAG CPACS A47 SUBS-HLO ENTRY

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HLD(779.4 - [#779.4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("HLS" INPUT+2
^TMP($J ERROR+6!, ADD+2, ADD+3*

Label References

Name Line Occurrences
ADD ERROR+7, ERROR+8, ERROR+9, ERROR+11, ERROR+12, ERROR+16, ERROR+21
INPUT ENTRY+5
OUTPUT ENTRY+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A INPUT+1~, INPUT+2*, INPUT+3*, ERROR+14~, ERROR+15*, ERROR+16, ERROR+17*
A(1 INPUT+6*
APP ERROR+1~, ERROR+4*, ERROR+6, ERROR+22, ADD+2, ADD+3
ARRAY TEST+2~, TEST+3*
ARRAY("B" TEST+5*
ARRAY("C" TEST+6*
ARRAY(1 TEST+4*
B INPUT+1~
B( INPUT+14, INPUT+15, INPUT+18, INPUT+20, INPUT+21, INPUT+22, INPUT+23
C INPUT+1~
C( INPUT+18*, INPUT+23*, INPUT+37, INPUT+39
C(2 INPUT+30, INPUT+31
DIC OUTPUT+1~, OUTPUT+4*
DIC(0 OUTPUT+4*
DO OUTPUT+1~
DUZ(2 ERROR+3
ERROR INPUT+1~, INPUT+40
EVENT INPUT+1~, INPUT+31*, INPUT+33*, INPUT+36
HL7SUBLIST OUTPUT+1~, OUTPUT+5*, OUTPUT+7, OUTPUT+9
>> HLA("HLS" INPUT+3
>> HLARYTYP INPUT+2, INPUT+3
HLMSTATE ENTRY+1~, INPUT+40, OUTPUT+10
>> HLREC("HDR" INPUT+6
I ERROR+1~, ERROR+8*
LASTIEN ADD+1~, ADD+2*, ADD+3
MESSAGES OUTPUT+1~, OUTPUT+10
MSG INPUT+42~, INPUT+51, OUTPUT+12~, OUTPUT+19, ERROR~, TEST+16
MSG( ERROR+8
MSG(1 INPUT+44*, OUTPUT+14*, TEST+13*
MSG(2 INPUT+45*, OUTPUT+15*, TEST+14*
MSG(3 INPUT+46*, OUTPUT+16*, TEST+15*
MSGTYPE ENTRY+1~, ENTRY+3*, INPUT+36
PARMS OUTPUT+1~, OUTPUT+10
PARMS("QUEUE" OUTPUT+9*
PARMS("SENDIN G APPLICATION" , OUTPUT+6*
PARMS("SUBSCR IPTION IEN" , OUTPUT+7*
PLACE ERROR+1~, ERROR+3*, ERROR+6, ERROR+22, ADD+2, ADD+3
S1 INPUT+1~, INPUT+14*, INPUT+15, INPUT+18, INPUT+20, INPUT+21, INPUT+22, INPUT+23, INPUT+37*, INPUT+39
S2 INPUT+1~, INPUT+15*, INPUT+18, INPUT+20, INPUT+21, INPUT+22, INPUT+23
S3 INPUT+1~, INPUT+20*, INPUT+21, INPUT+22, INPUT+23
S4 INPUT+1~, INPUT+21*, INPUT+22, INPUT+23
S5 INPUT+1~, INPUT+22*, INPUT+23
SCALAR TEST+2~, TEST+7*
SEGMENT INPUT+38~, INPUT+39*, INPUT+40
SUBJECT INPUT+42~, INPUT+43*, INPUT+51, OUTPUT+12~, OUTPUT+13*, OUTPUT+19, ERROR~, ERROR+22, TEST+2~, TEST+12*
, TEST+16
SUCCESS INPUT+38~, INPUT+40*, INPUT+41, INPUT+46, OUTPUT+1~, OUTPUT+10*, OUTPUT+11, OUTPUT+16
UNDEFINED TEST+2~
VAR ERROR+1~, ERROR+10*, ERROR+11, ERROR+12, ERROR+15
VARIABLES INPUT+42~, INPUT+51, OUTPUT+12~, OUTPUT+19, ERROR~, TEST+16
VARIABLES( ERROR+10
VARIABLES("ARRAY" TEST+9*
VARIABLES("C" INPUT+50*
VARIABLES("ERROR" INPUT+49*
VARIABLES("HLMSTATE" INPUT+47*, OUTPUT+17*
VARIABLES("PARMS" OUTPUT+18*
VARIABLES("SCALAR" TEST+10*
VARIABLES("SEGMENT" INPUT+48*
VARIABLES("UNDEFINED" TEST+11*
X INPUT+10*, OUTPUT+1~, OUTPUT+4*, ADD~, ADD+3
Y OUTPUT+1~, OUTPUT+5

Marked Items

Name Field # of Occurrence
$T( INPUT+44, OUTPUT+14, TEST+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in HL7 Interface |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All