Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: DGYQPRE

DGYQPRE.m

Go to the documentation of this file.

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  Apr 09, 2024@21:43:47                                                                                                                                                                                                      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