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

RG7POST.m

Go to the documentation of this file.
  1. RG7POST ;BIR/PTD-RG*1*7 PATCH POST-INIT ROUTINE ;07/12/00
  1. ;;1.0;CLINICAL INFO RESOURCE NETWORK;**7**;30 Apr 99
  1. Q ;Quit if called from the top.
  1. EN ; Eliminate data in the AUTO ACCEPT DEMOGRAPHICS (#11) field.
  1. L +^RGSITE(991.8):10
  1. S DIE="^RGSITE(991.8,",DA=1,DR="11///@"
  1. D ^DIE K DA,DIE,DR
  1. L -^RGSITE(991.8)
  1. ; Delete the AUTO ACCEPT DEMOGRAPHICS (#11) field in the
  1. ; CIRN SITE PARAMETER (#991.8) file.
  1. S DIK="^DD(991.8,",DA=11,DA(1)=991.8
  1. D ^DIK
  1. K DA,DIC,DIK,X,Y
  1. Q