RA26PST1 ;HIRMFO/CRT - Post-init number one (patch 26) ;5/19/99
VERSION ;;5.0;Radiology/Nuclear Medicine;**26**;Mar 16, 1998
;
EN1 ; *** Add "ACT" node for Rad Reports file 74 to add security ***
; *** restrictions. ***
;
N RATXT
;
I '$D(^DD(74,0,"ACT")) D
.S RATXT(1)="Editing RAD/NUC MED REPORTS file #74"
.S RATXT(2)="to add patient related safeguards..."
.D MES^XPDUTL(.RATXT)
.S ^DD(74,0,"ACT")="N DFN S DFN=$P(^RARPT(+Y,0),""^"",2) S Y=DFN D ^DGSEC"
;
END ; *** End ***
;
D BMES^XPDUTL(" ")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRA26PST1 531 printed Dec 13, 2024@02:33:10 Page 2
RA26PST1 ;HIRMFO/CRT - Post-init number one (patch 26) ;5/19/99
VERSION ;;5.0;Radiology/Nuclear Medicine;**26**;Mar 16, 1998
+1 ;
EN1 ; *** Add "ACT" node for Rad Reports file 74 to add security ***
+1 ; *** restrictions. ***
+2 ;
+3 NEW RATXT
+4 ;
+5 IF '$DATA(^DD(74,0,"ACT"))
Begin DoDot:1
+6 SET RATXT(1)="Editing RAD/NUC MED REPORTS file #74"
+7 SET RATXT(2)="to add patient related safeguards..."
+8 DO MES^XPDUTL(.RATXT)
+9 SET ^DD(74,0,"ACT")="N DFN S DFN=$P(^RARPT(+Y,0),""^"",2) S Y=DFN D ^DGSEC"
End DoDot:1
+10 ;
END ; *** End ***
+1 ;
+2 DO BMES^XPDUTL(" ")
+3 QUIT
