BGOIN006.m

BGOIN006 ; IHS/MSC/DKM - BGO*1.1*5 ;07-Jul-2010 14:46;PLS

 ;;1.1;BGO COMPONENTS;**6**;Mar 20, 2007

EC Q

 ; Preinit

PRE Q

 ; Postinit

POST ;

 ; 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 CONVRH^BGOREPCV  ;Migrate EHR reproductive factors stored after BJPC v2 release.

 Q

VER ;;IHSBGOACTIVITYTIME.IHSBGOACTTIMECTRL;1.1.0.176;FE7FD32222351371179F06CDBAD973DB

 ;;IHSBGOCHIEFCOMPLAINT.BGOCC;1.1.0.302;1D9D92504A52EAC9DD569D40799530FF

 ;;IHSBGOEM.BGOEMCTRL;1.1.0.203;A85E26C603E0CB8A91AB664A840E6467

 ;;IHSBGOEXAMS.BGOEXAMS;1.1.0.336;590E095A93C025FE8814EFAA7BCD249B

 ;;IHSBGOHEALTHFACTORS.BGOHF;1.2.0.1;ED0FED2CDD5C7CBB88F1784C097137C3

 ;;IHSBGOICDPICKLIST.ICDPICKLIST;1.2.0.79;9F1A586678496DA79832232C0935EB67

 ;;IHSBGOIMMUNIZATION.BGOIMM;1.2.0.77;12B1D20FAC4D1051A06E49318F41743B

 ;;IHSBGOITEMS.BGOITEMS;1.2.0.50;E0ACA16D7A1E92D8791BAA9D87082E54

 ;;IHSBGOPATIENTED.BGOPATED;1.2.0.32;A0C38F368E868F3F076AFFA8883247E7

 ;;IHSBGOPOVHISTORY.BGOPOVHISTORY;1.2.0.8;BA0C19FCE754DBEEBB427408C8EFEAA4

 ;;IHSBGOPROBLEM.BGOPROBLEM;1.2.0.69;A1480BE931952E4C7899CD260E991579

 ;;IHSBGOPROCEDURESVIEWER.BGOPROCVIEW;1.2.0.56;C550C359BF9CF80530C5381557A56669

 ;;IHSBGOREPHISTORY.IHSBGOREPHISTCTRL;1.1.0.425;E0EC07DE23B746A55C090EFC074BD6C6

 ;;IHSBGOSKINTEST.IHSBGOSK;1.2.0.35;379B115FC00515615E81878935D2A979

 ;;IHSBGOTRIAGE.BGOTRIAGE;1.2.0.1;BFB688374D934E0A40BBC01E368A26BF

 ;;IHSBGOTRIAGESUMMARY.BGOTRIAGESUMMARY;1.1.0.150;EDFDC2B7BD943D5C3BA5814880CFD617

 ;;IHSBGOVCPT.BGOVCPT;1.2.0.38;5F19F3439A67C2CC35653213A173388D

 ;;IHSBGOVPOV.BGOVPOV;1.2.0.20;BA81ADDAD6CE1C01833C828CEF097C83

 ;;FILE:IHSBGOCONTAINER.OCX;1.2.0.17;715989BA0240E11230DC8AD109CC89B6

 ;;FILE:IHSBGOVCDATE.OCX;1.1.0.60;40C39C0693C63788F32455B13A92D33E

 ;;FILE:VSFLEX8L.OCX;8.0.20061.231;A63B78ED2FAE227F31A68D292404ACFB

 ;;FILE:VB SPLITTER.OCX;1;FC87461D5C23702655A4B963FDFABA22

 ;;

BGOIN006  ; IHS/MSC/DKM - BGO*1.1*5 ;07-Jul-2010 14:46;PLS

 +1       ;;1.1;BGO COMPONENTS;**6**;Mar 20, 2007

EC         QUIT 

 +1       ; Preinit

PRE        QUIT 

 +1       ; Postinit

