Routine: LRPARAM

Information

LRPARAM ;SLC/CJS/DALISC/MKK - SET LAB PARAMETERS ;8/11/97 [ 04/08/2003 10:18 AM ]

Source file <LRPARAM.m>

Package	Total	Caller Graph
Lab Service	73	LR IHS HEALTH DEPT LR IHS MENU LR IHS MENU (SMALL) LR IHS SHORT ACCESSIONING MENU LR IHS SHORT MAIN MENU LR IHS WARDM LR IN LR WKLD4 LRAC LRAPDA LRBLPLOGIN LRCAP64 LRCAP67 LRCAPAM0 LRCAPES LRCENDEL LRCONJAM LRDCOM LRDIST LRDIST4 LRDPA LRDPAREF LRFAST LRFASTS LRGEN LRGP LRGV LRGVP LRHY0 LRHY01 LRHYAFT LRHYDEL LRHYPH0 LRKDIFF3 LRMENU LRMIEDZ LRMINEW LRMIPC LRMIPLOG LRMIPSZ LRMIPSZ1 LRMISTF LRMIV LRMIVER LROE LROR9 LRORD LRORDGUI LROW LRPHEXPT LRPHSET LRQC LRQUICK LRRD LRRMM LRRP2 LRRP3 LRRP4 LRRS LRRS12 LRRSP LRSTUF LRTSTJAM LRTSTJAN LRTSTOUT LRTT5 LRUTL LRVER LRVR LRVRPOCU LRWARDM LRWU1 LRZ4JOB
IHS Changes To Lab	14	BLRAG05 BLRAG08 BLRALBM BLRLRRD BLRLRRP2 BLRMANP2 BLRMANPU BLRMIAUT BLRMIEHR BLRMIRPT BLRRLTAR BLRRLTDR BLRRLTDU BLRSGNSP
Automated Lab Instruments	5	LADJOB LAKDIFF LAMIAUT0 LAMIVTL0 LAPFICH
IHS Laboratory Point of Care	1	BLRPOC2

Name	Comments	DBIA/ICR reference
VIDEO	;Get Video settings for reverse and blinking features
INIT	;
EN	;Entry point for external package calls - [Will not reset IO definitions]	ICR #716 Status: Active Usage: Private
LABKEY	;If DUZ is a LRLAB or LRVERIFY Key holder then LRLABKY is defined. The 1st piece of LRLABKY IS 1 IF DUZ has the LRVERIFY key and the 2nd piece = LRSUPER key.
VR()	;Return current version of Laboratory Package installed

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"SORRY ! You must have a site defined. (NO DUZ(2))" Line Location: INIT+2
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: LABKEY+11
Function Call: WRITE	Prompt: !!?7,"Taskman is not running ",!!,$C(7) Line Location: LABKEY+12
Routine Call	%ZIS Line Location: INIT+8

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	VIDEO+9
^AUTTSITE(1	INIT+10
^BLRSITE - [#9009029]	INIT+10
^DD(100	EN+7
^DD(60	VR+3
^DD(63	EN+7
^DG(43 - [#43]	EN+7
^DIC(19.1 - [#19.1]	LABKEY+9
^LAB(69.9 - [#69.9]	EN+3, EN+9, EN+16, EN+17, EN+18, EN+19, LABKEY+8, LABKEY+9, LABKEY+11, LABKEY+13
^LRO(69 - [#69]	EN+20*
^XUSEC(	LABKEY+10
^XUSEC("LRLAB"	LABKEY+4
^XUSEC("LRLIASON"	LABKEY+5
^XUSEC("LRSUPER"	LABKEY+4
^XUSEC("LRVERIFY"	LABKEY+4

Name	Field # of Occurrence
^("RO"	LABKEY+11
^(0	EN+20*

Name	Field # of Occurrence
>> BLRGUI	INIT+7
>> BLRLOG	INIT+10*, INIT+11
>> BLRPCC	INIT+10*
>> BLRQSITE	INIT+10*
>> BLRSTOP	INIT+10*, INIT+11
DT	EN+20
DTIME	EN+3*
DUZ	LABKEY+4, LABKEY+5, LABKEY+10
DUZ(2	INIT+9, EN+16, LABKEY+8
>> I	LABKEY+8*, LABKEY+9
>> IOP	INIT+8*
IOST(0	VIDEO+9
>> LRBLOOD	EN+19*
>> LRDAHEAD	EN+9, EN+10
LRDATA	EN+2!, LABKEY+7~, LABKEY+9*, LABKEY+10
>> LREND	INIT+7, INIT+9
LRLABKY	LABKEY+4!, LABKEY+5, LABKEY+6, LABKEY+10, LABKEY+11
LRPARAM	EN+2!, EN+3*
LRPARAM("ASITE"	EN+16, EN+17
LRPARAM("VR"	EN+7*
>> LRPCEVSO	EN+18*
>> LRPLASMA	EN+19*
>> LRSERUM	EN+19*
>> LRUNKNOW	EN+19*
>> LRURINE	EN+19*
>> LRVIDO	VIDEO+1, VIDEO+9
>> LRVIDOF	VIDEO+1, VIDEO+9
N	EN+15~, EN+16*, EN+17
SITE	EN+15~, EN+17*
U	INIT+6, INIT+10, EN+3, EN+7, EN+9, EN+20, LABKEY+4, LABKEY+5, LABKEY+6, LABKEY+9 , LABKEY+10, LABKEY+11, LABKEY+13, VIDEO+9
>> VA200	EN+3*
X	EN+1~, EN+19, EN+20, VIDEO+9*
X1	EN+1~, EN+20*!
X2	EN+1~, EN+20*!
Y	EN+1~
ZTDESC	LABKEY+14*!
ZTDTH	LABKEY+14*!
>> ZTIO	LABKEY+14*
>> ZTQUEUED	INIT+8, INIT+9
ZTRTN	LABKEY+14*!
ZTSK	LABKEY+14~, LABKEY+15