- 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 Feb 18, 2025@23:27:38 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 ;