Routine: BLRSORA

Information

BLRSORA ;VA/DRH/DALISC - HIGH/LOW VALUE TASKED REPORT ;2/19/91 11:42 ;

Source Information

Source file <BLRSORA.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZTLOAD ($$DT,$$FMTE,$$HTFM)^XLFDT EN^XUTMDEVQ
Lab Service	4	STOP^LRSORA0 EN^LRSORA1 START^LRSORA2 DD^LRX
VA Fileman	4	^%DT ^DIC $$GET1^DIQ ^DIR
IHS Changes To Lab	1	(EEP,PRESSKEY)^BLRGMENU

Entry Points

Name	Comments	DBIA/ICR reference
STOP	;
EEP	; EP - Ersatz EP
TST	;
BEGIN	; EP - Beginning
ASPC	;
SELLOC	; EP - Get Locations from 90475.7, if they exist
INIT	; EP - Initialization
GTSC	;
GSLOG	; EP - Get Search LOGic ; Note that if the Search logic fields are null, cannot run the report. Skip
GAA	; EP - Get Accession Areas
GV	;
CND	;
GC	;
GDT	;
GLRT	; EP - Get LaboRatory Tests
WAIT
RUN	;
GDV	;
RNG	;
XX	;
HLP1	;
HLP2	;
SORTBY	; EP - Determine SORT BY parameter
GETPARAM	; EP - Get the parameters from the IHS LAB SUPERVISOR TASKED REPORTS PARAMETERS (#90475.7) file
SPEC	;

External References

Name	Field # of Occurrence
^%DT	RUN+4, RUN+5
^%ZIS	GDV+1
^%ZTLOAD	GDV+2
EEP^BLRGMENU	EEP+1
PRESSKEY^BLRGMENU	BEGIN+3
^DIC	TST+2, SPEC+3, GC+2
$$GET1^DIQ	SELLOC+9, GAA+9, GLRT+13, GLRT+14, GLRT+15, GLRT+19, GLRT+20, GLRT+21, GDT+3
^DIR	WAIT
STOP^LRSORA0	STOP+1
EN^LRSORA1	GSLOG+7
START^LRSORA2	RUN+7
DD^LRX	RUN+4, RUN+5
$$DT^XLFDT	GDT+7
$$FMTE^XLFDT	GDT+8
$$HTFM^XLFDT	GDT+6
EN^XUTMDEVQ	GETPARAM+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?4,"This report can only be run from TASKMAN." Line Location: BEGIN+2
Function Call: WRITE	Prompt: !!,"No Tests Defined in the IHS LAB SUPERVISOR TASKED REPORTS PARAMETERS dictionary" Line Location: GLRT+3
Function Call: WRITE	Prompt: !,?4,"for the IHS Lab tasked version of 'Search for high/low values of a test'." Line Location: GLRT+4
Function Call: WRITE	Prompt: !! Line Location: GLRT+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: CND+1
Function Call: WRITE	Prompt: !,"Enter VALUE: " Line Location: GV+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: GV+3
Function Call: WRITE	Prompt: !!,"Search logic fields in 90745.7 are empty." Line Location: GSLOG+3
Function Call: WRITE	Prompt: !!,"Cannot do report." Line Location: GSLOG+4
Function Call: WRITE	Prompt: !,"A VALUE RANGE may also be entered (value:value).",!," For Example, 100:200 will search for values between 100 and 200.",! Line Location: HLP1+1
Function Call: WRITE	Prompt: !,"Enter a value for the comparison: " Line Location: HLP2+1
Function Call: WRITE	Prompt: $P(LRTST(LRTST,2),U,1)," ",$P(Y(0),U,1)_" _____." Line Location: HLP2+2
Routine Call	DIC Line Location: TST+2 SPEC+3 GC+2
Routine Call	DIR Line Location: WAIT
Routine Call	%ZIS Line Location: GDV+1

FileNo	Call Tags
^SC - [#44]	GET1^DIQ
^LAB(60 - [#60]	Classic Fileman Calls, GET1^DIQ
^LAB(61 - [#61]	Classic Fileman Calls
^LRO(68 - [#68]	GET1^DIQ
90475.72	GET1^DIQ
90475.723	GET1^DIQ
90475.7231	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BLRLSRP - [#90475.7]	GETPARAM+8, SORTBY+3, SELLOC+2, SELLOC+7, SELLOC+8, GAA+2, GAA+7, GAA+8, GLRT+2, GLRT+11 , GLRT+17, GSLOG+2
^LAB(60 - [#60]	TST+5
^TMP("LR"	RUN+1!

Name	Line Occurrences
@(	GTSC+2, CND+2
ASPC	RNG+11, GV+22
GAA	GETPARAM+5
GDT	GETPARAM+5
GDV	GETPARAM+7
GLRT	GETPARAM+5
HLP1	GC+3
HLP2	GV+5
INIT	GETPARAM+5
SELLOC	GETPARAM+7
SORTBY	GETPARAM+7
STOP	GETPARAM+14, RUN+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	RUN+4!, RUN+5!
%ZIS	GETPARAM+9, GETPARAM+12, GDV+1!
ALPHA	GV+1~, GV+10, GV+11, GV+13, GV+14, GV+15, GV+22
CHAR	GLRT+8~
CNT	GLRT+8~, GLRT+10, GLRT+26, GLRT+30, GLRT+31, GLRT+32, GLRT+34, GLRT+36, GLRT+38
CNTLOC	SELLOC+4~, SELLOC+6, SELLOC+12, SELLOC+13
DEC	GV+1~, GV+10, GV+13
DIC	TST+1!, SPEC+2!, GC+1*, GC+2!
DIC("A"	SPEC+3*
DIC("S"	TST+2, GC+1
DIC(0	TST+1, SPEC+2, GC+1*
DIR	WAIT!
DIR(0	WAIT*
DTIME	CND+1, GV+3, INIT+9*
>> DTOUT	WAIT
DTRANGE	GDT+1~, GDT+3*, GDT+4, GDT+5
>> DUOUT	WAIT
F60DNIEN	GLRT+8~, GLRT+15*, GLRT+27, GLRT+28, GLRT+32
F60IEN	GLRT+8~, GLRT+13*, GLRT+15
F60NAME	GLRT+8~, GLRT+14*, GLRT+31
GAAD2	GAA+4~, GAA+6, GAA+7, GAA+8
GLRAA	GAA+4~, GAA+8*, GAA+9, GAA+12, GAA+13
GLRAAAB	GAA+4~, GAA+9*, GAA+10, GAA+12
GOBACK	GDT+1~, GDT+4*, GDT+6
GPD0	GETPARAM+1~, GETPARAM+3*, GETPARAM+8, SORTBY+3, SELLOC+2, SELLOC+7, SELLOC+8, GAA+2, GAA+7, GAA+8 , GLRT+2, GLRT+11, GLRT+12, GLRT+17, GLRT+18, GDT+3, GSLOG+2
GPD1	GETPARAM+1~, GETPARAM+3*, GETPARAM+8, SORTBY+3, SELLOC+2, SELLOC+7, SELLOC+8, GAA+2, GAA+7, GAA+8 , GLRT+2, GLRT+11, GLRT+12, GLRT+17, GLRT+18, GDT+3, GSLOG+2
GPD3	GLRT+8~, GLRT+10, GLRT+11, GLRT+12, GLRT+17, GLRT+18
GPD4	GLRT+8~, GLRT+16, GLRT+17, GLRT+18
I	GLRT+8~, GLRT+38, GTSC+2
IEN	GLRT+8~, GLRT+12, GLRT+13, GLRT+14, GLRT+18, GLRT+19, GLRT+20, GLRT+21
II	GV+1~, GV+11*
IO	RUN+2
IO("Q"	GDV+2!
IOM	RUN+3
>> IOP	GETPARAM+8*
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
>> LRA	GTSC+1, GTSC+2, TST+3, SPEC+5, RNG+2, GC+3, GV+4, GV+5
>> LRAA	GAA+1, GAA+13
>> LRAA(	GAA+12*
LRCNT	GETPARAM+1~, SPEC+1, INIT+1
>> LRDASH	RUN+3*
>> LREDAT	RUN+5*, RUN+6
LREDT	GETPARAM+1~, RUN+5, INIT+7, GDT+6, GDT+8
LREND	GETPARAM+1~, GETPARAM+6, GETPARAM+13, RUN+3, RUN+7, GLRT+6, TST+4, INIT+4, GSLOG+5, GSLOG+7* , GDV+1, GDV+2, WAIT*
>> LRHDR2	RUN+6, GDT+8
>> LRLCS	SELLOC+1, SELLOC+13, SELLOC+15
>> LRLCS(	SELLOC+14*
>> LRLCS("NO ABR	V" , SELLOC+15*
LRLONG	GETPARAM+1~, INIT+5, GDT+5
>> LRPAG	RUN+3*
LRPTS	GETPARAM+1~, INIT+2*
>> LRQUE	GDV+2*
>> LRSDAT	RUN+4*, RUN+6
LRSDT	GETPARAM+1~, RUN+4, INIT+6, GDT+7, GDT+8
>> LRSRT	SORTBY+4*
LRTST	GLRT+1!, GLRT+36*, TST+5, TST+6, SPEC+4, SPEC+6, RNG+4, RNG+5, RNG+10, GV+7 , GV+17, GV+19, GV+22, ASPC+1, GSLOG+7, HLP2+2
LRTST(	GLRT+30, GLRT+31, GLRT+32, TST+5, TST+6, SPEC+4, SPEC+6, RNG+4, RNG+5, RNG+10* , GV+7, GV+17, GV+19, GV+22, ASPC+1*, HLP2+2
LRTST(0	GLRT+37, GLRT+38, GSLOG+7*
LRTW	GETPARAM+1~, INIT+8*
>> LRV	RNG+2, RNG+3, RNG+4, RNG+10
>> LRV2	RNG+2, RNG+3, RNG+4, RNG+10
LY	GV+1~, GV+17, GV+18, GV+19, GV+20, GV+21*, GV+22
OPERATOR	GLRT+8~, GLRT+19*, GLRT+22, GLRT+24
OPNAME	GLRT+8~, GLRT+20*, GLRT+31
OPVAL	GLRT+8~, GLRT+24*, GLRT+29
>> POP	GDV+1
SORTBY	SORTBY+1~, SORTBY+3*, SORTBY+4
STR	GLRT+8~, GLRT+27, GLRT+28, GLRT+29*, GLRT+30
TT	GV+1~, GV+11*, GV+12, GV+13
U	SORTBY+3, TST+5, RNG+4, RNG+5, GV+6, GV+17, GV+19, GV+22, ASPC+1, INIT+3* , HLP2+2
VALUE	GLRT+8~, GLRT+21*, GLRT+22, GLRT+29, GLRT+31
>> X	RUN+4, RUN+5, TST+4, SPEC+5, CND+1, CND+2, RNG+2, RNG+3, RNG+5, RNG+6 , RNG+7, GC+3, GV+3, GV+4, GV+5, GV+6*, GV+7, GV+11, GV+15, GV+22
Y	RUN+4, RUN+5, TST+3, TST+5, TST+6, SPEC+4, SPEC+6, RNG+1~, RNG+6, RNG+7 , RNG+8, RNG+9, RNG+10, GC+3
Y(0	GV+6, GV+7, GV+22, HLP2+2
>> ZTDESC	GDV+2*
>> ZTQUEUED	BEGIN+1, BEGIN+4, RUN+2, RUN+8
>> ZTREQ	BEGIN+4, RUN+2
>> ZTRTN	GDV+2*
>> ZTSAVE	GETPARAM+12
>> ZTSAVE("GP*"	GETPARAM+11*
>> ZTSAVE("LR*"	GETPARAM+10, GDV+2

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRSORA

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: