CIAVINP6 ;MSC/IND/DKM/PLS - EHR v1.1p6 Inits;24-Jun-2010 11:36;PLS
;;1.1;VUECENTRIC FRAMEWORK;;23-Oct-2006
;;Copyright 2000-2008, Medsphere Systems Corporation
;=================================================================
EC ;EP - Environment check
Q
PRE ;EP - Preinit
Q
POST ;EP - Postinit
N VER,FDA,PID,IEN,X,TYPE
D REGMENU^BEHUTIL("BEHORXED MAIN",,"MEC","BEHORX MAIN")
D BMES^XPDUTL("Fixing BEH Measurement file O2 Sat entry...")
;D BEHMSR("02 SATURATION","O2 SATURATION")
D BMES^XPDUTL("Attaching event protocols...")
F TYPE="LOGIN","LOGOUT","LOCK","SUBSCRIBE","UNSUBSCRIBE" D EVTPRTL(TYPE)
D BMES^XPDUTL("Updating version numbers...")
F VER=0:1 S X=$P($T(VER+VER),";;",2) Q:'$L(X) D
.S PID=$$PRGID^CIAVMCFG($P(X,";"))
.S:PID FDA(19930.2,PID_",",2)=$P(X,";",2),FDA(19930.2,PID_",",7)=$P(X,";",3)
D:$D(FDA) FILE^DIE(,"FDA")
D REGNMSP^CIAURPC("BGU","CIAV VUECENTRIC")
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
; Attach Event Protocols to Event Types
EVTPRTL(TYPE) ;
N EVTNM,PRT,EVT,FDA
S EVTNM="CIAV "_TYPE_" EVENT"
S EVT=$$EVENTIEN^CIANBEVT(TYPE)
Q:'EVT
S PRT=$$FIND1^DIC(101,,,EVTNM)
Q:'PRT
S FDA(19941.21,EVT_",",7)=PRT
D FILE^DIE(,"FDA")
Q
; Rename .01 field of BEH Measurement file
BEHMSR(X,Y) ;
N IEN,FDA
S IEN=$O(^BEHOVM(90460.01,"B",X,0))
Q:'IEN
S FDA(90460.01,IEN_",",.01)=Y
D FILE^DIE(,"FDA")
Q
VER ;;BEHALERTS.ALERTS;4.2.3.1;D3E44EDFE32ED5F8FAEC0314AA08033A
;;BEHALLERGIES.ALLERGIES;4.2.4.2;9AE0D06ABA5FED87CEFBF48416CFDD6C
;;BEHARTENTRY.ARTENTRY;2.0.2.45;34B4D79C6332DD338D4796B2EFEB679B
;;BEHCONSULTORDERS.CONSULTORDERS;4.2.3.2;4C6D108A79097612F02FF03AC9144EC2
;;BEHCONSULTS.CONSULTS;20.1.3.3;DF1F1BBEB1B8614C889FBF3CCAB60D89
;;BEHCONTEXTADAPTER.CONTEXTADAPTER;4.2.3.2;280EDE7EA860F6A03F73ED8521695551
;;BEHCPRSCOMWRAPPER.CPRSCOMWRAPPER;1.0.0.26;E771508691AB530967BE4666437C4887
;;BEHCRISES.CRISES;4.2.3.1;D6BF4BA76917AFBC2E8128452CCE7EEB
;;BEHCWAD.CWAD;4.2.4.1;FAF0B9ADBFE7FA0480B736A32E617738
;;BEHDCSUMM.DCSUMM;20.1.3.3;1F1997CA622C7080FD89FE7B2C8573D8
;;BEHDICTATE.DICTATE;1.2.1.1;08F8882A1F47EBFC240C914681BF869A
;;BEHENCOUNTERINFO.ENCOUNTERINFO;4.2.1.2;45EADA7EBF5F5D20384BC98542149DE5
;;BEHESIGREVIEW.REVIEW;20.1.1.3;A183738F99E25281625B3CB13009531B
;;BEHESIGSERVICE.ESIGSERVICE;20.1.3.16;E5A7E549B47ED3ED9F293B926D3AA720
;;BEHHSREPORT.HSREPORT;1.0.1.1;DE39AFC8D3850B9355915BD40BDBD7CF
;;BEHLAB.LABVIEW;20.1.3.2;23247648D4EAFDC136C9C183ACDEC3C5
;;BEHLABORDERS.LABORDERS;4.2.3.2;C56329CF109A952DF6C7D6E18E6E2702
;;BEHMEDLIST.MEDLIST;4.2.2.1;A5B2B4A8534D44B55E1C9C8564B17F69
;;BEHMEDS.MEDMANAGEMENT;20.2.2.2;A815A841037D7AFC93D82FF8F5E431C0
;;BEHNOTES.PROGRESSNOTES;20.1.3.13;B72B100393C403FFDCA5A10FF93A3AA1
;;BEHNOTIFICATIONS.NOTIFICATIONS;5.1.6.8;016064FFC474B429C2336A80C6544B26
;;BEHOPTIONS.OPTIONS;1.1.2.3;48BC051A92CE9CD561BD5526C6962582
;;BEHORDERS.ORDERENTRY;20.1.2.2;B54CF0ECED9A704267D1F42335B2878B
;;BEHPATIENTID.PATIENTID;4.2.1.1;8D1D076C677D0F9C6B498F5B9DD3CB56
;;BEHPHARMED.PHARMED;1.0.2.1;C0C3434DF39330B570A5240D4B2C23DF
;;BEHPRIMARYCARE.PRIMARYCARE;4.2.1.4;9ED8C001C511ABC8525129A9519B57E0
;;BEHPROBLEMLIST.PROBLEMLIST;4.2.3.2;A93D3C8365A2EBBD37B650E23AECA543
;;BEHPTDETAIL.PTDETAIL;4.2.3.1;8455E2747C95DCD5C02C14728A4623D0
;;BEHQOWIZARD.QOWIZARD;1.1.4.20;016D756D104AA80A1961BDD5D424C202
;;BEHREMINDERS.REMINDERS;4.2.3.1;A4E8B2413D3A4C01DA8956C62F0E5118
;;BEHREMINDERSVIEW.REMINDERSVIEW;4.2.3.1;8DD50AA61700235BB6A237E133EF5D6C
;;BEHREMOTEDATA.REMOTEDATA;4.2.2.1;F0F71B226561BC89B9FBD4950AF328E4
;;BEHREMOTEVIEWS.REMOTESITES;4.2.1.2;07C7072C8D4B41DCBECF370062853269
;;BEHREPORTS.REPORTS;20.1.3.1;5475F0052B5619A534333F8E66C709CC
;;BEHSPELLCHECK.SPELLCHECK;1.0.2.2;36824FA7572620EC6E5C9015ED7F8FDF
;;BEHSURGERY.SURGERY;20.1.3.1;E216D4750A8BB9D4E4F81C37DFBFE2D7
;;BEHVISITS.VISITS;4.2.3.1;5AAAC1C3210782CE9EB0204EDB433B18
;;BEHVITALENTRY.VITALENTRY;2.0.4.4;523F68FAFF44D95F9CA562421CC63488
;;BEHVITALENTRY.VITALENTRY2;2.0.4.4;523F68FAFF44D95F9CA562421CC63488
;;BEHVITALS.VITALDISPLAY;5.0.4.1;8E328257FA469077666E3F504514B7D0
;;CSS_ENCOUNTER.ENCOUNTER;4.3.5.10;89A9DD33734B521C243D0452E79E9D45
;;CSS_PATIENT.PATIENT;4.3.5.3;9F77DE46686E32BDC3A4BA9DD15ACF1F
;;CSS_SITE.SITE;4.3.0.9;F803BFAF598674181BFB1AAC968B0796
;;INDIANHEALTHSERVICE.BEH.IBH.SUICIDE.CONTROLS.CTLSUICIDE_FORM;1.1.3565.20437;DA938E981440FD056656DDC61DF8F573
;;INDIANHEALTHSERVICE.BEH.POCLAB.BEHLABPOC;1.0.3553.18776;3018AA5905C3F32F434502D4FB2A9AF8
;;VCBROADCAST.BROADCAST;4.2.1.1;638913583B1EC3D416EC663D0F985BA1
;;VCCHATSERVICE.CHATSERVICE;1.0.2.1;95963557529070AB5F288921B05A96FE
;;VCCHRONICPAINMU.VCCHRONICPAINMUX;1.1.2.1;3C05A36539396BDB2FE9925D9A4D3656
;;VCCHRONICPAINPM.VCCHRONICPAINPMX;2.1.2.3;2E39462612FD5FD8352CD4967903B206
;;VCCHRONICPAINRP.VCCHRONICPAINRPX;1.1.2.2;24C6E47837C06EE12BF345329ACDB273
;;VCDATE.VCDATES;1.0.3.1;CC70FC8A38110EB5FBA9034FDBBE0483
;;VCIEXPLORER.IEXPLORER;4.3.3.1;24FC45007CCE45D02DC362180956BE77
;;VCIMAGE.IMAGEX;4.1.1.1;DC8E438A36E2107496E1E2D4696032E6
;;VCLAUNCHER.LAUNCHER;4.1.4.1;E40DB4B71EB2A277D341024E0F23AEFD
;;VCMONITOR.MONITOR;1.1.2.1;35239ACC3717A4AD6AFDF10B91716B76
;;VCPATPHOTO.PATPHOTO;4.1.3.2;BE689F87C78389B8C0E50D97C5167040
;;VCPRINT.VCPRINTX;1.1.4.4;5D8DD9AE09EE70C32A8E466C080A631A
;;VCQUICKNOTE.QUICKNOTE;1.1.2.1;0E0AD20C61B0AF51B9B84A87503CA805
;;VCSAFEMED.WEBSERVICE;1.0.2804.16720;9485B5857E44410442D1B7C023495731
;;VCTELNET.TELNETX;1.1.2.1;27A9927AF2F065E2652CCE5C8560F79D
;;VCWHEALTHMF.VCWOMENSHEALTHMFX;1.1.3.1;4DD968EDC90D8DEA7EDCE57C582B8821
;;VCWHEALTHMR.VCWOMENSHEALTHMRX;1.1.3.1;6CCA6D4C2D1BAA97DC53DFDB1E4FA910
;;VCWHEALTHPM.VCWOMENSHEALTHPMX;1.1.3.1;12F31738D6F7C6FC833EB78122FD58A3
;;FILE:COMDLG32.OCX;6.0.84.18;D76F0EAB36F83A31D411AEAF70DA7396
;;FILE:DARTSOCK.DLL;2.8.2;AFC83571E994861EEBBAB066600BE0BB
;;FILE:DARTTELNET.DLL;1.8.2;F22E29173BBA44EDF82E1A624E252204
;;FILE:DARTVT.DLL;1.8.3;AA44FE7FE3FB812B5F8DBFCA98EDAD3F
;;FILE:MSCOMCT2.OCX;6.0.88.4;C1B4AF41A0370E4081D59AC99BCC929D
;;FILE:PVNUM.OCX;8.0.4.2;8702402CA671706BDAE66CA9A54D6DA2
;;FILE:TABCTL32.OCX;6.0.90.43;908938D3BA2D870EE9FC6238A4C6AF95
;;FILE:VSFLEX8L.OCX;8.0.20061.231;A63B78ED2FAE227F31A68D292404ACFB
;;
CIAVINP6 ;MSC/IND/DKM/PLS - EHR v1.1p6 Inits;24-Jun-2010 11:36;PLS
+1 ;;1.1;VUECENTRIC FRAMEWORK;;23-Oct-2006
+2 ;;Copyright 2000-2008, Medsphere Systems Corporation
+3 ;=================================================================
EC ;EP - Environment check
+1 QUIT
PRE ;EP - Preinit
+1 QUIT
POST ;EP - Postinit
+1 NEW VER,FDA,PID,IEN,X,TYPE
+2 DO REGMENU^BEHUTIL("BEHORXED MAIN",,"MEC","BEHORX MAIN")
+3 DO BMES^XPDUTL("Fixing BEH Measurement file O2 Sat entry...")
+4 ;D BEHMSR("02 SATURATION","O2 SATURATION")
+5 DO BMES^XPDUTL("Attaching event protocols...")
+6 FOR TYPE="LOGIN","LOGOUT","LOCK","SUBSCRIBE","UNSUBSCRIBE"
DO EVTPRTL(TYPE)
+7 DO BMES^XPDUTL("Updating version numbers...")
+8 FOR VER=0:1
SET X=$PIECE($TEXT(VER+VER),";;",2)
IF '$LENGTH(X)
QUIT
Begin DoDot:1
+9 SET PID=$$PRGID^CIAVMCFG($PIECE(X,";"))
+10 IF PID
SET FDA(19930.2,PID_",",2)=$PIECE(X,";",2)
SET FDA(19930.2,PID_",",7)=$PIECE(X,";",3)
End DoDot:1
+11 IF $DATA(FDA)
DO FILE^DIE(,"FDA")
+12 DO REGNMSP^CIAURPC("BGU","CIAV VUECENTRIC")
+13 WRITE !!!
+14 IF $LENGTH($$GETLOGIN^CIAVUTIL)
IF $$ASK^CIAU("Do you want to enable EHR logins","Y")
Begin DoDot:1
+15 DO SDABORT^CIAVUTIL(,1)
DO BMES^XPDUTL("Application logins have been enabled.")
End DoDot:1
+16 QUIT
+17 ; Attach Event Protocols to Event Types
EVTPRTL(TYPE) ;
+1 NEW EVTNM,PRT,EVT,FDA
+2 SET EVTNM="CIAV "_TYPE_" EVENT"
+3 SET EVT=$$EVENTIEN^CIANBEVT(TYPE)
+4 IF 'EVT
QUIT
+5 SET PRT=$$FIND1^DIC(101,,,EVTNM)
+6 IF 'PRT
QUIT
+7 SET FDA(19941.21,EVT_",",7)=PRT
+8 DO FILE^DIE(,"FDA")
+9 QUIT
+10 ; Rename .01 field of BEH Measurement file
BEHMSR(X,Y) ;
+1 NEW IEN,FDA
+2 SET IEN=$ORDER(^BEHOVM(90460.01,"B",X,0))
+3 IF 'IEN
QUIT
+4 SET FDA(90460.01,IEN_",",.01)=Y
+5 DO FILE^DIE(,"FDA")
+6 QUIT
VER ;;BEHALERTS.ALERTS;4.2.3.1;D3E44EDFE32ED5F8FAEC0314AA08033A
+1 ;;BEHALLERGIES.ALLERGIES;4.2.4.2;9AE0D06ABA5FED87CEFBF48416CFDD6C
+2 ;;BEHARTENTRY.ARTENTRY;2.0.2.45;34B4D79C6332DD338D4796B2EFEB679B
+3 ;;BEHCONSULTORDERS.CONSULTORDERS;4.2.3.2;4C6D108A79097612F02FF03AC9144EC2
+4 ;;BEHCONSULTS.CONSULTS;20.1.3.3;DF1F1BBEB1B8614C889FBF3CCAB60D89
+5 ;;BEHCONTEXTADAPTER.CONTEXTADAPTER;4.2.3.2;280EDE7EA860F6A03F73ED8521695551
+6 ;;BEHCPRSCOMWRAPPER.CPRSCOMWRAPPER;1.0.0.26;E771508691AB530967BE4666437C4887
+7 ;;BEHCRISES.CRISES;4.2.3.1;D6BF4BA76917AFBC2E8128452CCE7EEB
+8 ;;BEHCWAD.CWAD;4.2.4.1;FAF0B9ADBFE7FA0480B736A32E617738
+9 ;;BEHDCSUMM.DCSUMM;20.1.3.3;1F1997CA622C7080FD89FE7B2C8573D8
+10 ;;BEHDICTATE.DICTATE;1.2.1.1;08F8882A1F47EBFC240C914681BF869A
+11 ;;BEHENCOUNTERINFO.ENCOUNTERINFO;4.2.1.2;45EADA7EBF5F5D20384BC98542149DE5
+12 ;;BEHESIGREVIEW.REVIEW;20.1.1.3;A183738F99E25281625B3CB13009531B
+13 ;;BEHESIGSERVICE.ESIGSERVICE;20.1.3.16;E5A7E549B47ED3ED9F293B926D3AA720
+14 ;;BEHHSREPORT.HSREPORT;1.0.1.1;DE39AFC8D3850B9355915BD40BDBD7CF
+15 ;;BEHLAB.LABVIEW;20.1.3.2;23247648D4EAFDC136C9C183ACDEC3C5
+16 ;;BEHLABORDERS.LABORDERS;4.2.3.2;C56329CF109A952DF6C7D6E18E6E2702
+17 ;;BEHMEDLIST.MEDLIST;4.2.2.1;A5B2B4A8534D44B55E1C9C8564B17F69
+18 ;;BEHMEDS.MEDMANAGEMENT;20.2.2.2;A815A841037D7AFC93D82FF8F5E431C0
+19 ;;BEHNOTES.PROGRESSNOTES;20.1.3.13;B72B100393C403FFDCA5A10FF93A3AA1
+20 ;;BEHNOTIFICATIONS.NOTIFICATIONS;5.1.6.8;016064FFC474B429C2336A80C6544B26
+21 ;;BEHOPTIONS.OPTIONS;1.1.2.3;48BC051A92CE9CD561BD5526C6962582
+22 ;;BEHORDERS.ORDERENTRY;20.1.2.2;B54CF0ECED9A704267D1F42335B2878B
+23 ;;BEHPATIENTID.PATIENTID;4.2.1.1;8D1D076C677D0F9C6B498F5B9DD3CB56
+24 ;;BEHPHARMED.PHARMED;1.0.2.1;C0C3434DF39330B570A5240D4B2C23DF
+25 ;;BEHPRIMARYCARE.PRIMARYCARE;4.2.1.4;9ED8C001C511ABC8525129A9519B57E0
+26 ;;BEHPROBLEMLIST.PROBLEMLIST;4.2.3.2;A93D3C8365A2EBBD37B650E23AECA543
+27 ;;BEHPTDETAIL.PTDETAIL;4.2.3.1;8455E2747C95DCD5C02C14728A4623D0
+28 ;;BEHQOWIZARD.QOWIZARD;1.1.4.20;016D756D104AA80A1961BDD5D424C202
+29 ;;BEHREMINDERS.REMINDERS;4.2.3.1;A4E8B2413D3A4C01DA8956C62F0E5118
+30 ;;BEHREMINDERSVIEW.REMINDERSVIEW;4.2.3.1;8DD50AA61700235BB6A237E133EF5D6C
+31 ;;BEHREMOTEDATA.REMOTEDATA;4.2.2.1;F0F71B226561BC89B9FBD4950AF328E4
+32 ;;BEHREMOTEVIEWS.REMOTESITES;4.2.1.2;07C7072C8D4B41DCBECF370062853269
+33 ;;BEHREPORTS.REPORTS;20.1.3.1;5475F0052B5619A534333F8E66C709CC
+34 ;;BEHSPELLCHECK.SPELLCHECK;1.0.2.2;36824FA7572620EC6E5C9015ED7F8FDF
+35 ;;BEHSURGERY.SURGERY;20.1.3.1;E216D4750A8BB9D4E4F81C37DFBFE2D7
+36 ;;BEHVISITS.VISITS;4.2.3.1;5AAAC1C3210782CE9EB0204EDB433B18
+37 ;;BEHVITALENTRY.VITALENTRY;2.0.4.4;523F68FAFF44D95F9CA562421CC63488
+38 ;;BEHVITALENTRY.VITALENTRY2;2.0.4.4;523F68FAFF44D95F9CA562421CC63488
+39 ;;BEHVITALS.VITALDISPLAY;5.0.4.1;8E328257FA469077666E3F504514B7D0
+40 ;;CSS_ENCOUNTER.ENCOUNTER;4.3.5.10;89A9DD33734B521C243D0452E79E9D45
+41 ;;CSS_PATIENT.PATIENT;4.3.5.3;9F77DE46686E32BDC3A4BA9DD15ACF1F
+42 ;;CSS_SITE.SITE;4.3.0.9;F803BFAF598674181BFB1AAC968B0796
+43 ;;INDIANHEALTHSERVICE.BEH.IBH.SUICIDE.CONTROLS.CTLSUICIDE_FORM;1.1.3565.20437;DA938E981440FD056656DDC61DF8F573
+44 ;;INDIANHEALTHSERVICE.BEH.POCLAB.BEHLABPOC;1.0.3553.18776;3018AA5905C3F32F434502D4FB2A9AF8
+45 ;;VCBROADCAST.BROADCAST;4.2.1.1;638913583B1EC3D416EC663D0F985BA1
+46 ;;VCCHATSERVICE.CHATSERVICE;1.0.2.1;95963557529070AB5F288921B05A96FE
+47 ;;VCCHRONICPAINMU.VCCHRONICPAINMUX;1.1.2.1;3C05A36539396BDB2FE9925D9A4D3656
+48 ;;VCCHRONICPAINPM.VCCHRONICPAINPMX;2.1.2.3;2E39462612FD5FD8352CD4967903B206
+49 ;;VCCHRONICPAINRP.VCCHRONICPAINRPX;1.1.2.2;24C6E47837C06EE12BF345329ACDB273
+50 ;;VCDATE.VCDATES;1.0.3.1;CC70FC8A38110EB5FBA9034FDBBE0483
+51 ;;VCIEXPLORER.IEXPLORER;4.3.3.1;24FC45007CCE45D02DC362180956BE77
+52 ;;VCIMAGE.IMAGEX;4.1.1.1;DC8E438A36E2107496E1E2D4696032E6
+53 ;;VCLAUNCHER.LAUNCHER;4.1.4.1;E40DB4B71EB2A277D341024E0F23AEFD
+54 ;;VCMONITOR.MONITOR;1.1.2.1;35239ACC3717A4AD6AFDF10B91716B76
+55 ;;VCPATPHOTO.PATPHOTO;4.1.3.2;BE689F87C78389B8C0E50D97C5167040
+56 ;;VCPRINT.VCPRINTX;1.1.4.4;5D8DD9AE09EE70C32A8E466C080A631A
+57 ;;VCQUICKNOTE.QUICKNOTE;1.1.2.1;0E0AD20C61B0AF51B9B84A87503CA805
+58 ;;VCSAFEMED.WEBSERVICE;1.0.2804.16720;9485B5857E44410442D1B7C023495731
+59 ;;VCTELNET.TELNETX;1.1.2.1;27A9927AF2F065E2652CCE5C8560F79D
+60 ;;VCWHEALTHMF.VCWOMENSHEALTHMFX;1.1.3.1;4DD968EDC90D8DEA7EDCE57C582B8821
+61 ;;VCWHEALTHMR.VCWOMENSHEALTHMRX;1.1.3.1;6CCA6D4C2D1BAA97DC53DFDB1E4FA910
+62 ;;VCWHEALTHPM.VCWOMENSHEALTHPMX;1.1.3.1;12F31738D6F7C6FC833EB78122FD58A3
+63 ;;FILE:COMDLG32.OCX;6.0.84.18;D76F0EAB36F83A31D411AEAF70DA7396
+64 ;;FILE:DARTSOCK.DLL;2.8.2;AFC83571E994861EEBBAB066600BE0BB
+65 ;;FILE:DARTTELNET.DLL;1.8.2;F22E29173BBA44EDF82E1A624E252204
+66 ;;FILE:DARTVT.DLL;1.8.3;AA44FE7FE3FB812B5F8DBFCA98EDAD3F
+67 ;;FILE:MSCOMCT2.OCX;6.0.88.4;C1B4AF41A0370E4081D59AC99BCC929D
+68 ;;FILE:PVNUM.OCX;8.0.4.2;8702402CA671706BDAE66CA9A54D6DA2
+69 ;;FILE:TABCTL32.OCX;6.0.90.43;908938D3BA2D870EE9FC6238A4C6AF95
+70 ;;FILE:VSFLEX8L.OCX;8.0.20061.231;A63B78ED2FAE227F31A68D292404ACFB
+71 ;;
