BGOIN014 ; IHS/MSC/PLS - BGO*1.1*14 ;05-Feb-2015 09:49;PLS
;;1.1;BGO COMPONENTS;**14**;Mar 20, 2007
EC Q
; Preinit
PRE ;
D DISABLED("BEHSTROKE.LAUNCHSTROKEBUTTON",0)
D DISABLED("BEHSTROKE.STROKECONTROL",0)
D DISABLED("BGOAMI.AMICONTROL",0)
D DISABLED("BGOAMI.LAUNCHAMIBUTTON",0)
Q
; Postinit
POST ;
; Clean up menu items
;D CLNMNU
; Register RPCs
D REGNMSP^CIAURPC("BGO","CIAV VUECENTRIC")
; Update BGO component versions
N VER,FDA,PID,IEN,X
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 UPDCHM
D DISABLED("IHSBGOITEMS.BGOITEMS",1)
D PARS1
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
PARS ;Store system levels of new parameter
D EN^XPAR("SYS","BGO PROBLEM EDUCATION",1,"DISEASE PROCESS")
D EN^XPAR("SYS","BGO PROBLEM EDUCATION",2,"NUTRITION")
D EN^XPAR("SYS","BGO PROBLEM EDUCATION",3,"EXERCISE")
D EN^XPAR("SYS","BGO PROBLEM EDUCATION",4,"LIFESTYLE ADAPTATION")
D EN^XPAR("SYS","BGO PROBLEM EDUCATION",5,"MEDICATIONS")
D EN^XPAR("SYS","BGO PROBLEM EDUCATION",6,"PREVENTION")
Q
PARS1 ;EP - Cleanup old parameter values for location
N PAR,ENT,ERR
S PAR="" S PAR=$O(^XTV(8989.51,"B","BGO PROBLEM EDUCATION",PAR))
Q:'+PAR
S ENT="" F S ENT=$O(^XTV(8989.5,"AC",PAR,ENT)) Q:ENT="" D
.Q:$P(ENT,";",2)'="SC("
.S ERR=0
.D NDEL^XPAR(ENT,PAR,.ERR)
N LIEN
S LIEN="" S LIEN=$O(^XTV(8989.51,PAR,30,"B",100,LIEN))
Q:LIEN=""
S DA(1)=PAR,DA=LIEN
S DIK="^XTV(8989.51,PAR,30,"
D ^DIK
Q
; Set DISABLED field of OBJ to VAL
DISABLED(OBJ,VAL) ;
N PID,FDA
S VAL=$G(VAL,0)
S PID=$$PRGID^CIAVMCFG($G(OBJ))
Q:'PID
S FDA(19930.2,PID_",",13)=VAL
D FILE^DIE(,"FDA")
Q
PICK ;Install the national pick lists
D UPDATE^BGOSNLK
Q
N LP,NAME,SNO,BSTS,RET
F LP=0:1 S NAME=$P($T(LIST+LP),";;",2) Q:'$L(NAME) D
.S BSTS=$P(NAME,"^",1)
.S SNO=$P(NAME,"^",2)
.D IMPORT^BGOSNLK(.RET,BSTS,SNO)
Q
;National pick lists
LIST ;;PICK ABNORMAL FINDINGS^ABNORMAL FINDINGS
;;PICK CQM Problems^CQM PROBLEMS
;;PICK Case Management^CASE MANAGEMENT
;;PICK Diabetic Retinopathy^DIABETIC RETINOPATHY
;;PICK Eye General^EYE GENERAL
;;PICK Immunizations^IMMUNIZATIONS
;;PICK NIST Problems^NIST PROBLEMS
;;PICK Nutrition^NUTRITION
;;PICK Prenatal - Care^PRENATAL CARE
;;PICK Prenatal - Problem Fetus^PRENATAL PROBLEM FETUS
;;PICK Prenatal - Problem Pregnancy^PRENATAL PROBLEM PREGNANCY
;;PICK Prenatal - Risk^PRENATAL RISK
;;PICK Public Health Nursing^PUBLIC HEALTH NURSING
;;PICK Womens Health^WOMENS HEALTH
;;
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($S('CNT:1,1:CNT+1),0)=VAL
.S IENS=PID_","
.S FDA(19930.2,IENS,10)="ARY"
.D FILE^DIE(,"FDA")
Q
;
CLNMNU ;
; Remove option from menu
N OPTION,MENU,DA,DIK,PAR,ERR,X
S (OPTION,MENU)=""
S OPTION="BGO IMM STOP ADDING CPT CODES"
S MENU="BGOIMM MAIN"
S X=$$DELETE^XPDMENU(MENU,OPTION)
Q:'+X
;Inactivate the option
D OUT^XPDMENU(OPTION,"No longer used")
;Clean out the parameter
S PAR=""
S PAR=$O(^XTV(8989.51,"B","BGO IMM STOP ADDING CPT CODES",PAR))
Q:'+PAR
S ERR=0
D NDEL^XPAR("USR",PAR,.ERR)
Q:ERR>0
D NDEL^XPAR("DIV",PAR,.ERR)
Q:ERR>0
D NDEL^XPAR("PKG",PAR,.ERR)
Q:ERR>0
;Delete the parameter
S DA=PAR,DIK="^XTV(8989.51," D ^DIK
Q
VER ;;IHSBGOREPFACTORS.IHSBGOREPFACTORSCTRL;1.2.0.189;66F07F131F1E79278F6688B794DF8C12
;;BEHSTROKE.LAUNCHSTROKEBUTTON;1.1.5423.18571;C2DABB84F3A2BC6654CDEA2E1B51DC34
;;BEHSTROKE.STROKECONTROL;1.1.5423.18571;C2DABB84F3A2BC6654CDEA2E1B51DC34
;;IHSBGOFAMHX.BGOFAMHX;1.0.0.685;1D8437085059DD5D8906D803207BA1CF
;;IHSBGOEXAMS.BGOEXAMS;1.1.0.378;AEFAA36DFEB0441C04E6CBD866572FE6
;;IHSBGOICDPICKLIST.ICDPICKLIST;1.2.0.80;5325FA6D2D04CB49B51F8F268EAE6091
;;IHSBGOIMMUNIZATION.BGOIMM;1.2.0.202;6D85E2938E78FD9F5CEC44751C223136
;;IHSBGOITEMS.BGOITEMS;1.2.0.52;0C7170AD511FF6918F2F9AE71DDA5495
;;IHSBGOPATIENTED.BGOPATED;1.2.0.261;8B46BC127E3A27902622F5767EDB6012
;;IHSBGOPOVHISTORY.BGOPOVHISTORY;1.2.0.52;543D1F69A03FDEC031DF87424267533B
;;IHSBGOPROBLEM.BGOPROBLEM;1.2.0.104;A2253043611D247E6F9FA66CC3C0BD27
;;IHSBGOPROCEDURESVIEWER.BGOPROCVIEW;1.2.0.95;397EA5D371EE37165B9698B100C2A5FD
;;IHSBGOREPHISTORY.IHSBGOREPHISTCTRL;1.2.0.84;E1EE7F72D0668C9FECA27BABF3D0CAFF
;;IHSBGOSKINTEST.IHSBGOSK;1.2.0.157;EB79656A72A8E344422BD79DD0AB1514
;;IHSBGOVCPT.BGOVCPT;1.2.0.77;2A504049BC84E6E315CCD66812FD0166
;;BGOAMI.AMICONTROL;1.1.5514.16557;AE48C8A9F9B9D4313C4F1CC02F8F89D3
;;BGOAMI.LAUNCHAMIBUTTON;1.1.5514.16557;AE48C8A9F9B9D4313C4F1CC02F8F89D3
;;IHSBGOVPOV.BGOVPOV;1.2.0.54;07AE288DC5B36A930171836C432E484E
;;IHSBGOEYEEXAM.BGOEYEEXAM;1.1.0.16;05678FD748362E0DC6D746316070E192
;;IHSBGOEM.BGOEMCTRL;1.1.0.236;FEF42FAEEA4445C191849A04B1B28013
;;IHSBGOINFANTFEED.IHSBGOINFANTFEEDCTRL;1.2.0.218;0C13F7AFF3AA9DF355B7AAF53280CCA2
;;BEHANTICOAG.BEHANTICOAG;1.1.5506.27895;55EDD671BE54E67999652D4D71D4E0EE
;;
CHM ;;BEHANTICOAG.BEHANTICOAG;BEHAntiCoag.chm;2014.5.21.183436;70484B064F581E5554BABD372BCF6EEA
;;BEHSTROKE.LAUNCHSTROKEBUTTON;BEHStroke.chm;2014.5.22.152830;599ACF2FECEEF849F144D34A74ACD521
;;BEHSTROKE.STROKECONTROL;BEHStroke.chm;2014.5.22.152830;599ACF2FECEEF849F144D34A74ACD521
;;IHSBGOVCPT.BGOVCPT;IhsBgoVCPT.chm;2014.6.6.135616;C66D5A8C9EFE075A8F7A8FDE78075065
;;IHSBGOREPFACTORS.IHSBGOREPFACTORSCTRL;IhsBgoRepFactors.chm;2014.5.22.181014;3CF377330028B828FFF505029FAE7C1D
;;IHSBGOIMMUNIZATION.BGOIMM;IhsBgoImmunization.chm;2014.9.5.211106;43FBE56E45FD9FDEE26DEB82755C6F09
;;BGOAMI.AMICONTROL;BGOAMI.CHM;2014.5.22.105752;3DF8066FD4A72AAA97B4D72785708313
;;BGOAMI.LAUNCHAMIBUTTON;BGOAMI.CHM;2014.5.22.105752;3DF8066FD4A72AAA97B4D72785708313
;;IHSBGOITEMS.BGOITEMS;IhsBgoItems.chm;2014.11.20.165756;397D0D31C6F7072AE1B18953BEF76B2B
;;IHSBGOVPOV.BGOVPOV;IhsBgoVPOV.chm;2014.11.24.173016;3343707CA4D65E34F675C013E59724D1
;;IHSBGOPOVHISTORY.BGOPOVHISTORY;IhsBgoPovHistory.chm;2014.11.24.154400;D8AD1EA0FA144F8075CC3E05323D4717
;;
BGOIN014 ; IHS/MSC/PLS - BGO*1.1*14 ;05-Feb-2015 09:49;PLS
+1 ;;1.1;BGO COMPONENTS;**14**;Mar 20, 2007
EC QUIT
+1 ; Preinit
PRE ;
+1 DO DISABLED("BEHSTROKE.LAUNCHSTROKEBUTTON",0)
+2 DO DISABLED("BEHSTROKE.STROKECONTROL",0)
+3 DO DISABLED("BGOAMI.AMICONTROL",0)
+4 DO DISABLED("BGOAMI.LAUNCHAMIBUTTON",0)
+5 QUIT
+6 ; Postinit
POST ;
+1 ; Clean up menu items
+2 ;D CLNMNU
+3 ; Register RPCs
+4 DO REGNMSP^CIAURPC("BGO","CIAV VUECENTRIC")
+5 ; Update BGO component versions
+6 NEW VER,FDA,PID,IEN,X
+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 UPDCHM
+13 DO DISABLED("IHSBGOITEMS.BGOITEMS",1)
+14 DO PARS1
+15 QUIT
+16 ;
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
PARS ;Store system levels of new parameter
+1 DO EN^XPAR("SYS","BGO PROBLEM EDUCATION",1,"DISEASE PROCESS")
+2 DO EN^XPAR("SYS","BGO PROBLEM EDUCATION",2,"NUTRITION")
+3 DO EN^XPAR("SYS","BGO PROBLEM EDUCATION",3,"EXERCISE")
+4 DO EN^XPAR("SYS","BGO PROBLEM EDUCATION",4,"LIFESTYLE ADAPTATION")
+5 DO EN^XPAR("SYS","BGO PROBLEM EDUCATION",5,"MEDICATIONS")
+6 DO EN^XPAR("SYS","BGO PROBLEM EDUCATION",6,"PREVENTION")
+7 QUIT
PARS1 ;EP - Cleanup old parameter values for location
+1 NEW PAR,ENT,ERR
+2 SET PAR=""
SET PAR=$ORDER(^XTV(8989.51,"B","BGO PROBLEM EDUCATION",PAR))
+3 IF '+PAR
QUIT
+4 SET ENT=""
FOR
SET ENT=$ORDER(^XTV(8989.5,"AC",PAR,ENT))
IF ENT=""
QUIT
Begin DoDot:1
+5 IF $PIECE(ENT,";",2)'="SC("
QUIT
+6 SET ERR=0
+7 DO NDEL^XPAR(ENT,PAR,.ERR)
End DoDot:1
+8 NEW LIEN
+9 SET LIEN=""
SET LIEN=$ORDER(^XTV(8989.51,PAR,30,"B",100,LIEN))
+10 IF LIEN=""
QUIT
+11 SET DA(1)=PAR
SET DA=LIEN
+12 SET DIK="^XTV(8989.51,PAR,30,"
+13 DO ^DIK
+14 QUIT
+15 ; Set DISABLED field of OBJ to VAL
DISABLED(OBJ,VAL) ;
+1 NEW PID,FDA
+2 SET VAL=$GET(VAL,0)
+3 SET PID=$$PRGID^CIAVMCFG($GET(OBJ))
+4 IF 'PID
QUIT
+5 SET FDA(19930.2,PID_",",13)=VAL
+6 DO FILE^DIE(,"FDA")
+7 QUIT
PICK ;Install the national pick lists
+1 DO UPDATE^BGOSNLK
+2 QUIT
+3 NEW LP,NAME,SNO,BSTS,RET
+4 FOR LP=0:1
SET NAME=$PIECE($TEXT(LIST+LP),";;",2)
IF '$LENGTH(NAME)
QUIT
Begin DoDot:1
+5 SET BSTS=$PIECE(NAME,"^",1)
+6 SET SNO=$PIECE(NAME,"^",2)
+7 DO IMPORT^BGOSNLK(.RET,BSTS,SNO)
End DoDot:1
+8 QUIT
+9 ;National pick lists
LIST ;;PICK ABNORMAL FINDINGS^ABNORMAL FINDINGS
+1 ;;PICK CQM Problems^CQM PROBLEMS
+2 ;;PICK Case Management^CASE MANAGEMENT
+3 ;;PICK Diabetic Retinopathy^DIABETIC RETINOPATHY
+4 ;;PICK Eye General^EYE GENERAL
+5 ;;PICK Immunizations^IMMUNIZATIONS
+6 ;;PICK NIST Problems^NIST PROBLEMS
+7 ;;PICK Nutrition^NUTRITION
+8 ;;PICK Prenatal - Care^PRENATAL CARE
+9 ;;PICK Prenatal - Problem Fetus^PRENATAL PROBLEM FETUS
+10 ;;PICK Prenatal - Problem Pregnancy^PRENATAL PROBLEM PREGNANCY
+11 ;;PICK Prenatal - Risk^PRENATAL RISK
+12 ;;PICK Public Health Nursing^PUBLIC HEALTH NURSING
+13 ;;PICK Womens Health^WOMENS HEALTH
+14 ;;
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($SELECT('CNT:1,1: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 ;
CLNMNU ;
+1 ; Remove option from menu
+2 NEW OPTION,MENU,DA,DIK,PAR,ERR,X
+3 SET (OPTION,MENU)=""
+4 SET OPTION="BGO IMM STOP ADDING CPT CODES"
+5 SET MENU="BGOIMM MAIN"
+6 SET X=$$DELETE^XPDMENU(MENU,OPTION)
+7 IF '+X
QUIT
+8 ;Inactivate the option
+9 DO OUT^XPDMENU(OPTION,"No longer used")
+10 ;Clean out the parameter
+11 SET PAR=""
+12 SET PAR=$ORDER(^XTV(8989.51,"B","BGO IMM STOP ADDING CPT CODES",PAR))
+13 IF '+PAR
QUIT
+14 SET ERR=0
+15 DO NDEL^XPAR("USR",PAR,.ERR)
+16 IF ERR>0
QUIT
+17 DO NDEL^XPAR("DIV",PAR,.ERR)
+18 IF ERR>0
QUIT
+19 DO NDEL^XPAR("PKG",PAR,.ERR)
+20 IF ERR>0
QUIT
+21 ;Delete the parameter
+22 SET DA=PAR
SET DIK="^XTV(8989.51,"
DO ^DIK
+23 QUIT
VER ;;IHSBGOREPFACTORS.IHSBGOREPFACTORSCTRL;1.2.0.189;66F07F131F1E79278F6688B794DF8C12
+1 ;;BEHSTROKE.LAUNCHSTROKEBUTTON;1.1.5423.18571;C2DABB84F3A2BC6654CDEA2E1B51DC34
+2 ;;BEHSTROKE.STROKECONTROL;1.1.5423.18571;C2DABB84F3A2BC6654CDEA2E1B51DC34
+3 ;;IHSBGOFAMHX.BGOFAMHX;1.0.0.685;1D8437085059DD5D8906D803207BA1CF
+4 ;;IHSBGOEXAMS.BGOEXAMS;1.1.0.378;AEFAA36DFEB0441C04E6CBD866572FE6
+5 ;;IHSBGOICDPICKLIST.ICDPICKLIST;1.2.0.80;5325FA6D2D04CB49B51F8F268EAE6091
+6 ;;IHSBGOIMMUNIZATION.BGOIMM;1.2.0.202;6D85E2938E78FD9F5CEC44751C223136
+7 ;;IHSBGOITEMS.BGOITEMS;1.2.0.52;0C7170AD511FF6918F2F9AE71DDA5495
+8 ;;IHSBGOPATIENTED.BGOPATED;1.2.0.261;8B46BC127E3A27902622F5767EDB6012
+9 ;;IHSBGOPOVHISTORY.BGOPOVHISTORY;1.2.0.52;543D1F69A03FDEC031DF87424267533B
+10 ;;IHSBGOPROBLEM.BGOPROBLEM;1.2.0.104;A2253043611D247E6F9FA66CC3C0BD27
+11 ;;IHSBGOPROCEDURESVIEWER.BGOPROCVIEW;1.2.0.95;397EA5D371EE37165B9698B100C2A5FD
+12 ;;IHSBGOREPHISTORY.IHSBGOREPHISTCTRL;1.2.0.84;E1EE7F72D0668C9FECA27BABF3D0CAFF
+13 ;;IHSBGOSKINTEST.IHSBGOSK;1.2.0.157;EB79656A72A8E344422BD79DD0AB1514
+14 ;;IHSBGOVCPT.BGOVCPT;1.2.0.77;2A504049BC84E6E315CCD66812FD0166
+15 ;;BGOAMI.AMICONTROL;1.1.5514.16557;AE48C8A9F9B9D4313C4F1CC02F8F89D3
+16 ;;BGOAMI.LAUNCHAMIBUTTON;1.1.5514.16557;AE48C8A9F9B9D4313C4F1CC02F8F89D3
+17 ;;IHSBGOVPOV.BGOVPOV;1.2.0.54;07AE288DC5B36A930171836C432E484E
+18 ;;IHSBGOEYEEXAM.BGOEYEEXAM;1.1.0.16;05678FD748362E0DC6D746316070E192
+19 ;;IHSBGOEM.BGOEMCTRL;1.1.0.236;FEF42FAEEA4445C191849A04B1B28013
+20 ;;IHSBGOINFANTFEED.IHSBGOINFANTFEEDCTRL;1.2.0.218;0C13F7AFF3AA9DF355B7AAF53280CCA2
+21 ;;BEHANTICOAG.BEHANTICOAG;1.1.5506.27895;55EDD671BE54E67999652D4D71D4E0EE
+22 ;;
CHM ;;BEHANTICOAG.BEHANTICOAG;BEHAntiCoag.chm;2014.5.21.183436;70484B064F581E5554BABD372BCF6EEA
+1 ;;BEHSTROKE.LAUNCHSTROKEBUTTON;BEHStroke.chm;2014.5.22.152830;599ACF2FECEEF849F144D34A74ACD521
+2 ;;BEHSTROKE.STROKECONTROL;BEHStroke.chm;2014.5.22.152830;599ACF2FECEEF849F144D34A74ACD521
+3 ;;IHSBGOVCPT.BGOVCPT;IhsBgoVCPT.chm;2014.6.6.135616;C66D5A8C9EFE075A8F7A8FDE78075065
+4 ;;IHSBGOREPFACTORS.IHSBGOREPFACTORSCTRL;IhsBgoRepFactors.chm;2014.5.22.181014;3CF377330028B828FFF505029FAE7C1D
+5 ;;IHSBGOIMMUNIZATION.BGOIMM;IhsBgoImmunization.chm;2014.9.5.211106;43FBE56E45FD9FDEE26DEB82755C6F09
+6 ;;BGOAMI.AMICONTROL;BGOAMI.CHM;2014.5.22.105752;3DF8066FD4A72AAA97B4D72785708313
+7 ;;BGOAMI.LAUNCHAMIBUTTON;BGOAMI.CHM;2014.5.22.105752;3DF8066FD4A72AAA97B4D72785708313
+8 ;;IHSBGOITEMS.BGOITEMS;IhsBgoItems.chm;2014.11.20.165756;397D0D31C6F7072AE1B18953BEF76B2B
+9 ;;IHSBGOVPOV.BGOVPOV;IhsBgoVPOV.chm;2014.11.24.173016;3343707CA4D65E34F675C013E59724D1
+10 ;;IHSBGOPOVHISTORY.BGOPOVHISTORY;IhsBgoPovHistory.chm;2014.11.24.154400;D8AD1EA0FA144F8075CC3E05323D4717
+11 ;;
