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

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls