CIAVINP1.m

CIAVINP1 ;MSC/IND/DKM - EHR v1.1p1 Inits;01-Feb-2008 08:31;DKM

 ;;1.1;VUECENTRIC FRAMEWORK;;23-Oct-2006

 ;=================================================================

EC ;EP - Environment check

 Q

PRE ;EP - Preinit

 N FDA,IEN,OLD,NEW,OBJ

 S FDA=$NA(FDA(19930.2))

 S OLD="BEHPROBLEMS.PROBLEMS",NEW="IHSBGOPROBLEM.BGOPROBLEM"

 S IEN=$$PRGID^CIAVMCFG(OLD)_","

 S:IEN @FDA@(IEN,.01)="@"

 F OBJ="CIA_CSS.CSS_SESSION","CIA_VIM.VIM" D

 .S IEN=$$PRGID^CIAVMCFG(OBJ)_","

 .S:IEN @FDA@(IEN,2)="@",@FDA@(IEN,3)="@"

 D:$D(FDA)>1 FILE^DIE(,"FDA")

 D:'$$PRGID^CIAVMCFG(OLD) RENAME^CIAVINIT(OLD,NEW)

 Q

POST ;EP - Postinit

 N VER,FDA,PID,IEN,X

 D REGMENU^BEHUTIL("BEHORXED MAIN",,"MEC","BEHORX MAIN")

 D BMES^XPDUTL("Updating version numbers...")

 F VER=0:1 S X=$P($T(VERS+VER),";;",2) Q:'$L(X)  D

 .S PID=$$PRGID^CIAVMCFG($P(X,";"))

 .S:PID FDA(19930.2,PID_",",2)=$P(X,";",2)

 D:$D(FDA) FILE^DIE(,"FDA")

 W !!!

 I $L($$GETLOGIN^CIAVUTIL),$$ASK^CIAU("Do you want to enable EHR logins","Y") D

 .D SDABORT^CIAVUTIL(,1),BMES^XPDUTL("Application logins have been enabled.")

 Q

VERS ;;BEHPTDETAIL.PTDETAIL;4.2.2.1

 ;;BEHORDERS.ORDERENTRY;20.1.1.6

 ;;VCLAUNCHER.LAUNCHER;4.1.3.1

 ;;BEHREMINDERS.REMINDERS;4.2.2.1

 ;;BEHNOTES.PROGRESSNOTES;20.1.2.14

 ;;BEHESIGSERVICE.ESIGSERVICE;20.1.2.10

 ;;BEHVITALS.VITALDISPLAY;5.0.3.1

 ;;BEHCONSULTS.CONSULTS;20.1.2.6

 ;;BEHDCSUMM.DCSUMM;20.1.2.5

 ;;BEHLAB.LABVIEW;20.1.2.4

 ;;BEHREPORTS.REPORTS;20.1.1.4

 ;;BEHOPTIONS.OPTIONS;1.1.1.17

 ;;BEHREMINDERSVIEW.REMINDERSVIEW;4.2.1.2

 ;;BEHALERTS.ALERTS;4.2.2.1

 ;;BEHCONSULTORDERS.CONSULTORDERS;4.2.2.1

 ;;BEHCRISES.CRISES;4.2.2.1

 ;;BEHCWAD.CWAD;4.2.3.10

 ;;BEHLABORDERS.LABORDERS;4.2.2.1

 ;;BEHMEDLIST.MEDLIST;4.2.1.1

 ;;BEHPROBLEMLIST.PROBLEMLIST;4.2.2.1

 ;;BEHCONTEXTADAPTER.CONTEXTADAPTER;4.2.2.1

 ;;BEHVISITS.VISITS;4.2.2.1

 ;;VCPRINT.VCPRINTX;1.1.2.1

 ;;VCDATE.VCDATES;1.0.2.3

 ;;VCMONITOR.MONITOR;1.1.2.1

 ;;BEHQOWIZARD.QOWIZARD;1.1.2.12

 ;;BEHVITALENTRY.VITALENTRY2;2.0.3.19

 ;;BEHNOTIFICATIONS.NOTIFICATIONS;5.1.5.1

 ;;BEHMEDS.MEDMANAGEMENT;20.2.1.4

 ;;BEHVITALENTRY.VITALENTRY;2.0.3.19

 ;;VCPATPHOTO.PATPHOTO;4.1.2.12

 ;;

CIAVINP1  ;MSC/IND/DKM - EHR v1.1p1 Inits;01-Feb-2008 08:31;DKM

 +1       ;;1.1;VUECENTRIC FRAMEWORK;;23-Oct-2006

 +2       ;=================================================================

EC        ;EP - Environment check

 +1        QUIT 

