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

PSNP476E.m

Go to the documentation of this file.
  1. PSNP476E ;BIR/PWC - Environment check for VA PRODUCT FILE ;08/03/16
  1. ;;4.0;NATIONAL DRUG FILE;**476**; 30 Oct 98;Build 26
  1. ;
  1. ; This routine will delete the REDUCED COPAY fields that might exist
  1. ; at field #45 in the VA PRODUCT FILE #50.68.
  1. ; FMCT project replaced the non-used, but released fields for
  1. ; REDUCED COPAY and added COPAY TIER. When sending the updated DD files,
  1. ; sites that have REDUCED COPAY installed will have an issue with new fields
  1. ; being defined. This routine will take care of that problem.
  1. Q
  1. ;
  1. EN ;
  1. D BMES^XPDUTL("Removing old unused fields to be replaced")
  1. S DIU=50.6845,DIU(0)="S" D EN^DIU2 K DIU
  1. D BMES^XPDUTL("Process complete for removal of old data fields")
  1. Q