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

MCPRGEN.m

Go to the documentation of this file.
  1. MCPRGEN ;HCIOFO/JCC-PRE INSTALL FOR G.P. (PATCH 8);5/23/97 09:21
  1. ;;2.3;Medicine;**8**;09/13/1996
  1. EN ;Delete two screens for Generalized Procedure
  1. N Y
  1. S Y=$O(^MCAR(697.3,"B","MCFSGEN",0)) G NEXT:Y=""
  1. S DIK="^MCAR(697.3,",DA=Y D ^DIK
  1. NEXT S Y=$O(^MCAR(697.3,"B","MCBSGEN",0)) G EXIT:Y=""
  1. S DIK="^MCAR(697.3,",DA=Y D ^DIK
  1. EXIT K DIK,DA
  1. Q