- DGYJPT ;ALB/REW - DG*5.3*32 (DGYJ PATIENT LOOK-UP) POST-INIT ; 03 MAY 94
- ;;5.3;Registration;**32**;Aug 13, 1993
- ;
- ; This removes the SERVICE CONNECTED? Field (#.301) of the PATIENT File
- ; as an identifier.
- EN ;
- W !,">>> Removing the 'SERVICE CONNECTED?' Field as an identifier of the PATIENT File"
- K ^DD(2,0,"ID",.301)
- W !!," ...Done."
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGYJPT 356 printed Jan 18, 2025@04:00:50 Page 2
- DGYJPT ;ALB/REW - DG*5.3*32 (DGYJ PATIENT LOOK-UP) POST-INIT ; 03 MAY 94
- +1 ;;5.3;Registration;**32**;Aug 13, 1993
- +2 ;
- +3 ; This removes the SERVICE CONNECTED? Field (#.301) of the PATIENT File
- +4 ; as an identifier.
- EN ;
- +1 WRITE !,">>> Removing the 'SERVICE CONNECTED?' Field as an identifier of the PATIENT File"
- +2 KILL ^DD(2,0,"ID",.301)
- +3 WRITE !!," ...Done."
- +4 QUIT