RAIPRE3.m

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 ---RAIPRE3   580     printed  Feb 19, 2025@00:02:15                                                                                                                                                                                                      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