DGYQPRE ;AISC/TET - PRE INIT TO PATCH DG*5.3*41
;;5.3;Registration;**41**;Aug 13, 1993
PRE ;pre init after committment
;delete field in multiple of file 2 (Patient), field 1000 (disp log enter/edit), subfile 2.101, field 3 (facility applying to)
S DIK="^DD(2.101,",DA=3,DA(1)=2.101 D ^DIK
K DA,DIK Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGYQPRE 310 printed Dec 13, 2024@03:00:38 Page 2
DGYQPRE ;AISC/TET - PRE INIT TO PATCH DG*5.3*41
+1 ;;5.3;Registration;**41**;Aug 13, 1993
PRE ;pre init after committment
+1 ;delete field in multiple of file 2 (Patient), field 1000 (disp log enter/edit), subfile 2.101, field 3 (facility applying to)
+2 SET DIK="^DD(2.101,"
SET DA=3
SET DA(1)=2.101
DO ^DIK
+3 KILL DA,DIK
QUIT