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 |  Marked Items |  All
Print Page as PDF
Routine: LRWLST

Package: Lab Service

Routine: LRWLST


Information

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

Source Information

Source file <LRWLST.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Lab Service 5 NEW^LR7OB1  $$VER^LR7OU1  SET^LROR  ^LRWLST1  (DT,PT)^LRX  
IHS Changes To Lab 2 ORDNSTOR^BLRAAORU  ENTRYAUD^BLRUTIL  
Kernel 2 (T0,T1)^%ZOSV  $$FMADD^XLFDT  
Order Entry Results Reporting 1 ST^ORX  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Lab Service 7 LRCONJAM  LRFAST  LRORDST  LRPHITEM  LRQCLOG  LRSLOW  LRVRPOC  
IHS Changes To Lab 1 BLRDIAG  
IHS Laboratory Point of Care 1 BLRPOC2  

Entry Points

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

External References

Name Field # of Occurrence
T0^%ZOSV EP+4
T1^%ZOSV EP+22
ORDNSTOR^BLRAAORU EP+27
ENTRYAUD^BLRUTIL FWL+5
^DIC FWL+13
NEW^LR7OB1 EP+20, UNDO+8
$$VER^LR7OU1 OR+4
SET^LROR OR+19
^LRWLST1 EP+18
DT^LRX EP+2
PT^LRX PRESET+5
ST^ORX OR+24
$$FMADD^XLFDT PR2+3

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: !,"NO ACCESSION AREA FOR ORDER NUMBER ",^LRO(69,LRODT,1,LRSN,.1)," TEST ",$P(^LAB(60,LRTSTS,0),U),!
  • Line Location: FWL+2
Function Call: WRITE
  • Prompt: !,LRNM," does not have an appropriate accession area.",!,"ORDER # ",LRORD," IS NOT ACCESSIONED",!
  • Line Location: FWL+3
Function Call: WRITE
  • Prompt: !,LRNM," does not have an appropriate accession area.",!,"ORDER # ",LRORD," IS NOT ACCESSIONED",!
  • Line Location: FWL+6
