Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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.

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRO(68 - [#68] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call