source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRAPDS.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 641 bytes
Line 
1LRAPDS ;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
6CY D END S (LRAA(1),X)="CYTOPATHOLOGY",LRSS="CY" D SET G LRAPDS
7SP D END S (LRAA(1),X)="SURGICAL PATHOLOGY",LRSS="SP" D SET G LRAPDS
8EM D END S LRAA(1)="ELECTRON MICROSCOPY",(LRSS,X)="EM" D SET G LRAPDS
9 ;
10 ;print
11PCY D END S (LRAA(1),X)="CYTOPATHOLOGY",LRSS="CY" D SET G P
12PSP D END S (LRAA(1),X)="SURGICAL PATHOLOGY",LRSS="SP" D SET G P
13PEM D END S LRAA(1)="ELECTRON MICROSCOPY",(LRSS,X)="EM" D SET G P
14 ;
15P S (LR("R"),LR("W"))=1 D SGL^LRSPRPT,END Q
16 ;
17END D V^LRU Q
18 ;
19SET S LRAA=+$O(^LRO(68,"B",X,0)) Q
Note: See TracBrowser for help on using the repository browser.