Routine: BGOIN004

BGOIN004 ; IHS/MSC/DKM - BGO*1.1*4 ;04-Feb-2008 10:54;DKM

 ;;1.1;BGO COMPONENTS;**4**;Sep 18, 2007

EC Q

 ; Preinit

PRE Q

 ; Postinit

POST N OPT,VER,FDA,PID,IEN,X

 D BMES^XPDUTL("Disabling BGO ENABLE CHARGEMASTER ENTRY menu...")

 S OPT=$$FIND1^DIC(19,,"X","BGO ENABLE CHARGEMASTER ENTRY")

 I OPT D

 .N FDA

 .S FDA(19,OPT_",",2)="This option is not yet implemented"

 .S FDA(19,OPT_",",3)="BGOZ OUT OF ORDER"

 .D UPDATE^DIE(,"FDA")

 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)

 D:$D(FDA) FILE^DIE(,"FDA")

VER ;;FILE:IHSBGOVCDATE.OCX;1.1.0.60

 ;;FILE:IHSBGOCONTAINER.OCX;1.2.0.17

 ;;IHSBGOCHIEFCOMPLAINT.BGOCC;1.1.0.302

 ;;IHSBGOPROBLEM.BGOPROBLEM;1.1.0.359

 ;;IHSBGOIMMUNIZATION.BGOIMM;1.1.0.613

 ;;IHSBGOEXAMS.BGOEXAMS;1.1.0.335

 ;;IHSBGOHEALTHFACTORS.BGOHF;1.1.0.270

 ;;IHSBGOITEMS.BGOITEMS;1.1.0.334

 ;;IHSBGOPROCEDURESVIEWER.BGOPROCVIEW;1.1.0.236

 ;;IHSBGOREPHISTORY.IHSBGOREPHISTCTRL;1.1.0.414

 ;;IHSBGOSKINTEST.IHSBGOSK;1.1.0.615

 ;;IHSBGOVCPT.BGOVCPT;1.1.0.288

 ;;IHSBGOVPOV.BGOVPOV;1.1.0.292

 ;;IHSBGOTRIAGESUMMARY.BGOTRIAGESUMMARY;1.1.0.150

 ;;IHSBGOPOVHISTORY.BGOPOVHISTORY;1.1.0.199

 ;;IHSBGOICDPICKLIST.ICDPICKLIST;1.1.0.245

 ;;IHSBGOPATIENTED.BGOPATED;1.1.0.465

 ;;IHSBGOEM.BGOEMCTRL;1.1.0.202

 ;;IHSBGOTRIAGE.BGOTRIAGE;1.2.0.1

BGOIN004  ; IHS/MSC/DKM - BGO*1.1*4 ;04-Feb-2008 10:54;DKM

 +1       ;;1.1;BGO COMPONENTS;**4**;Sep 18, 2007

EC         QUIT

 +1       ; Preinit

PRE        QUIT

 +1       ; Postinit

POST       NEW OPT,VER,FDA,PID,IEN,X

 +1        DO BMES^XPDUTL("Disabling BGO ENABLE CHARGEMASTER ENTRY menu...")

 +2        SET OPT=$$FIND1^DIC(19,,"X","BGO ENABLE CHARGEMASTER ENTRY")

 +3        IF OPT

               Begin DoDot:1

 +4                NEW FDA

 +5                SET FDA(19,OPT_",",2)="This option is not yet implemented"

 +6                SET FDA(19,OPT_",",3)="BGOZ OUT OF ORDER"

 +7                DO UPDATE^DIE(,"FDA")

               End DoDot:1

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

 +9        FOR VER=0:1

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

               IF '$LENGTH(X)

                   QUIT

               Begin DoDot:1

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

 +11               IF PID

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

               End DoDot:1

 +12       IF $DATA(FDA)

               DO FILE^DIE(,"FDA")

 +13       QUIT

VER       ;;FILE:IHSBGOVCDATE.OCX;1.1.0.60

 +1       ;;FILE:IHSBGOCONTAINER.OCX;1.2.0.17

 +2       ;;IHSBGOCHIEFCOMPLAINT.BGOCC;1.1.0.302

 +3       ;;IHSBGOPROBLEM.BGOPROBLEM;1.1.0.359

 +4       ;;IHSBGOIMMUNIZATION.BGOIMM;1.1.0.613

 +5       ;;IHSBGOEXAMS.BGOEXAMS;1.1.0.335

 +6       ;;IHSBGOHEALTHFACTORS.BGOHF;1.1.0.270

 +7       ;;IHSBGOITEMS.BGOITEMS;1.1.0.334

 +8       ;;IHSBGOPROCEDURESVIEWER.BGOPROCVIEW;1.1.0.236

 +9       ;;IHSBGOREPHISTORY.IHSBGOREPHISTCTRL;1.1.0.414

 +10      ;;IHSBGOSKINTEST.IHSBGOSK;1.1.0.615

 +11      ;;IHSBGOVCPT.BGOVCPT;1.1.0.288

 +12      ;;IHSBGOVPOV.BGOVPOV;1.1.0.292

 +13      ;;IHSBGOTRIAGESUMMARY.BGOTRIAGESUMMARY;1.1.0.150

 +14      ;;IHSBGOPOVHISTORY.BGOPOVHISTORY;1.1.0.199

 +15      ;;IHSBGOICDPICKLIST.ICDPICKLIST;1.1.0.245

 +16      ;;IHSBGOPATIENTED.BGOPATED;1.1.0.465

 +17      ;;IHSBGOEM.BGOEMCTRL;1.1.0.202

 +18      ;;IHSBGOTRIAGE.BGOTRIAGE;1.2.0.1

 +19       QUIT

BGOIN004.m