Routine: BLRSORC

Package	Total	Call Graph
Lab Service	3	BUILD^LRSORC1 (,END)^LRSORC1A DD^LRX
Kernel	2	($$DT,$$HTFM)^XLFDT EN^XUTMDEVQ
VA Fileman	2	^%DT $$GET1^DIQ
IHS Changes To Lab	1	(EEP,PRESSKEY)^BLRGMENU

Package

Total

Call Graph

BUILD^LRSORC1 (,END)^LRSORC1A DD^LRX

($$DT,$$HTFM)^XLFDT EN^XUTMDEVQ

^%DT $$GET1^DIQ

(EEP,PRESSKEY)^BLRGMENU

Name	Comments	DBIA/ICR reference
BEGIN	; EP - Beginning
SELPAT	; EP - ALL Patients by default
SELLOC	; EP - Get Locations from 90475.7, if they exist
GDR	; EP - Get Date Range from 90475.7
EEP	; EP - Ersatz EP
SORTBY	; EP - Determine SORT BY parameter
GETPARAM	; EP - Get the parameters from the IHS LAB SUPERVISOR TASKED REPORTS PARAMETERS (#90475.7) file
DEVICE	;
OPTIONS	;
GAA	; EP - Get Accession Areas from 90475.7, if they exist
DQ	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?4,"This report can only be run from TASKMAN." Line Location: BEGIN+2

Name	Line Occurrences (* Changed, ! Killed)
^BLRLSRP - [#90475.7]	GAA+4, GAA+7, GAA+8, SORTBY+3, SELLOC+2, SELLOC+7, SELLOC+8, DEVICE+1
^TMP("LR"	DQ+1!

Name	Field # of Occurrence
%DT	DQ+4!, DQ+5!, DQ+6!*
>> %ZIS	DEVICE+2*, DEVICE+4
CNTLOC	SELLOC+4~, SELLOC+6, SELLOC+12, SELLOC+13
DTRANGE	GDR+1~, GDR+3*, GDR+4
GAAD2	GAA+1~, GAA+6, GAA+7, GAA+8
GLRAA	GAA+1~, GAA+8*, GAA+9, GAA+12, GAA+13
GLRAAAB	GAA+1~, GAA+9*, GAA+10, GAA+12
GOBACK	GDR+1~, GDR+4*, GDR+5
>> GPD0	GETPARAM+1*, GDR+3, GAA+4, GAA+7, GAA+8, SORTBY+3, SELLOC+2, SELLOC+7, SELLOC+8, DEVICE+1
>> GPD1	GETPARAM+1*, GDR+3, GAA+4, GAA+7, GAA+8, SORTBY+3, SELLOC+2, SELLOC+7, SELLOC+8, DEVICE+1
IO	DQ+2
IOM	DQ+3
>> IOP	DEVICE+1*
LOCIEN	SELLOC+4~, SELLOC+8*, SELLOC+9, SELLOC+14
LOCSUB	SELLOC+4~, SELLOC+6, SELLOC+7, SELLOC+8
LOCSUBAB	SELLOC+4~, SELLOC+9*, SELLOC+10, SELLOC+14
>> LRAA	GAA+3, GAA+13
>> LRAA(	GAA+12*
>> LRDASH	DQ+3*
>> LRDATE	DQ+4*
>> LREDAT	DQ+6*, DQ+7
>> LREDT	GDR+5*, DQ+6
>> LREND	GETPARAM+4, DEVICE+5, DQ+3
>> LRHDR2	DQ+7*
>> LRLCS	SELLOC+1, SELLOC+13, SELLOC+15
>> LRLCS(	SELLOC+14*
>> LRLCS("NO ABR	V" , SELLOC+15*
>> LRPAG	DQ+3*
>> LRPTS	SELPAT+1*
>> LRSDAT	DQ+5*, DQ+7
>> LRSDT	GDR+6*, DQ+5
>> LRSRT	SORTBY+4*
SORTBY	SORTBY+1~, SORTBY+3*, SORTBY+4
U	SORTBY+3, DEVICE+1
>> X	DQ+4, DQ+5, DQ+6*
>> Y	DQ+4, DQ+5, DQ+6
>> ZTQUEUED	BEGIN+1, DQ+2
>> ZTREQ	DQ+2*
>> ZTSAVE	DEVICE+4
>> ZTSAVE("LR*"	DEVICE+3*

Information