| 1 | OOPSXP11 ;WIOFO/LLH-INIT ROUTINE FOR PATCH 11 ;3/5/2001
|
|---|
| 2 | ;;1.0;ASISTS;**11**;Jun 01, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | PRE ;
|
|---|
| 5 | N MSG,SAF,PMSG
|
|---|
| 6 | S MSG(1)=" "
|
|---|
| 7 | S MSG(2)="The SAFETY DEVICE USED Field (#43) in the ASISTS ACCIDENT REPORTING "
|
|---|
| 8 | S MSG(3)="File (#2260) has been changed. Unknown has been removed as a "
|
|---|
| 9 | S MSG(4)="valid code for this field. All records with Unknown will be "
|
|---|
| 10 | S MSG(5)="changed to 'N'o."
|
|---|
| 11 | ;
|
|---|
| 12 | I $$PATCH^XPDUTL("OOPS*1.0*11") D Q
|
|---|
| 13 | . D BMES^XPDUTL(" Skipping pre install since patch was previously installed.")
|
|---|
| 14 | D BMES^XPDUTL("Data Conversion in Progress...") H 1
|
|---|
| 15 | D MES^XPDUTL(.MSG) H 2
|
|---|
| 16 | ;
|
|---|
| 17 | LOOP ; Loop thru 2260 and change as described above.
|
|---|
| 18 | N IEN,DR,DA,DIE,SAF
|
|---|
| 19 | S IEN=0,DIE="^OOPS(2260,"
|
|---|
| 20 | F S IEN=$O(^OOPS(2260,IEN)) Q:IEN'>0 D
|
|---|
| 21 | . S SAF=$P($G(^OOPS(2260,IEN,"2162D")),U,8)
|
|---|
| 22 | . I $G(SAF)="U" S $P(^OOPS(2260,IEN,"2162D"),U,8)="N" D
|
|---|
| 23 | .. D MES^XPDUTL("Safety Device changed from Unknown to No for this case "_$$GET1^DIQ(2260,IEN,.01,"E"))
|
|---|
| 24 | ; also need to change the type for Suture Needlestick in ^OOPS(2261.7
|
|---|
| 25 | K DA,DIE,DR
|
|---|
| 26 | S DIE="^OOPS(2261.7,"
|
|---|
| 27 | S DA=7,DR="2///^S X=""S""" D ^DIE
|
|---|
| 28 | S DA=12,DR="2///^S X=""S""" D ^DIE
|
|---|
| 29 | S DA=19,DR="2///^S X=""N""" D ^DIE
|
|---|
| 30 | Q
|
|---|
