- IBY473PR ;ALB/BI - Pre-Installation for IB patch 473 ;2-Feb-2012
- ;;2.0;INTEGRATED BILLING;**473**;2-FEB-12;Build 29
- ;;Per VHA Directive 2004-038, this routine should not be modified.
- ;
- Q
- ;
- INCLUDE(FILE,Y) ; function to determine if O.F. entry should be included in the build
- ; FILE=5,6,7 indicating file 364.x
- ; Y=ien to file
- NEW OK,LN,TAG,DATA
- S OK=0
- F LN=2:1 S TAG="ENT"_FILE_"+"_LN,DATA=$P($T(@TAG),";;",2) Q:DATA="" I $F(DATA,U_Y_U) S OK=1 Q
- Q OK
- ;-----------------------------------------------------------------------
- ; 364.5 entries modified:
- ; 125 - OI1.8 (Other Payer Paid Amt)
- ;
- ENT5 ; O.F. entries in file 364.5 to be included
- ;
- ;;^125^
- ;
- ;-----------------------------------------------------------------------
- ; 364.6 entries modified:
- ; 2228 - Remaining Liability Qualifier
- ; 2229 - Remaining Liability
- ;
- ENT6 ; O.F. entries in file 364.6 to be included
- ;
- ;;^2228^2229^
- ;
- ;-----------------------------------------------------------------------
- ; 364.7 entries modified:
- ; 164 - OI1.8
- ; 957 - LCOB.4
- ; 1928 - LCOB.16 (Remaining Liability Qualifier)
- ; 1929 - LCOB.17 (Remaining Liability)
- ;
- ENT7 ; O.F. entries in file 364.7 to be included
- ;
- ;;^164^957^1928^1929^
- ;
- INC3508(Y) ; function to determine if entry in IB ERROR file (350.8) should be included in the build
- ; Y - ien to file
- N DATA,ENTRY,LN,OK,TAG
- S OK=0,ENTRY=U_$P($G(^IBE(350.8,Y,0)),U,3)_U
- F LN=2:1 S TAG="ENT3508+"_LN,DATA=$P($T(@TAG),";;",2) Q:DATA="" I $F(DATA,ENTRY) S OK=1 Q
- Q OK
- ;
- ENT3508 ; entries in file 350.8 to be included
- ;
- ;;^IB350^IB351^
- ;;
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY473PR 1634 printed Mar 13, 2025@21:39:27 Page 2
- IBY473PR ;ALB/BI - Pre-Installation for IB patch 473 ;2-Feb-2012
- +1 ;;2.0;INTEGRATED BILLING;**473**;2-FEB-12;Build 29
- +2 ;;Per VHA Directive 2004-038, this routine should not be modified.
- +3 ;
- +4 QUIT
- +5 ;
- INCLUDE(FILE,Y) ; function to determine if O.F. entry should be included in the build
- +1 ; FILE=5,6,7 indicating file 364.x
- +2 ; Y=ien to file
- +3 NEW OK,LN,TAG,DATA
- +4 SET OK=0
- +5 FOR LN=2:1
- SET TAG="ENT"_FILE_"+"_LN
- SET DATA=$PIECE($TEXT(@TAG),";;",2)
- if DATA=""
- QUIT
- IF $FIND(DATA,U_Y_U)
- SET OK=1
- QUIT
- +6 QUIT OK
- +7 ;-----------------------------------------------------------------------
- +8 ; 364.5 entries modified:
- +9 ; 125 - OI1.8 (Other Payer Paid Amt)
- +10 ;
- ENT5 ; O.F. entries in file 364.5 to be included
- +1 ;
- +2 ;;^125^
- +3 ;
- +4 ;-----------------------------------------------------------------------
- +5 ; 364.6 entries modified:
- +6 ; 2228 - Remaining Liability Qualifier
- +7 ; 2229 - Remaining Liability
- +8 ;
- ENT6 ; O.F. entries in file 364.6 to be included
- +1 ;
- +2 ;;^2228^2229^
- +3 ;
- +4 ;-----------------------------------------------------------------------
- +5 ; 364.7 entries modified:
- +6 ; 164 - OI1.8
- +7 ; 957 - LCOB.4
- +8 ; 1928 - LCOB.16 (Remaining Liability Qualifier)
- +9 ; 1929 - LCOB.17 (Remaining Liability)
- +10 ;
- ENT7 ; O.F. entries in file 364.7 to be included
- +1 ;
- +2 ;;^164^957^1928^1929^
- +3 ;
- INC3508(Y) ; function to determine if entry in IB ERROR file (350.8) should be included in the build
- +1 ; Y - ien to file
- +2 NEW DATA,ENTRY,LN,OK,TAG
- +3 SET OK=0
- SET ENTRY=U_$PIECE($GET(^IBE(350.8,Y,0)),U,3)_U
- +4 FOR LN=2:1
- SET TAG="ENT3508+"_LN
- SET DATA=$PIECE($TEXT(@TAG),";;",2)
- if DATA=""
- QUIT
- IF $FIND(DATA,ENTRY)
- SET OK=1
- QUIT
- +5 QUIT OK
- +6 ;
- ENT3508 ; entries in file 350.8 to be included
- +1 ;
- +2 ;;^IB350^IB351^
- +3 ;;
- +4 QUIT
