Last change
on this file since 1046 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
641 bytes
|
Line | |
---|
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.