Routine: MAG7UCFG

Information

MAG7UCFG ;WOIFO/MLH,DAC - Configure HL7 PACS interface ; 16 NOV 2014 4:29 PM

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA FileMan	4	^DIC ^DIE EN^DIQ1 ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Imaging	1	MAG CONFIGURE IHE PACS HL7 I/F

Entry Points

Name	Comments	DBIA/ICR reference
CONFIG	; MAIN ENTRY POINT - Configure the HL7 PACS interface ; Allow user to specify sender and receiver names, and to toggle ; the interface between active/inactive. ; ; Called by Option MAG CONFIGURE IHE PACS HL7 I/F. ;
ABEND	;
END	;

External References

Name	Field # of Occurrence
^DIC	CONFIG+18, CONFIG+37, CONFIG+67
^DIE	CONFIG+60, CONFIG+62, CONFIG+73, CONFIG+81
EN^DIQ1	CONFIG+22, CONFIG+29, CONFIG+41, CONFIG+48
^DIR	CONFIG+57

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"HL7 PACS Interface Configuration",!! Line Location: CONFIG+14
Function Call: WRITE	Prompt: !,"ERROR: HL7 messaging event driver protocol(s) missing." Line Location: CONFIG+19
Function Call: WRITE	Prompt: !,"ERROR: No sending application defined." Line Location: CONFIG+24
Function Call: WRITE	Prompt: !,"ERROR: Pointed-to sender entry ("_DA_") missing" Line Location: CONFIG+30
Function Call: WRITE	Prompt: !," from HL7 APPLICATION PARAMETER File (#771)." Line Location: CONFIG+31
Function Call: WRITE	Prompt: !,"ERROR: HL7 messaging subscriber protocol(s) missing." Line Location: CONFIG+38
Function Call: WRITE	Prompt: !,"ERROR: No receiving application defined." Line Location: CONFIG+43
Function Call: WRITE	Prompt: !,"ERROR: Pointed-to receiver entry ("_DA_") missing" Line Location: CONFIG+49
Function Call: WRITE	Prompt: !," from HL7 APPLICATION PARAMETER File (#771)." Line Location: CONFIG+50
Function Call: WRITE	Prompt: !,"Sending application name: "_SNDNAME,! Line Location: CONFIG+54
Function Call: WRITE	Prompt: "Receiving application name: "_RCVNAME,! Line Location: CONFIG+55
Function Call: WRITE	Prompt: !!,"Please enter the name of the SENDING application." Line Location: CONFIG+59
Function Call: WRITE	Prompt: !,"Please enter the name of the RECEIVING application." Line Location: CONFIG+61
Function Call: WRITE	Prompt: !,"ERROR: HL7 logical link missing." Line Location: CONFIG+68
Function Call: WRITE	Prompt: !!,"Please enter the TCP/IP address and port number for the logical link." Line Location: CONFIG+72
Function Call: WRITE	Prompt: !!,"Enter Y or YES below to turn the IHE-based HL7 PACS interface ON;",! Line Location: CONFIG+77
Function Call: WRITE	Prompt: "enter N or NO to turn the interface OFF.",! Line Location: CONFIG+78
Function Call: WRITE	Prompt: !,"PACS HL7 messaging must be installed before using this option." Line Location: ABEND+1
Function Call: WRITE	Prompt: !,"Please contact Imaging Support for further assistance." Line Location: ABEND+2
Routine Call	DIC Line Location: CONFIG+18 CONFIG+37 CONFIG+67
Routine Call	DIE Line Location: CONFIG+60 CONFIG+62 CONFIG+73 CONFIG+81
Routine Call	DIR Line Location: CONFIG+57

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ORD(101 - [#101]	Classic Fileman Calls
^MAG(2006.1 - [#2006.1]	Classic Fileman Calls
^HL(771 - [#771]	Classic Fileman Calls
^HLCS(870 - [#870]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^MAG(2006.1 - [#2006.1]	CONFIG+80

Label References

Name	Line Occurrences
ABEND	CONFIG+18, CONFIG+23, CONFIG+29, CONFIG+37, CONFIG+42, CONFIG+48, CONFIG+67
END	CONFIG+57, CONFIG+58, CONFIG+70, CONFIG+82

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APP	CONFIG+7~, CONFIG+21!, CONFIG+28!, CONFIG+29, CONFIG+40!, CONFIG+47!, CONFIG+48
APP(101	CONFIG+22, CONFIG+41
APP(771	CONFIG+33, CONFIG+52
DA	CONFIG+6~, CONFIG+21, CONFIG+22, CONFIG+28, CONFIG+30, CONFIG+33, CONFIG+40, CONFIG+41, CONFIG+47, CONFIG+49 , CONFIG+52, CONFIG+60, CONFIG+62, CONFIG+73, CONFIG+80
DIC	CONFIG+6~, CONFIG+17, CONFIG+21, CONFIG+28, CONFIG+36, CONFIG+40, CONFIG+47, CONFIG+66*
DIC(0	CONFIG+17, CONFIG+36, CONFIG+66*
DIE	CONFIG+6~, CONFIG+60, CONFIG+62, CONFIG+73, CONFIG+79
DIQ	CONFIG+6~, CONFIG+21, CONFIG+28, CONFIG+40, CONFIG+47
DIQ(0	CONFIG+21, CONFIG+28, CONFIG+40, CONFIG+47
>> DIR("A"	CONFIG+56*
>> DIR(0	CONFIG+56*
DR	CONFIG+6~, CONFIG+21, CONFIG+28, CONFIG+40, CONFIG+47, CONFIG+60, CONFIG+62, CONFIG+73, CONFIG+81
DTOUT	CONFIG+6~, CONFIG+57, CONFIG+58, CONFIG+60, CONFIG+62, CONFIG+70, CONFIG+73, CONFIG+81
DUOUT	CONFIG+6~, CONFIG+57
DUZ(2	CONFIG+80
LINKIX	CONFIG+12~, CONFIG+71*, CONFIG+73
RCVIX	CONFIG+10~, CONFIG+41*, CONFIG+42, CONFIG+47, CONFIG+62
RCVNAME	CONFIG+11~, CONFIG+52*, CONFIG+55
SNDIX	CONFIG+8~, CONFIG+22*, CONFIG+23, CONFIG+28, CONFIG+60
SNDNAME	CONFIG+9~, CONFIG+33*, CONFIG+54
U	CONFIG+21, CONFIG+40
>> X	CONFIG+17, CONFIG+36, CONFIG+66*
>> Y	CONFIG+18, CONFIG+21, CONFIG+37, CONFIG+40, CONFIG+58, CONFIG+60, CONFIG+62, CONFIG+67, CONFIG+70, CONFIG+71 , CONFIG+73, CONFIG+81

Customize PDF page

Package: Imaging