|
Last change
on this file since 1389 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
964 bytes
|
| Line | |
|---|
| 1 | LRUSNOM ;AVAMC/REG - ANATOMIC PATH REFERENCES ;4/12/94 10:15 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | A G:'$D(LRF) END K LR("CK") W ! S (DIE,DIC)=LRF,DIC(0)="AEQM" D ^DIC K DIC G:Y<1 END S DA=+Y I DR=5 D CK^LRU G:$D(LR("CK")) A D ^DIE D FRE^LRU G A
|
|---|
| 4 | D PRT G A
|
|---|
| 5 | ;
|
|---|
| 6 | DE D END S LRF="^LAB(61.4," G E ;edit Disease
|
|---|
| 7 | EE D END S LRF="^LAB(61.2," G E ;edit Etiology
|
|---|
| 8 | FE D END S LRF="^LAB(61.3," G E ;edit edit Function
|
|---|
| 9 | ME D END S LRF="^LAB(61.1," G E ;edit edit Morphology
|
|---|
| 10 | OE D END S LRF="^LAB(61.6," G E ;edit Occupation
|
|---|
| 11 | TE D END S LRF="^LAB(61," G E ;edit Topography
|
|---|
| 12 | PE D END S LRF="^LAB(61.5," G E ;edit Procedure
|
|---|
| 13 | E S DR=5 G LRUSNOM
|
|---|
| 14 | ;
|
|---|
| 15 | DP D END S LRF=61.4 G P
|
|---|
| 16 | EP D END S LRF=61.2 G P
|
|---|
| 17 | FP D END S LRF=61.3 G P
|
|---|
| 18 | MP D END S LRF=61.1 G P
|
|---|
| 19 | OP D END S LRF=61.6 G P
|
|---|
| 20 | TP D END S LRF=61 G P
|
|---|
| 21 | PP D END S LRF=61.5 G P
|
|---|
| 22 | P S DR="0;JR" G LRUSNOM
|
|---|
| 23 | ;
|
|---|
| 24 | PRT ;print references
|
|---|
| 25 | S ZTRTN="QUE^LRUSNOM" D BEG^LRUTL G:POP!($D(ZTSK)) END
|
|---|
| 26 | QUE U IO S DIC=^DIC(LRF,0,"GL") D EN^DIQ,END^LRUTL Q
|
|---|
| 27 | ;
|
|---|
| 28 | END D V^LRU Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
