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

Package: Lab Service

Routine: LRVRA


Information

LRVRA ;DALOI/JMC-Lab Routine Data Verification by UID ;06/04/10 19:12

Source Information

Source file <LRVRA.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 4 P15^LROE1  STOP^LRVR  ^LRVR1  PT^LRX  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Kernel 1 ($$CJ,$$UP)^XLFSTR  

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

Package Total Caller Graph
Lab Service 4 LRGV  LRVR  LRVR0  LRVRAR  

Entry Points

Name Comments DBIA/ICR reference
WLN ; Select next accession (UID) to work with.
LW ; Display list of UID's available
LWP(LRSD) ; Display list of partial UID's available
NEXT ; Retrieve next UID in xref.
UID ; Setup accession variables for a given UID.
; UID selected must be from same subscript as profile accession area.
BLDHELP(LRSD,LRLL,LRPROF) ; Build list of UID's
; Input LRSD - seed value for partial lookups
; if null or missing then return all UID's in xref.
; LRLL - ien of loadlist.
; LRPROF - ien of profile on loadlist.
; Only max of 500 allow to be displayed.

External References

Name Field # of Occurrence
$$GET1^DIQ LW+8, LWP+8
^DIR WLN+5, LW+12, LWP+18
P15^LROE1 WLN+27
STOP^LRVR WLN+6, LW+13, LWP+20, LWP+23
^LRVR1 LRVRA+13
PT^LRX WLN+20
$$CJ^XLFSTR LW+7, LW+8, LWP+7, LWP+8
$$UP^XLFSTR WLN+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: WLN+1
Function Call: WRITE
  • Prompt: !,"No accession on file for this UID."
  • Line Location: WLN+13
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN_" Age: "_AGE(2)
  • Line Location: WLN+22
Function Call: WRITE
  • Prompt: !,"ORDER #: ",LRCEN," "_LRACC," [",LRUID_"]"
  • Line Location: WLN+23
Function Call: WRITE
  • Prompt: !,"You cannot verify an accession which has not been collected.",$C(7)
  • Line Location: WLN+30
Function Call: WRITE
  • Prompt: !,$C(7),"No results found in UID cross-reference."
  • Line Location: LW+4
Function Call: WRITE
  • Prompt: @IOF,$$CJ^XLFSTR("Current Unique Identifiers with Results Available",IOM)
  • Line Location: LW+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Associated with "_$$GET1^DIQ(68,LRAA_",",.02)_" subscript",IOM),!!
  • Line Location: LW+8
Function Call: WRITE
  • Prompt: ?3,$P($G(^TMP($J,"LR","UIDHELP",K)),"^",2)
  • Line Location: LW+10
Function Call: WRITE
  • Prompt: ?43,$P($G(^TMP($J,"LR","UIDHELP",(K+J))),"^",2),!
  • Line Location: LW+11
Function Call: WRITE
  • Prompt: !
  • Line Location: LW+12
Function Call: WRITE
  • Prompt: !,$C(7),"No results found in UID cross-reference."
  • Line Location: LWP+4
Function Call: WRITE
  • Prompt: @IOF,$$CJ^XLFSTR("Current Unique Identifiers with Results Available",IOM)
  • Line Location: LWP+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Associated with "_$$GET1^DIQ(68,LRAA_",",.02)_" subscript",IOM),!!
  • Line Location: LWP+8
Function Call: WRITE
  • Prompt: ?3,$J(K,3),". ",$P($G(^TMP($J,"LR","UIDHELP",K)),"^",2)
  • Line Location: LWP+11
Function Call: WRITE
  • Prompt: ?43,$J(K+J,3),". ",$P($G(^TMP($J,"LR","UIDHELP",(K+J))),"^",2)
  • Line Location: LWP+14
Function Call: WRITE
  • Prompt: !
  • Line Location: LWP+16
Function Call: WRITE
  • Prompt: !
  • Line Location: LWP+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LWP+19
