IB20P414.m

IB20P414 ;ALB/ESG - Pre-Installation for IB patch 414 ;10-Feb-2009

 ;;2.0;INTEGRATED BILLING;**414**;21-MAR-94;Build 1

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 ;

EN ; delete all output formatter data elements included in build

 D DELOF       ; delete all output formatter data elements included in build

 ;

 Q

 ;

 ;

DELOF ; Delete included output formatter entries

 N FILE,DIK,LN,TAG,DATA,PCE,DA,Y

 F FILE=6,7 S DIK="^IBA(364."_FILE_"," F LN=2:1 S TAG="ENT"_FILE_"+"_LN,DATA=$P($T(@TAG),";;",2) Q:DATA=""  D

 . F PCE=2:1 S DA=$P(DATA,U,PCE) Q:'DA  I $D(^IBA("364."_FILE,DA,0)) D ^DIK

 . Q

 ;  

DELOFX ;

 Q

 ;

 ;

 ;----------------------------------------------------------------------

 ; 364.6 entries modified:

ENT6     ; output formatter entries in file 364.6 to be included

 ;

 ;;^174^180^

 ;;

 ;

 ;

 ;----------------------------------------------------------------------

 ; 364.7 entries modified:

 ;

ENT7 ; output formatter entries in file 364.7 to be included

 ;

 ;;^160^

 ;;

 ;

 ;

 ;----------------------------------------------------------------------

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IB20P414   1128     printed  Apr 09, 2024@21:35:03                                                                                                                                                                                                    Page 2

IB20P414  ;ALB/ESG - Pre-Installation for IB patch 414 ;10-Feb-2009

 +1       ;;2.0;INTEGRATED BILLING;**414**;21-MAR-94;Build 1

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

EN        ; delete all output formatter data elements included in build

 +1       ; delete all output formatter data elements included in build

           DO DELOF

 +2       ;

 +3        QUIT 

 +4       ;

 +5       ;

DELOF     ; Delete included output formatter entries

 +1        NEW FILE,DIK,LN,TAG,DATA,PCE,DA,Y

 +2        FOR FILE=6,7

               SET DIK="^IBA(364."_FILE_","

               FOR LN=2:1

                   SET TAG="ENT"_FILE_"+"_LN

                   SET DATA=$PIECE($TEXT(@TAG),";;",2)

                   if DATA=""

                       QUIT 

                   Begin DoDot:1

 +3                    FOR PCE=2:1

                           SET DA=$PIECE(DATA,U,PCE)

                           if 'DA

                               QUIT 

                           IF $DATA(^IBA("364."_FILE,DA,0))

                               DO ^DIK

 +4                    QUIT 

                   End DoDot:1

 +5       ;  

DELOFX    ;

 +1        QUIT 

 +2       ;

 +3       ;

 +4       ;----------------------------------------------------------------------

 +5       ; 364.6 entries modified:

ENT6      ; output formatter entries in file 364.6 to be included

 +1       ;

 +2       ;;^174^180^

 +3       ;;

 +4       ;

 +5       ;

 +6       ;----------------------------------------------------------------------

 +7       ; 364.7 entries modified:

 +8       ;

ENT7      ; output formatter entries in file 364.7 to be included

 +1       ;

 +2       ;;^160^

 +3       ;;

 +4       ;

 +5       ;

 +6       ;----------------------------------------------------------------------