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 ---[H[J[2J[HOOPSXP11 1186 printed Nov 22, 2024@16:50:09 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
