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 Dec 13, 2024@02:18:04 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
