NUR20PST.m

NUR20PST ; HCIOFO/MD-Post-Init for Patch 20

 ;;4.0;NURSING SERVICE;**20**;Apr 25, 1997

 D BMES^XPDUTL("Removing old 'SERVICE COMPUTATION DATE' data from the NURS Staff (#210) file....")

 S DA=0 F  S DA=$O(^NURSF(210,DA)) Q:DA'>0  I $D(^NURSF(210,DA,0)) S $P(^(0),U,7)=""

QUIT K DA

 D BMES^XPDUTL("Done")

 Q

 ;

NUR20PST  ; HCIOFO/MD-Post-Init for Patch 20

 +1       ;;4.0;NURSING SERVICE;**20**;Apr 25, 1997

 +2        DO BMES^XPDUTL("Removing old 'SERVICE COMPUTATION DATE' data from the NURS Staff (#210) file....")

 +3        SET DA=0

           FOR 

               SET DA=$ORDER(^NURSF(210,DA))

               IF DA'>0

                   QUIT 

               IF $DATA(^NURSF(210,DA,0))

                   SET $PIECE(^(0),U,7)=""

QUIT       KILL DA

 +1        DO BMES^XPDUTL("Done")

 +2        QUIT 

 +3       ;