Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LRAPDS

LRAPDS.m

Go to the documentation of this file.
  1. LRAPDS ;AVAMC/REG - AP REPORT DISPLAYS/PRINTS ;11/9/95 07:22 ;
  1. ;;5.2;LAB SERVICE;**72**;Sep 27, 1994
  1. D ^LRAPCUM,END Q
  1. ;
  1. ;display
  1. CY D END S (LRAA(1),X)="CYTOPATHOLOGY",LRSS="CY" D SET G LRAPDS
  1. SP D END S (LRAA(1),X)="SURGICAL PATHOLOGY",LRSS="SP" D SET G LRAPDS
  1. EM D END S LRAA(1)="ELECTRON MICROSCOPY",(LRSS,X)="EM" D SET G LRAPDS
  1. ;
  1. ;print
  1. PCY D END S (LRAA(1),X)="CYTOPATHOLOGY",LRSS="CY" D SET G P
  1. PSP D END S (LRAA(1),X)="SURGICAL PATHOLOGY",LRSS="SP" D SET G P
  1. PEM D END S LRAA(1)="ELECTRON MICROSCOPY",(LRSS,X)="EM" D SET G P
  1. ;
  1. P S (LR("R"),LR("W"))=1 D SGL^LRSPRPT,END Q
  1. ;
  1. END D V^LRU Q
  1. ;
  1. SET S LRAA=+$O(^LRO(68,"B",X,0)) Q