Routine: BLROLOR

Information

BLROLOR ; IHS/MSC/MKK - Open Lab Orders Report ; 13-Oct-2017 14:04 ; MKK

Source Information

Source file <BLROLOR.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC $$FMTE^XLFDT $$CJ^XLFSTR $$ACTIVE^XUSER
IHS Changes To Lab	1	(ADDTMENU,EEP,HEADERDT,HEADERPG,HEADONE,MENUDRVR,PRESSKEY)^BLRGMENU
VA Fileman	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
PLURAL(CNT)	; EP - If CNT'=1, return S else return ""
REPORTL	; EP - Line of Data
BADSTUFF(STR,TAB)	; EP - BADSTUFF error message
JUSTNEW	; EP - Generic RPMS EXCLUSIVE NEW
PEP	; EP
EEP	; Ersatz EP
LRASFND()	; EP - Determine if order's Test has an accession attached to it
SETBLRVS(TWO)	; EP - Set the BLRVERN variable(s)
REPORTI(HEDSUB2)	; EP - Initialization
PLURALI(CNT)	; EP - If CNT'=1, return IES else return Y
BADSTUFQ(STR,TAB)	; EP - BADSTUFF error message. Ends with Q "Q"uit
REPORT	; EP - Main Report
EP	; EP
PROVRPT	; EP - Report by Ordering Provider
REPORTB	; EP - Break out Data

External References

