RA56PST.m

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 ---RA56PST   1483     printed  Feb 18, 2025@23:59:42                                                                                                                                                                                                     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