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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LROE

Package: Lab Service

Routine: LROE


Information

LROE ;DALOI/CJS/FHS-LAB ORDER ENTRY AND ACCESSION ;8/11/97

Source Information

Source file <LROE.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Lab Service 8 (,STD,STOP)^LRCAPV  QUICK^LROE1  Q15^LROE2  (,LROEND)^LRORDK  ORDER^LROS  ^LRPARAM  $$SELPL^LRVERA  (DD,KVAR,PT,YMD)^LRX  
Kernel 3 ^%ZTLOAD  ($$DT,$$FMTE)^XLFDT  $$UP^XLFSTR  
VA Fileman 3 ^%DT  YN^DICN  ^DIR  
IHS Changes To Lab 2 ORDNSTOR^BLRAAORU  SHIPMAN^BLRRLEVN  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Lab Service 8 LR ACC THEN DATA  LR7OF5  LRLABXOL  LRNONCOM  LROE  LROE1  LRORD1  LROW2RP  

Entry Points

Name Comments DBIA/ICR reference
STAT ;
EN ;
END
GOT(ORD,ODT) ;See if all tests have been canceled
YN
TIME1
BLRRL ;EP - cmi/anch/maw 8/4/2004 added to check for shipping manifest and print
EN01 ; ENTER ORDER # THEN ENTER DATA
LROEN
TIME2
NEXT ;from LROE1
LROE2 ;
L5 ;
TIME ;from LROE1, LRORD1
; S %DT="SET" W !,"Collection Date@Time: ",$S($D(%DT("B")):%DT("B"),1:"NOW"),"//" R X:DTIME I '$T!(X="^") S LRCDT=-1 Q
; S:X="" X=$S($D(%DT("B")):%DT("B"),1:"N")
QMSG
UNL69 ;
TASK ;
MORE

External References

Name Field # of Occurrence
^%DT NEXT+9, TIME+16, TIME+18, TIME2
^%ZTLOAD TASK+1
ORDNSTOR^BLRAAORU MORE+11
SHIPMAN^BLRRLEVN BLRRL+15
YN^DICN TIME2
^DIR NEXT+8, NEXT+27, NEXT+34, MORE
^LRCAPV NEXT+2
STD^LRCAPV TASK+4
STOP^LRCAPV TASK+5, END+1
QUICK^LROE1 NEXT+14
Q15^LROE2 MORE+9
^LRORDK END+1
LROEND^LRORDK END+1
ORDER^LROS LROE2+22
^LRPARAM LROE+6, STAT+1
$$SELPL^LRVERA STAT+5
DD^LRX NEXT+21, LROE2+21
KVAR^LRX NEXT+22
PT^LRX LROE2+16
YMD^LRX STAT+12
$$DT^XLFDT NEXT+3
$$FMTE^XLFDT NEXT+3
$$UP^XLFSTR TIME+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"ROLLOVER ",$S($P(^("RO"),U,2):"IS RUNNING.",1:"HAS NOT RUN.")," ACCESSIONING SHOULDN'T BE DONE NOW.",$C(7),!
  • Line Location: NEXT+6
Function Call: WRITE
  • Prompt: !,"OK, try later."
  • Line Location: NEXT+8
Function Call: READ
  • Timeout: DTIME
  • Variable: LRORD
  • Line Location: NEXT+13
Function Call: WRITE
  • Prompt: !!,"Select Order number: "
  • Line Location: NEXT+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEXT+14
Function Call: WRITE
  • Prompt: !,"The order number entered is too long."
  • Line Location: NEXT+15
Function Call: WRITE
  • Prompt: !!?10,"No order exist with that number ",$C(7),!
  • Line Location: NEXT+17
Function Call: WRITE
  • Prompt: !,!,?5,@LRVIDO,"Patient ",PNM," died on: ",Y,@LRVIDOF
  • Line Location: NEXT+21
Function Call: WRITE
  • Prompt: !
  • Line Location: NEXT+21
Function Call: WRITE
  • Prompt: !,"The order has already been partially accessioned."
  • Line Location: NEXT+28
Function Call: WRITE
  • Prompt: !,"The order has already been accessioned."
  • Line Location: NEXT+29
Function Call: WRITE
  • Prompt: !,"No order exists with that number."
  • Line Location: NEXT+30
Function Call: WRITE
  • Prompt: !?5,"Someone else is editing this Order",!!,$C(7)
  • Line Location: NEXT+37
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN
  • Line Location: LROE2+9
Function Call: WRITE
  • Prompt: !,PNM,?30,HRCN
  • Line Location: LROE2+17
Function Call: WRITE
  • Prompt: ?45,"Requesting location: ",$P(LRZX,U,7)
  • Line Location: LROE2+21
