IBY473PR.m

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 ---IBY473PR   1634     printed  Apr 09, 2024@21:36:11                                                                                                                                                                                                    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