CIAVIN11 ;MSC/IND/DKM - EHR v1.1 Inits;04-May-2006 08:19;DKM
;;1.1;VUECENTRIC FRAMEWORK;;Sep 30, 2005
;;Copyright 2000-2006, Medsphere Systems Corporation
;=================================================================
EC ;EP - Environment check
Q
PRE ;EP - Preinit
D BMES^XPDUTL("Updating EHR Parameters...")
D CVTPARS("CIA"),CVTPARS("BEH")
Q
POST ;EP - Postinit
W !!!
I $L($$GETLOGIN^CIAVUTIL),$$ASK^CIAU("Do you want to enable VueCentric logins","Y") D
.D SDABORT^CIAVUTIL(,1),BMES^XPDUTL("Application logins have been enabled.")
D:$L($T(^BEHUTIL)) REGMENU^BEHUTIL("CIAV MANAGER",,"FRM")
Q
; Convert parameters by namespace
CVTPARS(NMSP) ;EP
N PARNM,LEN
S PARNM=NMSP,LEN=$L(NMSP)
F S PARNM=$O(^XTV(8989.51,"B",PARNM)) Q:$E(PARNM,1,LEN)'=NMSP D
.D BMES^XPDUTL("Updating parameter "_PARNM_"... "_$$CVTPAR(PARNM))
Q
; Convert PKG entity type to SYS entity type
CVTPAR(PARNM) ;EP
N PARAM,PKGIEN,PKGPRI,PKGVAL,PKGVP,SYSIEN,SYSPRI,SYSVP,SYSVAL,FDA
S PARAM=$S(PARNM=+PARNM:PARNM,1:$$FIND1^DIC(8989.51,,"X",PARNM))
Q:'PARAM!'$D(^XTV(8989.51,PARAM,0)) "Parameter "_PARNM_" not found."
S PKGIEN=+$O(^XTV(8989.51,PARAM,30,"AG","DIC(9.4,",0))
S PKGPRI=-$G(^XTV(8989.51,PARAM,30,PKGIEN,0))
Q:'PKGIEN "Nothing to change."
S SYSIEN=+$O(^XTV(8989.51,PARAM,30,"AG","DIC(4.2,",0))
S SYSPRI=-$G(^XTV(8989.51,PARAM,30,SYSIEN,0))
S SYSVP=$$GETVP(PARAM,"SYS"),PKGVP=$$GETVP(PARAM,"PKG")
Q:'$L(PKGVP) "Cannot determine package."
S PKGVAL=$O(^XTV(8989.5,"AC",PARAM,PKGVP,""))'=""
S SYSVAL=$O(^XTV(8989.5,"AC",PARAM,SYSVP,""))'=""
S FDA=1
I SYSIEN,'SYSVAL D
.S FDA(FDA,8989.513,SYSIEN_","_PARAM_",",.01)="@",SYSIEN=0
S FDA=FDA+1
I SYSVAL,PKGVAL D
.N DELVP,DELIEN,IEN
.I PKGPRI>SYSPRI S DELIEN=SYSIEN,DELVP=SYSVP,SYSIEN=0,SYSVAL=0
.E S DELIEN=PKGIEN,DELVP=PKGVP,PKGIEN=0,PKGVAL=0
.D CHGENT(DELIEN,DELVP,"@","@")
S FDA=FDA+1
I SYSVAL,'PKGVAL D
.S:PKGIEN FDA(FDA,8989.513,PKGIEN_","_PARAM_",",.01)="@",PKGIEN=0
S FDA=FDA+1
I 'SYSIEN,PKGIEN D
.D CHGENT(PKGIEN,PKGVP,4.2,SYSVP)
.S SYSIEN=PKGIEN,SYSVAL=PKGVAL,(PKGIEN,PKGVAL)=0
I $D(FDA) D
.N ERR,LVL
.F LVL=0:0 S LVL=$O(FDA(LVL)) Q:'LVL D
..D UPDATE^DIE(,$NA(FDA(LVL)),,"ERR")
..ZW ERR
Q "OK"
GETVP(PAR,ENT) ;
D ENTDFLT^XPAR1(.ENT)
Q ENT
CHGENT(ENTIEN,ENTVP,ENTVAL,PARVAL) ;
N INST,IEN
S INST=""
S FDA(FDA,8989.513,ENTIEN_","_PARAM_",",$S(ENTVAL="@":.01,1:.02))=ENTVAL
F S INST=$O(^XTV(8989.5,"AC",PARAM,ENTVP,INST)) Q:'$L(INST) D
.F IEN=0:0 S IEN=$O(^XTV(8989.5,"AC",PARAM,ENTVP,INST,IEN)) Q:'IEN D
..S FDA(FDA+.1,8989.5,IEN_",",.01)=PARVAL
Q
CIAVIN11 ;MSC/IND/DKM - EHR v1.1 Inits;04-May-2006 08:19;DKM
+1 ;;1.1;VUECENTRIC FRAMEWORK;;Sep 30, 2005
+2 ;;Copyright 2000-2006, Medsphere Systems Corporation
+3 ;=================================================================
EC ;EP - Environment check
+1 QUIT
PRE ;EP - Preinit
+1 DO BMES^XPDUTL("Updating EHR Parameters...")
+2 DO CVTPARS("CIA")
DO CVTPARS("BEH")
+3 QUIT
POST ;EP - Postinit
+1 WRITE !!!
+2 IF $LENGTH($$GETLOGIN^CIAVUTIL)
IF $$ASK^CIAU("Do you want to enable VueCentric logins","Y")
Begin DoDot:1
+3 DO SDABORT^CIAVUTIL(,1)
DO BMES^XPDUTL("Application logins have been enabled.")
End DoDot:1
+4 IF $LENGTH($TEXT(^BEHUTIL))
DO REGMENU^BEHUTIL("CIAV MANAGER",,"FRM")
+5 QUIT
+6 ; Convert parameters by namespace
CVTPARS(NMSP) ;EP
+1 NEW PARNM,LEN
+2 SET PARNM=NMSP
SET LEN=$LENGTH(NMSP)
+3 FOR
SET PARNM=$ORDER(^XTV(8989.51,"B",PARNM))
IF $EXTRACT(PARNM,1,LEN)'=NMSP
QUIT
Begin DoDot:1
+4 DO BMES^XPDUTL("Updating parameter "_PARNM_"... "_$$CVTPAR(PARNM))
End DoDot:1
+5 QUIT
+6 ; Convert PKG entity type to SYS entity type
CVTPAR(PARNM) ;EP
+1 NEW PARAM,PKGIEN,PKGPRI,PKGVAL,PKGVP,SYSIEN,SYSPRI,SYSVP,SYSVAL,FDA
+2 SET PARAM=$SELECT(PARNM=+PARNM:PARNM,1:$$FIND1^DIC(8989.51,,"X",PARNM))
+3 IF 'PARAM!'$DATA(^XTV(8989.51,PARAM,0))
QUIT "Parameter "_PARNM_" not found."
+4 SET PKGIEN=+$ORDER(^XTV(8989.51,PARAM,30,"AG","DIC(9.4,",0))
+5 SET PKGPRI=-$GET(^XTV(8989.51,PARAM,30,PKGIEN,0))
+6 IF 'PKGIEN
QUIT "Nothing to change."
+7 SET SYSIEN=+$ORDER(^XTV(8989.51,PARAM,30,"AG","DIC(4.2,",0))
+8 SET SYSPRI=-$GET(^XTV(8989.51,PARAM,30,SYSIEN,0))
+9 SET SYSVP=$$GETVP(PARAM,"SYS")
SET PKGVP=$$GETVP(PARAM,"PKG")
+10 IF '$LENGTH(PKGVP)
QUIT "Cannot determine package."
+11 SET PKGVAL=$ORDER(^XTV(8989.5,"AC",PARAM,PKGVP,""))'=""
+12 SET SYSVAL=$ORDER(^XTV(8989.5,"AC",PARAM,SYSVP,""))'=""
+13 SET FDA=1
+14 IF SYSIEN
IF 'SYSVAL
Begin DoDot:1
+15 SET FDA(FDA,8989.513,SYSIEN_","_PARAM_",",.01)="@"
SET SYSIEN=0
End DoDot:1
+16 SET FDA=FDA+1
+17 IF SYSVAL
IF PKGVAL
Begin DoDot:1
+18 NEW DELVP,DELIEN,IEN
+19 IF PKGPRI>SYSPRI
SET DELIEN=SYSIEN
SET DELVP=SYSVP
SET SYSIEN=0
SET SYSVAL=0
+20 IF '$TEST
SET DELIEN=PKGIEN
SET DELVP=PKGVP
SET PKGIEN=0
SET PKGVAL=0
+21 DO CHGENT(DELIEN,DELVP,"@","@")
End DoDot:1
+22 SET FDA=FDA+1
+23 IF SYSVAL
IF 'PKGVAL
Begin DoDot:1
+24 IF PKGIEN
SET FDA(FDA,8989.513,PKGIEN_","_PARAM_",",.01)="@"
SET PKGIEN=0
End DoDot:1
+25 SET FDA=FDA+1
+26 IF 'SYSIEN
IF PKGIEN
Begin DoDot:1
+27 DO CHGENT(PKGIEN,PKGVP,4.2,SYSVP)
+28 SET SYSIEN=PKGIEN
SET SYSVAL=PKGVAL
SET (PKGIEN,PKGVAL)=0
End DoDot:1
+29 IF $DATA(FDA)
Begin DoDot:1
+30 NEW ERR,LVL
+31 FOR LVL=0:0
SET LVL=$ORDER(FDA(LVL))
IF 'LVL
QUIT
Begin DoDot:2
+32 DO UPDATE^DIE(,$NAME(FDA(LVL)),,"ERR")
+33
*** ERROR ***
End DoDot:2
End DoDot:1
+34 QUIT "OK"
GETVP(PAR,ENT) ;
+1 DO ENTDFLT^XPAR1(.ENT)
+2 QUIT ENT
CHGENT(ENTIEN,ENTVP,ENTVAL,PARVAL) ;
+1 NEW INST,IEN
+2 SET INST=""
+3 SET FDA(FDA,8989.513,ENTIEN_","_PARAM_",",$SELECT(ENTVAL="@":.01,1:.02))=ENTVAL
+4 FOR
SET INST=$ORDER(^XTV(8989.5,"AC",PARAM,ENTVP,INST))
IF '$LENGTH(INST)
QUIT
Begin DoDot:1
+5 FOR IEN=0:0
SET IEN=$ORDER(^XTV(8989.5,"AC",PARAM,ENTVP,INST,IEN))
IF 'IEN
QUIT
Begin DoDot:2
+6 SET FDA(FDA+.1,8989.5,IEN_",",.01)=PARVAL
End DoDot:2
End DoDot:1
+7 QUIT
