MAGVDGWP ;WOIFO/NST/RRB - Retrieve DGW settings ; 09 Jul 2012 2:53 PM
;;3.0;IMAGING;**118**;Mar 19, 2002;Build 4525;May 01, 2013
;; Per VHA Directive 2004-038, this routine should not be modified.
;; +---------------------------------------------------------------+
;; | Property of the US Government. |
;; | No permission to copy or redistribute this software is given. |
;; | Use of unreleased versions of this software requires the user |
;; | to execute a written test agreement with the VistA Imaging |
;; | Development Office of the Department of Veterans Affairs, |
;; | telephone (301) 734-0100. |
;; | The Food and Drug Administration classifies this software as |
;; | a medical device. As such, it may not be changed in any way. |
;; | Modifications to this software may result in an adulterated |
;; | medical device under 21CFR820, the use of which is considered |
;; | to be a violation of US Federal Statutes. |
;; +---------------------------------------------------------------+
;;
Q
;
;***** Return list of Instruments in DGW from DICOM GATEWAY INSTRUMENT DICTIONARY file (#2006.911)
; RPC: MAGV DGW INSTRUMENT LIST
;
; Input Parameters
; ================
; HOSTNAME - Host name;
; If HOSTNAME is blank all setting will be returned
;
; Return Values
; =============
; if error found during execution
; MAGRY(0) = "-1^Error getting instrument list"
; if success
; MAGRY(0) = "0^#CNT" - where #CNT is a number of records returned
; MAGRY(1) = "HOSTNAME^DATETIME^NICKNAME^DESCRIPTION^SERVICE^PORT^SITE ID^SITE^MACHINE ID"
; MAGRY(2..n) = "^" delimited string with values of fields listed in MAGRY(1)
;
Q
;
INSTRMNT(MAGRY,HOSTNAME) ;RPC [MAGV DGW INSTRUMENT LIST]
N OUT,I,CNT,MAGNIEN,MAGNHOST,MAGNDATE
N X
I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D ERRA^MAGGTERR"
E S X="ERR^MAGGTERR",@^%ZOSF("TRAP")
S MAGRY(0)="-1^Error getting instrument list"
S HOSTNAME=$TR(HOSTNAME,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
D LIST^DIC(2006.911,"","@;.01;2","PI","","","","","","","OUT")
I $D(OUT("DIERR")) Q ; Error getting the list
S I=0
S CNT=1
F S I=$O(OUT("DILIST",I)) Q:'+I D
. S X=OUT("DILIST",I,0)
. S MAGNIEN=$P(X,"^",1)
. S MAGNHOST=$P(X,"^",2)
. S MAGNDATE=$P(X,"^",3)
. I HOSTNAME'="" Q:HOSTNAME'=MAGNHOST ; Check if HOSTNAME parameter
. D GETINSTR(.MAGRY,.CNT,MAGNIEN,MAGNHOST,MAGNDATE)
. Q
S MAGRY(0)="0^"_(CNT-1)
S MAGRY(1)="HOSTNAME^DATETIME^NICKNAME^DESCRIPTION^SERVICE^PORT^SITE ID^SITE^MACHINE ID"
Q
;
GETINSTR(MAGRY,CNT,MAGNIEN,MAGNHOST,MAGNDATE) ; Get list of instruments for a hostname
;
N OUT,MSG,I,STATION,SITEIEN
D LIST^DIC(2006.9112,","_MAGNIEN_",","@;.01;2;3I;4;5I;5;6","P","","","","","","","OUT","MSG")
I $D(MSG("DIERR")) Q ; Error getting the list
S I=0
F S I=$O(OUT("DILIST",I)) Q:'+I D
. S CNT=CNT+1
. ; Get site IEN
. S SITEIEN=$P(OUT("DILIST",I,0),"^",6)
. ; Get station based on site IEN
. S STATION=$$STA^XUAF4(SITEIEN) ; IA #2171 Get Station Number
. ; Set station into return array
. S $P(OUT("DILIST",I,0),"^",6)=STATION
. S MAGRY(CNT)=MAGNHOST_"^"_MAGNDATE_"^"_$P(OUT("DILIST",I,0),"^",2,8)
. Q
Q
;
;***** Return list of Modalities in DGW from DICOM GATEWAY MODALITY DICTIONARY file (#2006.912)
; RPC: MAGV DGW MODALITY LIST
;
; Input Parameters
; ================
; HOSTNAME - Host name;
; If HOSTNAME is blank all setting will be returned
;
; Return Values
; =============
; if error found during execution
; MAGRY(0) = "-1^Error getting modality list"
; if success
; MAGRY(0) = "0^#CNT" - where #CNT is a number of records returned
; MAGRY(1) = "HOSTNAME^DATETIME^MANUFACTURER^MODEL^MODALITY^IMAGING SERVICE^ACTIVE"
; MAGRY(2..n) = "^" delimited string with values of fields listed in MAGRY(1)
;
MODALITY(MAGRY,HOSTNAME) ;RPC [MAGV DGW MODALITY LIST]
N OUT,I,CNT,MAGNIEN,MAGNHOST,MAGNDATE
N X
I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D ERRA^MAGGTERR"
E S X="ERR^MAGGTERR",@^%ZOSF("TRAP")
S MAGRY(0)="-1^Error getting modality list"
S HOSTNAME=$TR(HOSTNAME,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
D LIST^DIC(2006.912,"","@;.01;2","PI","","","","","","","OUT")
I $D(OUT("DIERR")) Q ; Error getting the list
S I=0
S CNT=1
F S I=$O(OUT("DILIST",I)) Q:'+I D
. S X=OUT("DILIST",I,0)
. S MAGNIEN=$P(X,"^",1)
. S MAGNHOST=$P(X,"^",2)
. S MAGNDATE=$P(X,"^",3)
. I HOSTNAME'="" Q:HOSTNAME'=MAGNHOST ; Check if HOSTNAME parameter
. D GETMODAL(.MAGRY,.CNT,MAGNIEN,MAGNHOST,MAGNDATE)
. Q
S MAGRY(0)="0^"_(CNT-1)
S MAGRY(1)="HOSTNAME^DATETIME^MANUFACTURER^MODEL^MODALITY^IMAGING SERVICE^ACTIVE"
Q
;
GETMODAL(MAGRY,CNT,MAGNIEN,MAGNHOST,MAGNDATE) ; Get list of modalities for a hostname
;
N OUT,MSG,I
D LIST^DIC(2006.9122,","_MAGNIEN_",","@;.01;2;3;8;9","PI","","","","","","","OUT","MSG")
I $D(MSG("DIERR")) Q ; Error getting the list
S I=0
F S I=$O(OUT("DILIST",I)) Q:'+I D
. S CNT=CNT+1
. S MAGRY(CNT)=MAGNHOST_"^"_MAGNDATE_"^"_$P(OUT("DILIST",I,0),"^",2,7)
. Q
Q
;
;***** Return list of UID
; from DICOM UID SPECIFIC ACTION file (#2006.539)
; RPC: MAGV DGW ACTION UID LIST
;
; Input Parameters
; ================
; MAGTYPE - Type (e.g. "SOP Class")
; MAGSUBT - Subtype (e.g. "Storage")
; MAGACT - Action Type (e.g. "Storage SCP")
;
; Return Values
; =============
; if error found during execution
; MAGRY(0) = "-1^Error getting actions list"
; if success
; MAGRY(0) = "0^#CNT" - where #CNT is a number of records returned
; MAGRY(1) = "UID^DESCRIPTION^ACTION CODE^ACTION COMMENT"
; MAGRY(2..n) = "^" delimited string with values of fields listed in MAGRY(1)
;
ACTUIDS(MAGRY,MAGTYPE,MAGSUBT,MAGACT) ;RPC [MAGV DGW ACTION UID LIST]
I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D ERRA^MAGGTERR"
E S X="ERR^MAGGTERR",@^%ZOSF("TRAP")
N OUT,OUT2,MAGA,IEN,MAGX,CNT
I (MAGTYPE="")!(MAGSUBT="")!(MAGACT="") S MAGRY(0)="-1^Blank parameters" Q
;
S MAGRY(0)="-1^Error getting action UID list"
;
S MAGA(1)=MAGTYPE ;"SOP Class"
S MAGA(2)=MAGSUBT ;"Storage"
D FIND^DIC(2006.539,"","@;.01;2;","PQX",.MAGA,"*","D","","","OUT")
I $D(OUT("DIERR")) Q ; Error getting the list
S I=0
S CNT=1
F S I=$O(OUT("DILIST",I)) Q:'+I D
. S MAGX=OUT("DILIST",I,0)
. S IEN=$P(MAGX,"^",1)
. D FIND^DIC(2006.5391,","_IEN_",","@;2;3","PQX",MAGACT,"*","B","","","OUT2")
. I '$D(OUT2("DILIST","1",0)) Q
. S CNT=CNT+1
. S MAGRY(CNT)=$P(MAGX,"^",2,3)_"^"_$P(OUT2("DILIST","1",0),"^",2,3)
. Q
S MAGRY(0)="0^"_(CNT-1)
S MAGRY(1)="UID^DESCRIPTION^ACTION CODE^ACTION COMMENT"
Q
;
;***** Update DICOM GATEWAY INSTRUMENT DICTIONARY file (#2006.911)
; from DICOM Gateway file (#2006.581)
; RPC: MAGV DICOM SET INSTRUMENT LIST
;
; Input Parameters
; ================
; HOSTNAME - DICOM Gateway host name
; LOCATION - Identifies the institution where this DICOM Gateway computer resides
; MAGDATA - Data in DICOM Gateway file (#2006.581)
;
; Return Values
; =============
; if error found during execution
; MAGRY = "-1^Error updating list"
; if success
; MAGRY = 0
;
SETINSTR(MAGRY,HOSTNAME,LOCATION,MAGDATA) ; RPC [MAGV DICOM SET INSTRUMENT LIST]
I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D ERR^MAGGTERR"
E S X="ERR^MAGGTERR",@^%ZOSF("TRAP")
N NOW,DA,DIK,D0,IENS,X,MAGNFDA,MAGNIEN,MAGNXE,ERR
S MAGRY="-1^Error updating file (#2006.911)"
I $G(HOSTNAME)="" S MAGRY="-1^No HostName provided." Q
I '$G(LOCATION) S MAGRY="-1^No location provided." Q
S HOSTNAME=$TR(HOSTNAME,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
S NOW=$$HTFM^XLFDT($H)
D FIND^DIC(2006.911,"","@;IX","PQX",HOSTNAME,"1","","","","X")
I $D(X("DILIST","1",0)) D
. S D0=$P(X("DILIST","1",0),"^",1)
. S DIK="^MAGDICOM(2006.911,"
. S DA=D0
. D ^DIK
. S MAGNIEN(1)=D0
. Q
S IENS="?+1,"
S MAGNFDA(2006.911,IENS,.01)=HOSTNAME
S MAGNFDA(2006.911,IENS,1)=LOCATION
S MAGNFDA(2006.911,IENS,2)=NOW
D UPDATE^DIE("SK","MAGNFDA","MAGNIEN","MAGNXE")
I $D(MAGNXE("DIERR","E")) Q ; MAGRY is set at the beginning
S D0=MAGNIEN(1)
S IENS="+1,"_D0_","
S I=""
S ERR=0
F S I=$O(MAGDATA(I)) Q:(I="")!ERR D
. K MAGNFDA,MAGNIEN,MAGNXE
. S X=MAGDATA(I)
. S MAGNFDA("2006.9112",IENS,".01")=$P(X,"^",1) ; "CR1"
. S MAGNFDA("2006.9112",IENS,"2")=$P(X,"^",2) ; "Test CR"
. S MAGNFDA("2006.9112",IENS,"3")=$P(X,"^",3) ;"RAD"
. S MAGNFDA("2006.9112",IENS,"4")=$P(X,"^",4) ;"60100"
. S MAGNFDA("2006.9112",IENS,"5")=$P(X,"^",5) ;"660"
. S MAGNFDA("2006.9112",IENS,"6")=$P(X,"^",6) ;""
. D UPDATE^DIE("SK","MAGNFDA","MAGNIEN","MAGNXE")
. I $D(MAGNXE("DIERR","E")) S ERR=1
. Q
I ERR Q ; MAGRY is set at the beginning
;
S MAGRY=0
Q
;
;***** Update DICOM GATEWAY MODALITY DICTIONARY file (#2006.912)
; from DICOM Gateway file (#2006.582)
; RPC: MAGV DICOM SET MODALITY LIST
;
; Input Parameters
; ================
; HOSTNAME - DICOM Gateway host name
; LOCATION - Identifies the institution where this DICOM Gateway computer resides
; MAGDATA - Data in DICOM Gateway file (#2006.582)
;
; Return Values
; =============
; if error found during execution
; MAGRY = "-1^Error updating list"
; if success
; MAGRY = "0"
;
SETMODAL(MAGRY,HOSTNAME,LOCATION,MAGDATA) ; RPC [MAGV DICOM SET MODALITY LIST]
I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D ERR^MAGGTERR"
E S X="ERR^MAGGTERR",@^%ZOSF("TRAP")
N NOW,DA,DIK,D0,IENS,X,MAGNFDA,MAGNIEN,MAGNXE,ERR
S MAGRY="-1^Error updating file (#2006.912)"
I $G(HOSTNAME)="" S MAGRY="-1^No HostName provided." Q
I '$G(LOCATION) S MAGRY="-1^No location provided." Q
S HOSTNAME=$TR(HOSTNAME,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
S NOW=$$HTFM^XLFDT($H)
D FIND^DIC(2006.912,"","@;IX","PQX",HOSTNAME,"1","","","","X")
I $D(X("DILIST","1",0)) D
. S D0=$P(X("DILIST","1",0),"^",1)
. S DIK="^MAGDICOM(2006.912,"
. S DA=D0
. D ^DIK
. S MAGNIEN(1)=D0
. Q
S IENS="?+1,"
S MAGNFDA(2006.912,IENS,.01)=HOSTNAME
S MAGNFDA(2006.912,IENS,1)=LOCATION
S MAGNFDA(2006.912,IENS,2)=NOW
D UPDATE^DIE("SK","MAGNFDA","MAGNIEN","MAGNXE")
I $D(MAGNXE("DIERR","E")) Q ; MAGRY is set at the beginning
S D0=MAGNIEN(1)
S IENS="+1,"_D0_","
S I=""
S ERR=0
F S I=$O(MAGDATA(I)) Q:(I="")!ERR D
. K MAGNFDA,MAGNIEN,MAGNXE
. S X=MAGDATA(I)
. S MAGNFDA("2006.9122",IENS,".01")=$P(X,"^",1)
. S MAGNFDA("2006.9122",IENS,"2")=$P(X,"^",2)
. S MAGNFDA("2006.9122",IENS,"3")=$P(X,"^",3)
. S MAGNFDA("2006.9122",IENS,"4")=$P(X,"^",4)
. S MAGNFDA("2006.9122",IENS,"5")=$P(X,"^",5)
. S MAGNFDA("2006.9122",IENS,"6")=$P(X,"^",6)
. S MAGNFDA("2006.9122",IENS,"7")=$P(X,"^",7)
. S MAGNFDA("2006.9122",IENS,"8")=$P(X,"^",8)
. S MAGNFDA("2006.9122",IENS,"9")=$P(X,"^",9)
. D UPDATE^DIE("SK","MAGNFDA","MAGNIEN","MAGNXE")
. I $D(MAGNXE("DIERR","E")) S ERR=1
. Q
I ERR Q ; MAGRY is set at the beginning
;
S MAGRY=0
Q
;
;***** Return DGW email configuration entries from DICOM Gateway Mail (#2006.9191)
; RPC: MAGV GET DGW CONFIG
;
; Input Parameters
; ================
; HOSTNAME - Host name;
; If HOSTNAME error message will be returned
;
; Return Values
; =============
; if error found during execution
; MAGRY = "-1^Error message"
; if success
; MAGRY = HOSTNAME~MAILGROUP~POSTOFFICE~POSTPORT~IMPORTER~STATION NUMBER
;
GETGWCFG(MAGRY,HOSTNAME) ;RPC [MAGV GET DGW CONFIG]
N OUT,I,CNT,MAGNIEN,MAGNHOST,MAILGROUP,POSTOFFICE,POSTPORT,IMPORTER,SITEIEN,STATION
N X
I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D ERRA^MAGGTERR"
E S X="ERR^MAGGTERR",@^%ZOSF("TRAP")
S MAGRY="-1~Error getting DGW Config info"
I $G(HOSTNAME)="" S MAGRY="-1~No HostName provided" Q
S HOSTNAME=$TR(HOSTNAME,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
D LIST^DIC(2006.9191,"","@;.01;1;2;3;4;5","PI","","","","","","","OUT")
I $D(OUT("DIERR")) Q ; Error getting the list
S I=0
F S I=$O(OUT("DILIST",I)) Q:'+I D Q:HOSTNAME=MAGNHOST
. S X=OUT("DILIST",I,0)
. S MAGNIEN=$P(X,"^",1)
. S MAGNHOST=$P(X,"^",2)
. S MAILGROUP=$P(X,"^",3)
. S POSTOFFICE=$P(X,"^",4)
. S POSTPORT=$P(X,"^",5)
. S IMPORTER=$P(X,"^",6)
. S SITEIEN=$P(X,"^",7)
. S STATION=$$STA^XUAF4(SITEIEN) ; IA #2171 Get Station Number
. Q
I HOSTNAME'=MAGNHOST D Q ; Check if HOSTNAME parameter matches return
. S MAGRY="-1~HostName returned from DB,"_MAGNHOST_", doesn't match request."
. Q
;
S MAGRY="0~"_HOSTNAME_"~"_MAILGROUP_"~"_POSTOFFICE_"~"_POSTPORT_"~"_IMPORTER_"~"_STATION
Q
;
;
;***** Set DGW email configuration entries into DICOM Gateway Mail (#2006.9191)
; RPC: MAGV SET DGW CONFIG
;
; Input Parameters
; ================
; HOSTNAME
; MAILGROUP
; POSTOFFICE
; POSTPORT
; [IMPORTER]
; LOCATION
; If any of the input parameters are missing an error message will be returned.
;
; Return Values
; =============
; 0 - Success
; -1 - Error
;
SETGWCFG(MAGRY,HOSTNAME,MAILGROUP,POSTOFFICE,POSTPORT,IMPORTER,LOCATION) ; RPC [MAGV SET DGW CONFIG]
I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D ERR^MAGGTERR"
E S X="ERR^MAGGTERR",@^%ZOSF("TRAP")
N NOW,IENS,X,MAGNFDA,MAGNXE
S MAGRY="-1~Error updating file (#2006.9191)"
I $G(HOSTNAME)="" S MAGRY="-1~No HostName provided." Q
I $G(MAILGROUP)="" S MAGRY="-1~No MailGroup provided." Q
I $G(POSTOFFICE)="" S MAGRY="-1~No PostOffice provided." Q
I $G(POSTPORT)="" S MAGRY="-1~No PostPort provided." Q
I $G(LOCATION)="" S MAGRY="-1~No Location provided." Q
S HOSTNAME=$TR(HOSTNAME,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
S NOW=$$HTFM^XLFDT($H)
S IENS="?+1,"
S MAGNFDA(2006.9191,IENS,.01)=HOSTNAME
S MAGNFDA(2006.9191,IENS,1)=MAILGROUP
S MAGNFDA(2006.9191,IENS,2)=POSTOFFICE
S MAGNFDA(2006.9191,IENS,3)=POSTPORT
S MAGNFDA(2006.9191,IENS,4)=$G(IMPORTER)
S MAGNFDA(2006.9191,IENS,5)=LOCATION
D UPDATE^DIE("SK","MAGNFDA","","MAGNXE")
I $D(MAGNXE("DIERR","E")) Q ; MAGRY set at the beginning
S MAGRY="0~DGW Config info update ok"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGVDGWP 14342 printed Sep 23, 2025@19:46:03 Page 2
MAGVDGWP ;WOIFO/NST/RRB - Retrieve DGW settings ; 09 Jul 2012 2:53 PM
+1 ;;3.0;IMAGING;**118**;Mar 19, 2002;Build 4525;May 01, 2013
+2 ;; Per VHA Directive 2004-038, this routine should not be modified.
+3 ;; +---------------------------------------------------------------+
+4 ;; | Property of the US Government. |
+5 ;; | No permission to copy or redistribute this software is given. |
+6 ;; | Use of unreleased versions of this software requires the user |
+7 ;; | to execute a written test agreement with the VistA Imaging |
+8 ;; | Development Office of the Department of Veterans Affairs, |
+9 ;; | telephone (301) 734-0100. |
+10 ;; | The Food and Drug Administration classifies this software as |
+11 ;; | a medical device. As such, it may not be changed in any way. |
+12 ;; | Modifications to this software may result in an adulterated |
+13 ;; | medical device under 21CFR820, the use of which is considered |
+14 ;; | to be a violation of US Federal Statutes. |
+15 ;; +---------------------------------------------------------------+
+16 ;;
+17 QUIT
+18 ;
+19 ;***** Return list of Instruments in DGW from DICOM GATEWAY INSTRUMENT DICTIONARY file (#2006.911)
+20 ; RPC: MAGV DGW INSTRUMENT LIST
+21 ;
+22 ; Input Parameters
+23 ; ================
+24 ; HOSTNAME - Host name;
+25 ; If HOSTNAME is blank all setting will be returned
+26 ;
+27 ; Return Values
+28 ; =============
+29 ; if error found during execution
+30 ; MAGRY(0) = "-1^Error getting instrument list"
+31 ; if success
+32 ; MAGRY(0) = "0^#CNT" - where #CNT is a number of records returned
+33 ; MAGRY(1) = "HOSTNAME^DATETIME^NICKNAME^DESCRIPTION^SERVICE^PORT^SITE ID^SITE^MACHINE ID"
+34 ; MAGRY(2..n) = "^" delimited string with values of fields listed in MAGRY(1)
+35 ;
+36 QUIT
+37 ;
INSTRMNT(MAGRY,HOSTNAME) ;RPC [MAGV DGW INSTRUMENT LIST]
+1 NEW OUT,I,CNT,MAGNIEN,MAGNHOST,MAGNDATE
+2 NEW X
+3 IF $$NEWERR^%ZTER
NEW $ETRAP,$ESTACK
SET $ETRAP="D ERRA^MAGGTERR"
+4 IF '$TEST
SET X="ERR^MAGGTERR"
SET @^%ZOSF("TRAP")
+5 SET MAGRY(0)="-1^Error getting instrument list"
+6 SET HOSTNAME=$TRANSLATE(HOSTNAME,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
+7 DO LIST^DIC(2006.911,"","@;.01;2","PI","","","","","","","OUT")
+8 ; Error getting the list
IF $DATA(OUT("DIERR"))
QUIT
+9 SET I=0
+10 SET CNT=1
+11 FOR
SET I=$ORDER(OUT("DILIST",I))
if '+I
QUIT
Begin DoDot:1
+12 SET X=OUT("DILIST",I,0)
+13 SET MAGNIEN=$PIECE(X,"^",1)
+14 SET MAGNHOST=$PIECE(X,"^",2)
+15 SET MAGNDATE=$PIECE(X,"^",3)
+16 ; Check if HOSTNAME parameter
IF HOSTNAME'=""
if HOSTNAME'=MAGNHOST
QUIT
+17 DO GETINSTR(.MAGRY,.CNT,MAGNIEN,MAGNHOST,MAGNDATE)
+18 QUIT
End DoDot:1
+19 SET MAGRY(0)="0^"_(CNT-1)
+20 SET MAGRY(1)="HOSTNAME^DATETIME^NICKNAME^DESCRIPTION^SERVICE^PORT^SITE ID^SITE^MACHINE ID"
+21 QUIT
+22 ;
GETINSTR(MAGRY,CNT,MAGNIEN,MAGNHOST,MAGNDATE) ; Get list of instruments for a hostname
+1 ;
+2 NEW OUT,MSG,I,STATION,SITEIEN
+3 DO LIST^DIC(2006.9112,","_MAGNIEN_",","@;.01;2;3I;4;5I;5;6","P","","","","","","","OUT","MSG")
+4 ; Error getting the list
IF $DATA(MSG("DIERR"))
QUIT
+5 SET I=0
+6 FOR
SET I=$ORDER(OUT("DILIST",I))
if '+I
QUIT
Begin DoDot:1
+7 SET CNT=CNT+1
+8 ; Get site IEN
+9 SET SITEIEN=$PIECE(OUT("DILIST",I,0),"^",6)
+10 ; Get station based on site IEN
+11 ; IA #2171 Get Station Number
SET STATION=$$STA^XUAF4(SITEIEN)
+12 ; Set station into return array
+13 SET $PIECE(OUT("DILIST",I,0),"^",6)=STATION
+14 SET MAGRY(CNT)=MAGNHOST_"^"_MAGNDATE_"^"_$PIECE(OUT("DILIST",I,0),"^",2,8)
+15 QUIT
End DoDot:1
+16 QUIT
+17 ;
+18 ;***** Return list of Modalities in DGW from DICOM GATEWAY MODALITY DICTIONARY file (#2006.912)
+19 ; RPC: MAGV DGW MODALITY LIST
+20 ;
+21 ; Input Parameters
+22 ; ================
+23 ; HOSTNAME - Host name;
+24 ; If HOSTNAME is blank all setting will be returned
+25 ;
+26 ; Return Values
+27 ; =============
+28 ; if error found during execution
+29 ; MAGRY(0) = "-1^Error getting modality list"
+30 ; if success
+31 ; MAGRY(0) = "0^#CNT" - where #CNT is a number of records returned
+32 ; MAGRY(1) = "HOSTNAME^DATETIME^MANUFACTURER^MODEL^MODALITY^IMAGING SERVICE^ACTIVE"
+33 ; MAGRY(2..n) = "^" delimited string with values of fields listed in MAGRY(1)
+34 ;
MODALITY(MAGRY,HOSTNAME) ;RPC [MAGV DGW MODALITY LIST]
+1 NEW OUT,I,CNT,MAGNIEN,MAGNHOST,MAGNDATE
+2 NEW X
+3 IF $$NEWERR^%ZTER
NEW $ETRAP,$ESTACK
SET $ETRAP="D ERRA^MAGGTERR"
+4 IF '$TEST
SET X="ERR^MAGGTERR"
SET @^%ZOSF("TRAP")
+5 SET MAGRY(0)="-1^Error getting modality list"
+6 SET HOSTNAME=$TRANSLATE(HOSTNAME,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
+7 DO LIST^DIC(2006.912,"","@;.01;2","PI","","","","","","","OUT")
+8 ; Error getting the list
IF $DATA(OUT("DIERR"))
QUIT
+9 SET I=0
+10 SET CNT=1
+11 FOR
SET I=$ORDER(OUT("DILIST",I))
if '+I
QUIT
Begin DoDot:1
+12 SET X=OUT("DILIST",I,0)
+13 SET MAGNIEN=$PIECE(X,"^",1)
+14 SET MAGNHOST=$PIECE(X,"^",2)
+15 SET MAGNDATE=$PIECE(X,"^",3)
+16 ; Check if HOSTNAME parameter
IF HOSTNAME'=""
if HOSTNAME'=MAGNHOST
QUIT
+17 DO GETMODAL(.MAGRY,.CNT,MAGNIEN,MAGNHOST,MAGNDATE)
+18 QUIT
End DoDot:1
+19 SET MAGRY(0)="0^"_(CNT-1)
+20 SET MAGRY(1)="HOSTNAME^DATETIME^MANUFACTURER^MODEL^MODALITY^IMAGING SERVICE^ACTIVE"
+21 QUIT
+22 ;
GETMODAL(MAGRY,CNT,MAGNIEN,MAGNHOST,MAGNDATE) ; Get list of modalities for a hostname
+1 ;
+2 NEW OUT,MSG,I
+3 DO LIST^DIC(2006.9122,","_MAGNIEN_",","@;.01;2;3;8;9","PI","","","","","","","OUT","MSG")
+4 ; Error getting the list
IF $DATA(MSG("DIERR"))
QUIT
+5 SET I=0
+6 FOR
SET I=$ORDER(OUT("DILIST",I))
if '+I
QUIT
Begin DoDot:1
+7 SET CNT=CNT+1
+8 SET MAGRY(CNT)=MAGNHOST_"^"_MAGNDATE_"^"_$PIECE(OUT("DILIST",I,0),"^",2,7)
+9 QUIT
End DoDot:1
+10 QUIT
+11 ;
+12 ;***** Return list of UID
+13 ; from DICOM UID SPECIFIC ACTION file (#2006.539)
+14 ; RPC: MAGV DGW ACTION UID LIST
+15 ;
+16 ; Input Parameters
+17 ; ================
+18 ; MAGTYPE - Type (e.g. "SOP Class")
+19 ; MAGSUBT - Subtype (e.g. "Storage")
+20 ; MAGACT - Action Type (e.g. "Storage SCP")
+21 ;
+22 ; Return Values
+23 ; =============
+24 ; if error found during execution
+25 ; MAGRY(0) = "-1^Error getting actions list"
+26 ; if success
+27 ; MAGRY(0) = "0^#CNT" - where #CNT is a number of records returned
+28 ; MAGRY(1) = "UID^DESCRIPTION^ACTION CODE^ACTION COMMENT"
+29 ; MAGRY(2..n) = "^" delimited string with values of fields listed in MAGRY(1)
+30 ;
ACTUIDS(MAGRY,MAGTYPE,MAGSUBT,MAGACT) ;RPC [MAGV DGW ACTION UID LIST]
+1 IF $$NEWERR^%ZTER
NEW $ETRAP,$ESTACK
SET $ETRAP="D ERRA^MAGGTERR"
+2 IF '$TEST
SET X="ERR^MAGGTERR"
SET @^%ZOSF("TRAP")
+3 NEW OUT,OUT2,MAGA,IEN,MAGX,CNT
+4 IF (MAGTYPE="")!(MAGSUBT="")!(MAGACT="")
SET MAGRY(0)="-1^Blank parameters"
QUIT
+5 ;
+6 SET MAGRY(0)="-1^Error getting action UID list"
+7 ;
+8 ;"SOP Class"
SET MAGA(1)=MAGTYPE
+9 ;"Storage"
SET MAGA(2)=MAGSUBT
+10 DO FIND^DIC(2006.539,"","@;.01;2;","PQX",.MAGA,"*","D","","","OUT")
+11 ; Error getting the list
IF $DATA(OUT("DIERR"))
QUIT
+12 SET I=0
+13 SET CNT=1
+14 FOR
SET I=$ORDER(OUT("DILIST",I))
if '+I
QUIT
Begin DoDot:1
+15 SET MAGX=OUT("DILIST",I,0)
+16 SET IEN=$PIECE(MAGX,"^",1)
+17 DO FIND^DIC(2006.5391,","_IEN_",","@;2;3","PQX",MAGACT,"*","B","","","OUT2")
+18 IF '$DATA(OUT2("DILIST","1",0))
QUIT
+19 SET CNT=CNT+1
+20 SET MAGRY(CNT)=$PIECE(MAGX,"^",2,3)_"^"_$PIECE(OUT2("DILIST","1",0),"^",2,3)
+21 QUIT
End DoDot:1
+22 SET MAGRY(0)="0^"_(CNT-1)
+23 SET MAGRY(1)="UID^DESCRIPTION^ACTION CODE^ACTION COMMENT"
+24 QUIT
+25 ;
+26 ;***** Update DICOM GATEWAY INSTRUMENT DICTIONARY file (#2006.911)
+27 ; from DICOM Gateway file (#2006.581)
+28 ; RPC: MAGV DICOM SET INSTRUMENT LIST
+29 ;
+30 ; Input Parameters
+31 ; ================
+32 ; HOSTNAME - DICOM Gateway host name
+33 ; LOCATION - Identifies the institution where this DICOM Gateway computer resides
+34 ; MAGDATA - Data in DICOM Gateway file (#2006.581)
+35 ;
+36 ; Return Values
+37 ; =============
+38 ; if error found during execution
+39 ; MAGRY = "-1^Error updating list"
+40 ; if success
+41 ; MAGRY = 0
+42 ;
SETINSTR(MAGRY,HOSTNAME,LOCATION,MAGDATA) ; RPC [MAGV DICOM SET INSTRUMENT LIST]
+1 IF $$NEWERR^%ZTER
NEW $ETRAP,$ESTACK
SET $ETRAP="D ERR^MAGGTERR"
+2 IF '$TEST
SET X="ERR^MAGGTERR"
SET @^%ZOSF("TRAP")
+3 NEW NOW,DA,DIK,D0,IENS,X,MAGNFDA,MAGNIEN,MAGNXE,ERR
+4 SET MAGRY="-1^Error updating file (#2006.911)"
+5 IF $GET(HOSTNAME)=""
SET MAGRY="-1^No HostName provided."
QUIT
+6 IF '$GET(LOCATION)
SET MAGRY="-1^No location provided."
QUIT
+7 SET HOSTNAME=$TRANSLATE(HOSTNAME,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
+8 SET NOW=$$HTFM^XLFDT($HOROLOG)
+9 DO FIND^DIC(2006.911,"","@;IX","PQX",HOSTNAME,"1","","","","X")
+10 IF $DATA(X("DILIST","1",0))
Begin DoDot:1
+11 SET D0=$PIECE(X("DILIST","1",0),"^",1)
+12 SET DIK="^MAGDICOM(2006.911,"
+13 SET DA=D0
+14 DO ^DIK
+15 SET MAGNIEN(1)=D0
+16 QUIT
End DoDot:1
+17 SET IENS="?+1,"
+18 SET MAGNFDA(2006.911,IENS,.01)=HOSTNAME
+19 SET MAGNFDA(2006.911,IENS,1)=LOCATION
+20 SET MAGNFDA(2006.911,IENS,2)=NOW
+21 DO UPDATE^DIE("SK","MAGNFDA","MAGNIEN","MAGNXE")
+22 ; MAGRY is set at the beginning
IF $DATA(MAGNXE("DIERR","E"))
QUIT
+23 SET D0=MAGNIEN(1)
+24 SET IENS="+1,"_D0_","
+25 SET I=""
+26 SET ERR=0
+27 FOR
SET I=$ORDER(MAGDATA(I))
if (I="")!ERR
QUIT
Begin DoDot:1
+28 KILL MAGNFDA,MAGNIEN,MAGNXE
+29 SET X=MAGDATA(I)
+30 ; "CR1"
SET MAGNFDA("2006.9112",IENS,".01")=$PIECE(X,"^",1)
+31 ; "Test CR"
SET MAGNFDA("2006.9112",IENS,"2")=$PIECE(X,"^",2)
+32 ;"RAD"
SET MAGNFDA("2006.9112",IENS,"3")=$PIECE(X,"^",3)
+33 ;"60100"
SET MAGNFDA("2006.9112",IENS,"4")=$PIECE(X,"^",4)
+34 ;"660"
SET MAGNFDA("2006.9112",IENS,"5")=$PIECE(X,"^",5)
+35 ;""
SET MAGNFDA("2006.9112",IENS,"6")=$PIECE(X,"^",6)
+36 DO UPDATE^DIE("SK","MAGNFDA","MAGNIEN","MAGNXE")
+37 IF $DATA(MAGNXE("DIERR","E"))
SET ERR=1
+38 QUIT
End DoDot:1
+39 ; MAGRY is set at the beginning
IF ERR
QUIT
+40 ;
+41 SET MAGRY=0
+42 QUIT
+43 ;
+44 ;***** Update DICOM GATEWAY MODALITY DICTIONARY file (#2006.912)
+45 ; from DICOM Gateway file (#2006.582)
+46 ; RPC: MAGV DICOM SET MODALITY LIST
+47 ;
+48 ; Input Parameters
+49 ; ================
+50 ; HOSTNAME - DICOM Gateway host name
+51 ; LOCATION - Identifies the institution where this DICOM Gateway computer resides
+52 ; MAGDATA - Data in DICOM Gateway file (#2006.582)
+53 ;
+54 ; Return Values
+55 ; =============
+56 ; if error found during execution
+57 ; MAGRY = "-1^Error updating list"
+58 ; if success
+59 ; MAGRY = "0"
+60 ;
SETMODAL(MAGRY,HOSTNAME,LOCATION,MAGDATA) ; RPC [MAGV DICOM SET MODALITY LIST]
+1 IF $$NEWERR^%ZTER
NEW $ETRAP,$ESTACK
SET $ETRAP="D ERR^MAGGTERR"
+2 IF '$TEST
SET X="ERR^MAGGTERR"
SET @^%ZOSF("TRAP")
+3 NEW NOW,DA,DIK,D0,IENS,X,MAGNFDA,MAGNIEN,MAGNXE,ERR
+4 SET MAGRY="-1^Error updating file (#2006.912)"
+5 IF $GET(HOSTNAME)=""
SET MAGRY="-1^No HostName provided."
QUIT
+6 IF '$GET(LOCATION)
SET MAGRY="-1^No location provided."
QUIT
+7 SET HOSTNAME=$TRANSLATE(HOSTNAME,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
+8 SET NOW=$$HTFM^XLFDT($HOROLOG)
+9 DO FIND^DIC(2006.912,"","@;IX","PQX",HOSTNAME,"1","","","","X")
+10 IF $DATA(X("DILIST","1",0))
Begin DoDot:1
+11 SET D0=$PIECE(X("DILIST","1",0),"^",1)
+12 SET DIK="^MAGDICOM(2006.912,"
+13 SET DA=D0
+14 DO ^DIK
+15 SET MAGNIEN(1)=D0
+16 QUIT
End DoDot:1
+17 SET IENS="?+1,"
+18 SET MAGNFDA(2006.912,IENS,.01)=HOSTNAME
+19 SET MAGNFDA(2006.912,IENS,1)=LOCATION
+20 SET MAGNFDA(2006.912,IENS,2)=NOW
+21 DO UPDATE^DIE("SK","MAGNFDA","MAGNIEN","MAGNXE")
+22 ; MAGRY is set at the beginning
IF $DATA(MAGNXE("DIERR","E"))
QUIT
+23 SET D0=MAGNIEN(1)
+24 SET IENS="+1,"_D0_","
+25 SET I=""
+26 SET ERR=0
+27 FOR
SET I=$ORDER(MAGDATA(I))
if (I="")!ERR
QUIT
Begin DoDot:1
+28 KILL MAGNFDA,MAGNIEN,MAGNXE
+29 SET X=MAGDATA(I)
+30 SET MAGNFDA("2006.9122",IENS,".01")=$PIECE(X,"^",1)
+31 SET MAGNFDA("2006.9122",IENS,"2")=$PIECE(X,"^",2)
+32 SET MAGNFDA("2006.9122",IENS,"3")=$PIECE(X,"^",3)
+33 SET MAGNFDA("2006.9122",IENS,"4")=$PIECE(X,"^",4)
+34 SET MAGNFDA("2006.9122",IENS,"5")=$PIECE(X,"^",5)
+35 SET MAGNFDA("2006.9122",IENS,"6")=$PIECE(X,"^",6)
+36 SET MAGNFDA("2006.9122",IENS,"7")=$PIECE(X,"^",7)
+37 SET MAGNFDA("2006.9122",IENS,"8")=$PIECE(X,"^",8)
+38 SET MAGNFDA("2006.9122",IENS,"9")=$PIECE(X,"^",9)
+39 DO UPDATE^DIE("SK","MAGNFDA","MAGNIEN","MAGNXE")
+40 IF $DATA(MAGNXE("DIERR","E"))
SET ERR=1
+41 QUIT
End DoDot:1
+42 ; MAGRY is set at the beginning
IF ERR
QUIT
+43 ;
+44 SET MAGRY=0
+45 QUIT
+46 ;
+47 ;***** Return DGW email configuration entries from DICOM Gateway Mail (#2006.9191)
+48 ; RPC: MAGV GET DGW CONFIG
+49 ;
+50 ; Input Parameters
+51 ; ================
+52 ; HOSTNAME - Host name;
+53 ; If HOSTNAME error message will be returned
+54 ;
+55 ; Return Values
+56 ; =============
+57 ; if error found during execution
+58 ; MAGRY = "-1^Error message"
+59 ; if success
+60 ; MAGRY = HOSTNAME~MAILGROUP~POSTOFFICE~POSTPORT~IMPORTER~STATION NUMBER
+61 ;
GETGWCFG(MAGRY,HOSTNAME) ;RPC [MAGV GET DGW CONFIG]
+1 NEW OUT,I,CNT,MAGNIEN,MAGNHOST,MAILGROUP,POSTOFFICE,POSTPORT,IMPORTER,SITEIEN,STATION
+2 NEW X
+3 IF $$NEWERR^%ZTER
NEW $ETRAP,$ESTACK
SET $ETRAP="D ERRA^MAGGTERR"
+4 IF '$TEST
SET X="ERR^MAGGTERR"
SET @^%ZOSF("TRAP")
+5 SET MAGRY="-1~Error getting DGW Config info"
+6 IF $GET(HOSTNAME)=""
SET MAGRY="-1~No HostName provided"
QUIT
+7 SET HOSTNAME=$TRANSLATE(HOSTNAME,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
+8 DO LIST^DIC(2006.9191,"","@;.01;1;2;3;4;5","PI","","","","","","","OUT")
+9 ; Error getting the list
IF $DATA(OUT("DIERR"))
QUIT
+10 SET I=0
+11 FOR
SET I=$ORDER(OUT("DILIST",I))
if '+I
QUIT
Begin DoDot:1
+12 SET X=OUT("DILIST",I,0)
+13 SET MAGNIEN=$PIECE(X,"^",1)
+14 SET MAGNHOST=$PIECE(X,"^",2)
+15 SET MAILGROUP=$PIECE(X,"^",3)
+16 SET POSTOFFICE=$PIECE(X,"^",4)
+17 SET POSTPORT=$PIECE(X,"^",5)
+18 SET IMPORTER=$PIECE(X,"^",6)
+19 SET SITEIEN=$PIECE(X,"^",7)
+20 ; IA #2171 Get Station Number
SET STATION=$$STA^XUAF4(SITEIEN)
+21 QUIT
End DoDot:1
if HOSTNAME=MAGNHOST
QUIT
+22 ; Check if HOSTNAME parameter matches return
IF HOSTNAME'=MAGNHOST
Begin DoDot:1
+23 SET MAGRY="-1~HostName returned from DB,"_MAGNHOST_", doesn't match request."
+24 QUIT
End DoDot:1
QUIT
+25 ;
+26 SET MAGRY="0~"_HOSTNAME_"~"_MAILGROUP_"~"_POSTOFFICE_"~"_POSTPORT_"~"_IMPORTER_"~"_STATION
+27 QUIT
+28 ;
+29 ;
+30 ;***** Set DGW email configuration entries into DICOM Gateway Mail (#2006.9191)
+31 ; RPC: MAGV SET DGW CONFIG
+32 ;
+33 ; Input Parameters
+34 ; ================
+35 ; HOSTNAME
+36 ; MAILGROUP
+37 ; POSTOFFICE
+38 ; POSTPORT
+39 ; [IMPORTER]
+40 ; LOCATION
+41 ; If any of the input parameters are missing an error message will be returned.
+42 ;
+43 ; Return Values
+44 ; =============
+45 ; 0 - Success
+46 ; -1 - Error
+47 ;
SETGWCFG(MAGRY,HOSTNAME,MAILGROUP,POSTOFFICE,POSTPORT,IMPORTER,LOCATION) ; RPC [MAGV SET DGW CONFIG]
+1 IF $$NEWERR^%ZTER
NEW $ETRAP,$ESTACK
SET $ETRAP="D ERR^MAGGTERR"
+2 IF '$TEST
SET X="ERR^MAGGTERR"
SET @^%ZOSF("TRAP")
+3 NEW NOW,IENS,X,MAGNFDA,MAGNXE
+4 SET MAGRY="-1~Error updating file (#2006.9191)"
+5 IF $GET(HOSTNAME)=""
SET MAGRY="-1~No HostName provided."
QUIT
+6 IF $GET(MAILGROUP)=""
SET MAGRY="-1~No MailGroup provided."
QUIT
+7 IF $GET(POSTOFFICE)=""
SET MAGRY="-1~No PostOffice provided."
QUIT
+8 IF $GET(POSTPORT)=""
SET MAGRY="-1~No PostPort provided."
QUIT
+9 IF $GET(LOCATION)=""
SET MAGRY="-1~No Location provided."
QUIT
+10 SET HOSTNAME=$TRANSLATE(HOSTNAME,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
+11 SET NOW=$$HTFM^XLFDT($HOROLOG)
+12 SET IENS="?+1,"
+13 SET MAGNFDA(2006.9191,IENS,.01)=HOSTNAME
+14 SET MAGNFDA(2006.9191,IENS,1)=MAILGROUP
+15 SET MAGNFDA(2006.9191,IENS,2)=POSTOFFICE
+16 SET MAGNFDA(2006.9191,IENS,3)=POSTPORT
+17 SET MAGNFDA(2006.9191,IENS,4)=$GET(IMPORTER)
+18 SET MAGNFDA(2006.9191,IENS,5)=LOCATION
+19 DO UPDATE^DIE("SK","MAGNFDA","","MAGNXE")
+20 ; MAGRY set at the beginning
IF $DATA(MAGNXE("DIERR","E"))
QUIT
+21 SET MAGRY="0~DGW Config info update ok"
+22 QUIT
