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 ;Nov 12, 2020@15:02

Source Information

Source file <LROE.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Lab Service 8 (,STD,STOP)^LRCAPV  QUICK^LROE1  ($$Q18,Q15)^LROE2  (,LROEND)^LRORDK  ORDER^LROS  ^LRPARAM  $$SELPL^LRVERA  (DD,KVAR,PT,YMD)^LRX  
Kernel 3 ^%ZTLOAD  ($$DT,$$FMTE)^XLFDT  $$CJ^XLFSTR  
VA FileMan 2 ^%DT  ^DIR  

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: 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
L5 ;
NEXT ;from LROE1
MORE
LROE2 ;
QMSG
YN
EN ;
LROEN
EN01 ; ENTER ORDER # THEN ENTER DATA
STAT ;
TIME ;from LROE1, LRORD1
TIME1
TIME2
TASK ;
END
GOT(ORD,ODT) ;See if all tests have been canceled
UNL69 ;

External References

Name Field # of Occurrence
^%DT NEXT+9, TIME+7, TIME+18, TIME2
^%ZTLOAD TASK+1
^DIR NEXT+8, NEXT+33, NEXT+40, MORE
^LRCAPV NEXT+2
STD^LRCAPV TASK+4
STOP^LRCAPV TASK+5, END+1
QUICK^LROE1 NEXT+13
$$Q18^LROE2 NEXT+51
Q15^LROE2 MORE+8
^LRORDK END+1
LROEND^LRORDK END+1
ORDER^LROS LROE2+14
^LRPARAM LROE+8, STAT+1
$$SELPL^LRVERA STAT+5
DD^LRX NEXT+26, LROE2+10
KVAR^LRX NEXT+28
PT^LRX LROE2+9
YMD^LRX STAT+10
$$DT^XLFDT NEXT+3
$$FMTE^XLFDT NEXT+3
$$CJ^XLFSTR NEXT+22, NEXT+23

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
  • Variable: LRORD
  • Timeout: DTIME
  • Line Location: NEXT+12
Function Call: WRITE
  • Prompt: !!,"Select Order number: "
  • Line Location: NEXT+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEXT+13
Function Call: WRITE
  • Prompt: !,"The order number entered is too long."
  • Line Location: NEXT+14
Function Call: WRITE
  • Prompt: !!?10,"No order exist with that number ",$C(7),!
  • Line Location: NEXT+16
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("This is an Anatomic Path order",IOM),!
  • Line Location: NEXT+22
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Must use 'Log-in, anat path' Option to accession this Order",IOM),!
  • Line Location: NEXT+23
Function Call: WRITE
  • Prompt: !,!,?5,@LRVIDO,"Patient ",PNM," died on: ",Y,@LRVIDOF
  • Line Location: NEXT+26
Function Call: WRITE
  • Prompt: !
  • Line Location: NEXT+26
Function Call: WRITE
  • Prompt: !,"All tests for this order have been canceled."
  • Line Location: NEXT+27
Function Call: WRITE
  • Prompt: !,"The order has already been partially accessioned."
  • Line Location: NEXT+34
Function Call: WRITE
  • Prompt: !,"The order has already been accessioned."
  • Line Location: NEXT+35
Function Call: WRITE
  • Prompt: !,"No order exists with that number."
  • Line Location: NEXT+36
Function Call: WRITE
  • Prompt: !?5,"Someone else is editing this Order",!!,$C(7)
  • Line Location: NEXT+43
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN
  • Line Location: LROE2+9
Function Call: WRITE
  • Prompt: ?45,"Requesting location: ",$P(LRZX,U,7)
  • Line Location: LROE2+10
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+10
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
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • Line Location: TIME+2
Function Call: WRITE
  • Prompt: !!,"You may enter ""T@U"" or just ""U"", for Today at Unknown time",!!
  • Line Location: TIME+4
Function Call: WRITE
  • Prompt: !,"Please enter a specific month, day, and year."
  • Line Location: TIME+10
