BGOIN009.m

BGOIN009 ; IHS/MSC/PLS - BGO*1.1*9 ;04-Nov-2011 13:38;PLS

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

EC Q

 ; Preinit

PRE 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")

 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 ;;IHSBGOPATIENTED.BGOPATED;1.2.0.119;22C7E9AC84C5D5E4D5C77EDD4DD5A6DF

 ;;IHSBGOREPHISTORY.IHSBGOREPHISTCTRL;1.2.0.1;3C8875285B094701A508F150CF271E5F

 ;;IHSBGOVCPT.BGOVCPT;1.2.0.62;B7ACDAD96A4C9FA25D4C7489DCBB2DAB

 ;;IHSBGOPOVHISTORY.BGOPOVHISTORY;1.2.0.14;1E9362AA4899C1D5C5537D75E34C0F0C

 ;;IHSBGOVPOV.BGOVPOV;1.2.0.31;1D7CA1175A5A1DFD6B1B659D5369A95E

 ;;

BGOIN009  ; IHS/MSC/PLS - BGO*1.1*9 ;04-Nov-2011 13:38;PLS

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

EC         QUIT 

 +1       ; Preinit

PRE        QUIT 

 +1       ; Postinit

POST      ;

 +1       ; Clean up menu items

 +2        DO 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       QUIT 

 +13      ;

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       ;;IHSBGOPATIENTED.BGOPATED;1.2.0.119;22C7E9AC84C5D5E4D5C77EDD4DD5A6DF

 +1       ;;IHSBGOREPHISTORY.IHSBGOREPHISTCTRL;1.2.0.1;3C8875285B094701A508F150CF271E5F

 +2       ;;IHSBGOVCPT.BGOVCPT;1.2.0.62;B7ACDAD96A4C9FA25D4C7489DCBB2DAB

 +3       ;;IHSBGOPOVHISTORY.BGOPOVHISTORY;1.2.0.14;1E9362AA4899C1D5C5537D75E34C0F0C

 +4       ;;IHSBGOVPOV.BGOVPOV;1.2.0.31;1D7CA1175A5A1DFD6B1B659D5369A95E

 +5       ;;