BGOIN012.m

BGOIN012 ; IHS/MSC/PLS - BGO*1.1*12 ;17-Apr-2013 16:11;PLS

 ;;1.1;BGO COMPONENTS;**12**;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 ;;IHSBGOSKINTEST.IHSBGOSK;1.2.0.128;8B38D8C09E4FE3A445F1A198733F5C24

 ;;

USES ;;

 ;;

BGOIN012  ; IHS/MSC/PLS - BGO*1.1*12 ;17-Apr-2013 16:11;PLS

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

EC         QUIT 

 +1       ; Preinit

PRE       ;

 +1        QUIT 

 +2       ; Postinit

POST      ;

 +1       ; Clean up menu items

 +2       ;D 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       ;;IHSBGOSKINTEST.IHSBGOSK;1.2.0.128;8B38D8C09E4FE3A445F1A198733F5C24

 +1       ;;

USES      ;;

 +1       ;;