|
Last change
on this file since 1520 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
641 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | LRAPDS ;AVAMC/REG - AP REPORT DISPLAYS/PRINTS ;11/9/95 07:22 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;**72**;Sep 27, 1994
|
|---|
| 3 | D ^LRAPCUM,END Q
|
|---|
| 4 | ;
|
|---|
| 5 | ;display
|
|---|
| 6 | CY D END S (LRAA(1),X)="CYTOPATHOLOGY",LRSS="CY" D SET G LRAPDS
|
|---|
| 7 | SP D END S (LRAA(1),X)="SURGICAL PATHOLOGY",LRSS="SP" D SET G LRAPDS
|
|---|
| 8 | EM D END S LRAA(1)="ELECTRON MICROSCOPY",(LRSS,X)="EM" D SET G LRAPDS
|
|---|
| 9 | ;
|
|---|
| 10 | ;print
|
|---|
| 11 | PCY D END S (LRAA(1),X)="CYTOPATHOLOGY",LRSS="CY" D SET G P
|
|---|
| 12 | PSP D END S (LRAA(1),X)="SURGICAL PATHOLOGY",LRSS="SP" D SET G P
|
|---|
| 13 | PEM D END S LRAA(1)="ELECTRON MICROSCOPY",(LRSS,X)="EM" D SET G P
|
|---|
| 14 | ;
|
|---|
| 15 | P S (LR("R"),LR("W"))=1 D SGL^LRSPRPT,END Q
|
|---|
| 16 | ;
|
|---|
| 17 | END D V^LRU Q
|
|---|
| 18 | ;
|
|---|
| 19 | SET S LRAA=+$O(^LRO(68,"B",X,0)) Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