Function Call: WRITE
  • Prompt: !,"For test: ",LRNM
  • Line Location: FWL+10
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
Routine Call
  • DIC
  • Line Location:
    • FWL+13

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRSITE - [#9009029] FWL+5
^LAB(60 - [#60] WL1+5, WL1+6, FWL+1, FWL+2, EXP+2
^LR - [#63] PRESET+5, PRESET+8, PR2+2, PR2+5, PR2+6*, PR2+7*, PR2+11!
^LRO(68 - [#68] WL2+2, WL2+3, WL2+5, WL2+6, WL2+8, WL2+9, WL2+12, PRESET+1!, PRESET+2, PRESET+5
, PRESET+7, PR2+8, PR2+9!, PR2+10!, PR2+11!
^LRO(69 - [#69] EP+10, EP+11, EP+12, EP+20, EP+27, LRAA+3, SET+1, SET+2, FWL+1*, FWL+2
, UNDO+2, UNDO+3*, UNDO+4*, UNDO+6, UNDO+7, UNDO+9*, OR+1, OR+6, OR+10, OR+14
, OR+18
^TMP("LR" EP+21!, LRAA+1!, WL1+3, WL2+17, SET+3*, FWL+1, EXP+2*

Label References

Name Line Occurrences
EXP FWL+1
FWL WL2+1, FWL+16
LRAA EP+18
SET LRAA+5
UNDO WL2+7, WL2+10, WL2+13, FWL+2, FWL+8
WL2 WL1+8, WL2+3
YN WL2+3, YN+4

Naked Globals

Name Field # of Occurrence
^( LRAA+5, WL1+4, EXP+2, PR2+8, UNDO+7*, OR+9, OR+17
^(0 WL1+6, PRESET+5, PR2+6, UNDO+7*, UNDO+9*, OR+7, OR+8, OR+9, OR+15, OR+16
, OR+17
^(4 OR+9, OR+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CONTROL EP+20*
>> DFN PRESET+5*
DIC EP+21!, FWL+11!, FWL+12*, FWL+14!
DIC("S" FWL+12*
DIC(0 FWL+12*
DT UNDO+7
DTIME YN+1
>> DTOUT YN+2*
>> DUOUT FWL+15
DUZ UNDO+9
DUZ(2 WL1+6, FWL+5, EXP+2
>> HRCN PRESET+5
I EP+21!, EXP+1*, EXP+2*
>> I5 SET+2*, SET+3*, EXP+2*
>> J EXP+2*, PR2+7*
>> LRAA WL1+6*, WL2+1, WL2+2, WL2+3*, WL2+5*, WL2+6, WL2+8, WL2+9*, WL2+16, WL2+17
, FWL+7*, FWL+15*, FWL+17*, PRESET+1, PRESET+2, PRESET+5, PRESET+7, PR2+8, PR2+9, PR2+10
, PR2+11
>> LRAD PRESET+1, PRESET+2, PRESET+5, PRESET+7, PR2+8, PR2+9, PR2+10, PR2+11
>> LRAN PRESET+1, PRESET+2, PRESET+5, PRESET+7, PR2+8, PR2+9, PR2+10, PR2+11
LRBACK EP+21!, LRAA+5*, WL1+4*, SET+3, EXP+2
>> LRCDT EP+10*, EP+19*, PR2+1, PR2+3*, PR2+4, PR2+6
>> LRDAA WL1+6
>> LRDFN PR2+2, PR2+6, PR2+7
>> LRDPF PRESET+5*
>> LRDUZ(2 WL1+6
>> LREAL EP+11*, EP+19, PR2+6
>> LREND PRESET+5*, PR2+5*
>> LRI OR+5*, OR+10, OR+13*, OR+18
>> LRIDIV WL2+2*
>> LRIDT PRESET+7*, PRESET+8, PR2+5, PR2+6, PR2+7, PR2+11
>> LRIFN UNDO+2*, UNDO+3, UNDO+6, UNDO+7, UNDO+9
>> LRIX LRAA+2*, WL1+2*, WL1+3*, WL1+4, WL2+17, FWL+1
>> LRKIL EP+3
>> LRLLOC EP+13*
>> LRLWC OR+7*, OR+15*
>> LRNCWL WL2+3, FWL+2, FWL+4
>> LRNIDT PR2+1*, PR2+2, PR2+4*, PR2+6, PR2+7
LRNM EP+21!, WL1+7*, WL2+3, FWL+6, FWL+10
>> LROCN PR2+8*, PR2+10
>> LRODT EP+10, EP+11, EP+12, EP+20, EP+27, LRAA+3, SET+1, SET+2, FWL+1, FWL+2
, UNDO+2, UNDO+3, UNDO+4, UNDO+6, UNDO+7, UNDO+8, UNDO+9, OR+1, OR+6, OR+10
, OR+14, OR+18
>> LROID PR2+8*, PR2+9
>> LROLLOC EP+14*
>> LROLRDFN PRESET+2*, PRESET+5, PRESET+8, PR2+5, PR2+6, PR2+7, PR2+11
>> LRORD FWL+6, OR+6*, OR+14*
>> LRORDRR SET+1, OR+1
LRORIFN EP+15*, EP+20, EP+21!, LRAA+5*, WL1+4*, SET+3, EXP+2, OR+12, OR+22
>> LROSN PR2+8*
>> LRPHSET WL2+3, WL2+6, WL2+11, FWL+2
LRPWDT EP+1~
LRPWL EP+1~, WL2+8*, WL2+9, WL2+12
LRPWLE EP+1~
>> LRQUIET WL2+10
>> LRSAMP OR+8*, OR+16*
>> LRSN EP+10, EP+11, EP+12, EP+20, EP+27, LRAA+3, SET+1, SET+2, FWL+1, FWL+2
, UNDO+2, UNDO+3, UNDO+4, UNDO+6, UNDO+7, UNDO+8, UNDO+9, OR+1, OR+6, OR+10
, OR+14, OR+18
>> LRSPEC OR+9*, OR+17*
>> LRSS WL2+2*, WL2+17, PRESET+8, PR2+2, PR2+5, PR2+6, PR2+7, PR2+11
>> LRST WL1+5*, WL1+7
>> LRTEST( SET+1*, OR+1*, OR+10*, OR+18*
>> LRTN LRAA+2*, LRAA+3*, LRAA+5, SET+1, SET+2, SET+3, OR+1, OR+5, OR+10, OR+13
, OR+18
>> LRTSP SET+3, EXP+2
LRTSTS EP+21!, LRAA+1!, LRAA+2*, WL1+4*, WL1+5, WL1+6, FWL+1, FWL+2, EXP+2, UNDO+2
LRTSTS( WL2+17*
>> LRUNQ WL1+7*, WL2+17
>> LRURG WL1+4*, EXP+2
>> LRWL0 WL2+2*, WL2+15, WL2+17
>> LRWLC WL2+15*, WL2+16*, WL2+17
LRX LRAA+4~, LRAA+5*
ORIFN OR+22*, OR+25!
ORSTS OR+23*, OR+25!
>> PNM PRESET+5
>> S5 LRAA+2*, SET+2*, SET+3, EXP+2*
TST UNDO+1~, UNDO+8
TST( UNDO+6*
U EP+11, EP+13, EP+14, LRAA+5, WL1+6, WL1+7, WL2+2, WL2+3, WL2+5, WL2+6
, WL2+8, WL2+9, WL2+12, WL2+15, WL2+17, SET+3, FWL+1, FWL+2, FWL+5, PRESET+5
, PR2+5, PR2+6, PR2+8, UNDO+4
X EP+12*, EP+13, EP+14, EP+15, WL1+4*, WL2+3, PR2+8*, YN+1*, YN+3, UNDO+1~
, UNDO+6*, UNDO+7*
>> XQZ EP+27
>> XRT0 EP+22
>> XRTL EP+4
>> XRTN EP+22*
>> Y FWL+16, FWL+17

Marked Items

Name Field # of Occurrence
$T( EP+22
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 |  Marked Items |  All