- 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 Feb 19, 2025@00:27:07 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