Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: NUR2PRE

NUR2PRE.m

Go to the documentation of this file.

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

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