source: WorldVistAEHR/trunk/r/IMAGING-MAG-ZMAG/MAGUNET.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.6 KB
RevLine 
[613]1MAGUNET ;WOIFO/SRR/RMP - Edit Network Location companion ; [ 06/20/2001 08:57 ]
2 ;;3.0;IMAGING;;Mar 01, 2002
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 ;; | |
11 ;; | The Food and Drug Administration classifies this software as |
12 ;; | a medical device. As such, it may not be changed in any way. |
13 ;; | Modifications to this software may result in an adulterated |
14 ;; | medical device under 21CFR820, the use of which is considered |
15 ;; | to be a violation of US Federal Statutes. |
16 ;; +---------------------------------------------------------------+
17 ;;
18ED ;Enter/Edit Network Location Parameters
19 S DIC="^MAG(2005.2,",DIC(0)="AEQLZ",DIC("A")=" Enter a Network Location: "
20 W !!! D ^DIC G EXIT:Y=-1
21 S DIE("NO^")="BACK",DIE=DIC,DA=+Y,DR="[MAG ENTER/EDIT NETWORK LOC]"
22 D ^DIE G ED
23 Q
24 ;
25CK ;Check name for Magnetic Storage
26 S LOC=$P(^MAG(2005.2,DA,0),U) Q:$E(LOC,1,3)="MAG"
27 W !,"Logical name for this device does not start with 'MAG'!!"
28 Q
29 ;
30PR ;Physical Reference
31 W !!,?10,"This is the PATH for the Image Storage"
32 W !?10,"For example: J:\IMAGE\ or H:\IMAGE\",!!
33 Q
34 ;
35STA ;Network Location Status
36 W @IOF,!!!?20,"CHANGE a Magnetic Server STATUS"
37 W !!?25,"OFF LINE =====> 0"
38 W !!?25," ON LINE =====> 1",!!
39 S (DIC,DIE)="^MAG(2005.2,",DR="5;",DIC(0)="QAEZ",DIC("S")="I $E($P(^(0),U),1,3)=""MAG"""
40 D ^DIC G EXIT:Y<0
41 S DA=+Y D ^DIE G EXIT
42EXIT ;Exit routine
43 K DA,DIC,DIE,DR,LOC,X,Y
44 Q
45MUSENET ;Edit MUSE fields
46 ; MUSE fields in 2006.1
47 N DIC,DIE,X,Y,DR,D,D0,DA,D1,DQ,DP,MAGUSR,MDEF,MAGPSWD
48 S DA=1
49 S DIE="^MAG(2006.1,",DR="[MAG MUSE PARAMETERS]"
50 D ^DIE
51 S NET=$G(^MAG(2006.1,1,"NET"))
52 S MAGUSR=$P($G(NET),"^"),MAGPSWD=$P(NET,"^",2)
53 S MDEF=$P($G(^MAG(2006.1,1,"USERPREF")),"^",2)
54 I MAGUSR=""!(MAGPSWD="")!(MDEF="") D
55 . W !,$C(7),"The MUSE interface requires all of the above fields;"
56 . W !,"please research and provide the appropriate responses."
57 D ENTWK
58 Q
59ENTWK ;
60 N DIC,DIE,X,Y,DR,D,D0,DA,D1,DQ,DP
61 S DIC="^MAG(2005.2,",DIC(0)="AEQLZ"
62 S DIC("A")=" Add/Edit Muse Network Location: "
63 W !! D ^DIC
64 I Y=-1 G EXIT
65 S DA=+Y,DIE=DIC Q:'DA
66 S DIE("NO^")="BACKOUTOK"
67 S DR="[MAG ENTER/EDIT MUSE NETWORK]"
68 D ^DIE K X,Y G ENTWK
69 Q
Note: See TracBrowser for help on using the repository browser.