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 Dec 13, 2024@02:34:17 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
