IBY582PR.m

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 ---IBY582PR   622     printed  Apr 09, 2024@21:30:08                                                                                                                                                                                                     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       ;-----------------------------------------------------------------------