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 |  All
Print Page as PDF
Routine: BLRSORA

Package: IHS Changes To Lab

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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!

Label References

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*
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 |  All