DGYQPRE.m

DGYQPRE ;AISC/TET - PRE INIT TO PATCH DG*5.3*41

 ;;5.3;Registration;**41,1015**;Aug 13, 1993;Build 21

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

DGYQPRE   ;AISC/TET - PRE INIT TO PATCH DG*5.3*41

 +1       ;;5.3;Registration;**41,1015**;Aug 13, 1993;Build 21

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