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.
  1. DGYQPRE ;AISC/TET - PRE INIT TO PATCH DG*5.3*41
  1. ;;5.3;Registration;**41**;Aug 13, 1993
  1. 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)
  1. S DIK="^DD(2.101,",DA=3,DA(1)=2.101 D ^DIK
  1. K DA,DIK Q