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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRVR

Package: Lab Service

Routine: LRVR


Information

LRVR ;DALOI/STAFF - LAB ROUTINE DATA VERIFICATION ;06/05/10 00:33

Source Information

Source file <LRVR.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Lab Service 15 (AUTO,STD)^LRCAPV  EXPLODE^LRGP2  P15^LROE1  ^LRPARAM  REV^LRVER  ($$SELPL,CMTDSP)^LRVERA  EN^LRVR0  ^LRVR1  
^LRVRA  ^LRVRKIL  W^LRWRKLST  ADATE^LRWU  LRAN^LRWU3  $$SELBY^LRWU4  PT^LRX  
Kernel 2 ^%ZTLOAD  ($$DT,$$FMADD,$$FMTE,$$NOW)^XLFDT  
VA FileMan 2 ^DIC  ^DIR  
Toolkit 1 $$GET^XPAR  

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: 11

Package Total Caller Graph
Lab Service 11 LRAP VR  LRFLAG  LRSTUF2  LRVER3  LRVR  LRVR0  LRVR1  LRVR3  
LRVRA  LRVRAR  LRVRW  

Entry Points

Name Comments DBIA/ICR reference
DAT
L10 ;
YN
WLN ;
WLN2 ;
LW ;
QUIT
CLEAN ;
NEXT
LIST
EXPAND
SKPEX
STOP
INIT ;from LRVRW
CONT ;
REV ;
LRTM60(LRX) ; Calculate days back for delta check based on specimen collection date/time

External References

Name Field # of Occurrence
^%ZTLOAD CLEAN+6
^DIC INIT+5, INIT+9
^DIR WLN+6
AUTO^LRCAPV INIT+17
STD^LRCAPV CLEAN+2
EXPLODE^LRGP2 EXPAND
P15^LROE1 WLN2+11
^LRPARAM INIT+2
REV^LRVER REV+2
$$SELPL^LRVERA INIT+13
CMTDSP^LRVERA CONT+4
EN^LRVR0 LRVR+7
^LRVR1 L10+4
^LRVRA LRVR+9
^LRVRKIL CLEAN+4
W^LRWRKLST LW+6
ADATE^LRWU DAT
LRAN^LRWU3 LW+3
$$SELBY^LRWU4 LRVR+6
PT^LRX WLN2+5
$$DT^XLFDT LW+4
$$FMADD^XLFDT LRTM60+9
$$FMTE^XLFDT WLN2+9, LW+4
$$NOW^XLFDT WLN2+14
$$GET^XPAR LRVR+5

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !,"Answer 'Y' or 'N': "
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !,"NOT ON FILE"
  • Line Location: WLN+9
Function Call: WRITE
  • Prompt: !?10,"No UID number for this accession",!
  • Line Location: WLN2+4
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN
  • Line Location: WLN2+5
Function Call: WRITE
  • Prompt: !,"ORDER #: ",LRCEN
  • Condition for execution: LRCEN
  • Line Location: WLN2+5
Function Call: WRITE
  • Prompt: !,">>>>ERROR - NO POINTER TO FILE #63 - PLEASE NOTIFY SYSTEM MANAGER^ <<<<<",!
  • Line Location: WLN2+24
Function Call: WRITE
  • Prompt: !,">>>>ERROR - NO ENTRY IN FILE #63 - PLEASE NOTIFY SYSTEM MANAGER<<^ <<<",!
  • Line Location: WLN2+25
Function Call: WRITE
  • Prompt: !,"This Order # has not been collected",$C(7)
  • Line Location: WLN2+27
Function Call: WRITE
  • Prompt: !,"You cannot verify an accession which has not been collected.",$C(7)
  • Line Location: WLN2+28
Function Call: WRITE
  • Prompt: !,"Enter range of accession numbers which might apply."
  • Line Location: LW+2
