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