Function Call: WRITE
  • Prompt: !,"Date/Time Ordered: ",Y,?45,"By: ",$S($D(^VA(200,+$P(LRZX,U,2),0)):$P(^(0),U),1:"")
  • Line Location: LROE2+21
Function Call: WRITE
  • Prompt: !,"Enter the order entry number assigned when the test was ordered."
  • Line Location: QMSG+0
Function Call: WRITE
  • Prompt: !,"To exit, type the ""^"" key and RETURN key."
  • Line Location: QMSG+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !,"Answer 'Y' or 'N': "
  • Line Location: YN+1
Function Call: WRITE
  • Prompt: !!?10,"You do not have the proper security Keys",!
  • Line Location: STAT+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: TIME+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: TIME+6
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: TIME+8
Function Call: WRITE
  • Prompt: !!,?4,"Need Time also."
  • Line Location: TIME+12
Function Call: WRITE
  • Prompt: !,"You have specified a collection time in the future. Are you sure"
  • Line Location: TIME2+0
Function Call: WRITE
  • Prompt: !,"Answer 'Y'es or 'N'o."
  • Line Location: TIME2+0
Routine Call
  • DIR
  • Line Location:
    • NEXT+8
    • NEXT+27
    • NEXT+34
    • MORE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRRLO - [#9009026.3] BLRRL+12
^BLRRLO("B" BLRRL+9, BLRRL+11
^BLRSITE - [#9009029] BLRRL+6, BLRRL+7
^LAB(69.9 - [#69.9] NEXT+5
^LR - [#63] LROE2+15
^LRO(68 - [#68] TASK+4
^LRO(69 - [#69] NEXT+4*, NEXT+17, NEXT+19, NEXT+20, NEXT+36, MORE+4, MORE+6, MORE+7, LROE2+1, LROE2+2
, LROE2+3, LROE2+4, LROE2+8, LROE2+13, GOT+3, GOT+4, GOT+5, GOT+6, UNL69+1
^VA(200 - [#200] LROE2+21
^XTMP("LRCAP" TASK+3!

Label References

Name Line Occurrences
$$GOT NEXT+31
BLRRL NEXT+11
END NEXT+8, LROEN+1, STAT+6, STAT+14
LROE LROEN+1, STAT+13
LROE2 NEXT+20
NEXT NEXT+15, NEXT+16, NEXT+17, NEXT+22, NEXT+29, NEXT+30, NEXT+31, NEXT+35, NEXT+37, NEXT+41
, MORE+1, MORE+12
QMSG NEXT+16
TASK MORE+10
TIME NEXT+40, TIME+12, TIME+16, TIME+18
TIME1 TIME+18
TIME2 TIME1
UNL69 NEXT+41, MORE+1, MORE+10
YN YN+1

Naked Globals

Name Field # of Occurrence
^( GOT+6
^("RO" NEXT+5, NEXT+6
^(0 LROE2+15, LROE2+21, GOT+6
^(1 MORE+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % TIME2*, TIME2+1
%DT NEXT+9*, NEXT+38!, NEXT+40!, TIME+6*, TIME+8*, TIME2*
%DT("B" NEXT+39*, TIME+8, TIME+9
>> %H STAT+12*
BLRASFLG BLRRL+4!, BLRRL+16!
BLRDXS BLRRL+3!, BLRRL+16!
>> BLRGUI BLRRL+5
BLRINS BLRRL+3!, BLRRL+16!
>> BLROPT STAT+9*
>> BLROPT(0 STAT+9*
>> DA NEXT+20*, LROE2+1, LROE2+2, LROE2+3, LROE2+4, LROE2+7
>> DFN LROE2+15*
DIC NEXT+12!
>> DILOCKTM NEXT+36
DIR NEXT+1!, NEXT+27!, NEXT+32!, NEXT+34!, MORE!, END!
DIR("A" NEXT+7*, NEXT+25*, NEXT+32*, MORE*
DIR("B" NEXT+7*, NEXT+33*
DIR("T" NEXT+26*
DIR(0 NEXT+7*, NEXT+24*, NEXT+32*, MORE*
DIRUT NEXT+8, NEXT+22!, NEXT+35, MORE+1, END!
>> DOD NEXT+21, NEXT+22
DT NEXT+3*, NEXT+4, TIME+17
DTIME NEXT+13, YN, TIME+6, TIME+8
DTOUT NEXT+22!, YN*
DUOUT NEXT+22!
DUZ TASK+3
DUZ(2 STAT+5, STAT+7, BLRRL+6, BLRRL+7
GOT END!, GOT+2*, GOT+4, GOT+6*, GOT+7
>> HRCN LROE2+17
I GOT+1~, GOT+6*
IOF NEXT+14
LRAA MORE+9!, TASK+4
LRCCOM TASK+5!
LRCDT NEXT+41, NEXT+42, NEXT+44!, TIME+6*, TIME+8*, TIME+10, TIME+16*, TIME+17*, TIME+18*
>> LRCHK NEXT+18*, NEXT+20*, NEXT+28, NEXT+29, LROE2+3*, LROE2+4*
LRCOM TASK+5!
LRCSQ TASK+3!, TASK+4
>> LRDFN LROE2+14*, LROE2+15
>> LRDPF LROE2+15*
LREND LROE+4!, LROE+7*, NEXT+2, STAT+13!
>> LRLABKY STAT+2
>> LRLABLIO TASK+1
LRLBL TASK+1, TASK+2!
LRLONG NEXT+2!, NEXT+13, QMSG+1, STAT+11*, STAT+13!
>> LRLWC LROE+5*
LRNATURE LROE+4!
LRNCWL LROEN*, LROEN+1!
>> LRNONE NEXT+18*, NEXT+20*, NEXT+28, NEXT+29, NEXT+30, LROE2+3*, LROE2+4*
>> LRODT NEXT+3*, NEXT+18*, NEXT+19*, NEXT+20, NEXT+31, MORE+3*, MORE+4*, MORE+6, MORE+7, LROE2+1
, LROE2+2, LROE2+3, LROE2+4, LROE2+8, LROE2+13
>> LRODT0 NEXT+3*
LROESTAT NEXT+2, STAT+11*, STAT+13!
>> LRORD NEXT+13*, NEXT+14, NEXT+15, NEXT+16*, NEXT+17, NEXT+19, NEXT+20, NEXT+31, NEXT+36, MORE+2
, MORE+4, MORE+6, UNL69+1, BLRRL+9, BLRRL+11, BLRRL+15
LRORDRR LROE+4!
LRORIFN LROE+4!
LRPANEL NEXT+2!, STAT+11*
>> LRPARAM NEXT+2
LRPL STAT+7~*
LRSN NEXT+12!, NEXT+35!, NEXT+44!, MORE+8*, MORE+9!, LROE2+6!, LROE2+7*, LROE2+8, LROE2+13, LROE2+22*
LRSN( MORE+8*, LROE2+7*
LRSND NEXT+12!, MORE+3*, MORE+5*, MORE+6*, MORE+7, MORE+8
LRSPCDSC TASK+5!
>> LRSTATUS NEXT+39*
>> LRSVSN LROE2+22*
LRTCOM TASK+5!
>> LRTIM NEXT+42*
LRTM60 STAT+12*, STAT+13!
>> LRTM7 NEXT+9*
>> LRUN NEXT+44*
>> LRVIDO NEXT+21
>> LRVIDOF NEXT+21
>> LRWRD LROE2+18
>> LRWRDS LROE2+18*
>> LRZX LROE2+13*, LROE2+14, LROE2+21
>> M9 NEXT+14*, NEXT+18*, MORE*, LROE2+12*
ODT GOT~, GOT+1~, GOT+2*, GOT+3*, GOT+4, GOT+5, GOT+6
OI BLRRL+10~, BLRRL+11*, BLRRL+12
ORD GOT~, GOT+3, GOT+4
>> PNM NEXT+21, LROE2+17
SN GOT+1~, GOT+2*, GOT+4*, GOT+5, GOT+6
U NEXT+2, NEXT+5, NEXT+6, NEXT+44, MORE+7, LROE2+3, LROE2+4, LROE2+15, LROE2+21, STAT+9
, TIME+5, TIME+7, TASK+4, BLRRL+7
>> X NEXT+3*, NEXT+9*, YN*, STAT+5*, STAT+6, STAT+7, STAT+12, TIME+6*, TIME+8*, TIME+9*
, TIME+11*, TIME+12, TIME+15, TIME+16*, TIME+17, TIME+18, TIME1*, TIME2*, TIME2+1*
X1 TIME1*!, TIME2+1*
>> XQY0 STAT+9, TIME+5, TIME+7
Y NEXT+8, NEXT+9, NEXT+21*, NEXT+22!, NEXT+23!, NEXT+35, MORE, LROE2+21*, TIME+16, TIME+18
, TIME1*, TIME2
Y1 TIME1*!, TIME2
YYYLRORD MORE+2*, MORE+11!
>> ZTDESC TASK+1*
>> ZTDTH TASK+1*
>> ZTIO TASK+1*
>> ZTRTN TASK+1*
>> ZTSAVE("LRLBL(" TASK+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All