1 | VWREGIT2 ;Portland/WorldVista//Jim Bell, et al... - Post-Install for VWREG |
---|
2 | ;;2.0;WORLD VISTA;**HOME **;;Build 4 |
---|
3 | ;***************************************************************** |
---|
4 | ;* Licensed under GNU 2.0 or greater - see license.txt file * |
---|
5 | ;* Program/application is for the management of input templates * |
---|
6 | ;* owned by the user (DUZ). * |
---|
7 | ;* REMINDER: All template fields pertain only to the Patient File* |
---|
8 | ;* (#2)! * |
---|
9 | ;***************************************************************** |
---|
10 | ; |
---|
11 | ;Continued from VWREGIT |
---|
12 | ; |
---|
13 | ;GNU License: See WVLIC.txt |
---|
14 | ;Modified FOIA VISTA, |
---|
15 | ;Copyright 2013 WorldVistA. Licensed under the terms of the GNU |
---|
16 | Q |
---|
17 | PRE ;Did this installation happen already? Avoid a re-do? |
---|
18 | I $O(^XMB(3.8,"B","VW REG ERROR REPORT",0))&($D(^XTV(8989.51,"B","VW GUI REG TEMPLATE DIRECTORY",0))) W !?5,"Installation has already occurred" |
---|
19 | W !,"Do you want to continue? NO//" R X:60 S:'$L(X) X="NO" S X=$$UP^XLFSTR(X) |
---|
20 | I "NON"[X W !,"OK" D ^XUSCLEAN |
---|
21 | Q |
---|
22 | ; |
---|
23 | PI ;Post Installation install |
---|
24 | ;Checking for a home directory & file |
---|
25 | ;I $O(^XMB(3.8,"B","VW REG ERROR REPORT",0)) W !?5,"Installation has already occurred" Q |
---|
26 | D PRE |
---|
27 | S AR=1,AR(1)="[TEMPLATES]" |
---|
28 | S N=0 F S N=$O(^DIE(N)) Q:'+N S X=$P(^(N,0),"^") D |
---|
29 | . I X["VW " S AR($I(AR))=X_"("_N_")" |
---|
30 | . I X["[World" S AR($I(AR))=X_"("_N_")" |
---|
31 | S AR($I(AR))="[ID]" |
---|
32 | S P4=1,P5="",HD=$ZDIRECTORY_"regparam/",FILE="regit.txt" |
---|
33 | S X=$$GTF^%ZISH($NA(AR(1)),1,HD,"regit.txt") |
---|
34 | ZSY "chmod 777 "_$ZDIRECTORY_"regparam/"_FILE ;No sensitive info here |
---|
35 | Q:$G(TEST) ;Straightening out regit.txt |
---|
36 | ; |
---|
37 | ;; NOTE: The parameter definition is installed but there is no installation for |
---|
38 | ;;the actual parameter and value. Do it here. |
---|
39 | ;parameter value attempt |
---|
40 | ;Set a home directory for editing; SYSTEM (DIC(4,) and DOMAIN (DIC(4.2,) only:"/home/vista/regparam/" |
---|
41 | S PARD=$O(^XTV(8989.51,"B","VW GUI REG TEMPLATE DIRECTORY",0)) |
---|
42 | I PARD D |
---|
43 | . L +^XTV(8989.5,0):1 D L -^XTV(8989.5,0) |
---|
44 | .. S NEW=$O(^XTV(8989.5," "),-1)+1 |
---|
45 | .. S $P(^XTV(8989.5,0),"^",3)=NEW |
---|
46 | .. S $P(^XTV(8989.5,0),"^",4)=$P(^(0),"^",4)+1 |
---|
47 | .. S $P(^XTV(8989.5,NEW,0),"^")="1;DIC(4," |
---|
48 | .. S $P(^XTV(8989.5,NEW,0),"^",2)=PARD |
---|
49 | .. S $P(^XTV(8989.5,NEW,0),"^",3)=1 |
---|
50 | .. S ^XTV(8989.5,NEW,1)=HD |
---|
51 | .. S DA=NEW,DIK="^XTV(8989.5," D IX^DIK |
---|
52 | .. S NEW2=$O(^XTV(8989.5," "),-1)+1 |
---|
53 | .. S $P(^XTV(8989.5,0),"^",3)=NEW2 |
---|
54 | .. S $P(^XTV(8989.5,0),"^",4)=$P(^(0),"^",4)+1 |
---|
55 | .. S $P(^XTV(8989.5,NEW2,0),"^")="9;DIC(4.2," |
---|
56 | .. S $P(^XTV(8989.5,NEW2,0),"^",2)=PARD |
---|
57 | .. S $P(^XTV(8989.5,NEW2,0),"^",3)=1 |
---|
58 | .. S ^XTV(8989.5,NEW2,1)=HD |
---|
59 | .. S DA=NEW2,DIK="^XTV(8989.5," D IX^DIK |
---|
60 | ; |
---|
61 | ;Mailgroup VW REG ERROR REPORT - add programmer's email |
---|
62 | S DA(1)=$O(^XMB(3.8,"B","VW REG ERROR REPORT",0)) |
---|
63 | Q:'DA(1) |
---|
64 | S DIC="^XMB(3.8,"_DA(1)_",6," |
---|
65 | S X="jbellco65@gmail.com" |
---|
66 | S DIC(0)="LZ" |
---|
67 | D FILE^DICN |
---|
68 | Q |
---|
69 | ; |
---|