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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: LRSORA1

Package: Lab Service

Routine: LRSORA1


Information

LRSORA1 ;SLC/KCM - CREATE SEARCH LOGIC ; 8/5/87 11:40 ;

Source Information

Source file <LRSORA1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 4 ^DIC  YN^DICN  ^DIM  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRSORA  

Entry Points

Name Comments DBIA/ICR reference
EN
PLOG
STOP
TSTLIM
PARSE
SWAP ;;LROLD;LRNEW; NOTE: $L(LROLD) MUST BE >= $L(LRNEW)
HLP0
SUMMARY ;
SORTBY ;
PATS ;
LOCS ;
NOABRV ;

External References

Name Field # of Occurrence
^DIC PATS+3, LOCS+3
YN^DICN NOABRV+8
^DIM PLOG+3
^DIR SORTBY+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !,"-",$C(64+J),"-"," ",$P(LRTST(J,2),U,1)
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: " (",$P(LRTST(J,2),U,2),")"
  • Condition for execution: $P(LRTST(J,2),U,2)]""
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: " ",$P(LRTST(J,2),U,3)
  • Line Location: EN+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"Enter a logical expression (i.e., A AND B OR C or A&B!C)."
  • Line Location: HLP0+0
Function Call: WRITE
  • Prompt: !," NOTE: AND will compare only values from the -same- accession."
  • Line Location: HLP0+1
Function Call: WRITE
  • Prompt: !," To print all results that fall within the search criteria,"
  • Line Location: HLP0+2
Function Call: WRITE
  • Prompt: !," accept the default search logic (OR)."
  • Line Location: HLP0+3
Function Call: WRITE
  • Prompt: !!,"The location you have selected does not have an abbreviation."
  • Line Location: NOABRV+1
Function Call: WRITE
  • Prompt: !,"If you use this location, the report will list all records without"
  • Line Location: NOABRV+2
Function Call: WRITE
  • Prompt: " location",!,"abbreviations (as long as they also meet the date and"
  • Line Location: NOABRV+3
Function Call: WRITE
  • Prompt: " patient selections)",!,"This may include data from several "
  • Line Location: NOABRV+4
Function Call: WRITE
  • Prompt: "locations, with no way to be sure which is",!,"which. They will be "
  • Line Location: NOABRV+5
Function Call: WRITE
  • Prompt: "listed with the abbreviation of 'NO ABRV' or 'UNK'."
  • Line Location: NOABRV+6
Function Call: WRITE
  • Prompt: !!,"Do you still want to select this location (Y/N)?//"
  • Line Location: NOABRV+7
Routine Call
  • DIC
  • Line Location:
    • PATS+3
    • LOCS+3
Routine Call
  • DIR
  • Line Location:
    • SORTBY+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls

Label References

Name Line Occurrences
HLP0 EN+2
NOABRV LOCS+5
PARSE PLOG
PLOG EN+2
TSTLIM PLOG+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PLOG*, PLOG+1*, PLOG+2*, STOP!, LOCS+5, LOCS+7!, NOABRV+7*
%Y LOCS+7!
DIC PATS+2!*, LOCS+2!*
DIC("A" PATS+2*, PATS+3*, LOCS+2*, LOCS+4*
DIC(0 PATS+2*, LOCS+2*
DIR SORTBY+1!
DIR("?" SORTBY+2*
DIR("A" SORTBY+1*
DIR("B" SORTBY+1*
DIR(0 SORTBY+2*
DTIME EN+2
>> DTOUT SORTBY+3, PATS+4, LOCS+7
>> DUOUT SORTBY+3, PATS+4, LOCS+7
>> I EN+1*, EN+2*, PATS+3*, LOCS+3*, LOCS+6
>> J EN*
>> LRA EN+1*, EN+2
>> LREND EN+2*, SORTBY+3*, PATS+4*, LOCS+7*
LRI STOP!, PARSE*, PARSE+1*, PARSE+2
LRJ STOP!, TSTLIM*, PARSE+2*
>> LRLCS LOCS+1*, LOCS+6*
>> LRLCS( LOCS+6*
LRNEW PLOG*, STOP!, PARSE*, PARSE+2
LROK PLOG+2*, STOP!, TSTLIM*
LROLD PLOG*, STOP!, PARSE, PARSE+1, PARSE+2
LRPNT STOP!
LRPNT( PARSE+1*, PARSE+2
LRPNT(0 PARSE+1*
>> LRPTS PATS+1*, PATS+3*
>> LRPTS( PATS+3*
>> LRSRT SORTBY+3*
>> LRTST EN, EN+1, TSTLIM
>> LRTST( EN
>> LRTST(0 EN+3*
T PLOG*, PLOG+2*, STOP!, TSTLIM
U EN, PATS+3, LOCS+5, LOCS+6
X EN+2*, PLOG+1, PLOG+3*, STOP!, PARSE+1, PARSE+2*
>> Y EN+2*, EN+3, PLOG+1*, PLOG+2*, PLOG+3*, STOP, SORTBY+3, PATS+3, LOCS+3, LOCS+6
>> Y(0 LOCS+5, LOCS+6

Marked Items

Name Field # of Occurrence
$T(SWAP+% PLOG
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  Marked Items  | All