Last change
on this file since 1757 was 628, checked in by George Lilly, 15 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.