- CIAVIP11 ;MSC/IND/PLS - EHR v1.1p11 Inits;14-Apr-2013 11:59;DKM
- ;;1.1;VUECENTRIC FRAMEWORK;;23-Oct-2006
- ;;Copyright 2000-2012, Medsphere Systems Corporation
- ;=================================================================
- EC ;EP - Environment check
- Q
- PRE ;EP - Preinit
- Q
- POST ;EP - Postinit
- N VER,FDA,PID,IEN,X,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")
- 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.")
- D UPDCHM
- 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
- ;
- UPDCHM ;EP-
- N CHM,PID
- F CHM=0:1 S X=$P($T(CHM+CHM),";;",2) Q:'$L(X) D
- .S PID=$$PRGID^CIAVMCFG($P(X,";"))
- .D AECHM(PID,$P(X,";",2,99))
- W !!
- Q
- ;
- AECHM(PID,VAL) ;EP-
- N LN,FN,IDX,TXT,ARY,CNT,IENS
- S FN=$P(VAL,";"),CNT=0
- S LN=0 F S LN=$O(^CIAVOBJ(19930.2,PID,6,LN)) Q:'LN D Q:$G(IDX)
- .S TXT=^CIAVOBJ(19930.2,PID,6,LN,0)
- .S ARY(LN,0)=TXT,CNT=CNT+1
- .I $$UP^XLFSTR(TXT)[$$UP^XLFSTR($P(VAL,";")) S IDX=LN
- I $G(IDX) D
- .S ^CIAVOBJ(19930.2,PID,6,IDX,0)=VAL
- E D
- .S ARY(CNT+1,0)=VAL
- .S IENS=PID_","
- .S FDA(19930.2,IENS,10)="ARY"
- .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 ;;BEHORDERS.ORDERENTRY;27.1.0.5;A9C50FD2D4A15C1ACC9B74AF591D467C
- ;;BEHOPTIONS.OPTIONS;1.1.3.4;2792F5AEF7857B6E4A226903946FDCF5
- ;;VCQUICKNOTE.QUICKNOTE;1.1.3.3;2B3F220C050242905A1798097F31B5DA
- ;;BEHCOMMUNITYINFO.COMMUNITYINFO;1.1.0.63;70809FC22D09F548D1F2B983DC2EC078
- ;;BEHINFOBTNSVC.INFOBTNSVC;1.1.0.12;B7F85E0CF3C373F731FD881537F3C473
- ;;BEHVITALS.VITALDISPLAY;5.0.4.8;01555E8EE26B3512EFB1C55CA3CDC0CD
- ;;BEHPHARMED.PHARMED;1.0.2.2;4B8CEA693160D24EB2F0F8E791D576A9
- ;;BEHRXGENERATORSERVICE.RXGENERATOR;1.0.0.80;E3162BC71F6D5BBDDB0D7352046E7C22
- ;;BEHREMINDERSVIEW.REMINDERSVIEW;4.2.4.1;68E946EE3985D3AB685B86E0D038E0A2
- ;;BEHESIGREVIEW.REVIEW;20.1.2.5;23E9021E2FC30E2E6BEFAA203DE61432
- ;;BEHESIGSERVICE.ESIGSERVICE;20.1.3.18;BCDFADB96FCFB9384F968B4F40DEE404
- ;;BEHQOWIZARD.QOWIZARD;1.1.4.21;7C8AE5E57AC5BC26555598005A67DDA4
- ;;INDIANHEALTHSERVICE.BEH.IBH.SUICIDE.CONTROLS.CTLSUICIDE_FORM;1.1.4300.2;F6849E21244EBBF9F84F557AE23569D8
- ;;
- CHM ;;BEHMEDLIST.MEDLIST;BEHMedList.chm;2012.10.29.215058;72C8EC7337BD69A9D284EEE59066F74E
- ;;BEHALLERGIES.ALLERGIES;BEHAllergies.chm;2012.10.24.155448;49EFC4DBBE8205C58E3E3689AB499273
- ;;BEHCONSULTS.CONSULTS;BEHConsults.chm;2012.10.4.160054;8EC0A6EDC13EFB7B63949B6E567F8F71
- ;;BEHCRISES.CRISES;BEHCrises.chm;2012.10.4.185004;861E9CBEED95DF9CA9F2071FA1DC0A40
- ;;BEHDCSUMM.DCSUMM;BEHDCSumm.chm;2012.8.2.175800;A29D4FAB537E129FF8E9206BBAFF2879
- ;;BEHENCOUNTERINFO.ENCOUNTERINFO;BEHEncounterInfo.chm;2012.10.30.202908;477DB472D586FF8BFA59CCAA3294B2B8
- ;;BEHLABORDERS.LABORDERS;BEHLabOrders.chm;2012.10.11.125714;84492C04C475006B8490607CC569A94B
- ;;BEHNOTIFICATIONS.NOTIFICATIONS;BEHNotifications.chm;2012.10.16.193300;FFFFBEF96BFF2A35C9075A144F4A13B0
- ;;BEHPATIENTID.PATIENTID;BEHPatientID.chm;2012.8.3.183300;29BE120BA3919494C91DFE3D44FA0814
- ;;BEHPROBLEMLIST.PROBLEMLIST;BEHProblemList.chm;2012.10.31.160410;D8E6F21DCF75BDB76E244F638196BD8C
- ;;BEHMEDS.MEDMANAGEMENT;BEHMeds.chm;2012.10.29.181542;E3E30BB0CE1A796557597AFFD798F28A
- ;;BEHLAB.LABVIEW;BEHLab.chm;2012.8.10.180500;0F6BF48B7F7FA5FBC40068F11A8BBF4A
- ;;CSS_PATIENT.PATIENT;CSSPatient.chm;2012.8.17.132800;8006B186338962D3C903CEC2F864D21C
- ;;BEHNOTES.PROGRESSNOTES;BEHNotes.chm;2012.10.25.141030;BC557DBDA27694075FFC01615072B066
- ;;BEHVISITS.VISITS;BEHVisits.chm;2012.10.4.155432;9A0233B409799928C27D84DA435892E1
- ;;BEHREMINDERS.REMINDERS;BEHReminders.chm;2012.10.18.131922;AFEEA09F88DCA09C26C445E0473D769F
- ;;BEHREPORTS.REPORTS;BEHReports.chm;2012.10.25.190120;D1E50B5A2717E698514C63D7BA48C517
- ;;BEHPHARMED.PHARMED;BEHPharmEd.chm;2012.8.24.183516;257E5DF919E6D3953A7C6AB1C76E86DA
- ;;BEHREMINDERSVIEW.REMINDERSVIEW;BEHRemindersView.chm;2012.8.28.153600;9B3CFAEEDF196552C1418AA41C1E82E9
- ;;BEHVITALS.VITALDISPLAY;BEHVitals.chm;2012.8.28.194700;FE7BBBA024F78191F7F8053A051B287B
- ;;BEHORDERS.ORDERENTRY;BEHOrders.chm;2012.10.24.151004;B9FC01A02F5244EB4301BE71B302A616
- ;;VCQUICKNOTE.QUICKNOTE;vcQuickNote.chm;2012.9.6.163852;F568208DF803F2991A9A16C0093B5310
- ;;INDIANHEALTHSERVICE.BEH.POCLAB.BEHLABPOC;Lab_POC_Data_Entry.chm;2012.9.10.171300;F07331F5B9E8F6C69166D3A095FD822F
- ;;BEHLAB.LABVIEW;BEHLab.chm;2012.9.10.205400;D51962ACDFFD26D9C3EDFA58C56636D2
- ;;
- CIAVIP11 ;MSC/IND/PLS - EHR v1.1p11 Inits;14-Apr-2013 11:59;DKM
- +1 ;;1.1;VUECENTRIC FRAMEWORK;;23-Oct-2006
- +2 ;;Copyright 2000-2012, 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 BMES^XPDUTL("Updating version numbers...")
- +3 FOR VER=0:1
- SET X=$PIECE($TEXT(VER+VER),";;",2)
- IF '$LENGTH(X)
- QUIT
- Begin DoDot:1
- +4 SET PID=$$PRGID^CIAVMCFG($PIECE(X,";"))
- +5 IF PID
- SET FDA(19930.2,PID_",",2)=$PIECE(X,";",2)
- SET FDA(19930.2,PID_",",7)=$PIECE(X,";",3)
- End DoDot:1
- +6 IF $DATA(FDA)
- DO FILE^DIE(,"FDA")
- +7 WRITE !!!
- +8 IF $LENGTH($$GETLOGIN^CIAVUTIL)
- IF $$ASK^CIAU("Do you want to enable EHR logins","Y")
- Begin DoDot:1
- +9 DO SDABORT^CIAVUTIL(,1)
- DO BMES^XPDUTL("Application logins have been enabled.")
- End DoDot:1
- +10 DO UPDCHM
- +11 QUIT
- +12 ; 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 ;
- UPDCHM ;EP-
- +1 NEW CHM,PID
- +2 FOR CHM=0:1
- SET X=$PIECE($TEXT(CHM+CHM),";;",2)
- IF '$LENGTH(X)
- QUIT
- Begin DoDot:1
- +3 SET PID=$$PRGID^CIAVMCFG($PIECE(X,";"))
- +4 DO AECHM(PID,$PIECE(X,";",2,99))
- End DoDot:1
- +5 WRITE !!
- +6 QUIT
- +7 ;
- AECHM(PID,VAL) ;EP-
- +1 NEW LN,FN,IDX,TXT,ARY,CNT,IENS
- +2 SET FN=$PIECE(VAL,";")
- SET CNT=0
- +3 SET LN=0
- FOR
- SET LN=$ORDER(^CIAVOBJ(19930.2,PID,6,LN))
- IF 'LN
- QUIT
- Begin DoDot:1
- +4 SET TXT=^CIAVOBJ(19930.2,PID,6,LN,0)
- +5 SET ARY(LN,0)=TXT
- SET CNT=CNT+1
- +6 IF $$UP^XLFSTR(TXT)[$$UP^XLFSTR($PIECE(VAL,";"))
- SET IDX=LN
- End DoDot:1
- IF $GET(IDX)
- QUIT
- +7 IF $GET(IDX)
- Begin DoDot:1
- +8 SET ^CIAVOBJ(19930.2,PID,6,IDX,0)=VAL
- End DoDot:1
- +9 IF '$TEST
- Begin DoDot:1
- +10 SET ARY(CNT+1,0)=VAL
- +11 SET IENS=PID_","
- +12 SET FDA(19930.2,IENS,10)="ARY"
- +13 DO FILE^DIE(,"FDA")
- End DoDot:1
- +14 QUIT
- +15 ; 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 ;;BEHORDERS.ORDERENTRY;27.1.0.5;A9C50FD2D4A15C1ACC9B74AF591D467C
- +1 ;;BEHOPTIONS.OPTIONS;1.1.3.4;2792F5AEF7857B6E4A226903946FDCF5
- +2 ;;VCQUICKNOTE.QUICKNOTE;1.1.3.3;2B3F220C050242905A1798097F31B5DA
- +3 ;;BEHCOMMUNITYINFO.COMMUNITYINFO;1.1.0.63;70809FC22D09F548D1F2B983DC2EC078
- +4 ;;BEHINFOBTNSVC.INFOBTNSVC;1.1.0.12;B7F85E0CF3C373F731FD881537F3C473
- +5 ;;BEHVITALS.VITALDISPLAY;5.0.4.8;01555E8EE26B3512EFB1C55CA3CDC0CD
- +6 ;;BEHPHARMED.PHARMED;1.0.2.2;4B8CEA693160D24EB2F0F8E791D576A9
- +7 ;;BEHRXGENERATORSERVICE.RXGENERATOR;1.0.0.80;E3162BC71F6D5BBDDB0D7352046E7C22
- +8 ;;BEHREMINDERSVIEW.REMINDERSVIEW;4.2.4.1;68E946EE3985D3AB685B86E0D038E0A2
- +9 ;;BEHESIGREVIEW.REVIEW;20.1.2.5;23E9021E2FC30E2E6BEFAA203DE61432
- +10 ;;BEHESIGSERVICE.ESIGSERVICE;20.1.3.18;BCDFADB96FCFB9384F968B4F40DEE404
- +11 ;;BEHQOWIZARD.QOWIZARD;1.1.4.21;7C8AE5E57AC5BC26555598005A67DDA4
- +12 ;;INDIANHEALTHSERVICE.BEH.IBH.SUICIDE.CONTROLS.CTLSUICIDE_FORM;1.1.4300.2;F6849E21244EBBF9F84F557AE23569D8
- +13 ;;
- CHM ;;BEHMEDLIST.MEDLIST;BEHMedList.chm;2012.10.29.215058;72C8EC7337BD69A9D284EEE59066F74E
- +1 ;;BEHALLERGIES.ALLERGIES;BEHAllergies.chm;2012.10.24.155448;49EFC4DBBE8205C58E3E3689AB499273
- +2 ;;BEHCONSULTS.CONSULTS;BEHConsults.chm;2012.10.4.160054;8EC0A6EDC13EFB7B63949B6E567F8F71
- +3 ;;BEHCRISES.CRISES;BEHCrises.chm;2012.10.4.185004;861E9CBEED95DF9CA9F2071FA1DC0A40
- +4 ;;BEHDCSUMM.DCSUMM;BEHDCSumm.chm;2012.8.2.175800;A29D4FAB537E129FF8E9206BBAFF2879
- +5 ;;BEHENCOUNTERINFO.ENCOUNTERINFO;BEHEncounterInfo.chm;2012.10.30.202908;477DB472D586FF8BFA59CCAA3294B2B8
- +6 ;;BEHLABORDERS.LABORDERS;BEHLabOrders.chm;2012.10.11.125714;84492C04C475006B8490607CC569A94B
- +7 ;;BEHNOTIFICATIONS.NOTIFICATIONS;BEHNotifications.chm;2012.10.16.193300;FFFFBEF96BFF2A35C9075A144F4A13B0
- +8 ;;BEHPATIENTID.PATIENTID;BEHPatientID.chm;2012.8.3.183300;29BE120BA3919494C91DFE3D44FA0814
- +9 ;;BEHPROBLEMLIST.PROBLEMLIST;BEHProblemList.chm;2012.10.31.160410;D8E6F21DCF75BDB76E244F638196BD8C
- +10 ;;BEHMEDS.MEDMANAGEMENT;BEHMeds.chm;2012.10.29.181542;E3E30BB0CE1A796557597AFFD798F28A
- +11 ;;BEHLAB.LABVIEW;BEHLab.chm;2012.8.10.180500;0F6BF48B7F7FA5FBC40068F11A8BBF4A
- +12 ;;CSS_PATIENT.PATIENT;CSSPatient.chm;2012.8.17.132800;8006B186338962D3C903CEC2F864D21C
- +13 ;;BEHNOTES.PROGRESSNOTES;BEHNotes.chm;2012.10.25.141030;BC557DBDA27694075FFC01615072B066
- +14 ;;BEHVISITS.VISITS;BEHVisits.chm;2012.10.4.155432;9A0233B409799928C27D84DA435892E1
- +15 ;;BEHREMINDERS.REMINDERS;BEHReminders.chm;2012.10.18.131922;AFEEA09F88DCA09C26C445E0473D769F
- +16 ;;BEHREPORTS.REPORTS;BEHReports.chm;2012.10.25.190120;D1E50B5A2717E698514C63D7BA48C517
- +17 ;;BEHPHARMED.PHARMED;BEHPharmEd.chm;2012.8.24.183516;257E5DF919E6D3953A7C6AB1C76E86DA
- +18 ;;BEHREMINDERSVIEW.REMINDERSVIEW;BEHRemindersView.chm;2012.8.28.153600;9B3CFAEEDF196552C1418AA41C1E82E9
- +19 ;;BEHVITALS.VITALDISPLAY;BEHVitals.chm;2012.8.28.194700;FE7BBBA024F78191F7F8053A051B287B
- +20 ;;BEHORDERS.ORDERENTRY;BEHOrders.chm;2012.10.24.151004;B9FC01A02F5244EB4301BE71B302A616
- +21 ;;VCQUICKNOTE.QUICKNOTE;vcQuickNote.chm;2012.9.6.163852;F568208DF803F2991A9A16C0093B5310
- +22 ;;INDIANHEALTHSERVICE.BEH.POCLAB.BEHLABPOC;Lab_POC_Data_Entry.chm;2012.9.10.171300;F07331F5B9E8F6C69166D3A095FD822F
- +23 ;;BEHLAB.LABVIEW;BEHLab.chm;2012.9.10.205400;D51962ACDFFD26D9C3EDFA58C56636D2
- +24 ;;