PRE       ;EP - Preinit

 +1        NEW FDA,IEN,OLD,NEW,OBJ

 +2        SET FDA=$NAME(FDA(19930.2))

 +3        SET OLD="BEHPROBLEMS.PROBLEMS"

           SET NEW="IHSBGOPROBLEM.BGOPROBLEM"

 +4        SET IEN=$$PRGID^CIAVMCFG(OLD)_","

 +5        IF IEN

               SET @FDA@(IEN,.01)="@"

 +6        FOR OBJ="CIA_CSS.CSS_SESSION","CIA_VIM.VIM"

               Begin DoDot:1

 +7                SET IEN=$$PRGID^CIAVMCFG(OBJ)_","

 +8                IF IEN

                       SET @FDA@(IEN,2)="@"

                       SET @FDA@(IEN,3)="@"

               End DoDot:1

 +9        IF $DATA(FDA)>1

               DO FILE^DIE(,"FDA")

 +10       IF '$$PRGID^CIAVMCFG(OLD)

               DO RENAME^CIAVINIT(OLD,NEW)

 +11       QUIT 

POST      ;EP - Postinit

 +1        NEW VER,FDA,PID,IEN,X

 +2        DO REGMENU^BEHUTIL("BEHORXED MAIN",,"MEC","BEHORX MAIN")

 +3        DO BMES^XPDUTL("Updating version numbers...")

 +4        FOR VER=0:1

               SET X=$PIECE($TEXT(VERS+VER),";;",2)

               IF '$LENGTH(X)

                   QUIT 

               Begin DoDot:1

 +5                SET PID=$$PRGID^CIAVMCFG($PIECE(X,";"))

 +6                IF PID

                       SET FDA(19930.2,PID_",",2)=$PIECE(X,";",2)

               End DoDot:1

 +7        IF $DATA(FDA)

               DO FILE^DIE(,"FDA")

 +8        WRITE !!!

 +9        IF $LENGTH($$GETLOGIN^CIAVUTIL)

               IF $$ASK^CIAU("Do you want to enable EHR logins","Y")

                   Begin DoDot:1

 +10                   DO SDABORT^CIAVUTIL(,1)

                       DO BMES^XPDUTL("Application logins have been enabled.")

                   End DoDot:1

 +11       QUIT 

VERS      ;;BEHPTDETAIL.PTDETAIL;4.2.2.1

 +1       ;;BEHORDERS.ORDERENTRY;20.1.1.6

 +2       ;;VCLAUNCHER.LAUNCHER;4.1.3.1

 +3       ;;BEHREMINDERS.REMINDERS;4.2.2.1

 +4       ;;BEHNOTES.PROGRESSNOTES;20.1.2.14

 +5       ;;BEHESIGSERVICE.ESIGSERVICE;20.1.2.10

 +6       ;;BEHVITALS.VITALDISPLAY;5.0.3.1

 +7       ;;BEHCONSULTS.CONSULTS;20.1.2.6

 +8       ;;BEHDCSUMM.DCSUMM;20.1.2.5

 +9       ;;BEHLAB.LABVIEW;20.1.2.4

 +10      ;;BEHREPORTS.REPORTS;20.1.1.4

 +11      ;;BEHOPTIONS.OPTIONS;1.1.1.17

 +12      ;;BEHREMINDERSVIEW.REMINDERSVIEW;4.2.1.2

 +13      ;;BEHALERTS.ALERTS;4.2.2.1

 +14      ;;BEHCONSULTORDERS.CONSULTORDERS;4.2.2.1

 +15      ;;BEHCRISES.CRISES;4.2.2.1

 +16      ;;BEHCWAD.CWAD;4.2.3.10

 +17      ;;BEHLABORDERS.LABORDERS;4.2.2.1

 +18      ;;BEHMEDLIST.MEDLIST;4.2.1.1

 +19      ;;BEHPROBLEMLIST.PROBLEMLIST;4.2.2.1

 +20      ;;BEHCONTEXTADAPTER.CONTEXTADAPTER;4.2.2.1

 +21      ;;BEHVISITS.VISITS;4.2.2.1

 +22      ;;VCPRINT.VCPRINTX;1.1.2.1

 +23      ;;VCDATE.VCDATES;1.0.2.3

 +24      ;;VCMONITOR.MONITOR;1.1.2.1

 +25      ;;BEHQOWIZARD.QOWIZARD;1.1.2.12

 +26      ;;BEHVITALENTRY.VITALENTRY2;2.0.3.19

 +27      ;;BEHNOTIFICATIONS.NOTIFICATIONS;5.1.5.1

 +28      ;;BEHMEDS.MEDMANAGEMENT;20.2.1.4

 +29      ;;BEHVITALENTRY.VITALENTRY;2.0.3.19

 +30      ;;VCPATPHOTO.PATPHOTO;4.1.2.12

 +31      ;;