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

Package: Lab Service

Routine: LRHYPH0


Information

LRHYPH0 ;VA/DALOI/HOAK - HOWDY ORDER NUMBER SELECTOR PRIME ; 13-Aug-2013 09:16 ; MKK

Source Information

Source file <LRHYPH0.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Lab Service 7 (,STD,STOP)^LRCAPV  Q15^LRHYPH2  QUICK^LROE1  (,LROEND)^LRORDK  ^LRPARAM  $$SELPL^LRVERA  (PT,YMD)^LRX  
VA Fileman 4 ^%DT  NOW^%DTC  YN^DICN  ^DIR  
Kernel 2 ^%ZTLOAD  ($$DT,$$FMTE)^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRHYAFT  

Entry Points

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

External References

Name Field # of Occurrence
^%DT NEXT+8, TIME+5, TIME+7, TIME2
NOW^%DTC TIME+1, TASK+6
^%ZTLOAD T549+8, BCE+9
YN^DICN TIME2
^DIR NEXT+7
^LRCAPV NEXT+2
STD^LRCAPV T549+10, BCE+11
STOP^LRCAPV T549+11, END+1, BCE+12
Q15^LRHYPH2 MORE+7
QUICK^LROE1 PAST+1
^LRORDK END+1
LROEND^LRORDK END+1
^LRPARAM LRHYPH0+5, STAT+1
$$SELPL^LRVERA STAT+5
PT^LRX LROE2+5
YMD^LRX STAT+10
$$DT^XLFDT NEXT+3
$$FMTE^XLFDT NEXT+3

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
  • Timeout: DTIME
  • Variable: LRORD
  • 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
  • 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+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
Routine Call
  • DIR
  • Line Location:
    • NEXT+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] TASK+3, TASK+20, BCE+8
