| [613] | 1 | RA56PST ;HISC/SM Post-init ; 11/23/07
|
|---|
| 2 | ;;5.0;Radiology/Nuclear Medicine;**56**;Mar 16, 1998;Build 3
|
|---|
| 3 | ;This is the post-install routine for patch RA*5.0*56
|
|---|
| 4 | ;Private IA #5155 Remove Rad/Nuc Med dd Screen from Subfield #70.03
|
|---|
| 5 | ;Private IA #5156 Remove Rad/Nuc Med dd Screen from File #79.1
|
|---|
| 6 | Q
|
|---|
| 7 | EN1 ;reset file 78.7's field MUMPS CODE TO SET VARIABLE
|
|---|
| 8 | ; for the PRINT FIELD: REPORT STATUS
|
|---|
| 9 | I '$D(XPDNM)#2 D EN^DDIOL("This entry point must be called from the KIDS installation -- Nothing Done.",,"!!,$C(7)") Q
|
|---|
| 10 | N RAIEN
|
|---|
| 11 | S RAIEN=$O(^RA(78.7,"B","REPORT STATUS",0))
|
|---|
| 12 | I 'RAIEN D ERR1 G CONT1
|
|---|
| 13 | I '$D(^RA(78.7,RAIEN,"E")) D ERR2 G CONT1
|
|---|
| 14 | ; must use hard set instead of silent FM due uneditable data
|
|---|
| 15 | S ^RA(78.7,RAIEN,"E")="S RARST=$$GET1^DIQ(74,+$P(RAY3,""^"",17)_"","",5)"
|
|---|
| 16 | D BMES^XPDUTL("File 78.7's REPORT STATUS record has been successfully updated.")
|
|---|
| 17 | ;
|
|---|
| 18 | CONT1 ;kill stray 9.2 nodes for two CREDIT METHOD fields
|
|---|
| 19 | ; in subfile 70.03 and file 79.1
|
|---|
| 20 | I $D(^DD(70.03,26,9.2)) D
|
|---|
| 21 | .K ^DD(70.03,26,9.2)
|
|---|
| 22 | .D BMES^XPDUTL("Cleaned up stray 9.2 node for the CREDIT METHOD field in subfile 70.03.")
|
|---|
| 23 | .Q
|
|---|
| 24 | I $D(^DD(79.1,21,9.2)) D
|
|---|
| 25 | .K ^DD(79.1,21,9.2)
|
|---|
| 26 | .D BMES^XPDUTL("Cleaned up stray 9.2 node for the CREDIT METHOD field in file 79.1.")
|
|---|
| 27 | .Q
|
|---|
| 28 | Q
|
|---|
| 29 | ERR1 ;
|
|---|
| 30 | D BMES^XPDUTL("File 78.7 doesn't have the REPORT STATUS record, so REPORT STATUS record is not updated.")
|
|---|
| 31 | Q
|
|---|
| 32 | ERR2 ;
|
|---|
| 33 | D BMES^XPDUTL("File 78.7 has no data for field 100, so REPORT STATUS record is not updated.")
|
|---|
| 34 | Q
|
|---|
