| 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 | ; |
|---|
