- 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
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNUR20PST 318 printed Feb 18, 2025@23:44:28 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 ;