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/CJS/DALOI/FHS - LAB ROUTINE DATA VERIFICATION ;JUL 06, 2010 3:14 PM

Source Information

Source file <LRVR.m>

Call Graph

Call Graph Total: 19

Package Total Call Graph
Lab Service 15 (AUTO,STD)^LRCAPV  EXPLODE^LRGP2  ^LRMIEDZ  P15^LROE1  ^LRPARAM  REV^LRVER  ($$SELPL,CMTDSP)^LRVERA  ^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  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Lab Service 4 LRFLAG  LRVR  LRVRA  LRVRW  

Entry Points

Name Comments DBIA/ICR reference
QUIT
CLEAN ;
STOP
YN
LIST
L10
NEXT
DAT
LW ;
INIT ;from LRVRW
WLN ;
SKPEX
REV ;
EXPAND

External References

Name Field # of Occurrence
^%ZTLOAD CLEAN+6
^DIC INIT+4, INIT+8
^DIR WLN+6
AUTO^LRCAPV INIT+16
STD^LRCAPV CLEAN+2
EXPLODE^LRGP2 EXPAND
^LRMIEDZ INIT+17
P15^LROE1 WLN+23
^LRPARAM INIT+2
REV^LRVER REV+2
$$SELPL^LRVERA INIT+12
CMTDSP^LRVERA INIT+23
^LRVR1 L10+3
^LRVRA LRVR+6
^LRVRKIL CLEAN+4
W^LRWRKLST LW+6
ADATE^LRWU DAT
LRAN^LRWU3 LW+3
$$SELBY^LRWU4 LRVR+4
PT^LRX WLN+16
$$DT^XLFDT LW+4
$$FMADD^XLFDT DAT+6
$$FMTE^XLFDT WLN+21, LW+4
$$NOW^XLFDT WLN+26

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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: WLN+13
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN
  • Line Location: WLN+14
Function Call: WRITE
  • Prompt: !,"ORDER #: ",LRCEN
  • Condition for execution: LRCEN
  • Line Location: WLN+14
Function Call: WRITE
  • Prompt: !,PNM,?30,HRCN
  • Line Location: WLN+16
Function Call: WRITE
  • Prompt: !,"ORDER #: ",LRCEN
  • Condition for execution: LRCEN
  • Line Location: WLN+16
Function Call: WRITE
  • Prompt: !,">>>>ERROR - NO POINTER TO FILE #63 - PLEASE NOTIFY SYSTEM MANAGER^ <<<<<",!
  • Line Location: WLN+36
Function Call: WRITE
  • Prompt: !,">>>>ERROR - NO ENTRY IN FILE #63 - PLEASE NOTIFY SYSTEM MANAGER<<^ <<<",!
  • Line Location: WLN+37
Function Call: WRITE
  • Prompt: !,"This Order # has not been collected",$C(7)
  • Line Location: WLN+39
Function Call: WRITE
  • Prompt: !,"You cannot verify an accession which has not been collected.",$C(7)
  • Line Location: WLN+40
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+6
Function Call: WRITE
  • Prompt: !?10,$C(7),"Error in your DATABASE. There is not an accession area # ",LRAA,!!
  • Line Location: INIT+9
