IB20A436 ;BP-OIFO/RBN - PRE-INSTALL FOR IB*2.0*436; 11/25/2008 ; 7/21/2010
;;2.0;INTEGRATED BILLING;**436**;21-MAR-94;Build 31
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
; DESCRIPTION: This routine is the preinstall routine for IB*2.0*436. It deletes
; two triggers, one on filed #.01 and the other on field #.02 of
; file #355.93
;
; INPUTS : None
;
; OUTPUTS : None
;
; VARIABLES : None
;
;
; GLOBALS : ^IBA(355.93 - The VistA IB NON/OTHER VA BILLING PROVIDER file
;
;
; FUNCTIONS : None
;
; SUBROUTINES : None
;
;
; HISTORY : Original version - 9 September 2010
;
;
;
EN ;
D DELXRF
Q
;
DELXRF ; Delete triggers 3 and 8 from file 355.9 fields .01 and .02 respectively.
D DELIX^DDMOD(355.93,.01,3)
D DELIX^DDMOD(355.93,.02,8)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20A436 924 printed Dec 13, 2024@02:01:16 Page 2
IB20A436 ;BP-OIFO/RBN - PRE-INSTALL FOR IB*2.0*436; 11/25/2008 ; 7/21/2010
+1 ;;2.0;INTEGRATED BILLING;**436**;21-MAR-94;Build 31
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
+4 ; DESCRIPTION: This routine is the preinstall routine for IB*2.0*436. It deletes
+5 ; two triggers, one on filed #.01 and the other on field #.02 of
+6 ; file #355.93
+7 ;
+8 ; INPUTS : None
+9 ;
+10 ; OUTPUTS : None
+11 ;
+12 ; VARIABLES : None
+13 ;
+14 ;
+15 ; GLOBALS : ^IBA(355.93 - The VistA IB NON/OTHER VA BILLING PROVIDER file
+16 ;
+17 ;
+18 ; FUNCTIONS : None
+19 ;
+20 ; SUBROUTINES : None
+21 ;
+22 ;
+23 ; HISTORY : Original version - 9 September 2010
+24 ;
+25 ;
+26 ;
EN ;
+1 DO DELXRF
+2 QUIT
+3 ;
DELXRF ; Delete triggers 3 and 8 from file 355.9 fields .01 and .02 respectively.
+1 DO DELIX^DDMOD(355.93,.01,3)
+2 DO DELIX^DDMOD(355.93,.02,8)
+3 QUIT
+4 ;
