- NUR2PRE ;HIRMFO/RM-PATCH NUR*4*2 PREINIT 8/97
- ;;4.0;NURSING SERVICE;**2**;Apr 25, 1997
- D BMES^XPDUTL("Removing data from the BUDGETED SVC. CATEGORY field in the NURS POSITION CONTROL (#211.8) File. Field Definition is changing to Computed.")
- S DA=0 F S DA=$O(^NURSF(211.8,DA)) Q:DA'>0 I $D(^NURSF(211.8,DA,0)) W:'$D(ZTQUEUED) "." S $P(^(0),"^",3)=""
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNUR2PRE 363 printed Jan 18, 2025@03:19:14 Page 2
- NUR2PRE ;HIRMFO/RM-PATCH NUR*4*2 PREINIT 8/97
- +1 ;;4.0;NURSING SERVICE;**2**;Apr 25, 1997
- +2 DO BMES^XPDUTL("Removing data from the BUDGETED SVC. CATEGORY field in the NURS POSITION CONTROL (#211.8) File. Field Definition is changing to Computed.")
- +3 SET DA=0
- FOR
- SET DA=$ORDER(^NURSF(211.8,DA))
- if DA'>0
- QUIT
- IF $DATA(^NURSF(211.8,DA,0))
- if '$DATA(ZTQUEUED)
- WRITE "."
- SET $PIECE(^(0),"^",3)=""
- +4 QUIT