MAGUNET ;WOIFO/SRR/RMP - Edit Network Location companion ; [ 06/20/2001 08:57 ]
;;3.0;IMAGING;;Mar 01, 2002
;; +---------------------------------------------------------------+
;; | 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. |
;; +---------------------------------------------------------------+
;;
ED ;Enter/Edit Network Location Parameters
S DIC="^MAG(2005.2,",DIC(0)="AEQLZ",DIC("A")=" Enter a Network Location: "
W !!! D ^DIC G EXIT:Y=-1
S DIE("NO^")="BACK",DIE=DIC,DA=+Y,DR="[MAG ENTER/EDIT NETWORK LOC]"
D ^DIE G ED
Q
;
CK ;Check name for Magnetic Storage
S LOC=$P(^MAG(2005.2,DA,0),U) Q:$E(LOC,1,3)="MAG"
W !,"Logical name for this device does not start with 'MAG'!!"
Q
;
PR ;Physical Reference
W !!,?10,"This is the PATH for the Image Storage"
W !?10,"For example: J:\IMAGE\ or H:\IMAGE\",!!
Q
;
STA ;Network Location Status
W @IOF,!!!?20,"CHANGE a Magnetic Server STATUS"
W !!?25,"OFF LINE =====> 0"
W !!?25," ON LINE =====> 1",!!
S (DIC,DIE)="^MAG(2005.2,",DR="5;",DIC(0)="QAEZ",DIC("S")="I $E($P(^(0),U),1,3)=""MAG"""
D ^DIC G EXIT:Y<0
S DA=+Y D ^DIE G EXIT
EXIT ;Exit routine
K DA,DIC,DIE,DR,LOC,X,Y
Q
MUSENET ;Edit MUSE fields
; MUSE fields in 2006.1
N DIC,DIE,X,Y,DR,D,D0,DA,D1,DQ,DP,MAGUSR,MDEF,MAGPSWD
S DA=1
S DIE="^MAG(2006.1,",DR="[MAG MUSE PARAMETERS]"
D ^DIE
S NET=$G(^MAG(2006.1,1,"NET"))
S MAGUSR=$P($G(NET),"^"),MAGPSWD=$P(NET,"^",2)
S MDEF=$P($G(^MAG(2006.1,1,"USERPREF")),"^",2)
I MAGUSR=""!(MAGPSWD="")!(MDEF="") D
. W !,$C(7),"The MUSE interface requires all of the above fields;"
. W !,"please research and provide the appropriate responses."
D ENTWK
Q
ENTWK ;
N DIC,DIE,X,Y,DR,D,D0,DA,D1,DQ,DP
S DIC="^MAG(2005.2,",DIC(0)="AEQLZ"
S DIC("A")=" Add/Edit Muse Network Location: "
W !! D ^DIC
I Y=-1 G EXIT
S DA=+Y,DIE=DIC Q:'DA
S DIE("NO^")="BACKOUTOK"
S DR="[MAG ENTER/EDIT MUSE NETWORK]"
D ^DIE K X,Y G ENTWK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGUNET 2755 printed Nov 22, 2024@17:19:05 Page 2
MAGUNET ;WOIFO/SRR/RMP - Edit Network Location companion ; [ 06/20/2001 08:57 ]
+1 ;;3.0;IMAGING;;Mar 01, 2002
+2 ;; +---------------------------------------------------------------+
+3 ;; | Property of the US Government. |
+4 ;; | No permission to copy or redistribute this software is given. |
+5 ;; | Use of unreleased versions of this software requires the user |
+6 ;; | to execute a written test agreement with the VistA Imaging |
+7 ;; | Development Office of the Department of Veterans Affairs, |
+8 ;; | telephone (301) 734-0100. |
+9 ;; | |
+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 ;;
ED ;Enter/Edit Network Location Parameters
+1 SET DIC="^MAG(2005.2,"
SET DIC(0)="AEQLZ"
SET DIC("A")=" Enter a Network Location: "
+2 WRITE !!!
DO ^DIC
if Y=-1
GOTO EXIT
+3 SET DIE("NO^")="BACK"
SET DIE=DIC
SET DA=+Y
SET DR="[MAG ENTER/EDIT NETWORK LOC]"
+4 DO ^DIE
GOTO ED
+5 QUIT
+6 ;
CK ;Check name for Magnetic Storage
+1 SET LOC=$PIECE(^MAG(2005.2,DA,0),U)
if $EXTRACT(LOC,1,3)="MAG"
QUIT
+2 WRITE !,"Logical name for this device does not start with 'MAG'!!"
+3 QUIT
+4 ;
PR ;Physical Reference
+1 WRITE !!,?10,"This is the PATH for the Image Storage"
+2 WRITE !?10,"For example: J:\IMAGE\ or H:\IMAGE\",!!
+3 QUIT
+4 ;
STA ;Network Location Status
+1 WRITE @IOF,!!!?20,"CHANGE a Magnetic Server STATUS"
+2 WRITE !!?25,"OFF LINE =====> 0"
+3 WRITE !!?25," ON LINE =====> 1",!!
+4 SET (DIC,DIE)="^MAG(2005.2,"
SET DR="5;"
SET DIC(0)="QAEZ"
SET DIC("S")="I $E($P(^(0),U),1,3)=""MAG"""
+5 DO ^DIC
if Y<0
GOTO EXIT
+6 SET DA=+Y
DO ^DIE
GOTO EXIT
EXIT ;Exit routine
+1 KILL DA,DIC,DIE,DR,LOC,X,Y
+2 QUIT
MUSENET ;Edit MUSE fields
+1 ; MUSE fields in 2006.1
+2 NEW DIC,DIE,X,Y,DR,D,D0,DA,D1,DQ,DP,MAGUSR,MDEF,MAGPSWD
+3 SET DA=1
+4 SET DIE="^MAG(2006.1,"
SET DR="[MAG MUSE PARAMETERS]"
+5 DO ^DIE
+6 SET NET=$GET(^MAG(2006.1,1,"NET"))
+7 SET MAGUSR=$PIECE($GET(NET),"^")
SET MAGPSWD=$PIECE(NET,"^",2)
+8 SET MDEF=$PIECE($GET(^MAG(2006.1,1,"USERPREF")),"^",2)
+9 IF MAGUSR=""!(MAGPSWD="")!(MDEF="")
Begin DoDot:1
+10 WRITE !,$CHAR(7),"The MUSE interface requires all of the above fields;"
+11 WRITE !,"please research and provide the appropriate responses."
End DoDot:1
+12 DO ENTWK
+13 QUIT
ENTWK ;
+1 NEW DIC,DIE,X,Y,DR,D,D0,DA,D1,DQ,DP
+2 SET DIC="^MAG(2005.2,"
SET DIC(0)="AEQLZ"
+3 SET DIC("A")=" Add/Edit Muse Network Location: "
+4 WRITE !!
DO ^DIC
+5 IF Y=-1
GOTO EXIT
+6 SET DA=+Y
SET DIE=DIC
if 'DA
QUIT
+7 SET DIE("NO^")="BACKOUTOK"
+8 SET DR="[MAG ENTER/EDIT MUSE NETWORK]"
+9 DO ^DIE
KILL X,Y
GOTO ENTWK
+10 QUIT
