Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBY727PR

IBY727PR.m

Go to the documentation of this file.
  1. IBY727PR ;EDE/JRA - Pre-Installation for IB patch 727 ; 10/12/17 2:12 pm
  1. ;;2.0;INTEGRATED BILLING;**727**;21-MAR-94;Build 34
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ; delete all output formatter (O.F.) data elements included in build
  1. D DELOF
  1. Q
  1. ;
  1. INCLUDE(FILE,Y) ; function to determine if O.F. entry should be included in the build
  1. ; FILE=5,6,7 indicating file 364.x or FILE=8 indicating file 350.8 (IB ERROR)
  1. ; Y=ien to file
  1. NEW OK,LN,TAG,DATA
  1. S OK=0
  1. F LN=2:1 S TAG="ENT"_FILE_"+"_LN,DATA=$P($T(@TAG),";;",2) Q:DATA="" I $F(DATA,U_Y_U) S OK=1 Q
  1. Q OK
  1. ;
  1. ;Delete edited entries to insure clean install of new entries
  1. ;Delete obsolete entries.
  1. DELOF ; Delete included OF entries
  1. NEW FILE,DIK,LN,TAG,TAGLN,DATA,PCE,DA,Y
  1. F FILE=5:1:8 S DIK=$S(FILE=8:"^IBE(350.",1:"^IBA(364.")_FILE_"," D
  1. . F TAG="ENT"_FILE,"DEL"_FILE D
  1. .. F LN=2:1 S TAGLN=TAG_"+"_LN,DATA=$P($T(@TAGLN),";;",2) Q:DATA="" D
  1. ... F PCE=2:1 S DA=$P(DATA,U,PCE) Q:'DA D
  1. .... I FILE=8,$D(^IBE(350.8,DA,0)) D ^DIK
  1. .... Q:FILE=8
  1. .... I $D(^IBA("364."_FILE,DA,0)) D ^DIK
  1. Q
  1. ;
  1. ; Example for ENT5, ENT6, ENT7, ENT8, DEL5, DEL6, and DEL7:
  1. ;;^195^254^259^269^324^325^
  1. ; Note: Must have beginning and ending up-carat
  1. ;
  1. ;-----------------------------------------------------------------------
  1. ; 364.5 O.F. entries added:
  1. ;
  1. ;
  1. ENT5 ;O.F. entries in file 364.5 to be added
  1. ;
  1. ;;
  1. ;
  1. ;-----------------------------------------------------------------------
  1. ; 364.6 O.F. entries added:
  1. ;
  1. ;
  1. ENT6 ;O.F. entries in file 364.6 to be added
  1. ;
  1. ;;^2465^2466^
  1. ;
  1. ;2465 Procedure Modifier(3) (IB 837 TRANSMISSION)
  1. ;2466 Procedure Modifier(4) (IB 837 TRANSMISSION)
  1. ;
  1. ;-----------------------------------------------------------------------
  1. ; 364.7 O.F. entries added:
  1. ;
  1. ;
  1. ENT7 ; O.F. entries in file 364.7 to be added
  1. ;
  1. ;;^133^150^182^1015^
  1. ;
  1. ;133 N-GET FROM PREVIOUS EXTRACT (IB 837 TRANSMISSION)
  1. ;150 N-GET FROM PREVIOUS EXTRACT (IB 837 TRANSMISSION)
  1. ;182 N-GET FROM PREVIOUS EXTRACT (IB 837 TRANSMISSION)
  1. ;1015 GEN-7
  1. ;
  1. ;-----------------------------------------------------------------------
  1. ; 350.8 O.F. entries added:
  1. ;
  1. ;
  1. ENT8 ;O.F. entries in file 350.8 to be added
  1. ;
  1. ;;
  1. ;
  1. ;
  1. ;
  1. ;-----------------------------------------------------------------------
  1. ; 364.5 entries deleted:
  1. ;
  1. DEL5 ; remove O.F. entries in file 364.5 (not re-added)
  1. ;
  1. ;;
  1. ;
  1. ;-----------------------------------------------------------------------
  1. ; 364.6 entries deleted:
  1. ;
  1. DEL6 ; remove O.F. entries in file 364.6 (not re-added)
  1. ;
  1. ;;
  1. ;
  1. ;-----------------------------------------------------------------------
  1. ; 364.7 entries deleted:
  1. ;
  1. ;
  1. DEL7 ; remove O.F. entries in file 364.7 (not re-added)
  1. ;
  1. ;;
  1. ;
  1. ;-----------------------------------------------------------------------
  1. ; 350.8 Entries deleted:
  1. ;
  1. ;
  1. DEL8 ; remove entries from 350.8 (IB ERROR)
  1. ;
  1. ;;
  1. ;