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

Package: Lab Service

Routine: LRWLST


Information

LRWLST ;FHS/DALOI - ACCESSION SETUP. LROE1,LRSTIK & LRFAST CALL HERE ; Aug 9, 2004

Source Information

Source file <LRWLST.m>

Entry Points

Name Comments DBIA/ICR reference
LRAA ;
WL1 ;
; LRDAA is used by POC interface to specify the POC accession area.
WL2 ;
SET ;
FWL ;
EXP ;
PRESET ;
PR2 ;
YN ;
UNDO ;Clean up ^LRO(69
OR ;from LRPHITEM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LRNM," TO ",$P(^LRO(68,LRAA,0),U)," accessions","? Y//"
  • Line Location: WL2+3
Function Call: WRITE
  • Prompt: !?10,"COMMON Accession Area ",$P($G(^LRO(68,+$G(LRPWL),0)),U),!
  • Line Location: WL2+12
Function Call: WRITE
  • Prompt: !,$P(^LAB(60,LRPARENT,0),U)," does not have an appropriate accession area",!
  • Line Location: FWL+8
Function Call: WRITE
  • Prompt: !,"NO ACCESSION AREA FOR ORDER NUMBER ",^LRO(69,LRODT,1,LRSN,.1)," TEST ",$P(^LAB(60,LRTSTS,0),U),!
  • Line Location: FWL+11
Function Call: WRITE
  • Prompt: !,LRNM," does not have an appropriate accession area.",!,"ORDER # ",LRORD," IS NOT ACCESSIONED",!
  • Line Location: FWL+12
Function Call: WRITE
  • Prompt: !,"For test: ",LRNM
  • Line Location: FWL+13
Function Call: WRITE
  • Prompt: !,$C(7),"CAN'T DO IT. The data has been verified for that log number."
  • Line Location: PR2+5
Function Call: WRITE
  • Prompt: !,"Answer 'Y' or 'N': "
  • Line Location: YN+4

FileMan Files Accessed Via FileMan Db Call

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