BGOIN010 ; IHS/MSC/PLS - BGO*1.1*10 ;16-May-2012 10:06;PLS
;;1.1;BGO COMPONENTS;**10**;Mar 20, 2007
EC Q
; Preinit
PRE ;
N USES,FDA,PID,IEN,X,MSOCX
S MSOCX=$$FIND1^DIC(19930.2,,,"FILE:MSCOMCT2.OCX")
Q:'MSOCX
S FDA(19930.2,MSOCX_",",13)=1
F USES=0:1 S X=$P($T(USES+USES),";;",2) Q:'$L(X) D
.S PID=$$PRGID^CIAVMCFG($P(X,";"))
.D:PID
..; Find IEN of entry in USES multiple
..S IEN=$O(^CIAVOBJ(19930.2,PID,9,"B",MSOCX,0)) Q:'IEN D
...S FDA(19930.221,IEN_","_PID_",",.01)="@"
D:$D(FDA) FILE^DIE(,"FDA")
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 ;;IHSBGOVPOV.BGOVPOV;1.2.0.32;8F13AB842DAB0DABBD93FE009E6BEC86
;;IHSBGOPOVHISTORY.BGOPOVHISTORY;1.2.0.23;C20681C08B99AE2BA8B463702583B45F
;;IHSBGOREPFACTORS.IHSBGOREPFACTORSCTRL;1.2.0.158;01182500AA617782CD10E11767929809
;;IHSBGOIMMUNIZATION.BGOIMM;1.2.0.103;50C1D50591111C46A3C8DA45B74DEC5A
;;IHSBGOREPHISTORY.IHSBGOREPHISTCTRL;1.2.0.23;5FFA21C3D3A5DA555197B67661543AE5
;;FILE:IHSBGOVCDATE.OCX;1.1.0.61;7BA1841F813D1E3952C0ADE171AED32C
;;IHSBGOVCPT.BGOVCPT;1.2.0.62;B7ACDAD96A4C9FA25D4C7489DCBB2DAB
;;
USES ;;IHSBGOIMMUNIZATION.BGOIMM
;;IHSBGOREPHISTORY.IHSBGOREPHISTCTRL
;;IHSBGOVCPT.BGOVCPT
;;IHSBGOFAMHX.BGOFAMHX
;;IHSBGOPROBLEM.BGOPROBLEM
;;IHSBGOACTIVITYTIME.IHSBGOACTTIMECTRL
;;IHSBGOITEMS.BGOITEMS
;;IHSBGOSKINTEST.IHSBGOSK
;;IHSBGOICDPICKLIST.ICDPICKLIST
;;
BGOIN010 ; IHS/MSC/PLS - BGO*1.1*10 ;16-May-2012 10:06;PLS
+1 ;;1.1;BGO COMPONENTS;**10**;Mar 20, 2007
EC QUIT
+1 ; Preinit
PRE ;
+1 NEW USES,FDA,PID,IEN,X,MSOCX
+2 SET MSOCX=$$FIND1^DIC(19930.2,,,"FILE:MSCOMCT2.OCX")
+3 IF 'MSOCX
QUIT
+4 SET FDA(19930.2,MSOCX_",",13)=1
+5 FOR USES=0:1
SET X=$PIECE($TEXT(USES+USES),";;",2)
IF '$LENGTH(X)
QUIT
Begin DoDot:1
+6 SET PID=$$PRGID^CIAVMCFG($PIECE(X,";"))
+7 IF PID
Begin DoDot:2
+8 ; Find IEN of entry in USES multiple
+9 SET IEN=$ORDER(^CIAVOBJ(19930.2,PID,9,"B",MSOCX,0))
IF 'IEN
QUIT
Begin DoDot:3
+10 SET FDA(19930.221,IEN_","_PID_",",.01)="@"
End DoDot:3
End DoDot:2
End DoDot:1
+11 IF $DATA(FDA)
DO FILE^DIE(,"FDA")
+12 QUIT
+13 ; 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 ;;IHSBGOVPOV.BGOVPOV;1.2.0.32;8F13AB842DAB0DABBD93FE009E6BEC86
+1 ;;IHSBGOPOVHISTORY.BGOPOVHISTORY;1.2.0.23;C20681C08B99AE2BA8B463702583B45F
+2 ;;IHSBGOREPFACTORS.IHSBGOREPFACTORSCTRL;1.2.0.158;01182500AA617782CD10E11767929809
+3 ;;IHSBGOIMMUNIZATION.BGOIMM;1.2.0.103;50C1D50591111C46A3C8DA45B74DEC5A
+4 ;;IHSBGOREPHISTORY.IHSBGOREPHISTCTRL;1.2.0.23;5FFA21C3D3A5DA555197B67661543AE5
+5 ;;FILE:IHSBGOVCDATE.OCX;1.1.0.61;7BA1841F813D1E3952C0ADE171AED32C
+6 ;;IHSBGOVCPT.BGOVCPT;1.2.0.62;B7ACDAD96A4C9FA25D4C7489DCBB2DAB
+7 ;;
USES ;;IHSBGOIMMUNIZATION.BGOIMM
+1 ;;IHSBGOREPHISTORY.IHSBGOREPHISTCTRL
+2 ;;IHSBGOVCPT.BGOVCPT
+3 ;;IHSBGOFAMHX.BGOFAMHX
+4 ;;IHSBGOPROBLEM.BGOPROBLEM
+5 ;;IHSBGOACTIVITYTIME.IHSBGOACTTIMECTRL
+6 ;;IHSBGOITEMS.BGOITEMS
+7 ;;IHSBGOSKINTEST.IHSBGOSK
+8 ;;IHSBGOICDPICKLIST.ICDPICKLIST
+9 ;;
