source: WorldVistAEHR/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RAIPRE3.m@ 1724

Last change on this file since 1724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 568 bytes
RevLine 
[613]1RAIPRE3 ;HIRMFO/GJC- Pre-init routine ;11/12/97 11:38
2VERSION ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
3 ;
4EN8 ; See that the "NM" nodes for sub-files 200.072 (Rad/Nuc Med
5 ; Classification) and sub-file 200.074 (Rad/Nuc Med Location Access)
6 ; are correct. If nodes need to be corrected, delete the sub-file
7 ; and retain the data.
8 I $D(^DD(200.072,0,"NM","RAD NUC MED CLASSIFICATION"))#2 D
9 . N %,DIC,DIU S DIU=200.072,DIU(0)="S" D EN^DIU2 Q
10 I $D(^DD(200.074,0,"NM","RAD NUC MED LOCATION ACCESS"))#2 D
11 . N %,DIC,DIU S DIU=200.074,DIU(0)="S" D EN^DIU2 Q
12 Q
Note: See TracBrowser for help on using the repository browser.