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 ---[H[J[2J[HIB20P414 1128 printed Dec 13, 2024@02:02:45 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 ;----------------------------------------------------------------------
