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

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

initial load of FOIAVistA 6/30/08 version
File size: 222 bytes
Line 
1DPTVPR ;alb/mjk - Patient File Specific Init Driver ; 3/26/93
2 ;;5.3;Patient File;;Aug 13, 1993
3 ;
4EN ; -- main entry point
5 S XQABT3=$H
6 D H^DGUTL
7 S DPTIME(104)=DGTIME D H^DGUTL S DPTIME(105)=DGTIME
8 D EN^DPTV53PR
9ENQ Q
Note: See TracBrowser for help on using the repository browser.