Name	Field # of Occurrence
^%ZIS	REPORTI+11, PROVRPT+37
^%ZISC	REPORT+31, PROVRPT+33, PROVRPT+57
ADDTMENU^BLRGMENU	PEP+5, PEP+6
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	REPORTI+7, REPORTI+9, REPORTI+11, REPORTI+13
HEADERPG^BLRGMENU	REPORTL+1
HEADONE^BLRGMENU	REPORTI+8
MENUDRVR^BLRGMENU	PEP+8
PRESSKEY^BLRGMENU	REPORT+37, PROVRPT+35, PROVRPT+63, BADSTUFF+3
$$GET1^DIQ	REPORT+12, REPORTB+2, REPORTB+3, REPORTB+4, REPORTB+5, REPORTB+6, REPORTB+7, REPORTB+8, REPORTB+9, PROVRPT+17 , PROVRPT+23, LRASFND+2, LRASFND+3, LRASFND+4
$$FMTE^XLFDT	REPORTL+6
$$CJ^XLFSTR	REPORTI+5, REPORTI+18, REPORTI+19
$$ACTIVE^XUSER	REPORT+15, PROVRPT+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?4,CNTORD," Orders analyzed." Line Location: REPORT+28
Function Call: WRITE	Prompt: !!,?9,CNT," Order",$$PLURAL(CNT)," with Non-Active Provider",$$PLURAL(CNT),"." Line Location: REPORT+29
Function Call: WRITE	Prompt: !!,?4,CNTORD," Orders analyzed." Line Location: REPORT+34
Function Call: WRITE	Prompt: !!,?9,CNT," Orders with Non-Active Providers." Line Location: REPORT+35
Function Call: WRITE	Prompt: ORDERN Line Location: REPORTL+5
Function Call: WRITE	Prompt: ?9,$$FMTE^XLFDT(ORDTT,"2DZ") Line Location: REPORTL+6
Function Call: WRITE	Prompt: ?19,ORDPROVI Line Location: REPORTL+7
Function Call: WRITE	Prompt: ?29,$E(ORDPROVN,1,18) Line Location: REPORTL+8
Function Call: WRITE	Prompt: ?49,DFN Line Location: REPORTL+9
Function Call: WRITE	Prompt: ?59,$E(PATNAME,1,21) Line Location: REPORTL+10
Function Call: WRITE	Prompt: ! Line Location: REPORTL+11
Function Call: WRITE	Prompt: ?4,"Compiling" Line Location: PROVRPT+7
Function Call: WRITE	Prompt: "." Line Location: PROVRPT+10
Function Call: WRITE	Prompt: !,?4 Condition for execution: $X>74 Line Location: PROVRPT+10
Function Call: WRITE	Prompt: !,?4,"Compilation Complete." Line Location: PROVRPT+31
Function Call: WRITE	Prompt: !!,?4,CNTORD," Orders analyzed." Line Location: PROVRPT+54
Function Call: WRITE	Prompt: !!,?9,CNT," Order",$$PLURAL(CNT)," with Non-Active Provider",$$PLURAL(CNT),"." Line Location: PROVRPT+55
Function Call: WRITE	Prompt: !!,?4,CNTORD," Orders analyzed." Line Location: PROVRPT+60
Function Call: WRITE	Prompt: !!,?9,CNT," Order",$$PLURAL(CNT)," with Non-Active Provider",$$PLURAL(CNT),"." Line Location: PROVRPT+61
Function Call: WRITE	Prompt: !!,?TAB,STR," Routine Ends." Line Location: BADSTUFF+2
Routine Call	%ZIS Line Location: REPORTI+11 PROVRPT+37

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^LR - [#63]	GET1^DIQ
69.01	GET1^DIQ
69.03	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LRO(69 - [#69]	REPORT+5, REPORT+8, REPORT+10, REPORT+19, REPORT+24, REPORT+26, PROVRPT+8, PROVRPT+13, PROVRPT+15, PROVRPT+25
^TMP("BLROLOR"	PROVRPT+5!, PROVRPT+29*, PROVRPT+33, PROVRPT+44, PROVRPT+46, PROVRPT+48, PROVRPT+50, PROVRPT+51

Name	Line Occurrences
$$BADSTUFQ	REPORTI+11, PROVRPT+38
$$LRASFND	REPORT+19, PROVRPT+25
$$PLURAL	REPORT+29, PROVRPT+55, PROVRPT+61
$$REPORTI	REPORT+3, PROVRPT+3
BADSTUFF	PROVRPT+33, BADSTUFQ+1
REPORTB	REPORTL+3
REPORTL	REPORT+26, PROVRPT+52
SETBLRVS	PEP+3, REPORTI+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACTUSER	REPORT+7, REPORT+8, REPORT+10, REPORT+13, REPORT+15, REPORT+16, REPORT+21, REPORT+24, REPORT+26, PROVRPT+11 , PROVRPT+13, PROVRPT+15, PROVRPT+18, PROVRPT+20, PROVRPT+21, PROVRPT+27
BLRVERN	SETBLRVS+1!, SETBLRVS+3*
BLRVERN2	SETBLRVS+1!, SETBLRVS+4*
CNT	REPORT+29, REPORT+35, REPORTI+28, REPORTL+13, PROVRPT+55, PROVRPT+61, PLURAL~, PLURAL+1, PLURALI~, PLURALI+1
>> CNTORD	REPORT+6, REPORT+28, REPORT+34, REPORTI+28, PROVRPT+9*, PROVRPT+10, PROVRPT+54, PROVRPT+60
>> DFN	REPORTL+9, REPORTB+3*, REPORTB+4
>> DILOCKTM	PEP+1, REPORT+1, PROVRPT+1, JUSTNEW+1
>> DISYS	PEP+1, REPORT+1, PROVRPT+1, JUSTNEW+1
DT	PEP+1, REPORT+1, PROVRPT+1, JUSTNEW+1
DTIME	PEP+1, REPORT+1, PROVRPT+1, JUSTNEW+1
DUZ	PEP+1, REPORT+1, PROVRPT+1, JUSTNEW+1
>> HDRONE	REPORTI+8, REPORTL+1
>> HEADER(1	REPORTI+3*
>> HEADER(2	REPORTI+4*
>> HEADER(3	REPORTI+5*
>> HEADER(4	REPORTI+17*
>> HEADER(5	REPORTI+18, REPORTI+19
>> HEADER(6	REPORTI+20, REPORTI+21, REPORTI+22, REPORTI+23, REPORTI+24, REPORTI+25
HEDSUB2	REPORTI~, REPORTI+5, REPORTI+11
IO	PEP+1, REPORT+1, REPORTI+29, PROVRPT+1, PROVRPT+40, JUSTNEW+1
>> IOBS	PEP+1, REPORT+1, PROVRPT+1, JUSTNEW+1
IOF	PEP+1, REPORT+1, PROVRPT+1, JUSTNEW+1
IOM	PEP+1, REPORT+1, REPORTI+5, PROVRPT+1, JUSTNEW+1
ION	PEP+1, REPORT+1, PROVRPT+1, JUSTNEW+1
>> IOS	PEP+1, REPORT+1, PROVRPT+1, JUSTNEW+1
IOSL	PEP+1, REPORT+1, REPORTI+27, PROVRPT+1, PROVRPT+41, JUSTNEW+1
IOST	PEP+1, REPORT+1, REPORTI+15, PROVRPT+1, PROVRPT+39, JUSTNEW+1
>> IOT	PEP+1, REPORT+1, PROVRPT+1, JUSTNEW+1
>> IOXY	PEP+1, REPORT+1, PROVRPT+1, JUSTNEW+1
>> LINES	REPORTI+27, REPORTL+1, REPORTL+12, PROVRPT+41*
>> LRAA	LRASFND+3*, LRASFND+5
>> LRAD	LRASFND+2*, LRASFND+5
>> LRAN	LRASFND+4*, LRASFND+5
>> LRASFND	REPORT+7, REPORT+8, REPORT+10, REPORT+19, REPORT+21, PROVRPT+11, PROVRPT+13, PROVRPT+15, PROVRPT+25, PROVRPT+27
>> LRDFN	REPORTB+2*, REPORTB+3
>> LRODT	REPORT+7, REPORT+8, REPORT+10, REPORT+11, REPORT+19, REPORT+23, REPORT+24, REPORT+26, REPORTB+1, PROVRPT+11* , PROVRPT+13, PROVRPT+15, PROVRPT+16, PROVRPT+23, PROVRPT+25, PROVRPT+47, PROVRPT+48*, PROVRPT+50, PROVRPT+51, LRASFND+1
>> LROIEN	REPORT+11, REPORT+12, REPORTB+1, REPORTB+2, REPORTB+5, REPORTB+6, REPORTB+7, REPORTB+8, REPORTB+9, PROVRPT+16* , PROVRPT+17, PROVRPT+23
>> LROT	REPORT+18, REPORT+19, PROVRPT+24, PROVRPT+25, LRASFND+1
>> LROTIEN	LRASFND+1*, LRASFND+2, LRASFND+3, LRASFND+4
>> LRSP	REPORT+9, REPORT+10, REPORT+11, REPORT+19, REPORT+25, REPORT+26, REPORTB+1, PROVRPT+14, PROVRPT+15, PROVRPT+16 , PROVRPT+23, PROVRPT+25, PROVRPT+49, PROVRPT+50, PROVRPT+51, LRASFND+1
>> MAXLINES	REPORTI+27, REPORTL+1, PROVRPT+41
>> ORDERN	REPORT+5, REPORT+8, REPORT+10, REPORT+24, REPORT+26, REPORTI+28, REPORTL+5, PROVRPT+8, PROVRPT+13, PROVRPT+15 , PROVRPT+23, PROVRPT+51
>> ORDLOCI	REPORTB+8*
>> ORDLOCN	REPORTB+9*
ORDPROV	PROVRPT+12!, PROVRPT+29
ORDPROV(	PROVRPT+23*
>> ORDPROVI	REPORT+12, REPORT+13, REPORT+15, REPORTL+7, REPORTB+6, PROVRPT+17, PROVRPT+18, PROVRPT+20, PROVRPT+23, PROVRPT+45 , PROVRPT+46*, PROVRPT+48, PROVRPT+50, PROVRPT+51
>> ORDPROVN	REPORTL+8, REPORTB+7, PROVRPT+43, PROVRPT+44*, PROVRPT+46, PROVRPT+48, PROVRPT+50, PROVRPT+51
>> ORDTT	REPORTL+6, REPORTB+5*
>> PATNAME	REPORTL+10, REPORTB+4*
>> PG	REPORTI+28*, REPORTL+1
>> POP	REPORTI+11, PROVRPT+38
>> QFLG	REPORT+5, REPORT+8, REPORT+10, REPORT+19, REPORT+24, REPORT+26, REPORTI+28*, REPORTL+1, PROVRPT+8, PROVRPT+13 , PROVRPT+15, PROVRPT+25, PROVRPT+44, PROVRPT+46, PROVRPT+48, PROVRPT+50
STR	BADSTUFF~, BADSTUFF+2, BADSTUFQ~, BADSTUFQ+1
TAB	BADSTUFF~, BADSTUFF+1*, BADSTUFF+2, BADSTUFF+3, BADSTUFQ~, BADSTUFQ+1
TWO	SETBLRVS~, SETBLRVS+4
U	PEP+1, REPORT+1, PROVRPT+1, JUSTNEW+1
>> WOTDEV	REPORT+33, REPORTI+15, PROVRPT+39, PROVRPT+59
>> XPARSYS	PEP+1, REPORT+1, PROVRPT+1, JUSTNEW+1
>> XQXFLG	PEP+1, REPORT+1, PROVRPT+1, JUSTNEW+1

Customize PDF page

Package: IHS Changes To Lab

Routine: BLROLOR

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items