NUR2PRE.m

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 ---NUR2PRE   363     printed  Apr 09, 2024@21:24:18                                                                                                                                                                                                      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