Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: MAGDHPS

Package: Imaging

Routine: MAGDHPS


Information

MAGDHPS ;WOIFO/MLH - Maintain subscriptions to Rad HL7 drivers ;25 Sep 2018 9:47 AM

Source Information

Source file <MAGDHPS.m>

Entry Points

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.

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
Info |  Source |  Entry Points |  Interaction Calls