BGOIN007.m

BGOIN007 ; IHS/MSC/PLS - BGO*1.1*7 ;23-Nov-2010 06:18;PLS

 ;;1.1;BGO COMPONENTS;**7**;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 ;;IHSBGOPROCEDURESVIEWER.BGOPROCVIEW;1.2.0.62;28223513018872D96AFBD9D5AB3241B8

 ;;IHSBGOSKINTEST.IHSBGOSK;1.2.0.85;5F5A101D40C0AA208246940AF929A0BC

 ;;IHSBGOINFANTFEED.IHSBGOINFANTFEEDCTRL;1.2.0.161;5197351DF924D60170B5C5C070DE52DC

 ;;IHSBGOREPFACTORS.IHSBGOREPFACTORSCTRL;1.2.0.56;83A4F38B5F111F323067320CEBF275CD

 ;;IHSBGOVCPT.BGOVCPT;1.2.0.44;2AB3495B8CB76B5E1A09241F14A0F110

 ;;IHSBGOPATIENTED.BGOPATED;1.2.0.35;4E2FB3FA89F33FF0CF45044B538972E2

 ;;

BGOIN007  ; IHS/MSC/PLS - BGO*1.1*7 ;23-Nov-2010 06:18;PLS

 +1       ;;1.1;BGO COMPONENTS;**7**;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       ;;IHSBGOPROCEDURESVIEWER.BGOPROCVIEW;1.2.0.62;28223513018872D96AFBD9D5AB3241B8

 +1       ;;IHSBGOSKINTEST.IHSBGOSK;1.2.0.85;5F5A101D40C0AA208246940AF929A0BC

 +2       ;;IHSBGOINFANTFEED.IHSBGOINFANTFEEDCTRL;1.2.0.161;5197351DF924D60170B5C5C070DE52DC

 +3       ;;IHSBGOREPFACTORS.IHSBGOREPFACTORSCTRL;1.2.0.56;83A4F38B5F111F323067320CEBF275CD

 +4       ;;IHSBGOVCPT.BGOVCPT;1.2.0.44;2AB3495B8CB76B5E1A09241F14A0F110

 +5       ;;IHSBGOPATIENTED.BGOPATED;1.2.0.35;4E2FB3FA89F33FF0CF45044B538972E2

 +6       ;;