Function Call: WRITE
  • Prompt: !,"LAST IN WORK LIST"
  • Line Location: NEXT+0
Function Call: WRITE
  • Prompt: " the following tests: "
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !,?10,$P(LRTST(I),"^",1)
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !,"No profile defined."
  • Line Location: INIT+7
Function Call: WRITE
  • Prompt: !?10,$C(7),"Error in your DATABASE. There is not an accession area # ",LRAA,!!
  • Line Location: INIT+10
Routine Call
  • DIC
  • Line Location:
    • INIT+5
    • INIT+9
Routine Call
  • DIR
  • Line Location:
    • WLN+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRO(68.2 - [#68.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] CONT+1
^LAB(69.9 - [#69.9] LRTM60+7
^LR - [#63] WLN2+5, WLN2+25
^LRO(68 - [#68] LRVR+7, DAT+1, DAT+2, WLN+9, WLN2+2, WLN2+3, WLN2+6, WLN2+7, WLN2+14, WLN2+16
, WLN2+17, WLN2+20, WLN2+23, QUIT, CLEAN+2, NEXT, INIT+10, INIT+17, INIT+19, INIT+21
, CONT+2
^LRO(68.2 - [#68.2] INIT+6, INIT+8, INIT+10
^LRO(69 - [#69] WLN2+27, WLN2+28
^XTMP("LRCAP" CLEAN+1!

Label References

Name Line Occurrences
EXPAND INIT+22
INIT LRVR+4
L10 L10+5
NEXT L10+4, WLN2+29
QUIT LRVR+4, LRVR+7, LRVR+8, LRVR+9, DAT, L10+3
STOP WLN+7, INIT+5, INIT+9, INIT+21, INIT+22
WLN L10+3, WLN2+29
YN YN

Naked Globals

Name Field # of Occurrence
^( WLN2+2, WLN2+27
^(0 WLN2+2, WLN2+5
^(2 DAT+2, QUIT*
^(3 DAT+1, WLN2+14*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT WLN2+8~
%DT("B" WLN2+9*
>> B INIT+8*, INIT+9
C5 L10+2!
>> DFN WLN2+5*
DIC L10+2!, INIT+1~, INIT+4*, INIT+9*
DIC("S" INIT+4*, INIT+5!
DIC(0 INIT+4*
DIR WLN+2!, WLN+6!, CLEAN+3!
DIR("?" WLN+4*
DIR("A" WLN+4*
DIR("B" WLN+5*
DIR(0 WLN+3*
DIRUT WLN+2!, WLN+7
DTIME YN
DTOUT WLN+2!
DUOUT WLN+2!
DUZ CLEAN+1
DUZ(2 INIT+13, INIT+15
>> EAMODE L10+1*
>> I DAT+1*, LIST*, CONT+1*
>> J CONT+1*
LRA1 WLN2+8~, WLN2+10*, WLN2+12
LRA2 WLN2+8~, WLN2+10*, WLN2+12
LRA3 WLN2+8~, WLN2+10*, WLN2+12
>> LRAA LRVR+5, LRVR+7, DAT+1, DAT+2, WLN+9, WLN2+2, WLN2+3, WLN2+6, WLN2+7, WLN2+10
, WLN2+12*, WLN2+14, WLN2+16, WLN2+17, WLN2+20, WLN2+23, LW+5, LW+7*, QUIT, CLEAN+2
, NEXT, INIT+10*, INIT+17, INIT+19, INIT+21, CONT+2
LRAB L10+2!
>> LRAD DAT, DAT+1, DAT+2, WLN+9, WLN2+2, WLN2+3, WLN2+6, WLN2+7, WLN2+10, WLN2+12*
, WLN2+14, WLN2+16, WLN2+17, WLN2+23, LW+5, LW+7*, QUIT, NEXT
>> LRAN DAT+1*, DAT+2*, WLN+5, WLN+8*, WLN+9, WLN2+2, WLN2+3, WLN2+6, WLN2+7, WLN2+10
, WLN2+12*, WLN2+14, WLN2+16, WLN2+17, WLN2+23, LW+5, LW+7*, QUIT, NEXT*, INIT+3*
>> LRCDT WLN2+6*, WLN2+9, WLN2+13, WLN2+17*, WLN2+18*
>> LRCEN WLN2+2*, WLN2+5
>> LRCFL L10+1*
LRCMTDSP CLEAN+3!
>> LRCSQ CLEAN+1
LRDB LRTM60+6~, LRTM60+7*, LRTM60+8*, LRTM60+9
LRDEL L10+2!
>> LRDFN WLN2+2*, WLN2+5, WLN2+25
LRDL L10+2!
>> LRDPF WLN2+5*
>> LRDT LW+4*
LRDUZ LRVR+3~, INIT+3!
LRDUZ(2 INIT+15*
>> LREND LRVR+4, L10+3, LW+3, LW+7*, QUIT*, NEXT+1*, STOP*, INIT+2, INIT+3*, INIT+7*
, INIT+14*, INIT+17, INIT+22*
LRFP L10+2!
LRIDIV CLEAN+2!
>> LRIDT WLN2+23*, WLN2+24, WLN2+25
LRLDT L10+2!
>> LRLL INIT+5*, INIT+6, INIT+8, INIT+9, INIT+10
LRNG L10+2!
LRNM L10+2!
LRNOP WLN+1*, WLN+9*, WLN2+1, WLN2+4*, WLN2+5, WLN2+7, WLN2+13*, WLN2+16*, WLN2+18*, WLN2+21*
, WLN2+24*, WLN2+25*, WLN2+27*, WLN2+28*, WLN2+29, CLEAN+3!
>> LRODT WLN2+2*, WLN2+27, WLN2+28
LRORD INIT+3!
LRORD( CONT+1*
>> LRORU3 WLN2+3*, WLN2+4
>> LRPANEL INIT+10*
>> LRPARAM CLEAN+2, INIT+17
LRPER REV+1!
>> LRPROF INIT+6*, INIT+7, INIT+8, INIT+9*, INIT+10
LRSET L10+2!
>> LRSN WLN2+2*, WLN2+27, WLN2+28
>> LRSS WLN2+20*, WLN2+21, WLN2+25
>> LRSTATUS WLN2+10*
LRTEST L10+2!
>> LRTSE CONT+2*
>> LRTST( LIST
>> LRTYPE INIT+5*
LRVBY LRVR+3~, LRVR+5*, LRVR+6*, LRVR+8, LRVR+9
LRVER L10+2!
>> LRVTS(0 SKPEX, INIT+22
LRX INIT+1~, INIT+13*, INIT+14, INIT+15, LRTM60~, LRTM60+9
LRY LRTM60+6~, LRTM60+9*, LRTM60+10
>> PNM WLN2+5
S LW+1~
S("LRAA" LW+5*, LW+7
S("LRAD" LW+5*, LW+7
S("LRAN" LW+5*, LW+7
>> SSN WLN2+5
T L10+2!
U LRVR+7, DAT+1, DAT+2, WLN2+2, WLN2+4, WLN2+5, WLN2+6, WLN2+14, WLN2+16, WLN2+17
, WLN2+20, WLN2+23, WLN2+28, QUIT, CLEAN+2, INIT+5, INIT+10, INIT+17, INIT+19, INIT+21
, CONT+1, LRTM60+7
>> X YN*, INIT+10*, INIT+13, CONT+1*
XP CLEAN+3!
Y L10+2!, WLN+8, INIT+5, INIT+9, CONT+2*
Y(0 INIT+5
Z L10+2!
>> ZTDESC CLEAN+5*
>> ZTDTH CLEAN+5*
>> ZTIO CLEAN+5*
>> ZTRTN CLEAN+5*
ZTSK CLEAN+6!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All