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.

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")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNUR20PST   318     printed  Apr 09, 2024@21:22:56                                                                                                                                                                                                     Page 2

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       ;