Routine: MAGDHPS

Package	Total	Call Graph
VA FileMan	3	FILE^DICN ^DIK ^DIR

Package	Total	Caller Graph
Imaging	3	MAGD MAINT RAD HL7 SUBS MAGIP183 MAGIP208

Name	Comments	DBIA/ICR reference
MAGIP208	; post install entry point to set subscriptions to V2.4 Radiology
MAINT	; MAIN ENTRY POINT - allow the user to select the version of HL7 ; that will be used to create Radiology messages to the VistA Text/ ; DICOM Gateway and to commercial imaging systems. ;
ABEND	; exception raised
END	;
ADD(SUB,EVENTDRV,STATFLAG)	; SUBROUTINE - not to be invoked except from within this routine ; Subscribe gateway protocol SUB to the Radiology event driver protocol EVENTDRV.
KILL(SUB,EVENTDRV)	; SUBROUTINE - not to be invoked except from within this routine ; Unsubscribe gateway protocol SUB from the Radiology event driver protocol EVENTDRV.

Name	Field # of Occurrence
FILE^DICN	ADD+4
^DIK	KILL+5
^DIR	MAINT+61

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option is used to set the Radiology HL7 version for the DICOM Text Gateway." Line Location: MAINT+15
Function Call: WRITE	Prompt: !,"The HL7 v2.4 is the default and is recommended because it provides more data." Line Location: MAINT+16
Function Call: WRITE	Prompt: !!,"MAGD SEND ORM protocol found..." Line Location: MAINT+20
Function Call: WRITE	Prompt: !!,"ATTENTION: The MAGD SEND ORM protocol does not exist" Line Location: MAINT+23
Function Call: WRITE	Prompt: !,"on this system." Line Location: MAINT+24
Function Call: WRITE	Prompt: !,"MAGD SEND ORU protocol found...",! Line Location: MAINT+29
Function Call: WRITE	Prompt: !!,"ATTENTION: The MAGD SEND ORU protocol does not exist" Line Location: MAINT+32
Function Call: WRITE	Prompt: !,"on this system." Line Location: MAINT+33
Function Call: WRITE	Prompt: !,RADPA(I,0)_" protocol " Line Location: MAINT+41
Function Call: WRITE	Prompt: "found..." Line Location: MAINT+44
Function Call: WRITE	Prompt: ?35," MAGD SEND ORM subscribed " Line Location: MAINT+46
Function Call: WRITE	Prompt: ?35," MAGD SEND ORU subscribed" Line Location: MAINT+47
Function Call: WRITE	Prompt: "not found..." Line Location: MAINT+50
Function Call: WRITE	Prompt: ! Line Location: MAINT+60
Function Call: WRITE	Prompt: !,"Subscribing to HL7 version "_HL7VER_" Radiology HL7 protocols..." Line Location: MAINT+65
Function Call: WRITE	Prompt: !," Protocol "_RADPA(I,0)_" " Line Location: MAINT+74
Function Call: WRITE	Prompt: "is already subscribed to, no action taken" Line Location: MAINT+76
Function Call: WRITE	Prompt: "..." Line Location: MAINT+79
Function Call: WRITE	Prompt: !," Protocol "_RADPA(I,0)_" " Line Location: MAINT+86
Function Call: WRITE	Prompt: "is not currently subscribed to, no action taken" Line Location: MAINT+94
Function Call: WRITE	Prompt: "..." Line Location: MAINT+96
Function Call: WRITE	Prompt: !," Protocol "_RADPA(I,0)_" " Line Location: MAINT+106
Function Call: WRITE	Prompt: "is not currently subscribed to, no action taken" Line Location: MAINT+114
Function Call: WRITE	Prompt: "..." Line Location: MAINT+116
Function Call: WRITE	Prompt: !," Protocol "_RADPA(I,0)_" " Line Location: MAINT+123
Function Call: WRITE	Prompt: "is already subscribed to, no action taken" Line Location: MAINT+125
Function Call: WRITE	Prompt: "..." Line Location: MAINT+128
Function Call: WRITE	Prompt: !," Protocol "_RADPA(I,0)_" " Line Location: MAINT+138
Function Call: WRITE	Prompt: "is not currently subscribed to, no action taken" Line Location: MAINT+146
Function Call: WRITE	Prompt: "..." Line Location: MAINT+148
Function Call: WRITE	Prompt: !," Protocol "_RADPA(I,0)_" " Line Location: MAINT+155
Function Call: WRITE	Prompt: "is already subscribed to, no action taken" Line Location: MAINT+157
Function Call: WRITE	Prompt: "..." Line Location: MAINT+160
Function Call: WRITE	Prompt: !!,"The MAGD SEND ORU protocol should no longer be a subscriber to the RA RPT *" Line Location: MAINT+166
Function Call: WRITE	Prompt: !,"event drivers. Vestigial MAGD SEND ORU subscribers to the RA RPT, RA RPT 2.3," Line Location: MAINT+167
Function Call: WRITE	Prompt: !,"and RA RPT 2.4 protocols are now removed.",! Line Location: MAINT+168
Function Call: WRITE	Prompt: !,"Protocol ",RADPA(I,0)," " Line Location: MAINT+170
Function Call: WRITE	Prompt: "..." Line Location: MAINT+173
Function Call: WRITE	Prompt: "..." Line Location: MAINT+177
Function Call: WRITE	Prompt: !,"Please contact Imaging Support for further assistance." Line Location: ABEND+1
Function Call: WRITE	Prompt: "has been unsubscribed from" Line Location: KILL+6
Routine Call	DIR Line Location: MAINT+61

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	MAINT+18, MAINT+27, MAINT+42, MAINT+46, MAINT+47, MAINT+75, MAINT+87, MAINT+90, MAINT+107, MAINT+110 , MAINT+124, MAINT+139, MAINT+142, MAINT+156, MAINT+171, MAINT+175, KILL+3

