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

DGYJPT.m

Go to the documentation of this file.
  1. DGYJPT ;ALB/REW - DG*5.3*32 (DGYJ PATIENT LOOK-UP) POST-INIT ; 03 MAY 94
  1. ;;5.3;Registration;**32**;Aug 13, 1993
  1. ;
  1. ; This removes the SERVICE CONNECTED? Field (#.301) of the PATIENT File
  1. ; as an identifier.
  1. EN ;
  1. W !,">>> Removing the 'SERVICE CONNECTED?' Field as an identifier of the PATIENT File"
  1. K ^DD(2,0,"ID",.301)
  1. W !!," ...Done."
  1. Q