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

NUR20PST.m

Go to the documentation of this file.
  1. NUR20PST ; HCIOFO/MD-Post-Init for Patch 20
  1. ;;4.0;NURSING SERVICE;**20**;Apr 25, 1997
  1. D BMES^XPDUTL("Removing old 'SERVICE COMPUTATION DATE' data from the NURS Staff (#210) file....")
  1. S DA=0 F S DA=$O(^NURSF(210,DA)) Q:DA'>0 I $D(^NURSF(210,DA,0)) S $P(^(0),U,7)=""
  1. QUIT K DA
  1. D BMES^XPDUTL("Done")
  1. Q
  1. ;