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

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

initial load of WorldVistAEHR

File size: 222 bytes
RevLine 
[613]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.