NURACUIT.m

NURACUIT ;HIRMFO/MD-ROUTINE TO REPAIR FUTURE ACUITY DATA FROM ERRONEOUS BATCH RUN

 ;;4.0;NURSING SERVICE;;Apr 25, 1997

 ; This routine should be run in the event the Nursing AMIS Acuity

 ; Separation/Activation batch job erroneously creates future data

 ; entries in the NURS AMIS Daily Exception Report (#213.5), NURS AMIS

 ; 1106 Manhours (#213.4) and NURS Parameters (#213.9) files.

 ; 

 D EN1,EN2,EN3

 W !,"Done"

KILL ;

 K DA,DIK,NURSX,RUNDATE,X,Y

 Q

EN1 ; Remove future date entries from the unclassified report (#213.5) file.

 ; There should be no unclassified report file entries later than T-1.

 ;

 W !,"Removing future date entries from the NURS AMIS Daily Exception Report",!,"(#213.5) file"

 S X="T-1" D ^%DT S RUNDATE=Y

 I +$G(RUNDATE) S NURSX=0,DIK="^NURSA(213.5," F  S NURSX=$O(^NURSA(213.5,"B",NURSX)) Q:NURSX'>0  I NURSX>RUNDATE S DA=0 F  S DA=$O(^NURSA(213.5,"B",NURSX,DA)) Q:'DA  D ^DIK W "."

 G KILL

EN2 ; Remove acuity data from future date entries in manhours file (#213.4).

 ;

 W !,"Removing acuity data from future date entries in the NURS AMIS 1106 Manhours",!,"file (#213.4)"

 S NURSX=DT_"A"

 I $G(NURSX)'="" F  S NURSX=$O(^NURSA(213.4,"B",NURSX)) Q:NURSX=""  S DA(1)=0 F  S DA(1)=$O(^NURSA(213.4,"B",NURSX,DA(1))) Q:DA(1)'>0  D

 .S DA=0 F  S DA=$O(^NURSA(213.4,DA(1),1,DA)) Q:DA'>0  D

 ..S DIK="^NURSA(213.4,DA(1),1,"

 ..D ^DIK W "."

 ..Q

 .Q

 G KILL

EN3 ; Reset Date node in site parameter file to current date if date is

 ; in the future.

 ;

 W !,"Resetting ^DIC(213.9,1,""DATE"") to today's date if it is a future date."

 I +$G(^DIC(213.9,1,"DATE"))>DT S $P(^DIC(213.9,1,"DATE"),"^")=DT

 G KILL

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---NURACUIT   1660     printed  Apr 09, 2024@21:23:44                                                                                                                                                                                                    Page 2

NURACUIT  ;HIRMFO/MD-ROUTINE TO REPAIR FUTURE ACUITY DATA FROM ERRONEOUS BATCH RUN

 +1       ;;4.0;NURSING SERVICE;;Apr 25, 1997

 +2       ; This routine should be run in the event the Nursing AMIS Acuity

 +3       ; Separation/Activation batch job erroneously creates future data

 +4       ; entries in the NURS AMIS Daily Exception Report (#213.5), NURS AMIS

 +5       ; 1106 Manhours (#213.4) and NURS Parameters (#213.9) files.

 +6       ; 

 +7        DO EN1

           DO EN2

           DO EN3

 +8        WRITE !,"Done"

KILL      ;

 +1        KILL DA,DIK,NURSX,RUNDATE,X,Y

 +2        QUIT 

EN1       ; Remove future date entries from the unclassified report (#213.5) file.

 +1       ; There should be no unclassified report file entries later than T-1.

 +2       ;

 +3        WRITE !,"Removing future date entries from the NURS AMIS Daily Exception Report",!,"(#213.5) file"

 +4        SET X="T-1"

           DO ^%DT

           SET RUNDATE=Y

 +5        IF +$GET(RUNDATE)

               SET NURSX=0

               SET DIK="^NURSA(213.5,"

               FOR 

                   SET NURSX=$ORDER(^NURSA(213.5,"B",NURSX))

                   if NURSX'>0

                       QUIT 

                   IF NURSX>RUNDATE

                       SET DA=0

                       FOR 

                           SET DA=$ORDER(^NURSA(213.5,"B",NURSX,DA))

                           if 'DA

                               QUIT 

                           DO ^DIK

                           WRITE "."

 +6        GOTO KILL

EN2       ; Remove acuity data from future date entries in manhours file (#213.4).

 +1       ;

 +2        WRITE !,"Removing acuity data from future date entries in the NURS AMIS 1106 Manhours",!,"file (#213.4)"

 +3        SET NURSX=DT_"A"

 +4        IF $GET(NURSX)'=""

               FOR 

                   SET NURSX=$ORDER(^NURSA(213.4,"B",NURSX))

                   if NURSX=""

                       QUIT 

                   SET DA(1)=0

                   FOR 

                       SET DA(1)=$ORDER(^NURSA(213.4,"B",NURSX,DA(1)))

                       if DA(1)'>0

                           QUIT 

                       Begin DoDot:1

 +5                        SET DA=0

                           FOR 

                               SET DA=$ORDER(^NURSA(213.4,DA(1),1,DA))

                               if DA'>0

                                   QUIT 

                               Begin DoDot:2

 +6                                SET DIK="^NURSA(213.4,DA(1),1,"

 +7                                DO ^DIK

                                   WRITE "."

 +8                                QUIT 

                               End DoDot:2

 +9                        QUIT 

                       End DoDot:1

 +10       GOTO KILL

EN3       ; Reset Date node in site parameter file to current date if date is

 +1       ; in the future.

 +2       ;

 +3        WRITE !,"Resetting ^DIC(213.9,1,""DATE"") to today's date if it is a future date."

 +4        IF +$GET(^DIC(213.9,1,"DATE"))>DT

               SET $PIECE(^DIC(213.9,1,"DATE"),"^")=DT

 +5        GOTO KILL