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

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

initial load of WorldVistAEHR

File size: 451 bytes
RevLine 
[613]1DPTV53PT ;alb/mjk - Patient File Post-Init Driver for v5.3 ; 3/26/93
2 ;;5.3;Patient File;;Aug 13, 1993
3 ;
4EN ; -- main entry point
5 D LINE^DGVPP,IRT ; change name of IRT file
6 D LINE^DGVPP
7ENQ Q
8 ;
9IRT ; -- change name of file #393.3 to avoid mistakes during install
10 N DIE,DA,DR,DQ
11 W !!,">>> Changing name of 'IRT TYPE OF RECORD' file (#393.3)"
12 W !," to 'IRT TYPE OF DEFICIENCY'..."
13 S DA=393.3,DR=".01///IRT TYPE OF DEFICIENCY",DIE=1 D ^DIE
14 Q
Note: See TracBrowser for help on using the repository browser.