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

Package: Lab Service

Routine: LRHYPH0


Information

LRHYPH0 ;DALOI/HOAK - HOWDY ORDER NUMBER SELECTOR PRIME ;8/28/2005

Source Information

Source file <LRHYPH0.m>

Entry Points

Name Comments DBIA/ICR reference
L5 ;
NEXT ;
PAST ; HOWDY IN HERE
MORE ;
LROE2 ;
QMSG
YN
EN ;
LROEN
LROE ;
EN01 ; ENTER ORDER # THEN ENTER DATA
STAT ;
TIME ;from LROE1, LRORD1
TIME1
TIME2
TASK ;
; If traditional Howdy is used this is where labels print-control passes to GT549
; If alternative Howdy is used label printing is delayed.
T549 ; ADDED FOR PPOC APPROACH
END
GOT(ORD,ODT) ;See if all tests have been canceled
UNL69 ;
BCE ;

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+5
Function Call: WRITE
  • Prompt: !,"OK, try later."
  • Line Location: NEXT+7
Function Call: READ
  • Variable: LRORD
  • Timeout: DTIME
  • Line Location: NEXT+10
Function Call: WRITE
  • Prompt: !!,"Select Order number: "
  • Line Location: NEXT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: NEXT+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAST+1
Function Call: WRITE
  • Prompt: !!?10,"No order exist with that number ",$C(7),!
  • Line Location: PAST+3
Function Call: WRITE
  • Prompt: !,"The order has already been",$S(LRCHK<1:" partially",1:"")," accessioned."
  • Line Location: PAST+7
Function Call: WRITE
  • Prompt: !,"No order exists with that number."
  • Line Location: PAST+8
Function Call: WRITE
  • Prompt: !?5,"Someone else is editing this Order",!!,$C(7)
  • Line Location: PAST+15
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 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
Info |  Source |  Entry Points |  Interaction Calls