BGOIN008.m

BGOIN008 ; IHS/MSC/PLS - BGO*1.1*8 ;05-May-2011 20:57;PLS

 ;;1.1;BGO COMPONENTS;**8**;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")

 Q

VER ;;IHSBGOVPOV.BGOVPOV;1.2.0.23;A387708BED809B4CBAD482166B8B9BE0

 ;;IHSBGOPATIENTED.BGOPATED;1.2.0.117;0313A489144CEF9615AF405CB6C1FF9C

 ;;IHSBGOPROBLEM.BGOPROBLEM;1.2.0.90;2DC475101EE2EE3C3BFFF091ECB10B2E

 ;;IHSBGOVCPT.BGOVCPT;1.2.0.49;2E9D5F741E3B83BE4D15BC75B79561DE

 ;;IHSBGOIMMUNIZATION.BGOIMM;1.2.0.85;7FBF4A82CD29046538C5EC7D10841012

 ;;IHSBGOPOVHISTORY.BGOPOVHISTORY;1.2.0.12;01DA9DA031BBCA9EB06735C33D7F118D

 ;;

BGOIN008  ; IHS/MSC/PLS - BGO*1.1*8 ;05-May-2011 20:57;PLS

 +1       ;;1.1;BGO COMPONENTS;**8**;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       QUIT 

VER       ;;IHSBGOVPOV.BGOVPOV;1.2.0.23;A387708BED809B4CBAD482166B8B9BE0

 +1       ;;IHSBGOPATIENTED.BGOPATED;1.2.0.117;0313A489144CEF9615AF405CB6C1FF9C

 +2       ;;IHSBGOPROBLEM.BGOPROBLEM;1.2.0.90;2DC475101EE2EE3C3BFFF091ECB10B2E

 +3       ;;IHSBGOVCPT.BGOVCPT;1.2.0.49;2E9D5F741E3B83BE4D15BC75B79561DE

 +4       ;;IHSBGOIMMUNIZATION.BGOIMM;1.2.0.85;7FBF4A82CD29046538C5EC7D10841012

 +5       ;;IHSBGOPOVHISTORY.BGOPOVHISTORY;1.2.0.12;01DA9DA031BBCA9EB06735C33D7F118D

 +6       ;;