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

LRMITSRH.m

Go to the documentation of this file.
LRMITSRH ;VA/SLC/STAFF - MICRO TREND REPORT HEADER ;JUL 06, 2010 3:14 PM
 ;;5.2;LAB SERVICE;**257,339,1027**;NOV 01, 1997
 ; from LRMITSR
 ; writes heading information
 ;
 I $$S^%ZTLOAD S (LREND,ZTSTOP)=1 Q
 W @IOF S LRPAGE=LRPAGE+1
 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")
 I LRPAGE=1 D
 .S LRLINE(1)=LRLINE1_LRHDRT,LRLINE(1)=$J(LRLINE(1),IOM+$L(LRLINE(1))\2)
 .W LRLINE(1),!,LRLINE(2)
 .I $D(LRM(LRTYPE,"S")) D
 ..W !,"This report is restricted to the following ",$$LOW^XLFSTR(LRHDRT),"s:"
 ..K LRTEMP D HLIST^LRMITSRS("LRM(LRTYPE,""S"")","LRTEMP",", ",IOM)
 ..S LRN="" F  S LRN=$O(LRTEMP(LRN)) Q:LRN=""  W !,LRTEMP(LRN)
 ..K LRTEMP
 .S LRCNT=2 F  S LRCNT=$O(LRLINE(LRCNT)) Q:LRCNT<1  W !,LRLINE(LRCNT)
 S LRHDR(1)=LRHDR1_LRPATNUM_" patients)           BY "_LRHDRT_"    Page "_$J(LRPAGE,1)
 S LRCNT=0 F  S LRCNT=$O(LRHDR(LRCNT)) Q:LRCNT<1  W !,LRHDR(LRCNT)
 Q