^LAB(69.9 - [#69.9] NEXT+4
^LR - [#63] LROE2+5
^LRO(68 - [#68] TASK+12, TASK+13, TASK+15, TASK+17, T549+10, BCE+11
^LRO(69 - [#69] PAST+3, PAST+5, PAST+6, PAST+14, MORE+3, MORE+5, LROE2+1, LROE2+4, LROE2+5, GOT+3
, GOT+4, GOT+5, GOT+6, UNL69+1
^XTMP("LRHY LABELS" TASK+18*

Label References

Name Line Occurrences
$$GOT PAST+9
END NEXT+7, LROEN+1, STAT+6, STAT+12
LROE LROEN+1, STAT+11
LROE2 PAST+6
QMSG PAST+2
T549 TASK+3
TASK MORE+8
TIME PAST+18, TIME+5, TIME+7
TIME1 TIME+7
TIME2 TIME1
UNL69 PAST+19, MORE+8
YN YN+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % TIME+1, TIME2*, TIME2+1, TASK+7
%DT NEXT+8*, PAST+16!, PAST+18!, TIME+2*, TIME2*
%DT("B" PAST+17*, TIME+2, TIME+3
>> %H STAT+10*
>> DA PAST+6*, LROE2+1, LROE2+3
>> DFN LROE2+5*
DIC NEXT+9!
>> DILOCKTM PAST+14
DIR NEXT+1!, PAST+10!, PAST+12!, END!
DIR("A" NEXT+6*, PAST+10*
DIR("B" NEXT+6*, PAST+11*
DIR(0 NEXT+6*, PAST+10*
DIRUT NEXT+7, PAST+13, END!
DT NEXT+3*, TIME+6, TASK+12, TASK+13, TASK+14
DTIME NEXT+10, YN, TIME+2
>> DTOUT YN*
DUZ(2 STAT+5, STAT+7
IO BCE+7*
IOF PAST+1
>> LR3T TASK+7*, TASK+18
>> LR3X LROE2+5*
LRAA MORE+7!, T549+10, BCE+11
LRAD TASK+4~*, TASK+12*, TASK+13*, TASK+14*, TASK+15, TASK+17, TASK+19!
LRCCOM T549+11!, BCE+12!
LRCDT PAST+19, PAST+20, PAST+21!, TIME+1*, TIME+2*, TIME+5*, TIME+6*, TIME+7*
>> LRCE T549+1*, T549+6, BCE+1*
>> LRCHK PAST+4*, PAST+6*, PAST+7, LROE2+1*
LRCOM T549+11!, BCE+12!
>> LRCSQ T549+10, BCE+11
>> LRDEV TASK+3, TASK+20, BCE+6*, BCE+7, BCE+8
>> LRDFN LROE2+5*, TASK+18
>> LRDPF LROE2+5*
LREND LRHYPH0+3!, LRHYPH0+6*, NEXT+2, STAT+11!
LRHYGOT END!, GOT+2*, GOT+4, GOT+6*, GOT+7
LRHYI GOT+1~, GOT+6*
>> LRLABKY STAT+2
>> LRLABLIO T549+8, BCE+2, BCE+5, BCE+6
LRLBL T549+9!, BCE+10!
LRLBL( TASK+9, TASK+11, TASK+16*, TASK+18, T549+3, T549+5, T549+6*
LRLONG NEXT+2!, NEXT+10, QMSG+1, STAT+9*, STAT+11!
>> LRLWC LRHYPH0+4*
LRNATURE LRHYPH0+3!
LRNCWL LROEN*, LROEN+1!
>> LRNONE PAST+4*, PAST+6*, PAST+7, PAST+8, LROE2+1*
>> LRODT NEXT+3*, PAST+4*, PAST+5*, PAST+6, PAST+9, MORE+2*, MORE+3*, MORE+5, LROE2+1, LROE2+4
, LROE2+5
>> LRODT0 NEXT+3*
LROESTAT NEXT+2, STAT+9*, STAT+11!
>> LRORD NEXT+10*, PAST+1, PAST+2*, PAST+3, PAST+5, PAST+6, PAST+9, PAST+14, MORE+3, MORE+5
, TASK+16, T549+1, UNL69+1, BCE+1
LRORDRR LRHYPH0+3!
LRORIFN LRHYPH0+3!
LRPANEL NEXT+2!, STAT+9*
>> LRPARAM NEXT+2
LRPL STAT+7~*
LRSN NEXT+9!, PAST+13!, PAST+21!, MORE+6*, MORE+7!, LROE2+2!, LROE2+3*, LROE2+4, LROE2+5
LRSN( MORE+6*, LROE2+3*
LRSND NEXT+9!, MORE+2*, MORE+4*, MORE+5*, MORE+6
LRSPCDSC T549+11!, BCE+12!
>> LRSTATUS PAST+17*
LRTCOM T549+11!, BCE+12!
>> LRTIM PAST+20*
LRTM60 STAT+10*, STAT+11!
>> LRTM7 NEXT+8*
>> LRUID TASK+15*, TASK+17*, TASK+18
>> LRUN PAST+21*
LRX TASK+5~, TASK+8*, TASK+9*, TASK+11, TASK+12, TASK+13, TASK+15, TASK+16, TASK+17, TASK+18
, T549+2*, T549+3*, T549+5, T549+6
LRY TASK+5~, TASK+10*, TASK+11*, TASK+15, TASK+16, TASK+17, TASK+18, T549+4*, T549+5*, T549+6
>> M9 PAST+1*, PAST+4*, MORE+1*, LROE2+5*
ODT GOT~, GOT+1~, GOT+2*, GOT+3*, GOT+4, GOT+5, GOT+6
ORD GOT~, GOT+3, GOT+4
SN GOT+1~, GOT+2*, GOT+4*, GOT+5, GOT+6
U NEXT+2, NEXT+4, NEXT+5, PAST+21, LROE2+1, LROE2+5, TASK+12, TASK+13, TASK+15, TASK+16
, TASK+17, T549+6, T549+10, BCE+8, BCE+11
>> X NEXT+3*, NEXT+8*, YN*, STAT+5*, STAT+6, STAT+7, STAT+10, TIME+2*, TIME+3*, TIME+4
, TIME+5*, TIME+6, TIME+7, TIME1*, TIME2*, TIME2+1*
X1 TIME1*!, TIME2+1*
>> Y NEXT+7, NEXT+8, PAST+12*, PAST+13, TIME+5, TIME+7, TIME1*, TIME2
Y1 TIME1*!, TIME2
>> ZTDESC T549+8*, BCE+4*
>> ZTDTH T549+8*, BCE+4*
>> ZTIO T549+8*, BCE+5*, BCE+8*
>> ZTQUEUED T549+8
>> ZTREQ T549+8*
>> ZTRTN T549+8*, BCE+4*
>> ZTSAVE("IO*" BCE+7*
>> ZTSAVE("L*" T549+7*, BCE+3*
>> ZTSAVE("LRLBL(" T549+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All