Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
568 bytes
|
Rev | Line | |
---|
[613] | 1 | RAIPRE3 ;HIRMFO/GJC- Pre-init routine ;11/12/97 11:38
|
---|
| 2 | VERSION ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
|
---|
| 3 | ;
|
---|
| 4 | EN8 ; 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.