RA56PST ;HISC/SM Post-init ; 11/23/07
;;5.0;Radiology/Nuclear Medicine;**56**;Mar 16, 1998;Build 3
;This is the post-install routine for patch RA*5.0*56
;Private IA #5155 Remove Rad/Nuc Med dd Screen from Subfield #70.03
;Private IA #5156 Remove Rad/Nuc Med dd Screen from File #79.1
Q
EN1 ;reset file 78.7's field MUMPS CODE TO SET VARIABLE
; for the PRINT FIELD: REPORT STATUS
I '$D(XPDNM)#2 D EN^DDIOL("This entry point must be called from the KIDS installation -- Nothing Done.",,"!!,$C(7)") Q
N RAIEN
S RAIEN=$O(^RA(78.7,"B","REPORT STATUS",0))
I 'RAIEN D ERR1 G CONT1
I '$D(^RA(78.7,RAIEN,"E")) D ERR2 G CONT1
; must use hard set instead of silent FM due uneditable data
S ^RA(78.7,RAIEN,"E")="S RARST=$$GET1^DIQ(74,+$P(RAY3,""^"",17)_"","",5)"
D BMES^XPDUTL("File 78.7's REPORT STATUS record has been successfully updated.")
;
CONT1 ;kill stray 9.2 nodes for two CREDIT METHOD fields
; in subfile 70.03 and file 79.1
I $D(^DD(70.03,26,9.2)) D
.K ^DD(70.03,26,9.2)
.D BMES^XPDUTL("Cleaned up stray 9.2 node for the CREDIT METHOD field in subfile 70.03.")
.Q
I $D(^DD(79.1,21,9.2)) D
.K ^DD(79.1,21,9.2)
.D BMES^XPDUTL("Cleaned up stray 9.2 node for the CREDIT METHOD field in file 79.1.")
.Q
Q
ERR1 ;
D BMES^XPDUTL("File 78.7 doesn't have the REPORT STATUS record, so REPORT STATUS record is not updated.")
Q
ERR2 ;
D BMES^XPDUTL("File 78.7 has no data for field 100, so REPORT STATUS record is not updated.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRA56PST 1483 printed Dec 13, 2024@02:33:25 Page 2
RA56PST ;HISC/SM Post-init ; 11/23/07
+1 ;;5.0;Radiology/Nuclear Medicine;**56**;Mar 16, 1998;Build 3
+2 ;This is the post-install routine for patch RA*5.0*56
+3 ;Private IA #5155 Remove Rad/Nuc Med dd Screen from Subfield #70.03
+4 ;Private IA #5156 Remove Rad/Nuc Med dd Screen from File #79.1
+5 QUIT
EN1 ;reset file 78.7's field MUMPS CODE TO SET VARIABLE
+1 ; for the PRINT FIELD: REPORT STATUS
+2 IF '$DATA(XPDNM)#2
DO EN^DDIOL("This entry point must be called from the KIDS installation -- Nothing Done.",,"!!,$C(7)")
QUIT
+3 NEW RAIEN
+4 SET RAIEN=$ORDER(^RA(78.7,"B","REPORT STATUS",0))
+5 IF 'RAIEN
DO ERR1
GOTO CONT1
+6 IF '$DATA(^RA(78.7,RAIEN,"E"))
DO ERR2
GOTO CONT1
+7 ; must use hard set instead of silent FM due uneditable data
+8 SET ^RA(78.7,RAIEN,"E")="S RARST=$$GET1^DIQ(74,+$P(RAY3,""^"",17)_"","",5)"
+9 DO BMES^XPDUTL("File 78.7's REPORT STATUS record has been successfully updated.")
+10 ;
CONT1 ;kill stray 9.2 nodes for two CREDIT METHOD fields
+1 ; in subfile 70.03 and file 79.1
+2 IF $DATA(^DD(70.03,26,9.2))
Begin DoDot:1
+3 KILL ^DD(70.03,26,9.2)
+4 DO BMES^XPDUTL("Cleaned up stray 9.2 node for the CREDIT METHOD field in subfile 70.03.")
+5 QUIT
End DoDot:1
+6 IF $DATA(^DD(79.1,21,9.2))
Begin DoDot:1
+7 KILL ^DD(79.1,21,9.2)
+8 DO BMES^XPDUTL("Cleaned up stray 9.2 node for the CREDIT METHOD field in file 79.1.")
+9 QUIT
End DoDot:1
+10 QUIT
ERR1 ;
+1 DO BMES^XPDUTL("File 78.7 doesn't have the REPORT STATUS record, so REPORT STATUS record is not updated.")
+2 QUIT
ERR2 ;
+1 DO BMES^XPDUTL("File 78.7 has no data for field 100, so REPORT STATUS record is not updated.")
+2 QUIT
