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