Name	Line Occurrences
ABEND	MAINT+22, MAINT+31, MAINT+40, MAINT+68, MAINT+100, MAINT+132
ADD	MAINT+78, MAINT+127, MAINT+159
END	MAINT+56, MAINT+182
KILL	MAINT+88, MAINT+91, MAINT+108, MAINT+111, MAINT+140, MAINT+143, MAINT+172, MAINT+176

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	MAINT+12~, ADD+2~, KILL+2~, KILL+3*
DA(1	ADD+3, KILL+3
DIC	MAINT+12~, ADD+2~, ADD+3*
DIC(0	ADD+3*
DIK	MAINT+12~, KILL+2~, KILL+4*
DIR	MAINT+12~
DIR("A"	MAINT+59*
DIR(0	MAINT+58*
DTOUT	MAINT+12~, MAINT+56, MAINT+61
DUOUT	MAINT+12~, MAINT+56, MAINT+61
EVENTDRV	ADD~, ADD+3, KILL~, KILL+3, KILL+4
HL7VER	MAINT+13~, MAINT+55, MAINT+62, MAINT+65, MAINT+68, MAINT+100, MAINT+132
I	MAINT+8~, MAINT+38, MAINT+40, MAINT+41, MAINT+42, MAINT+45, MAINT+46, MAINT+47, MAINT+71, MAINT+73 , MAINT+74, MAINT+75, MAINT+78, MAINT+83, MAINT+86, MAINT+87, MAINT+88, MAINT+90, MAINT+91, MAINT+103* , MAINT+106, MAINT+107, MAINT+108, MAINT+110, MAINT+111, MAINT+120, MAINT+122, MAINT+123, MAINT+124, MAINT+127 , MAINT+135, MAINT+138, MAINT+139, MAINT+140, MAINT+142, MAINT+143, MAINT+152, MAINT+154, MAINT+155, MAINT+156 , MAINT+159, MAINT+169, MAINT+170, MAINT+171, MAINT+172, MAINT+175, MAINT+176
IO(0	MAINT+20, MAINT+23, MAINT+29, MAINT+32, MAINT+41, MAINT+44, MAINT+50, MAINT+60, MAINT+65, MAINT+74 , MAINT+86, MAINT+106, MAINT+123, MAINT+138, MAINT+155, MAINT+165, ABEND+1
MAG30P208	MAGIP208+1~, MAGIP208+2*, MAINT+55
MAGPIX	MAINT+4~, MAINT+73, MAINT+75, MAINT+78, MAINT+122, MAINT+124, MAINT+127, MAINT+154*, MAINT+156, MAINT+159
MAGPIXO	MAINT+5~, MAINT+18*, MAINT+19, MAINT+46, MAINT+73, MAINT+87, MAINT+88, MAINT+107, MAINT+108, MAINT+122 , MAINT+139, MAINT+140, MAINT+154, MAINT+171
MAGPIXR	MAINT+6~, MAINT+27*, MAINT+28, MAINT+47, MAINT+73, MAINT+90, MAINT+91, MAINT+110, MAINT+111, MAINT+122 , MAINT+142, MAINT+143, MAINT+154, MAINT+172, MAINT+175, MAINT+176
RADPA	MAINT+9~
RADPA(	MAINT+38, MAINT+41, MAINT+42, MAINT+45, MAINT+46, MAINT+47, MAINT+74, MAINT+75, MAINT+78, MAINT+86 , MAINT+87, MAINT+88, MAINT+90, MAINT+91, MAINT+106, MAINT+107, MAINT+108, MAINT+110, MAINT+111, MAINT+123 , MAINT+124, MAINT+127, MAINT+138, MAINT+139, MAINT+140, MAINT+142, MAINT+143, MAINT+155, MAINT+156, MAINT+159 , MAINT+169, MAINT+170, MAINT+171, MAINT+172, MAINT+175, MAINT+176
RADPEX	MAINT+10~, MAINT+39, MAINT+40, MAINT+51, MAINT+67*, MAINT+68, MAINT+71, MAINT+78, MAINT+100, MAINT+120 , MAINT+127, MAINT+132, MAINT+152, MAINT+159
RADPI	MAINT+11~, MAINT+42*, MAINT+43, MAINT+45
RADPSTR	MAINT+7~, MAINT+37*, MAINT+38
STATFLAG	ADD~, ADD+5*, ADD+6
SUB	ADD~, ADD+3, KILL~, KILL+3
X	MAINT+12~, ADD+2~, ADD+3*
Y	MAINT+12~, MAINT+62, ADD+2~, ADD+5

Customize PDF page

Package: Imaging

Routine: MAGDHPS

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: