source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGYJPT.m@ 1128

Last change on this file since 1128 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 346 bytes
Line 
1DGYJPT ;ALB/REW - DG*5.3*32 (DGYJ PATIENT LOOK-UP) POST-INIT ; 03 MAY 94
2 ;;5.3;Registration;**32**;Aug 13, 1993
3 ;
4 ; This removes the SERVICE CONNECTED? Field (#.301) of the PATIENT File
5 ; as an identifier.
6EN ;
7 W !,">>> Removing the 'SERVICE CONNECTED?' Field as an identifier of the PATIENT File"
8 K ^DD(2,0,"ID",.301)
9 W !!," ...Done."
10 Q
Note: See TracBrowser for help on using the repository browser.