- 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 Mar 13, 2025@21:39:50 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 ;-----------------------------------------------------------------------