Routine Call
  • DIC
  • Line Location:
    • INIT+4
    • INIT+8
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] INIT+20
^LAB(69.9 - [#69.9] DAT+5
^LR - [#63] WLN+16, WLN+37
^LRO(68 - [#68] DAT+1, DAT+2, WLN+9, WLN+11, WLN+12, WLN+18, WLN+19, WLN+26, WLN+28, WLN+29
, WLN+32, WLN+35, QUIT, CLEAN+2, NEXT, INIT+9, INIT+16, INIT+17, INIT+18, INIT+21
^LRO(68.2 - [#68.2] INIT+5, INIT+7, INIT+9
^LRO(69 - [#69] WLN+39, WLN+40
^XTMP("LRCAP" CLEAN+1!

Label References

Name Line Occurrences
EXPAND INIT+19
INIT LRVR+3
L10 L10+4
NEXT L10+3, WLN+41
QUIT LRVR+3, LRVR+5, LRVR+6, DAT, L10+2
STOP WLN+7, INIT+4, INIT+8, INIT+18, INIT+19
WLN L10+2, WLN+41
YN YN

Naked Globals

Name Field # of Occurrence
^( WLN+11, WLN+39
^(0 DAT+5, WLN+11, WLN+16
^(2 DAT+2, QUIT*
^(3 DAT+1, WLN+26*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT WLN+20~
%DT("B" WLN+21*
>> B INIT+7*, INIT+8
C5 L10+1!
>> DFN WLN+16*
DIC L10+1!, INIT+1~, INIT+3*, INIT+8*
DIC("S" INIT+3*, INIT+4!
DIC(0 INIT+3*
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
DT DAT+6
DTIME YN
DTOUT WLN+2!
DUOUT WLN+2!
DUZ CLEAN+1
DUZ(2 INIT+12, INIT+14
>> EAMODE L10*
>> HRCN WLN+16
>> I DAT+1*, LIST*, INIT+20*
>> J INIT+20*
LRA1 WLN+20~, WLN+22*, WLN+24
LRA2 WLN+20~, WLN+22*, WLN+24
LRA3 WLN+20~, WLN+22*, WLN+24
>> LRAA DAT+1, DAT+2, WLN+9, WLN+11, WLN+12, WLN+18, WLN+19, WLN+22, WLN+24*, WLN+26
, WLN+28, WLN+29, WLN+32, WLN+35, LW+5, LW+7*, QUIT, CLEAN+2, NEXT, INIT+9*
, INIT+16, INIT+17, INIT+18, INIT+21
LRAB L10+1!
>> LRAD DAT, DAT+1, DAT+2, WLN+9, WLN+11, WLN+12, WLN+18, WLN+19, WLN+22, WLN+24*
, WLN+26, WLN+28, WLN+29, WLN+35, LW+5, LW+7*, QUIT, NEXT
>> LRAN DAT+1*, DAT+2*, WLN+5, WLN+8*, WLN+9, WLN+11, WLN+12, WLN+18, WLN+19, WLN+22
, WLN+24*, WLN+26, WLN+28, WLN+29, WLN+35, LW+5, LW+7*, QUIT, NEXT*, INIT+2*
>> LRCDT WLN+18*, WLN+21, WLN+25, WLN+29*, WLN+30*
>> LRCEN WLN+11*, WLN+16
>> LRCFL L10*
LRCMTDSP CLEAN+3!
>> LRCSQ CLEAN+1
LRDEL L10+1!
>> LRDFN WLN+11*, WLN+16, WLN+37
LRDL L10+1!
>> LRDPF WLN+16*
>> LRDT LW+4*
LRDUZ LRVR+2~, INIT+2!
LRDUZ(2 INIT+14*
>> LREND LRVR+3, L10+2, LW+3, LW+7*, QUIT*, NEXT+1*, STOP*, INIT+2*, INIT+6*, INIT+13*
, INIT+16, INIT+17*, INIT+19*
LRFP L10+1!
LRIDIV CLEAN+2!
>> LRIDT WLN+35*, WLN+36, WLN+37
LRLDT L10+1!
>> LRLL INIT+4*, INIT+5, INIT+7, INIT+8, INIT+9
LRNG L10+1!
LRNM L10+1!
LRNOP WLN+1*, WLN+9*, WLN+10, WLN+13*, WLN+16, WLN+19, WLN+25*, WLN+28*, WLN+30*, WLN+33*
, WLN+36*, WLN+37*, WLN+39*, WLN+40*, WLN+41, CLEAN+3!
>> LRODT WLN+11*, WLN+39, WLN+40
LRORD INIT+2!
LRORD( INIT+20*
>> LRORU3 WLN+12*, WLN+13
>> LRPANEL INIT+9*
>> LRPARAM CLEAN+2, INIT+16
LRPER REV+1!
>> LRPROF INIT+5*, INIT+6, INIT+7, INIT+8*, INIT+9
LRSET L10+1!
>> LRSN WLN+11*, WLN+39, WLN+40
>> LRSS WLN+32*, WLN+33, WLN+37
>> LRSTATUS WLN+22*
LRTEST L10+1!
>> LRTM60 DAT+6*
>> LRTSE INIT+21*
>> LRTST( LIST
>> LRTYPE INIT+4*
LRVBY LRVR+2~, LRVR+4*, LRVR+5, LRVR+6
LRVER L10+1!
>> LRVTS(0 SKPEX, INIT+19
LRX INIT+1~, INIT+12*, INIT+13, INIT+14
>> PNM WLN+16
S LW+1~
S("LRAA" LW+5*, LW+7
S("LRAD" LW+5*, LW+7
S("LRAN" LW+5*, LW+7
T L10+1!
U DAT+1, DAT+2, DAT+5, WLN+11, WLN+13, WLN+16, WLN+18, WLN+26, WLN+28, WLN+29
, WLN+32, WLN+35, WLN+40, QUIT, CLEAN+2, INIT+4, INIT+9, INIT+16, INIT+17, INIT+18
, INIT+20
X DAT+4~, DAT+5*, DAT+6, YN*, INIT+9*, INIT+12, INIT+20*
XP CLEAN+3!
Y L10+1!, WLN+8, INIT+4, INIT+8, INIT+21*
Y(0 INIT+4
Z L10+1!
>> 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