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