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

Package: Lab Service

Routine: LRU


Information

LRU ;DALOI/STAFF - LAB UTILITY ;05/11/10 15:14

Source Information

Source file <LRU.m>

Entry Points

Name Comments DBIA/ICR reference
LOCK ;Set and kill lock for ^DIE call. If lock fails LR("CK")=1 is set.
CK ;
FRE
F ;
M
T ; Returns the Month/Day
A ; Returns Date in format mm/dd/yyyy with time if a time is passed.
D ; Returns date in eye-readable month format
DA ; Returns date in eye-readable month format
DT ; If Blood Bank maintain existing display, else display 4 digit year.
SSN ;
SSNFM ;
B
YN
RX
XR
WAIT
K
V ; Cleanup variables
LRAD ;
H
H1
L ;
L1 ;
I ;
S
INS() ;Set institution Name from ^XMB
INSN() ;Set primary institution number from ^XMB
DUZ2 ;Allow user to change Division [DUZ(2)] value

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"ANOTHER TERMINAL IS EDITING THIS ENTRY!"
  • Line Location: CK+4
Function Call: WRITE
  • Prompt: !,Y,?22,LRQ(1),?(IOM-10),"Pg: ",LRQ
  • Line Location: F+5
Function Call: READ
  • Formatting: !
  • Prompt: "'^' TO STOP: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: M+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13)
  • Line Location: M+1
Function Call: WRITE
  • Prompt: H(10)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: H(10)
  • Line Location: B+2
Function Call: WRITE
  • Prompt: "? ",$P("YES// ^NO// ","^",%)
  • Line Location: YN+0
Function Call: READ
  • Variable: %Y
  • Timeout: $S($D(DTIME):DTIME,1:99999)
  • Line Location: RX+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: RX+0
Function Call: WRITE
  • Prompt: $C(7),!?4,"ANSWER 'YES', 'NO', '^', '@'",!?4,"or press RETURN key to accept default response (if one)"
  • Line Location: RX+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: RX+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>73
  • Line Location: RX+4
Function Call: WRITE
  • Prompt: $P(" (YES)^ (NO)","^",%)
  • Line Location: RX+4
Function Call: WRITE
  • Prompt: !!,"..."
  • Line Location: WAIT+0
Function Call: WRITE
  • Prompt: $P("HMMM^EXCUSE ME ^SORRY","^",$R(3)+1),", ",$P("THIS MAY TAKE A WHILE^LET ME PUT YOU ON 'HOLD' ^HOLD ON^JUST A MOMENT PLEASE^I'M WORKING AS FAST AS I CAN^LET ME THINK ABOUT THAT ","^",$R(6)+1)_"..."
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: !,$C(7),"TO SORT IN SEQUENCE, STARTING FROM A CERTAIN NAME,",!?7,"TYPE THAT NAME"
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !,$C(7),"TO SORT ONLY UP TO A CERTAIN NAME,",!?7,"TYPE THAT NAME"
  • Line Location: H1+0
Info |  Source |  Entry Points |  Interaction Calls