POST      ;

 +1       ; Register RPCs

 +2        DO REGNMSP^CIAURPC("BGO","CIAV VUECENTRIC")

 +3       ; Update BGO component versions

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

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

 +6        FOR VER=0:1

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

               IF '$LENGTH(X)

                   QUIT 

               Begin DoDot:1

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

 +8                IF PID

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

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

               End DoDot:1

 +9        IF $DATA(FDA)

               DO FILE^DIE(,"FDA")

 +10      ;Migrate EHR reproductive factors stored after BJPC v2 release.

           DO CONVRH^BGOREPCV

 +11       QUIT 

VER       ;;IHSBGOACTIVITYTIME.IHSBGOACTTIMECTRL;1.1.0.176;FE7FD32222351371179F06CDBAD973DB

 +1       ;;IHSBGOCHIEFCOMPLAINT.BGOCC;1.1.0.302;1D9D92504A52EAC9DD569D40799530FF

 +2       ;;IHSBGOEM.BGOEMCTRL;1.1.0.203;A85E26C603E0CB8A91AB664A840E6467

 +3       ;;IHSBGOEXAMS.BGOEXAMS;1.1.0.336;590E095A93C025FE8814EFAA7BCD249B

 +4       ;;IHSBGOHEALTHFACTORS.BGOHF;1.2.0.1;ED0FED2CDD5C7CBB88F1784C097137C3

 +5       ;;IHSBGOICDPICKLIST.ICDPICKLIST;1.2.0.79;9F1A586678496DA79832232C0935EB67

 +6       ;;IHSBGOIMMUNIZATION.BGOIMM;1.2.0.77;12B1D20FAC4D1051A06E49318F41743B

 +7       ;;IHSBGOITEMS.BGOITEMS;1.2.0.50;E0ACA16D7A1E92D8791BAA9D87082E54

 +8       ;;IHSBGOPATIENTED.BGOPATED;1.2.0.32;A0C38F368E868F3F076AFFA8883247E7

 +9       ;;IHSBGOPOVHISTORY.BGOPOVHISTORY;1.2.0.8;BA0C19FCE754DBEEBB427408C8EFEAA4

 +10      ;;IHSBGOPROBLEM.BGOPROBLEM;1.2.0.69;A1480BE931952E4C7899CD260E991579

 +11      ;;IHSBGOPROCEDURESVIEWER.BGOPROCVIEW;1.2.0.56;C550C359BF9CF80530C5381557A56669

 +12      ;;IHSBGOREPHISTORY.IHSBGOREPHISTCTRL;1.1.0.425;E0EC07DE23B746A55C090EFC074BD6C6

 +13      ;;IHSBGOSKINTEST.IHSBGOSK;1.2.0.35;379B115FC00515615E81878935D2A979

 +14      ;;IHSBGOTRIAGE.BGOTRIAGE;1.2.0.1;BFB688374D934E0A40BBC01E368A26BF

 +15      ;;IHSBGOTRIAGESUMMARY.BGOTRIAGESUMMARY;1.1.0.150;EDFDC2B7BD943D5C3BA5814880CFD617

 +16      ;;IHSBGOVCPT.BGOVCPT;1.2.0.38;5F19F3439A67C2CC35653213A173388D

 +17      ;;IHSBGOVPOV.BGOVPOV;1.2.0.20;BA81ADDAD6CE1C01833C828CEF097C83

 +18      ;;FILE:IHSBGOCONTAINER.OCX;1.2.0.17;715989BA0240E11230DC8AD109CC89B6

 +19      ;;FILE:IHSBGOVCDATE.OCX;1.1.0.60;40C39C0693C63788F32455B13A92D33E

 +20      ;;FILE:VSFLEX8L.OCX;8.0.20061.231;A63B78ED2FAE227F31A68D292404ACFB

 +21      ;;FILE:VB SPLITTER.OCX;1;FC87461D5C23702655A4B963FDFABA22

 +22      ;;