Routine Call
  • DIR
  • Line Location:
    • WLN+5
    • LW+12
    • LWP+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRO(68 - [#68] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAH( NEXT+4, BLDHELP+11
^LR - [#63] WLN+19
^LRO(68 - [#68] WLN+12, WLN+16, WLN+17, WLN+18, WLN+25, UID+3, UID+6, BLDHELP+9, BLDHELP+14, BLDHELP+18
, BLDHELP+19
^LRO(68.2 - [#68.2] LRVRA+5, BLDHELP+9
^LRO(69 - [#69] WLN+29
^TMP($J LW+10, LW+11, LW+14!, LWP+10, LWP+11, LWP+13, LWP+14, LWP+22, LWP+24!, BLDHELP+7!
, BLDHELP+22*

Label References

Name Line Occurrences
$$BLDHELP LW+3, LWP+3
$$LWP WLN+9
NEXT LRVRA+6, LRVRA+12, LRVRA+13, WLN+14, WLN+32
UID WLN+11, NEXT+7
WLN LRVRA+12, WLN+10, WLN+12

Naked Globals

Name Field # of Occurrence
^( WLN+16
^(0 WLN+16, WLN+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGE(2 WLN+22
C5 LRVRA+9!
>> DFN WLN+19*
DIC LRVRA+9!
DIR LRVRA+11~, WLN+2!, LW+1~, LWP+1~
DIR("?" WLN+3*
DIR("A" WLN+3*, LWP+17*
DIR("B" WLN+4*
DIR(0 WLN+3*, LW+12*, LWP+17*
DIRUT LRVRA+11~, WLN+6, LW+1~, LW+13, LWP+1~, LWP+21
DTOUT LRVRA+11~, LW+1~, LWP+1~
DUOUT LRVRA+11~, LW+1~, LWP+1~, LWP+20
>> EAMODE LRVRA+10*
I LW+1~, LW+6*, LW+9, LWP+1~, LWP+6*, LWP+9, BLDHELP+6~, BLDHELP+10*, BLDHELP+11*, BLDHELP+12
, BLDHELP+13, BLDHELP+14, BLDHELP+15
IOF LW+7, LWP+7, LWP+19
IOM LW+7, LW+8, LWP+7, LWP+8
IOSL LW+5, LWP+5
J LW+1~, LW+5*, LW+9, LW+11, LWP+1~, LWP+5*, LWP+9, LWP+13, LWP+14, LWP+15
K LW+1~, LW+3*, LW+4, LW+5, LW+9*, LW+10, LW+11, LWP+1~, LWP+3*, LWP+4
, LWP+5, LWP+9*, LWP+10, LWP+11, LWP+12, LWP+13, LWP+14, LWP+15, BLDHELP+6~, BLDHELP+10*
, BLDHELP+11, BLDHELP+21, BLDHELP+22*, BLDHELP+23
L LW+1~, LW+5*, LW+6, LWP+1~, LWP+5*, LWP+6
LRAA WLN+12, WLN+16, WLN+17, WLN+18, WLN+25, WLN+26~, LW+8, LWP+8, UID+5, UID+6
, UID+7*, BLDHELP+6~, BLDHELP+9*, BLDHELP+16, BLDHELP+17*, BLDHELP+18, BLDHELP+19
LRAB LRVRA+9!
>> LRACC WLN+17*, WLN+23
LRAD WLN+12, WLN+16, WLN+17, WLN+18, WLN+25, WLN+26~, UID+4*, UID+5*, UID+6*, UID+7*
, BLDHELP+6~, BLDHELP+17*, BLDHELP+19
LRAN WLN+12, WLN+16, WLN+17, WLN+18, WLN+25, WLN+26~, UID+4*, UID+5*, UID+6*, UID+7*
, BLDHELP+6~, BLDHELP+17*, BLDHELP+19
LRANYAA LRVRA+4~, LRVRA+5*, UID+5, BLDHELP+16
>> LRCDT WLN+28
>> LRCEN WLN+16*, WLN+23
>> LRCFL LRVRA+10*
LRDEL LRVRA+9!
>> LRDFN WLN+16*, WLN+19
LRDL LRVRA+9!
>> LRDPF WLN+19*
LREND LRVRA+8, LW+1~, LW+2*, LW+6, LWP+1~, LWP+2*, LWP+6
LRFP LRVRA+9!
LRLDT LRVRA+9!
LRLL LRVRA+5, LW+3, LWP+3, NEXT+4, BLDHELP~, BLDHELP+8*, BLDHELP+9, BLDHELP+11
LRNG LRVRA+9!
LRNM LRVRA+9!
LRNOP LRVRA+4~, LRVRA+12, WLN+1*, WLN+6*, WLN+28*, WLN+29, WLN+31*, WLN+32
>> LRODT WLN+16*, WLN+29
>> LRORU3 WLN+18*
LRPROF LRVRA+5, LW+3, LWP+3, BLDHELP~, BLDHELP+8*, BLDHELP+9
LRQUIT NEXT+1~, NEXT+2*, NEXT+4, NEXT+8*
LRSD LWP~, LWP+2*, LWP+3, BLDHELP~, BLDHELP+8*, BLDHELP+12
LRSET LRVRA+9!
>> LRSN WLN+16*, WLN+29
LRSS BLDHELP+6~, BLDHELP+9*, BLDHELP+18
>> LRSTATUS WLN+27*
LRTEST LRVRA+9!
LRUID LRVRA+4~, LRVRA+6*, WLN+4, WLN+7*, WLN+8*, WLN+9*, WLN+10*, WLN+23, LWP+1~, LWP+2*
, LWP+4, LWP+22*, LWP+25, NEXT+3, NEXT+5~, NEXT+6*, NEXT+8, NEXT+9*, UID+3, UID+4*
, UID+5*, UID+6*
LRUIDX NEXT+1~, NEXT+3*, NEXT+4*, NEXT+6, NEXT+9
LRVER LRVRA+9!
M LWP+1~, LWP+2*, LWP+12*, LWP+15*, LWP+17
>> PNM WLN+22
>> SSN WLN+22
T LRVRA+9!
U WLN+16, WLN+19, WLN+29
X LRVRA+11~, LW+1~, LWP+1~, UID+2~, UID+3*, UID+4, UID+5, UID+6, UID+7, BLDHELP+6~
, BLDHELP+14*, BLDHELP+15, BLDHELP+16, BLDHELP+17
Y LRVRA+9!, LRVRA+11~, WLN+7, LW+1~, LWP+1~, LWP+21, LWP+22, BLDHELP+6~, BLDHELP+13*, BLDHELP+19*
, BLDHELP+21*, BLDHELP+22
Z LRVRA+9!
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