Function Call: WRITE
  • Prompt: !,"Invalid - Collection date precedes patient's date of birth."
  • Line Location: TIME+14
Function Call: WRITE
  • Prompt: !,"Invalid - Collection date precedes patient's date of birth."
  • Line Location: TIME+21
Function Call: WRITE
  • Prompt: !,"Future date/time may not be entered."
  • Line Location: TIME2+2
Routine Call
  • DIR
  • Line Location:
    • NEXT+8
    • NEXT+33
    • NEXT+40
    • MORE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(69.9 - [#69.9] NEXT+5
^LR - [#63] LROE2+9
^LRO(68 - [#68] TASK+4
^LRO(69 - [#69] NEXT+4*, NEXT+16, NEXT+18, NEXT+19, NEXT+21, NEXT+42, MORE+3, MORE+5, MORE+6, LROE2+1
, LROE2+2, LROE2+3, LROE2+4, LROE2+8, LROE2+9, GOT+3, GOT+4, GOT+5, GOT+6, UNL69+1
^VA(200 - [#200] LROE2+10
^XTMP("LRCAP" TASK+3!

Label References

Name Line Occurrences
$$GOT NEXT+27
END NEXT+8, LROEN+1, STAT+6, STAT+12
LROE LROEN+1, STAT+11
LROE2 NEXT+19
NEXT NEXT+14, NEXT+15, NEXT+16, NEXT+21, NEXT+27, NEXT+28, NEXT+35, NEXT+36, NEXT+41, NEXT+43
, NEXT+47, NEXT+51, MORE+1, MORE+10
QMSG NEXT+15
TASK MORE+9
TIME NEXT+46, TIME+4, TIME+8, TIME+11, TIME+12, TIME+15, TIME+19, TIME+22, TIME+23
TIME1 TIME+12, TIME+18
TIME2 TIME1
UNL69 NEXT+47, NEXT+51, MORE+1, MORE+9
YN YN+1

Naked Globals

Name Field # of Occurrence
^( GOT+6
^("RO" NEXT+5, NEXT+6
^(0 LROE2+9, LROE2+10, GOT+6
^(1 MORE+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT NEXT+9*, NEXT+44!, NEXT+46!, TIME+2*, TIME2*
%DT("B" NEXT+45*, TIME+2, TIME+3
>> %H STAT+10*
>> DA NEXT+19*, LROE2+1, LROE2+2, LROE2+3, LROE2+4, LROE2+7
>> DFN LROE2+9*
DIC NEXT+11!
>> DILOCKTM NEXT+42
DIR NEXT+1!, NEXT+33!, NEXT+38!, NEXT+40!, MORE!, END!
DIR("A" NEXT+7*, NEXT+31*, NEXT+38*, MORE*
DIR("B" NEXT+7*, NEXT+39*
DIR("T" NEXT+32*
DIR(0 NEXT+7*, NEXT+30*, NEXT+38*, MORE*
DIRUT NEXT+8, NEXT+28!, NEXT+41, MORE+1, END!
>> DOB TIME+13, TIME+20
>> DOD NEXT+26, NEXT+28
DT NEXT+3*, NEXT+4, TIME+12, TIME+17
DTIME NEXT+12, YN, TIME+2
DTOUT NEXT+28!, YN*
DUOUT NEXT+28!
DUZ TASK+3
DUZ(2 NEXT+51, STAT+5, STAT+7
GOT END!, GOT+2*, GOT+4, GOT+6*, GOT+7
I GOT+1~, GOT+6*
IOF NEXT+13
IOM NEXT+22, NEXT+23
LRAA MORE+8!, TASK+4
LRCCOM TASK+5!
LRCDT NEXT+47, NEXT+48, NEXT+50!, TIME+2*, TIME+16*, TIME+17*, TIME+23*
>> LRCHK NEXT+17*, NEXT+19*, NEXT+34, NEXT+35, LROE2+3*, LROE2+4*
LRCOM TASK+5!
LRCSQ TASK+3!, TASK+4
>> LRDFN LROE2+9*
>> LRDPF LROE2+9*
LREND LROE+3!, LROE+9*, NEXT+2, STAT+11!
LRFUTURE TIME+1~*, TIME+19, TIME2+3*
>> LRLABKY STAT+2
>> LRLABLIO TASK+1
LRLBL TASK+1, TASK+2!
LRLONG NEXT+2!, NEXT+12, QMSG+1, STAT+9*, STAT+11!
>> LRLWC LROE+6*
LRNAAAC LROE+5~, END!
LRNATURE LROE+3!
LRNCWL LROEN*, LROEN+1!
>> LRNONE NEXT+17*, NEXT+19*, NEXT+34, NEXT+35, NEXT+36, LROE2+3*, LROE2+4*
>> LRODT NEXT+3*, NEXT+17*, NEXT+18*, NEXT+19, NEXT+27, MORE+2*, MORE+3*, MORE+5, MORE+6, LROE2+1
, LROE2+2, LROE2+3, LROE2+4, LROE2+8, LROE2+9, LROE2+13
>> LRODT0 NEXT+3*
LROESTAT NEXT+2, STAT+9*, STAT+11!
>> LRORD NEXT+12*, NEXT+13, NEXT+14, NEXT+15*, NEXT+16, NEXT+18, NEXT+19, NEXT+27, NEXT+42, MORE+3
, MORE+5, UNL69+1
LRORDR LROE+5~, LROE+6*
LRORDRR LROE+3!
LRORIFN LROE+3!
LRPANEL NEXT+2!, STAT+9*
>> LRPARAM NEXT+2
LRPL STAT+7~*
LRSN NEXT+11!, NEXT+21, NEXT+41!, NEXT+50!, MORE+7*, MORE+8!, LROE2+6!, LROE2+7*, LROE2+8, LROE2+9
LRSN( MORE+7*, LROE2+7*
LRSND NEXT+11!, MORE+2*, MORE+4*, MORE+5*, MORE+6, MORE+7
LRSPCDSC TASK+5!
>> LRSTATUS NEXT+45*
LRSVODT LROE+5~, NEXT+1!, NEXT+21, LROE2+13*
LRTCOM TASK+5!
>> LRTIM NEXT+48*
LRTM60 STAT+10*, STAT+11!
>> LRTM7 NEXT+9*
>> LRUN NEXT+50*
>> LRVIDO NEXT+26
>> LRVIDOF NEXT+26
>> LRWRD LROE2+9
>> LRWRDS LROE2+9*
>> LRZX LROE2+9*, LROE2+10
>> M9 NEXT+13*, NEXT+17*, MORE*, LROE2+9*
ODT GOT~, GOT+1~, GOT+2*, GOT+3*, GOT+4, GOT+5, GOT+6
ORD GOT~, GOT+3, GOT+4
>> PNM NEXT+26, LROE2+9
SN GOT+1~, GOT+2*, GOT+4*, GOT+5, GOT+6
>> SSN LROE2+9
U NEXT+2, NEXT+5, NEXT+6, NEXT+50, MORE+6, LROE2+3, LROE2+4, LROE2+9, LROE2+10, TASK+4
, GOT+6
>> X NEXT+3*, NEXT+9*, YN*, STAT+5*, STAT+6, STAT+7, STAT+10, TIME+2*, TIME+3*, TIME+4
, TIME+5, TIME+6*, TIME+17, TIME1*, TIME2*
X1 TIME1*!
Y NEXT+8, NEXT+9, NEXT+26*, NEXT+28!, NEXT+29!, NEXT+41, MORE, LROE2+10*, TIME+8, TIME+9
, TIME+12, TIME+13, TIME+16, TIME+20, TIME+23, TIME1*, TIME2+1
Y1 TIME1*!, TIME2+1
>> 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