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

Package: Lab Service

Routine: LRU


Information

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

Source Information

Source file <LRU.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 3 ^%DT  EN^DDIOL  ^DIE  
Lab Service 1 D^LRU  
Registration 1 PID^VADPT6  

Caller Graph

Caller Graph Total: 357

Package Total Caller Graph
Lab Service 355 CYTOPATHOLOGY  DONATION OR DEFERRAL DATE  EM  LR7OSAP  LR7OSAP1  LR7OSAP2  LR7OSBB1  LR7OSBR  
LR7OSBR1  LR7OSMZ1  LR7OSMZ2  LR7OSMZ3  LR7OSMZ4  LRAP  LRAPA  LRAPAP  
LRAPAUA  LRAPAUL  LRAPAULC  LRAPAUPT  LRAPAUSR  LRAPBK  LRAPBR  LRAPBR1  
LRAPBR4  LRAPBR5  LRAPBS  LRAPBS1  LRAPC  LRAPCUM  LRAPCWK  LRAPD  
LRAPDA  LRAPDAC  LRAPDEL  LRAPDPT  LRAPDS  LRAPED  LRAPEDC  LRAPFICH  
LRAPFTS  LRAPH  LRAPHDR  LRAPJNC  LRAPKOE  LRAPL  LRAPLG  LRAPLG1  
LRAPLG2  LRAPM  LRAPMOD  LRAPMRL  LRAPMV  LRAPOLD  LRAPONC  LRAPP  
LRAPPA  LRAPPF  LRAPPF1  LRAPPF2  LRAPQ  LRAPQAC  LRAPQACD  LRAPQACN  
LRAPQAFS  LRAPQAM  LRAPQAMR  LRAPQAR  LRAPQAT  LRAPQOR  LRAPQOR1  LRAPQOR2  
LRAPQOR3  LRAPR  LRAPREF  LRAPRES  LRAPS  LRAPS1  LRAPS2  LRAPS3  
LRAPSA  LRAPSE  LRAPSEM  LRAPSEM1  LRAPSEM2  LRAPSL  LRAPSL1  LRAPSM  
LRAPSM1  LRAPST  LRAPST1  LRAPT  LRAPT1  LRAPT2  LRAPT3  LRAPTT  
LRAPTT1  LRAPUTL  LRAPV  LRAPWA  LRAPWE  LRAPWEA  LRAPWR  LRAPWR1  
LRAPWSPG  LRAPWU  LRAPX  LRARCAM6  LRARCAM8  LRARCAM9  LRAUAW  LRAUDA  
LRAUL  LRAUMLK  LRAURPT  LRAURV  LRAUS  LRAUSICD  LRAUSM  LRAUSTA  
LRBLA  LRBLA1  LRBLA2  LRBLAA  LRBLB  LRBLC  LRBLCMV  LRBLD  
LRBLDA  LRBLDA1  LRBLDAA  LRBLDAL  LRBLDC  LRBLDCR  LRBLDCU  LRBLDED  
LRBLDEL  LRBLDELT  LRBLDEMO  LRBLDEX  LRBLDEX1  LRBLDK  LRBLDL  LRBLDL1  
LRBLDLG  LRBLDMV  LRBLDP  LRBLDPA  LRBLDPA1  LRBLDPA2  LRBLDPAW  LRBLDPH  
LRBLDPL  LRBLDR  LRBLDR1  LRBLDRR  LRBLDRR1  LRBLDSC  LRBLDT  LRBLDTA  
LRBLDUC  LRBLDW  LRBLDX  LRBLJA  LRBLJB  LRBLJC  LRBLJCK  LRBLJD  
LRBLJD1  LRBLJDA  LRBLJDM  LRBLJDP  LRBLJED  LRBLJI  LRBLJL  LRBLJL1  
LRBLJLA  LRBLJLG  LRBLJLG1  LRBLJM  LRBLJM1  LRBLJP  LRBLJPA  LRBLJPA1  
LRBLJPH  LRBLJPP  LRBLJR  LRBLJRB  LRBLJSH  LRBLJT  LRBLJTS  LRBLJTS1  
LRBLJU  LRBLJU1  LRBLJUT  LRBLJW  LRBLJX  LRBLP  LRBLPA  LRBLPAB  
LRBLPB  LRBLPBR  LRBLPBR1  LRBLPC  LRBLPCS  LRBLPCS1  LRBLPCSS  LRBLPD  
LRBLPD1  LRBLPE  LRBLPE1  LRBLPED  LRBLPED1  LRBLPEW  LRBLPH  LRBLPIT  
LRBLPLOGIN  LRBLPP  LRBLPQA  LRBLPR  LRBLPR1  LRBLPRA  LRBLPSI  LRBLPT  
LRBLPT1  LRBLPTR  LRBLPTR1  LRBLPUS  LRBLPUS1  LRBLPUS2  LRBLPX  LRBLPX1  
LRBLQ  LRBLQPR  LRBLQST  LRBLRCT  LRBLS  LRBLSET  LRBLST  LRBLSTR  
LRBLSUM  LRBLTA  LRBLTA1  LRBLTX  LRBLTXA  LRBLU  LRBLVAL  LRBLW  
LRBLWDS  LRCAPAM5  LRCAPAM6  LRCAPAM8  LRCAPAM9  LRCAPAUD  LRCAPPH  LRCYPCT  
LRDPA1  LRDPA2  LRMINEW  LRMIPSU  LRMIPSZ  LRMIPSZ1  LRMIPSZ2  LRMIPSZ3  
LRMIPSZ4  LRMIPSZ5  LRMIS  LRMISEZ  LRMISEZ2  LRMISEZ3  LRMISEZ4  LRMIVER  
LROR4  LROR4A  LROR4B  LROW2P  LRRMM  LRSMAC  LRSPDA  LRSPRPT  
LRSPRPT1  LRSPRPT2  LRSPRPTM  LRSPS  LRSPSICD  LRSPSICP  LRSPT  LRTSTOUT  
LRU  LRUA  LRUBL  LRUBYDIV  LRUC  LRUCE  LRUCHGDIV  LRUCLR  
LRUCN  LRUCNBB  LRUD  LRUD1  LRUDEL  LRUDIT  LRUDPT  LRUE  
LRUER  LRUET  LRUFILE  LRUL  LRULA  LRULB  LRULB1  LRULEN  
LRUMD  LRUMD1  LRUMD2  LRUMDF  LRUMDM  LRUMDP  LRUMDS  LRUMDU  
LRUMDU1  LRUMI  LRUPA  LRUPA1  LRUPA2  LRUPAC  LRUPACA  LRUPACS  
LRUPACT  LRUPAD  LRUPAD1  LRUPAD2  LRUPQ  LRUPQ1  LRUPS  LRUPT  
LRUPUM  LRUQ  LRUR  LRUSNOM  LRUSP  LRUTAD  LRUTELL  LRUTL  
LRUTRAN  LRUTT  LRUTW  LRUV  LRUW  LRUWG  LRUWL  LRX  
^LR  SURGICAL PATHOLOGY  ^LRD(65  
Automated Lab Instruments 1 LAPFICH  
Kernel 1 ^DIC(19  

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

External References

Name Field # of Occurrence
^%DT LRU+13, F+1, B, B+2
^%ZIS I+1
^%ZTLOAD V+6
EN^DDIOL DUZ2+4
^DIE LOCK+3
D^LRU F+1, B+4, LRAD+2
PID^VADPT6 SSN+5
$$FMTE^XLFDT A+1, D+1, DA+1

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
Routine Call
  • DIE
  • Line Location:
    • LOCK+3
Routine Call
  • %ZIS
  • Line Location:
    • I+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] INS+2
^LAHM(62.49 - [#62.49] V+3
^LR - [#63] SSN+2
^LRO(68 - [#68] LRAD+1
^TMP("LR" V+24!
^TMP("LRBL" V+24!
^TMP($J V+24!
^UTILITY($J V+24!
^XMB(1 - [#4.3] INS+2, INSN+2

Label References

Name Line Occurrences
$$INS S
A DT+2
CK LOCK+3
D LRU+13
FRE LOCK+3, CK+1
I L+1, L1+1
K V+8
LRU B
SSNFM SSN+3
YN RX+3

Naked Globals

Name Field # of Occurrence
^(0 SSN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% YN, RX+1*, RX+2*, RX+3*, RX+4, V+9!
%DT LRU+13*, F+1*, B*!, B+2*!, V+9!
%DT("A" B*, B+2*
%DT(0 B*
%X V+9!
%Y RX*, RX+1, RX+2, RX+3, V+9!
A K!, V+9!, DUZ2+1~, DUZ2+4
A(1 DUZ2+2*
A(2 DUZ2+3*
AGE V+9!
B K!
C K!
D K!
D1 V+9!
DA CK+2, V+9!
DE V+9!
DFN SSN+5, SSNFM+7, V+9!
DG V+9!
DI V+9!
DIC V+9!
DIE LOCK+2, CK+2, V+9!
>> DILOCKTM CK+2
DIR V+9!
DIRUT V+9!
DIWF V+10!
DIWL V+10!
DLAYGO V+10!
DO V+9!
DOB V+10!
DR V+10!
DT B, B+2
DTIME M, RX
DTOUT RX*, V+10!
DX V+10!
E K!
F K!
G K!
H K!
H(10 LRU+13*, B, B+2
I SSN+4~, K!
ICDFMT V+25!
ICDSYS V+25!
IOF F+3, F+4
IOM F+5, L+1, L+3, L1+1, L1+3
>> IOP I+1*
IOST F+3
J K!
K K!
L K!
LR V+10!
LR("%" L+2!, L+3*
LR("%1" YN*, RX+3, RX+4!, L1+2!, L1+3*
LR("CK" LOCK+2*, LOCK+3!, CK+4*
LR("F" F+3
LR("Q" M*, S*
LRA V+10!
LRAA V+10!, LRAD+1
LRABO V+10!
LRABV V+10!
LRAC V+11!
LRAD V+11!, LRAD+1*
LRADM V+11!
LRADX V+11!
LRAN V+11!
LRAP V+11!
LRAPX V+11!
LRAU V+11!
LRAWRD V+11!
LRAX V+11!
LRB V+11!
LRBL V+11!
LRBLT V+12!
LRC V+12!
LRCAP V+12!
LRCAPA V+12!
LRCAPLOC V+12!
LRCDSYS V+25!
LRCPT V+12!
LRCS V+12!
LRD V+12!
LRDATA V+12!
LRDATE V+13!
LRDFN SSN+2, V+13!
LRDPAF V+13!
LRDPF SSN+2*, SSN+3, SSNFM+7, SSNFM+13, V+13!
LRDTI V+13!
LRDXV V+25!
LRE V+13!
LREND V+13!
LREP V+13!
LREXP V+13!
LRF V+14!
LRFLN V+14!
LRFNAM V+14!
LRFND V+14!
LRG V+14!
LRH V+14!
LRH(0 LRAD+2*
LRI V+14!
LRICDT V+25!
LRIDT V+14!
LRIFN V+14!
LRJ V+14!
LRK V+15!
LRL V+15!
LRLDT B+3*, B+4, V+15!
LRLIDT V+15!
LRLLOC V+15!
LRLOKVAR LOCK+1~, CK+1, CK+2*, CK+5!, FRE!, V+15!
LRLST B+4*, V+15!
LRM V+15!
LRMD V+16!
LRN V+16!
LRND V+16!
LRNO V+16!
LRNOP V+16!
LRO V+16!
LRODT V+16!
LROLLOC V+16!
LROPT V+16!
LRORU3 V+16!
LRP V+17!
LRPABO V+17!
LRPF V+17!
LRPFN V+17!
LRPMOD V+17!
LRPNM V+17!
LRPPT V+17!
LRPRAC V+17!
LRPRH V+18!
LRPTF V+18!
LRQ F+1*, F+5, V+18!, S*
LRQ(1 F+5, S*
LRQA V+18!
LRR V+18!
LRRB V+18!
LRRC V+18!
LRRMD V+18!
LRS V+18!
LRSA V+18!
LRSAV V+18!
LRSD V+19!
LRSDT B+1*, B+3*, B+4, V+19!
LRSEL V+19!
LRSET V+19!
LRSF V+19!
LRSIT V+19!
LRSN V+19!
LRSOP V+19!
LRSS F+3, F+4, DT+1, XR, V+19!
LRST V+19!
LRSTR B+4*, V+20!
LRSVC V+20!
LRT V+20!
LRTK V+20!
LRTOD V+20!
LRTREA V+20!
LRTS V+20!
LRU V+20!
LRV V+20!
LRW V+20!
LRWARD V+21!
LRWD V+21!
LRWHN V+21!
LRWHO V+21!
LRWRD V+21!
LRWW V+21!
LRX V+21!
LRXR XR*, V+21!
LRXREF XR*, V+21!
LRY V+22!
LRZ V+22!
M K!
N SSN+4~, K!
O K!
P K!
PNM V+22!
POP V+22!
Q K!
R K!
S K!
SEX V+22!
SSN SSN+1*, SSN+5*, SSNFM+1, SSNFM+8*, SSNFM+9, SSNFM+10*, SSNFM+14*, SSNFM+15, SSNFM+17*, V+22!
SSN(1 SSN+1*, SSN+5*, SSNFM+9*, SSNFM+15*
SSN(2 SSN+1*, SSN+5*, SSNFM+1*
T K!
U SSN+2, INS+2, INSN+2
V K!
VA V+22!
VA("BID" SSN+3*, SSN+5
VA("PID" SSN+3*, SSN+5
VADM V+22!
VAIN V+22!
W K!
X LRU+13*, F+1*, M*, SSN+4~, B, B+2, B+3*, K!, LRAD+1*
Y LRU+13, F+5, T+1*, A+1*, A+2*, A+3*, D+1*, DA+1*, DT+1*, SSN+4~
, B*, B+1, B+2*, B+3, B+4*, K!, LRAD+1*, LRAD+2, INS+1~, INS+2*
, INS+3, INSN+1~, INSN+2*, INSN+3
Z K!
ZTDESC V+4~, V+5*, V+23!
ZTDTH V+4~, V+5*, V+23!
ZTIO V+4~, V+5*, V+23!
ZTREQ V+23!
ZTRTN V+4~, V+5*, V+23!
ZTSAVE V+4~, V+23!
ZTSK V+4~, V+23!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All