70 lines
2.7 KiB
Mathematica
70 lines
2.7 KiB
Mathematica
VWREGIT2 ;Portland/WorldVista//Jim Bell, et al... - Post-Install for VWREG
|
|
;;2.0;WORLD VISTA;**HOME **;;Build 4
|
|
;*****************************************************************
|
|
;* Licensed under GNU 2.0 or greater - see license.txt file *
|
|
;* Program/application is for the management of input templates *
|
|
;* owned by the user (DUZ). *
|
|
;* REMINDER: All template fields pertain only to the Patient File*
|
|
;* (#2)! *
|
|
;*****************************************************************
|
|
;
|
|
;Continued from VWREGIT
|
|
;
|
|
;GNU License: See WVLIC.txt
|
|
;Modified FOIA VISTA,
|
|
;Copyright 2013 WorldVistA. Licensed under the terms of the GNU
|
|
Q
|
|
PRE ;Did this installation happen already? Avoid a re-do?
|
|
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"
|
|
W !,"Do you want to continue? NO//" R X:60 S:'$L(X) X="NO" S X=$$UP^XLFSTR(X)
|
|
I "NON"[X W !,"OK" D ^XUSCLEAN
|
|
Q
|
|
;
|
|
PI ;Post Installation install
|
|
;Checking for a home directory & file
|
|
;I $O(^XMB(3.8,"B","VW REG ERROR REPORT",0)) W !?5,"Installation has already occurred" Q
|
|
D PRE
|
|
S AR=1,AR(1)="[TEMPLATES]"
|
|
S N=0 F S N=$O(^DIE(N)) Q:'+N S X=$P(^(N,0),"^") D
|
|
. I X["VW " S AR($I(AR))=X_"("_N_")"
|
|
. I X["[World" S AR($I(AR))=X_"("_N_")"
|
|
S AR($I(AR))="[ID]"
|
|
S P4=1,P5="",HD=$ZDIRECTORY_"regparam/",FILE="regit.txt"
|
|
S X=$$GTF^%ZISH($NA(AR(1)),1,HD,"regit.txt")
|
|
ZSY "chmod 777 "_$ZDIRECTORY_"regparam/"_FILE ;No sensitive info here
|
|
Q:$G(TEST) ;Straightening out regit.txt
|
|
;
|
|
;; NOTE: The parameter definition is installed but there is no installation for
|
|
;;the actual parameter and value. Do it here.
|
|
;parameter value attempt
|
|
;Set a home directory for editing; SYSTEM (DIC(4,) and DOMAIN (DIC(4.2,) only:"/home/vista/regparam/"
|
|
S PARD=$O(^XTV(8989.51,"B","VW GUI REG TEMPLATE DIRECTORY",0))
|
|
I PARD D
|
|
. L +^XTV(8989.5,0):1 D L -^XTV(8989.5,0)
|
|
.. S NEW=$O(^XTV(8989.5," "),-1)+1
|
|
.. S $P(^XTV(8989.5,0),"^",3)=NEW
|
|
.. S $P(^XTV(8989.5,0),"^",4)=$P(^(0),"^",4)+1
|
|
.. S $P(^XTV(8989.5,NEW,0),"^")="1;DIC(4,"
|
|
.. S $P(^XTV(8989.5,NEW,0),"^",2)=PARD
|
|
.. S $P(^XTV(8989.5,NEW,0),"^",3)=1
|
|
.. S ^XTV(8989.5,NEW,1)=HD
|
|
.. S DA=NEW,DIK="^XTV(8989.5," D IX^DIK
|
|
.. S NEW2=$O(^XTV(8989.5," "),-1)+1
|
|
.. S $P(^XTV(8989.5,0),"^",3)=NEW2
|
|
.. S $P(^XTV(8989.5,0),"^",4)=$P(^(0),"^",4)+1
|
|
.. S $P(^XTV(8989.5,NEW2,0),"^")="9;DIC(4.2,"
|
|
.. S $P(^XTV(8989.5,NEW2,0),"^",2)=PARD
|
|
.. S $P(^XTV(8989.5,NEW2,0),"^",3)=1
|
|
.. S ^XTV(8989.5,NEW2,1)=HD
|
|
.. S DA=NEW2,DIK="^XTV(8989.5," D IX^DIK
|
|
;
|
|
;Mailgroup VW REG ERROR REPORT - add programmer's email
|
|
S DA(1)=$O(^XMB(3.8,"B","VW REG ERROR REPORT",0))
|
|
Q:'DA(1)
|
|
S DIC="^XMB(3.8,"_DA(1)_",6,"
|
|
S X="jbellco65@gmail.com"
|
|
S DIC(0)="LZ"
|
|
D FILE^DICN
|
|
Q
|
|
;
|