Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BLROLOR

Package: IHS Changes To Lab

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

FileMan Files Accessed Via FileMan Db Call

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

Label References

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

Marked Items

Name Field # of Occurrence
$T( SETBLRVS+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All