RAIPRE3 ;HIRMFO/GJC- Pre-init routine ;11/12/97 11:38
VERSION ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
;
EN8 ; See that the "NM" nodes for sub-files 200.072 (Rad/Nuc Med
; Classification) and sub-file 200.074 (Rad/Nuc Med Location Access)
; are correct. If nodes need to be corrected, delete the sub-file
; and retain the data.
I $D(^DD(200.072,0,"NM","RAD NUC MED CLASSIFICATION"))#2 D
. N %,DIC,DIU S DIU=200.072,DIU(0)="S" D EN^DIU2 Q
I $D(^DD(200.074,0,"NM","RAD NUC MED LOCATION ACCESS"))#2 D
. N %,DIC,DIU S DIU=200.074,DIU(0)="S" D EN^DIU2 Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAIPRE3 580 printed Dec 13, 2024@02:35:59 Page 2
RAIPRE3 ;HIRMFO/GJC- Pre-init routine ;11/12/97 11:38
VERSION ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
+1 ;
EN8 ; See that the "NM" nodes for sub-files 200.072 (Rad/Nuc Med
+1 ; Classification) and sub-file 200.074 (Rad/Nuc Med Location Access)
+2 ; are correct. If nodes need to be corrected, delete the sub-file
+3 ; and retain the data.
+4 IF $DATA(^DD(200.072,0,"NM","RAD NUC MED CLASSIFICATION"))#2
Begin DoDot:1
+5 NEW %,DIC,DIU
SET DIU=200.072
SET DIU(0)="S"
DO EN^DIU2
QUIT
End DoDot:1
+6 IF $DATA(^DD(200.074,0,"NM","RAD NUC MED LOCATION ACCESS"))#2
Begin DoDot:1
+7 NEW %,DIC,DIU
SET DIU=200.074
SET DIU(0)="S"
DO EN^DIU2
QUIT
End DoDot:1
+8 QUIT
