OOPSXV27.m

OOPSXV27 ;WIOFO/LLH-POST INIT ROUTINE, FILL FIELD 331 ;11/26/04

 ;;2.0;ASISTS;**7**;Jun 03, 2002

 ; Patch 7 - auto populate index "AF" from 1/1/2004 to date

 ;

ENT ;

 N IEN,FILE,FLD4,FLD88

 S FILE=2260,IEN=0

 D BMES^XPDUTL("Updating new index for OSHA 300 Log for cases created in 2004") H 1

 D MES^XPDUTL(" ")

 S FLD4=3040100

 F  S FLD4=$O(^OOPS(FILE,"AD",FLD4)) Q:FLD4'>0  D

 .S IEN=0 F   S IEN=$O(^OOPS(FILE,"AD",FLD4,IEN)) Q:IEN'>0  D

 ..S FLD88=$$GET1^DIQ(FILE,IEN,88,"I")

 ..I $G(FLD88)'="" S ^OOPS(FILE,"AF",FLD4,FLD88,IEN)=""

 D BMES^XPDUTL("Update Complete") H 1

 D MES^XPDUTL(" ")

 ;

 ; now update Type of Incident (FILE 2161.2)

 D BMES^XPDUTL("Updating ASISTS CRITICAL TRACKING ISSUES File (#2261.2)") H 1

 D MES^XPDUTL(" ")

 I $P(^OOPS(2261.2,15,0),U)'="Non Patient Care" D  Q

 .D BMES^XPDUTL("File not found as expected, update table manually")

 .D MES^XPDUTL(" ")

 I $P(^OOPS(2261.2,15,0),U)="Non Patient Care" D

 .S $P(^OOPS(2261.2,15,0),U)="Lifting (Non Patient Care)"

 .K ^OOPS(2261.2,"B","Non Patient Care",15)

 .S ^OOPS(2261.2,"B","Lifting (Non Patient Care)",15)=""

 .K ^OOPS(2261.2,"D","NON PATIENT CARE",15)

 .S ^OOPS(2261.2,"D","LIFTING (NON PATIENT CARE)",15)=""

 D BMES^XPDUTL("Table Update Complete"),MES^XPDUTL(" ")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---OOPSXV27   1277     printed  Apr 09, 2024@20:43:52                                                                                                                                                                                                    Page 2

OOPSXV27  ;WIOFO/LLH-POST INIT ROUTINE, FILL FIELD 331 ;11/26/04

 +1       ;;2.0;ASISTS;**7**;Jun 03, 2002

 +2       ; Patch 7 - auto populate index "AF" from 1/1/2004 to date

 +3       ;

ENT       ;

 +1        NEW IEN,FILE,FLD4,FLD88

 +2        SET FILE=2260

           SET IEN=0

 +3        DO BMES^XPDUTL("Updating new index for OSHA 300 Log for cases created in 2004")

           HANG 1

 +4        DO MES^XPDUTL(" ")

 +5        SET FLD4=3040100

 +6        FOR 

               SET FLD4=$ORDER(^OOPS(FILE,"AD",FLD4))

               if FLD4'>0

                   QUIT 

               Begin DoDot:1

 +7                SET IEN=0

                   FOR 

                       SET IEN=$ORDER(^OOPS(FILE,"AD",FLD4,IEN))

                       if IEN'>0

                           QUIT 

                       Begin DoDot:2

 +8                        SET FLD88=$$GET1^DIQ(FILE,IEN,88,"I")

 +9                        IF $GET(FLD88)'=""

                               SET ^OOPS(FILE,"AF",FLD4,FLD88,IEN)=""

                       End DoDot:2

               End DoDot:1

 +10       DO BMES^XPDUTL("Update Complete")

           HANG 1

 +11       DO MES^XPDUTL(" ")

 +12      ;

 +13      ; now update Type of Incident (FILE 2161.2)

 +14       DO BMES^XPDUTL("Updating ASISTS CRITICAL TRACKING ISSUES File (#2261.2)")

           HANG 1

 +15       DO MES^XPDUTL(" ")

 +16       IF $PIECE(^OOPS(2261.2,15,0),U)'="Non Patient Care"

               Begin DoDot:1

 +17               DO BMES^XPDUTL("File not found as expected, update table manually")

 +18               DO MES^XPDUTL(" ")

               End DoDot:1

               QUIT 

 +19       IF $PIECE(^OOPS(2261.2,15,0),U)="Non Patient Care"

               Begin DoDot:1

 +20               SET $PIECE(^OOPS(2261.2,15,0),U)="Lifting (Non Patient Care)"

 +21               KILL ^OOPS(2261.2,"B","Non Patient Care",15)

 +22               SET ^OOPS(2261.2,"B","Lifting (Non Patient Care)",15)=""

 +23               KILL ^OOPS(2261.2,"D","NON PATIENT CARE",15)

 +24               SET ^OOPS(2261.2,"D","LIFTING (NON PATIENT CARE)",15)=""

               End DoDot:1

 +25       DO BMES^XPDUTL("Table Update Complete")

           DO MES^XPDUTL(" ")

 +26       QUIT