source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRMITSRH.m@ 648

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

initial load of WorldVistAEHR

File size: 983 bytes
Line 
1LRMITSRH ;SLC/STAFF - MICRO TREND REPORT HEADER ;10/12/92 20:26
2 ;;5.2;LAB SERVICE;**257,339**;Sep 27, 1994
3 ; from LRMITSR
4 ; writes heading information
5 ;
6 I $$S^%ZTLOAD S (LREND,ZTSTOP)=1 Q
7 W @IOF S LRPAGE=LRPAGE+1
8 S LRHDRT=$S(LRTYPE="O":"ORGANISM",LRTYPE="S":"SITE/SPECIMEN",LRTYPE="L":"LOCATION",LRTYPE="P":"PATIENT",LRTYPE="C":"COLLECTION SAMPLE",LRTYPE="DIV":"DIVISION",1:"PHYSICIAN")
9 I LRPAGE=1 D
10 .S LRLINE(1)=LRLINE1_LRHDRT,LRLINE(1)=$J(LRLINE(1),IOM+$L(LRLINE(1))\2)
11 .W LRLINE(1),!,LRLINE(2)
12 .I $D(LRM(LRTYPE,"S")) D
13 ..W !,"This report is restricted to the following ",$$LOW^XLFSTR(LRHDRT),"s:"
14 ..K LRTEMP D HLIST^LRMITSRS("LRM(LRTYPE,""S"")","LRTEMP",", ",IOM)
15 ..S LRN="" F S LRN=$O(LRTEMP(LRN)) Q:LRN="" W !,LRTEMP(LRN)
16 ..K LRTEMP
17 .S LRCNT=2 F S LRCNT=$O(LRLINE(LRCNT)) Q:LRCNT<1 W !,LRLINE(LRCNT)
18 S LRHDR(1)=LRHDR1_LRPATNUM_" patients) BY "_LRHDRT_" Page "_$J(LRPAGE,1)
19 S LRCNT=0 F S LRCNT=$O(LRHDR(LRCNT)) Q:LRCNT<1 W !,LRHDR(LRCNT)
20 Q
Note: See TracBrowser for help on using the repository browser.