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