OOPSXP11.m

OOPSXP11 ;WIOFO/LLH-INIT ROUTINE FOR PATCH 11 ;3/5/2001 

 ;;1.0;ASISTS;**11**;Jun 01, 1998

 ;

PRE ;

 N MSG,SAF,PMSG

 S MSG(1)=" "

 S MSG(2)="The SAFETY DEVICE USED Field (#43) in the ASISTS ACCIDENT REPORTING "

 S MSG(3)="File (#2260) has been changed. Unknown has been removed as a "

 S MSG(4)="valid code for this field. All records with Unknown will be "

 S MSG(5)="changed to 'N'o."

 ;

 I $$PATCH^XPDUTL("OOPS*1.0*11") D  Q

 . D BMES^XPDUTL("  Skipping pre install since patch was previously installed.")

 D BMES^XPDUTL("Data Conversion in Progress...") H 1

 D MES^XPDUTL(.MSG) H 2

 ;

LOOP ; Loop thru 2260 and change as described above.

 N IEN,DR,DA,DIE,SAF

 S IEN=0,DIE="^OOPS(2260,"

 F  S IEN=$O(^OOPS(2260,IEN)) Q:IEN'>0  D

 . S SAF=$P($G(^OOPS(2260,IEN,"2162D")),U,8)

 . I $G(SAF)="U" S $P(^OOPS(2260,IEN,"2162D"),U,8)="N" D

 .. D MES^XPDUTL("Safety Device changed from Unknown to No for this case "_$$GET1^DIQ(2260,IEN,.01,"E"))

 ; also need to change the type for Suture Needlestick in ^OOPS(2261.7

 K DA,DIE,DR

 S DIE="^OOPS(2261.7,"

 S DA=7,DR="2///^S X=""S""" D ^DIE

 S DA=12,DR="2///^S X=""S""" D ^DIE

 S DA=19,DR="2///^S X=""N""" D ^DIE

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---OOPSXP11   1186     printed  Apr 09, 2024@20:44:35                                                                                                                                                                                                    Page 2

OOPSXP11  ;WIOFO/LLH-INIT ROUTINE FOR PATCH 11 ;3/5/2001 

 +1       ;;1.0;ASISTS;**11**;Jun 01, 1998

 +2       ;

PRE       ;

 +1        NEW MSG,SAF,PMSG

 +2        SET MSG(1)=" "

 +3        SET MSG(2)="The SAFETY DEVICE USED Field (#43) in the ASISTS ACCIDENT REPORTING "

 +4        SET MSG(3)="File (#2260) has been changed. Unknown has been removed as a "

 +5        SET MSG(4)="valid code for this field. All records with Unknown will be "

 +6        SET MSG(5)="changed to 'N'o."

 +7       ;

 +8        IF $$PATCH^XPDUTL("OOPS*1.0*11")

               Begin DoDot:1

 +9                DO BMES^XPDUTL("  Skipping pre install since patch was previously installed.")

               End DoDot:1

               QUIT 

 +10       DO BMES^XPDUTL("Data Conversion in Progress...")

           HANG 1

 +11       DO MES^XPDUTL(.MSG)

           HANG 2

 +12      ;

LOOP      ; Loop thru 2260 and change as described above.

 +1        NEW IEN,DR,DA,DIE,SAF

 +2        SET IEN=0

           SET DIE="^OOPS(2260,"

 +3        FOR 

               SET IEN=$ORDER(^OOPS(2260,IEN))

               if IEN'>0

                   QUIT 

               Begin DoDot:1

 +4                SET SAF=$PIECE($GET(^OOPS(2260,IEN,"2162D")),U,8)

 +5                IF $GET(SAF)="U"

                       SET $PIECE(^OOPS(2260,IEN,"2162D"),U,8)="N"

                       Begin DoDot:2

 +6                        DO MES^XPDUTL("Safety Device changed from Unknown to No for this case "_$$GET1^DIQ(2260,IEN,.01,"E"))

                       End DoDot:2

               End DoDot:1

 +7       ; also need to change the type for Suture Needlestick in ^OOPS(2261.7

 +8        KILL DA,DIE,DR

 +9        SET DIE="^OOPS(2261.7,"

 +10       SET DA=7

           SET DR="2///^S X=""S"""

           DO ^DIE

 +11       SET DA=12

           SET DR="2///^S X=""S"""

           DO ^DIE

 +12       SET DA=19

           SET DR="2///^S X=""N"""

           DO ^DIE

 +13       QUIT