IBY582PR ;EDE/TAZ - Pre-Installation for IB patch 582 ;
;;2.0;INTEGRATED BILLING;**582**;21-MAR-94;Build 77
;;Per VA Directive 6402, this routine should not be modified.
;
INC200(Y) ; function to determine if entry in NEW PERSON FILE (200) should be included in the build
; Y - ien to file
N DATA,ENTRY,LN,OK,TAG
S OK=0,ENTRY=U_$P($G(^VA(200,Y,0)),U,1)_U
F LN=2:1 S TAG="ENT200+"_LN,DATA=$P($T(@TAG),";;",2) Q:DATA="" I $F(DATA,ENTRY) S OK=1 Q
Q OK
;
ENT200 ;Entries in VA(200) to be included.
;
;;^INTERFACE,IB EIV^
;
;-----------------------------------------------------------------------
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY582PR 622 printed Dec 13, 2024@02:34:40 Page 2
IBY582PR ;EDE/TAZ - Pre-Installation for IB patch 582 ;
+1 ;;2.0;INTEGRATED BILLING;**582**;21-MAR-94;Build 77
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
INC200(Y) ; function to determine if entry in NEW PERSON FILE (200) 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(^VA(200,Y,0)),U,1)_U
+4 FOR LN=2:1
SET TAG="ENT200+"_LN
SET DATA=$PIECE($TEXT(@TAG),";;",2)
if DATA=""
QUIT
IF $FIND(DATA,ENTRY)
SET OK=1
QUIT
+5 QUIT OK
+6 ;
ENT200 ;Entries in VA(200) to be included.
+1 ;
+2 ;;^INTERFACE,IB EIV^
+3 ;
+4 ;-----------------------------------------------------------------------
