|
Last change
on this file since 682 was 628, checked in by George Lilly, 16 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
568 bytes
|
| Line | |
|---|
| 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.
