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  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  
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  LRBLPP  LRBLPQA  LRBLPR  
LRBLPR1  LRBLPRA  LRBLPT  LRBLPT1  LRBLPTR  LRBLPTR1  LRBLPUS  LRBLPUS1  
LRBLPUS2  LRBLPX  LRBLPX1  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  
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  ^LRD(65  DONATION OR DEFERRAL DATE  EM  LRBLDEMO  LRBLPLOGIN  LRBLPSI  
LRBLQ  LRUCHGDIV  SURGICAL PATHOLOGY  
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