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

DPTV53PT.m

Go to the documentation of this file.
  1. DPTV53PT ;alb/mjk - Patient File Post-Init Driver for v5.3 ; 3/26/93
  1. ;;5.3;Patient File;;Aug 13, 1993
  1. ;
  1. EN ; -- main entry point
  1. D LINE^DGVPP,IRT ; change name of IRT file
  1. D LINE^DGVPP
  1. ENQ Q
  1. ;
  1. IRT ; -- change name of file #393.3 to avoid mistakes during install
  1. N DIE,DA,DR,DQ
  1. W !!,">>> Changing name of 'IRT TYPE OF RECORD' file (#393.3)"
  1. W !," to 'IRT TYPE OF DEFICIENCY'..."
  1. S DA=393.3,DR=".01///IRT TYPE OF DEFICIENCY",DIE=1 D ^DIE
  1. Q