DPTV53PT ;alb/mjk - Patient File Post-Init Driver for v5.3 ; 3/26/93
;;5.3;Patient File;;Aug 13, 1993
;
EN ; -- main entry point
D LINE^DGVPP,IRT ; change name of IRT file
D LINE^DGVPP
ENQ Q
;
IRT ; -- change name of file #393.3 to avoid mistakes during install
N DIE,DA,DR,DQ
W !!,">>> Changing name of 'IRT TYPE OF RECORD' file (#393.3)"
W !," to 'IRT TYPE OF DEFICIENCY'..."
S DA=393.3,DR=".01///IRT TYPE OF DEFICIENCY",DIE=1 D ^DIE
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDPTV53PT 465 printed Dec 13, 2024@03:01:05 Page 2
DPTV53PT ;alb/mjk - Patient File Post-Init Driver for v5.3 ; 3/26/93
+1 ;;5.3;Patient File;;Aug 13, 1993
+2 ;
EN ; -- main entry point
+1 ; change name of IRT file
DO LINE^DGVPP
DO IRT
+2 DO LINE^DGVPP
ENQ QUIT
+1 ;
IRT ; -- change name of file #393.3 to avoid mistakes during install
+1 NEW DIE,DA,DR,DQ
+2 WRITE !!,">>> Changing name of 'IRT TYPE OF RECORD' file (#393.3)"
+3 WRITE !," to 'IRT TYPE OF DEFICIENCY'..."
+4 SET DA=393.3
SET DR=".01///IRT TYPE OF DEFICIENCY"
SET DIE=1
DO ^DIE
+5 QUIT
