Global: ^LRO(68

FileMan FileNo	FileMan Filename	Package
68	ACCESSION	Lab Service

Package	Total	Routines
Lab Service	302	ACCESSION NUMBER ASSOCIATED DIVISION LR291 LR411PST LR7OB63D LR7OF2 LR7OGM LR7OSMZ1 LR7OSOS LR7OSOS1 LR7OU1 LR7OV3 LRAC1 LRAC14 LRAC2A LRACFIX LRACKL LRAPBS1 LRAPDA LRAPDAC LRAPED LRAPLG LRAPMV LRAPSWK LRAPUTL LRAPWA LRAPWE LRAPWR LRAPWSPG LRARCR2 LRAUAW LRBEBA21 LRBEPEND LRBLDR LRBLPE1 LRBLPEW LRBLPUS2 LRCAP LRCAP1 LRCAP2 LRCAPAUD LRCAPD2 LRCAPDSS LRCAPMA1 LRCAPML1 LRCAPPH1 LRCAPR2 LRCAPV1 LRCAPV2 LRCAPVM LRCE LRCENDE1 LRCENDEL LRCKF64 LRCKF68 LRCKF68A LRCKF69 LRCKFLA LRCKFLAA LREXPD LRFAST LRGP LRGP1 LRGV LRHYDEL LRHYPH0 LRHYPL LRIPOS LRKDIFF LRKUR LRLABEL4 LRLABLD LRLIST LRLISTE LRLL LRLL2 LRLSR LRMIBUG LRMINEW LRMINEW1 LRMINEW2 LRMIPSZ1 LRMISEZ LRMISTF LRMISTF1 LRMIV LRMIV3 LRMIVER1 LRMIZAP LRMRSHRT LRNIGHT2 LROC LROE LROLOVER LROR LROR4 LROR9 LRORDST LROS LRPHLIS1 LRPXSXRB LRQCC LRRP LRRP6A1 LRSTUF1 LRSTUF2 LRTP LRTSTOUT LRTSTSET LRTT5P1 LRU LRUA LRUCE LRUCLR LRUCN LRUD LRUER LRULA LRULB LRULB1 LRUPA LRUPA1 LRUPA2 LRUPACA LRUPACS LRUPACT LRUPAD1 LRUPAD2 LRUPQ LRUPQ1 LRUSP LRUTAD LRUTELL LRVER1 LRVER3 LRVERA LRVR1 LRVR3 LRVRA LRVRPOCU LRWLST LRWLST12 LRWRKS LRWRKS2 LRWU ^LAM LR72ENVC LR7OB0 LR7OFAO LR7OGO LR7OR1 LR7OR2 LR7OSAP LR7OSAP4 LRAP LRAPBK LRAPFIX LRAPHDR LRAPLG1 LRAPLG2 LRAPRES2 LRAPSL1 LRAPWKA LRAPWR1 LRARCMA1 LRARCML1 LRBLPCS1 LRBLSUM LRCAPBB LRCAPBV LRCAPES1 LRCAPPH2 LRGV1 LRHYF4 LRHYT1 LRKDIFF3 LRMILL LRMISEZ1 LRMIUT1 LRRP8B LRRP8C LRSLOW LRTSTJAM LRTSTJAN LRUTL LRUWLF LRVER LRVR LRVR4 LRWLST1 LRWRKIN1 LRWU3 LRWU4 LRXREF WKLD CODE ^LRO(68 CONTROL NAME LR7OB630 LR7OB68 LR7OFAA LR7OGMC LR7OGMG LR7OGMM LR7OGMU LR7OMERG LRAC2 LRACC LRACF LRACM3 LRACM4 LRAPCWK LRAPDS LRAPM LRAPR LRAPU LRAPWE1 LRBEBA3 LRBEBA5 LRBEBAO LRBLFX72 LRBLPA LRBLPE LRBLPR LRBLPUS LRBLPX LRBLPX1 LRBLU LRCAPDAR LRCAPES LRCAPPH LRCAPV LRCAPV1S LRCONJAM LREVENT LRFASTS LRFLAG LRGVP LRHY22 LRHY4X LRHYAFT LRHYBC1 LRHYF1 LRHYF2 LRHYLS1 LRHYT2 LRLABXT LRLL1 LRLL1A LRLL3 LRLL4 LRLLP2 LRLLP5 LRLLS LRLLS2 LRLLS3 LRLLU LRLSTWRK LRLSTWRL LRMIEDZ LRMIEDZ2 LRMIEDZ3 LRMIEDZ4 LRMIPLOG LRMIPSZ LRMIU4 LRMIUT LRMIV1 LRMIV2 LRMIVER LRNINES7 LROR3 LRPHITE1 LRPHITE2 LRPHITEM LRPXAPI2 LRRP6 LRSETUP LRTOT LRUBYDIV LRUDEL LRUMDM LRUMI LRUPAC LRUPAD LRUPT LRUTRAN LRUTT LRUW LRUWG LRUWL LRVER3A LRVER4 LRVRW LRWLST11 LRWLST2 LRWRKINC LRWRKLS1 LRWRKLST LRX LRXREF1 PROFILE TESTS
IHS Changes To Lab	91	BLR6249R BLR7OGMM BLRAAORR BLRAAORU BLRADDCD BLRAG02 BLRAG02A BLRAG03 BLRAG05 BLRAG05B BLRAG05D BLRAG08 BLRAG09 BLRAG09A BLRAG09B BLRAG09C BLRAG09D BLRAG09E BLRAG09F BLRAGUT BLRAGUT1 BLRALAF BLRALBA BLRALBM BLRCCPED BLRCHGPL BLRCHGPW BLRCINDX BLRDATAR BLRDIAG BLRDIAG1 BLREVTQ BLRIPLZP BLRLABEL BLRLABL7 BLRLABLA BLRLABLE BLRLABLF BLRLAHGU BLRLDFIS BLRLIIN1 BLRLIIN2 BLRLINK3 BLRLINK4 BLRLINKU BLRLROS BLRMANP2 BLRMANP3 BLRMANPU BLRMERG BLRMERG2 BLRMERGU BLRMIAUT BLRMIEHR BLRMIRPT BLRMLTL BLRP41UP BLRPCCVC BLRQIIN1 BLRQIIN2 BLRRIIN1 BLRRIIN2 BLRRLEV2 BLRRLEVN BLRRLEVT BLRRLFX1 BLRRLMU2 BLRRLMU3 BLRRLMUA BLRRLMUM BLRRLTAR BLRRLTDR BLRRLTDU BLRRLU BLRSGNSP BLRSHPM1 BLRSLTL1 BLRSLTLD BLRSLTLR BLRTN BLRTNA BLRTNM BLRTNRES BLRUER BLRUIIN1 BLRUIIN2 BLRUTIL3 BLRUTIL4 BLRUTIL5 BLRUTIL6 BLRUTIL8
Automated Lab Instruments	88	LA7ADL LA7ADLS LA7CHDR LA7CHLU3 LA7CORUB LA7CQRY1 LA7CSHL LA7HDR LA7HDR1 LA7PCFG LA7SM LA7SM2 LA7SMB LA7SMP LA7SMP0 LA7SMU LA7SMU1 LA7SRR LA7SUTL LA7UID1 LA7UID2 LA7UIIN1 LA7UIIN2 LA7UTIL LA7VCIN2 LA7VCIN4 LA7VCIN5 LA7VCN1A LA7VHLU2 LA7VHLU3 LA7VIN1A LA7VIN2 LA7VIN4 LA7VIN5 LA7VLIN2 LA7VLIN4 LA7VLIN5 LA7VLN1A LA7VMSG LA7VORM1 LA7VORM3 LA7VORR1 LA7VORUB LA7VQIN2 LA7VQIN4 LA7VQIN5 LA7VQN1A LA7VRIN2 LA7VRIN4 LA7VRIN5 LA7VRN1A LA81PRE LABCX7P LABCX7XX LADIMD LAEKT7D LAEPXD LAGEN LAKDIFF LAKDIFF3 LAKUR LAMIAUT0 LAMIAUT1 LAMIAUT4 LAMIAUT7 LAMIAUT8 LAMILL LAMIVT5 LAMIVT6 LAMIVTE6 LAMIVTK LAMIVTK6 LAMIVTKD LAMIVTKU LAMIVTL0 LAMIVTL1 LAMIVTL4 LAMIVTL6 LAMIVTLC LAMIVTLD LAMIVTLG LAMIVTLP LAPERD LAPMAXD LASET LAXSYM LAXSYMBL LAXSYMHQ
Order Entry Results Reporting	3	ORDV05E ORELR2 ORWGAPIC
Health Summary	2	GMTSLRME GMTSLROE
IHS Patient Merge	2	BPMXFX1 BPMXLR
Clinical Reminders	1	PXRMLABS
IHS Laboratory Point of Care	1	BLRPOC2
IHS View Patient Record	1	BVPRP
Patient Chart	1	BPC7OGO
VueCentric RPMS Support	1	CIAZPLAB

Package	Total	Routines
Lab Service	33	LR291 LRACC LRAPHDR LRAPSNMD LRBEBA LRBEBA21 LRBEBA4 LRBEBA5 LRBEPEND LRCAPAUD LRCAPBV LRCAPDSS LRCAPES LRCAPPH LRCAPPH2 LRCKF68A LRGP1 LRGVP LRLIST LRLISTE LRLL1A LRLSR LRLSTWRK LRQCC LRTOT LRUSP LRUWL LRVRPOCU LRWLST LRWRKINC LRWRKLST LRWRKS LRWU4
IHS Changes To Lab	22	BLRAG05B BLRCCPED BLRLINK3 BLRLNKU2 BLRLUAC1 BLRLUAC2 BLRLUAC8 BLRMANP2 BLRMANPU BLRMERG BLRMERG2 BLRMIRPT BLRREFLA BLRRLMUA BLRRLMUM BLRRLTDR BLRSORA BLRSORC BLRUTIL4 BLRUTIL6 BLRUTIL8 BLRWU4
Automated Lab Instruments	5	LA7PCFG LA7SM LA7SRR LA81PRE LAMIVTL0

Package	Total	FileMan Files
Lab Service	15	WORKLIST HEADINGS(#68.4)[.01] LABORATORY TEST(#60)[#60.11(1)] COLLECTION SAMPLE(#62)[#62.02(.01)] AUTO INSTRUMENT(#62.4)[11, #62.41(7), #62.4541001(.01)] LAB LETTER(#65.9)[.09] LABORATORY SITE(#69.9)[#69.9008(.06), #69.9618(618), #69.98(.1), #69.98(.11), #69.981(.02), #69.981(.03), #69.981(.04), #69.981(.05)] WKLD CODE(#64)[21] BLOOD INVENTORY(#65)[#65.31(.04), #65.31(.05)] WKLD LOG FILE(#64.03)[6] WKLD DATA(#64.1)[#64.1111(6), #64.1111(7), #64.1111(7.5)] ACCESSION(#68)[.04, #68.14(4), #68.14(5), #68.14(6)] LOAD/WORK LIST(#68.2)[1, 1.5, 1.7, #68.21(4), #68.22(.01), #68.23(2)] LAB ORDER ENTRY(#69)[#69.03(3)] COLLECTION LIST(#69.1)[#69.11(9)] LAB SECTION PRINT(#69.2)[.01]
IHS Changes To Lab	3	IHS LAB SUPERVISOR TASKED REPORTS PARAMETERS(#90475.7)[#90475.722(.01), #90475.732(.01)] BLR REFERENCE LAB(#9009026)[#9009026.03(.01)] BLR MASTER CONTROL(#9009029)[#9009029.01(.01)]
Automated Lab Instruments	1	LAB SHIPPING CONFIGURATION(#62.9)[#62.9001(.02)]

Package	Total	FileMan Files
Lab Service	11	LABORATORY TEST(#60)[#68.04(.01), #68.04(8.1), #68.12(.01), #68.13(.01)] TOPOGRAPHY FIELD(#61)[#68.05(.01)] COLLECTION SAMPLE(#62)[#68.05(1)] URGENCY(#62.05)[#68.04(1)] EXECUTE CODE(#62.07)[.05, .06, .07] LAB SECTION(#62.2)[.095] LAB CONTROL NAME(#62.3)[#68.1(.01), #68.11(.01)] AUTO INSTRUMENT(#62.4)[#68.07(.01), #68.09(.01)] WKLD CODE(#64)[#68.14(.01)] LAB DATA(#63)[#68.02(.01)] ACCESSION(#68)[.04, #68.14(4), #68.14(5), #68.14(6)]
Kernel	3	SECURITY KEY(#19.1)[.9] INSTITUTION(#4)[#68.02(16.1), #68.02(16.2), #68.02(26), #68.03(.01), #68.14(3)] NEW PERSON(#200)[.1, #68.02(6.5), #68.02(6.7), #68.04(3), #68.14(2)]
Automated Lab Instruments	1	LAB SHIPPING MANIFEST(#62.8)[#68.04(9)]
Registration	1	FACILITY TREATING SPECIALTY(#45.7)[#68.02(6.6)]
Scheduling	1	HOSPITAL LOCATION(#44)[.8, #68.02(94)]
VA Fileman	1	FILE(#1)[#68.02(1)]

Fields, Total: 35

Field #	Name	Loc	Type	Details
.01	AREA	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>20!($L(X)<2) X` LAST EDITED: `JAN 28, 1983` HELP-PROMPT: `ANSWER MUST BE 2-20 CHARACTERS IN LENGTH` DESCRIPTION: The accession area of the Lab. DELETE TEST: `1,0)= I '$D(^XUSEC("LRLIASON",DUZ))` CROSS-REFERENCE: `68^B` 1)= S ^LRO(68,"B",$E(X,1,30),DA)="" 2)= K ^LRO(68,"B",$E(X,1,30),DA)
.02	LR SUBSCRIPT	0;2	SET	**********************REQUIRED FIELD********************** 'CH' FOR CHEM, HEM, TOX, RIA, SER, etc.; 'MI' FOR MICROBIOLOGY; 'EM' FOR ELECTRON MICROSCOPY; 'SP' FOR SURGICAL PATHOLOGY; 'CY' FOR CYTOLOGY; 'AU' FOR AUTOPSY; 'BB' FOR BLOOD BANK; LAST EDITED: `OCT 25, 1984` DESCRIPTION: This represents the functional area of the Lab. Must be chosen from a set of codes.
.03	CLEAN UP	0;3	SET	**********************REQUIRED FIELD********************** 'D' FOR DAILY; 'W' FOR WEEKLY; 'M' FOR MONTHLY; 'Q' FOR QUARTERLY; 'Y' FOR YEARLY; LAST EDITED: `NOV 08, 1982` DESCRIPTION: Triggered by the Accession Transform field. Determines frequency of clean up on accession lists. WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the ACCESSION TRANSFORM field of the ACCESSION File`
.04	COMMON ACCESSION #'S WITH AREA	0;4	POINTER TO ACCESSION FILE (#68)	ACCESSION(#68) INPUT TRANSFORM: `S DIC("S")="I '$L($P(^(0),U,17))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 10, 1992` HELP-PROMPT: `IF THIS WORKLIST IS TO BE NUMBERED IN PARALLEL WITH ANOTHER, WHICH ONE.` DESCRIPTION: If another accession area is designated here, that other accession area will be used to find the next "available" accession number which will be updated on the other accession area. SCREEN: `S DIC("S")="I '$L($P(^(0),U,17))"` EXPLANATION: `You can not select an accession area designated Work Area.` CROSS-REFERENCE: `68^AE` 1)= S ^LRO(68,"AE",$E(X,1,30),DA)="" 2)= K ^LRO(68,"AE",$E(X,1,30),DA)
.05	ACCESSION TRANSFORM	0;5	POINTER TO EXECUTE CODE FILE (#62.07)	**********************REQUIRED FIELD********************** EXECUTE CODE(#62.07) INPUT TRANSFORM: `S DIC("S")="I $L($P(^(0),U,2))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 19, 1983` DESCRIPTION: Determines when a new accession list begins. Points to the EXECUTE CODE file. SCREEN: `S DIC("S")="I $L($P(^(0),U,2))"` EXPLANATION: `ACCESSION CONTROL MUST BE DEFINED` CROSS-REFERENCE: `^^TRIGGER^68^.051` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68,D0,.1)):^(.1),1:"") S X=$E(Y(1),1,220) S DIU=X K Y X ^DD(68,.05,1,2,1.1) X ^DD(68,.05,1,2,1.4) 1.1)= S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(62.07,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(62.07,D0,.1)):^(.1),1:""),Y(101)=X S X=$E(Y(102),1,220) S D0=Y(1) 1.4)= S DIH=$S($D(^LRO(68,DIV(0),.1)):^(.1),1:""),DIV=X S DE=0-$L(DIH),Y=$E(DIH,221,999),^(.1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",220-$L(DIV))_Y),DIH=68,DIG=.051 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68,D0,.1)):^(.1),1:"") S X=$E(Y(1),1,220) S DIU=X K Y S X="" X ^DD(68,.05,1,2,2.4) 2.4)= S DIH=$S($D(^LRO(68,DIV(0),.1)):^(.1),1:""),DIV=X S DE=0-$L(DIH),Y=$E(DIH,221,999),^(.1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",220-$L(DIV))_Y),DIH=68,DIG=.051 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= ACCESSION TRANSFORM:(EXECUTE CODE) DELETE VALUE)= @ FIELD)= ACC CODE CROSS-REFERENCE: `^^TRIGGER^68^.03` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(2)=$C(59)_$S($D(^DD(68,.03,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^LRO(68,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_":",2),$C(59),1) S DIU=X K Y X ^DD(68,.05,1,3,1.1) X ^DD(68,.0 5,1,3,1.4) 1.1)= X ^DD(68,.05,1,3,1,9.2) S Y(101)=X S X=$P($P(Y(103),$C(59)_$P(Y(102),U,2)_":",2),$C(59),1) S D0=Y(1) 1.4)= S DIH=$S($D(^LRO(68,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=68,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(2)=$C(59)_$S($D(^DD(68,.03,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^LRO(68,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_":",2),$C(59),1) S DIU=X K Y X ^DD(68,.05,1,3,2.1) X ^DD(68,.0 5,1,3,2.4) 2.1)= X ^DD(68,.05,1,3,2,9.2) S Y(101)=X S X=$P($P(Y(103),$C(59)_$P(Y(102),U,2)_":",2),$C(59),1) S D0=Y(1) 2.4)= S DIH=$S($D(^LRO(68,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=68,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= ACCESSION TRANSFORM:(PURGE CONTROL) DELETE VALUE)= ACCESSION TRANSFORM:(PURGE CONTROL) FIELD)= CLEAN UP
.051	ACC CODE	.1;E1,220	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>220!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-220 CHARACTERS IN LENGTH` DESCRIPTION: Mumps code that is triggered by the Accession Transform field. WRITE AUTHORITY: @ NOTES: `TRIGGERED by the ACCESSION TRANSFORM field of the ACCESSION File`
.06	VERIFICATION CODE	0;6	POINTER TO EXECUTE CODE FILE (#62.07)	EXECUTE CODE(#62.07) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)=""V""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 13, 1984` DESCRIPTION: Points to EXECUTE CODE file. SCREEN: `S DIC("S")="I $P(^(0),U,3)=""V"""` EXPLANATION: `Only allow 'VERIFICATION' type of the EXECUTE CODE file` CROSS-REFERENCE: `^^TRIGGER^68^.061` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68,D0,.2)):^(.2),1:"") S X=$E(Y(1),1,220) S DIU=X K Y X ^DD(68,.06,1,1,1.1) X ^DD(68,.06,1,1,1.4) 1.1)= S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(62.07,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(62.07,D0,.1)):^(.1),1:""),Y(101)=X S X=$E(Y(102),1,220) S D0=Y(1) 1.4)= S DIH=$S($D(^LRO(68,DIV(0),.2)):^(.2),1:""),DIV=X S DE=0-$L(DIH),Y=$E(DIH,221,999),^(.2)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",220-$L(DIV))_Y),DIH=68,DIG=.061 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68,D0,.2)):^(.2),1:"") S X=$E(Y(1),1,220) S DIU=X K Y S X="" X ^DD(68,.06,1,1,2.4) 2.4)= S DIH=$S($D(^LRO(68,DIV(0),.2)):^(.2),1:""),DIV=X S DE=0-$L(DIH),Y=$E(DIH,221,999),^(.2)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",220-$L(DIV))_Y),DIH=68,DIG=.061 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= VERIFICATION CODE:(EXECUTE CODE) DELETE VALUE)= @ FIELD)= VER CODE
.061	VER CODE	.2;E1,220	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>220!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-220 CHARACTERS IN LENGTH` DESCRIPTION: Triggered by the Verification Code field. WRITE AUTHORITY: @ NOTES: `TRIGGERED by the VERIFICATION CODE field of the ACCESSION File`
.07	*IDENTITY CONTROL	0;7	POINTER TO EXECUTE CODE FILE (#62.07)	EXECUTE CODE(#62.07) DESCRIPTION: No longer used. Will be deleted in later version. CROSS-REFERENCE: `^^TRIGGER^68^.071` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68,D0,.3)):^(.3),1:"") S X=$E(Y(1),1,220) S DIU=X K Y X ^DD(68,.07,1,1,1.1) X ^DD(68,.07,1,1,1.4) 1.1)= S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(62.07,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(62.07,D0,.1)):^(.1),1:""),Y(101)=X S X=$E(Y(102),1,220) S D0=Y(1) 1.4)= S DIH=$S($D(^LRO(68,DIV(0),.3)):^(.3),1:""),DIV=X S DE=0-$L(DIH),Y=$E(DIH,221,999),^(.3)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",220-$L(DIV))_Y),DIH=68,DIG=.071 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68,D0,.3)):^(.3),1:"") S X=$E(Y(1),1,220) S DIU=X K Y S X="" X ^DD(68,.07,1,1,2.4) 2.4)= S DIH=$S($D(^LRO(68,DIV(0),.3)):^(.3),1:""),DIV=X S DE=0-$L(DIH),Y=$E(DIH,221,999),^(.3)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",220-$L(DIV))_Y),DIH=68,DIG=.071 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= IDENTITY CONTROL:(EXECUTE CODE) DELETE VALUE)= @ FIELD)= IDENT CODE
.071	*IDENT CODE	.3;E1,220	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>220!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-220 CHARACTERS IN LENGTH` DESCRIPTION: No longer used. Will be deleted in later version. WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the *IDENTITY CONTROL field of the ACCESSION File`
.08	PRINT ORDER	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 01, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 999` DESCRIPTION: The print order of the Accession Area. If the entry is less than 1 it will not be displayed.
.085	BYPASS ROLLOVER	0;10	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 14, 1987` DESCRIPTION: If you choose not to bypass rollover (i.e., have a null entry), then any unverified data will be "rolled over" to the next day. You will not be allowed to have a duplicate accession number.
.09	ABBREVIATION	0;11	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<2) X I $D(X) K:X[" "!$D(^LRO(68,"B",X)) X` LAST EDITED: `JAN 30, 1985` HELP-PROMPT: `ANSWER MUST BE A UNIQUE 2-5 CHARACTER CODE AND NOT CONTAIN A SPACE` DESCRIPTION: Abbreviation for the accession area. Must have programmer privileges to alter this entry. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `68^B^MNEMONIC` 1)= S ^LRO(68,"B",$E(X,1,30),DA)=1 2)= K ^LRO(68,"B",$E(X,1,30),DA)
.091	ASSOCIATED DIVISION	3;0	POINTER Multiple #68.03	68.03 LAST EDITED: `JUL 31, 1995` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits`
.092	TYPE OF ACCESSION NUMBER	.4;2	SET	'S' FOR SHORT; 'L' FOR LONG; LAST EDITED: `NOV 15, 1994` HELP-PROMPT: `Select the type of Accession Number that will be barcoded and passed in messages. If nothing is entered, the default will be 'S'hort.` DESCRIPTION: `This field determines whether a full unique accession number is used for barcoding and messages between instruments. The unique accession number is built from three different numbers, the accession area, the date, and the` accession entry number. If 'S'hort is selected, the accession number used in barcodes and for input at the instrument keypad is treated the same as it was traditionally. The 'L'ong unique accession will always be generated, it just won't be used in communicating with the instrument, or for barcoding. Examples of the four accession transform types are: Daily/Weekly: 3242889999 where 32 is the Accession area identifier (field .091) 4 is the last digit of the year (1994) 288 is the Julian date for Oct 15, 1994 9999 is the 9,999th accession for that date If the 'L'ong version was 3242889999, 'S'hort would be 9999 If the 'L'ong version was 3242880001, 'S'hort would be 1 Yearly: 3294999999 where 32 is the Accession area identifier (field .091) 94 is the last two digits of the year (1994) 999999 is the 999,999th accession for that year If the 'L'ong version was 3294999999, 'S'hort would be 999999 If the 'L'ong version was 3294000001, 'S'hort would be 1 Quarterly: 3240499999 where 32 is the Accession area identifier (field .091) 4 is the last digit of the year (1994) 04 is the fourth quarter of 1994 99999 is the 99,999th accession for that quarter If the 'L'ong version was 3240499999, 'S'hort would be 99999 If the 'L'ong version was 3240400001, 'S'hort would be 1 Monthly: 3241299999 where 32 is the Accession area identifier (field .091) 4 is the last digit of the year (1994) 12 is the twelfth month of 1994 99999 is the 99,999th accession for that month If the 'L'ong version was 3241299999, 'S'hort would be 99999 If the 'L'ong version was 3241200001, 'S'hort would be 1
.095	*LAB SECTION	0;13	POINTER TO LAB SECTION FILE (#62.2)	**********************REQUIRED FIELD********************** LAB SECTION(#62.2) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=$P(^LRO(68,DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 26, 1991` DESCRIPTION: THIS FIELD HAS BEEN MARKED FOR DELETION IN FUTURE VERSIONS THE FIELD LAB DIVISION (#.19) WILL BE USED INSTEAD PER WORKLOAD REVISION. TECHNICAL DESCR: The data in this field will be ignored for the collection of work load data. SCREEN: `S DIC("S")="I $P(^(0),U,2)=$P(^LRO(68,DA,0),U,2)"` EXPLANATION: `LR subscripts must match.` CROSS-REFERENCE: `68^AD` 1)= S ^LRO(68,"AD",$E(X,1,30),DA)="" 2)= K ^LRO(68,"AD",$E(X,1,30),DA)
.097	NON LAB ACCESSION AREA	0;21	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 11, 1998` DESCRIPTION: `This field indicates if this particular accession area is operated by another service other than Pathology & Laboratory Medicine. If this accession area in staffed or funded from non Pathology sources, mark this field` yes. An example would be Blood Gas laboratory staffed or funded by Medicine service. HOWEVER If this accession area is used by Point of Care (ie. Nurses entering finger stick glucose) do not set this field to yes. Because in this case the location is relevant to DSS database. This field is used by the Laboratory DSS workload extraction routine to determine if the patient location should be passed or not.
.1	RESPONSIBLE OFFICIAL	0;9	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 27, 2004` DESCRIPTION: The responsible official in the laboratory. Usually the Chief of Laboratory Service, or his designee.
.11	INHIBIT AREA LABEL PRINTING	0;12	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `SEP 11, 1984` HELP-PROMPT: `ENTER 'YES' TO STOP ALL LABELS FOR THIS ACCESSION AREA. 'NO' OTHER WISE.` DESCRIPTION: A YES entry stops all label printing for this accession area.
.19	LAB DIVISION	0;19	SET	**********************REQUIRED FIELD********************** 'AP' FOR ANATOMIC PATHOLOGY; 'CP' FOR CLINICAL PATHOLOGY; LAST EDITED: `MAR 26, 1991` DESCRIPTION: This field will be used to determine which lab division a particular accession area belongs. If this field is not filled in, CP (Clinical Pathology ) will be assumed. TECHNICAL DESCR: There can only be two possible laboratory divisions. Anatomical Pathology or Clinical Pathology. This field is used to group workload reports and data.
.4	NUMERIC IDENTIFIER	.4;1	FREE TEXT	INPUT TRANSFORM: `K:X'?1.2NU!($E(X)=0) X X:$D(X) ^DD(68,.4,9.2)` 9.2 = N LR4264 S LR4264=0 F S LR4264=$O(^LRO(68,LR4264)) Q:'LR4264 K:$P($G(^LRO(68,LR4264,.4)),U)=X&(DA'=LR4264) X D:'$D(X) EN^DDIOL("Identifier has already been used in Accession Area: "_$P(^(0),U),"","!!?5") Q:'$D(X) LAST EDITED: `APR 04, 1997` HELP-PROMPT: `Type a 1-2 character code using the digits 1-9 and/or the letters A-Z (uppercase only).` DESCRIPTION: `This field is used to build the unique accession identifier number. It is used as the first two characters of the number. Use the numbers 1-9 and uppercase letters A-Z to designate the identifier. For example, if you` enter 99 all accession identifiers for this accession area will start with 99, e.g. 9923400025. If a single character is used the system will append a leading zero to the unique identifier generated. No two accession areas can use the same identifier. Changing the identifier should only be performed when accessioning is not occurring and when a situation requires it since personnel will memorize this identifier as representing the accesson area. Do NOT switch identifiers between active accession areas since this could compromise the uniqueness of the resulting unique identifier (UID). The software when generating a UID checks for the existence of the UID it will create for an accession. If it currently exists the UID being created will have "00" as the numeric identifier. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.7	Lock for load/work list build	.7;1	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUL 24, 1987` HELP-PROMPT: `This locks the accession to allow only 1 load/work list to build at a time.` DESCRIPTION: This locks the accession to allow only ONE load/work list to build at a time.
.8	LAB OOS LOCATION	.8;1	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U)[""LAB DIV""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 24, 1996` DESCRIPTION: `Occassion Of Service (OOS)` This field is used for passing data to the PCE API. This API is used to capture CPT codes for laboratory procedures. Special OOS Hospital locations have been created that are solely used for recording workload (No count locations). These OOS location all begin with 'LAB DIV' in their names. Example of name: LAB DIV 600 OOS ID 108 Where 600 is the Station Number from the Institution file (#4). Where 600 is the division Station Number where the work is done. Where 108 is the OOS ID (stop code) for the service doing the work. Note: The stop code could be one assigned to another service, ie Medicine. Stop Codes are not limited to Laboratory 108. The Laboratory Information Manager has special options used to create new OOS locations in HOSPITAL LOCATION file. These options are used when and new division is established or a new stop code is required. The location names are constructed by the option and should not be altered using FileMan. The naming convention is critical to the ability to assign OOS Hospital Locations to Laboratory Accession (#68) file. If a given Accession Area in the Accession file (#68) does not have a LAB OOS LOCATION S LOCATION (#.8) Hospital Location assigned, the DEFAULT LAB OOS LOCATION (#.8) from the LABORATORY SITE (#69.9) file will be used. If the DEFAULT LAB OOS LOCATION field is not defined, no workload will be captured. SCREEN: `S DIC("S")="I $P(^(0),U)[""LAB DIV"""` EXPLANATION: `Locations are Name Spaced`
.9	USER ACCESS AUTHORIZATION	0;14	POINTER TO SECURITY KEY FILE (#19.1)	SECURITY KEY(#19.1) LAST EDITED: `NOV 14, 1988` DESCRIPTION: If left blank, any lab person may access this accession area. If filled in, only lab persons holding the key that is entered here may use this accession area.
1	INSTRUMENTATION CONTROLS	.5;0	POINTER Multiple #68.09	68.09 DESCRIPTION: Select the instrument (if appropriate, otherwise use the MANUAL selection) to be associated with the controls you will be selecting.
2	DATE	1;0	DATE Multiple #68.01	68.01 LAST EDITED: `MAR 13, 1991` DESCRIPTION: The date of the accession.
5	BAR CODE PRINT	0;15	SET	'0' FOR NONE; '1' FOR YES; '2' FOR CODE39; '3' FOR CODE39 WITH CHECK DIGIT; '4' FOR CODE128; LAST EDITED: `MAR 31, 1997` DESCRIPTION: This field is used by the label print utilities to determine if bar code labels should be printed for this accession area. TECHNICAL DESCR: The routine LRLABLD creates an array LRBAR(ACCESSION AREA) from the LRLBL variable to determine if bar code labels should be printed. GROUP: `BARCODE`
5.1	BAR CODE PAD	.4;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>15)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 11, 1997` HELP-PROMPT: `Type a Number between 1 and 15, 0 Decimal Digits` DESCRIPTION: `Enter the number of zeros ("0") to pad an accession number when printing a bar code using the accession number. Used when site needs a minimum length bar code on labels.` Example if need a four digit bar code then enter four. This would produce the following: Accession number Bar Code 1 0001 12 0012 123 0123 1234 1234 12345 12345 GROUP: `BARCODE`
5.2	ALTERNATE LABEL ENTRY	.4;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1)!'(X?1.8UN) X` LAST EDITED: `DEC 17, 1997` HELP-PROMPT: `Answer must be 1-8 uppercase alpha and/or numeric characters in length.` DESCRIPTION: `Site can enter an alternate label entry point to be used instead of the standard lab label routine entry point defined in file LABORATORY SITE (#69.9).` This field overrides the label routine settings in file LABORATORY SITE (#69.9) for this accession area. Field ALTERNATE LABEL ROUTINE (#5.3) must be completed for the software to use this field. See description of field #5.3. WRITE AUTHORITY: @
5.3	ALTERNATE LABEL ROUTINE	.4;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1)!'(X?1.8UN) X` LAST EDITED: `DEC 17, 1997` HELP-PROMPT: `Answer must be 1-8 uppercase alpha and/or numeric characters in length.` DESCRIPTION: `Site can enter an alternate label routine to be used instead of the standard lab label routine defined in file LABORATORY SITE (#69.9).` This field overrides the label routine settings in file LABORATORY SITE (#69.9) for this accession area. It is used in conjunction with field ALTERNATE LABEL ENTRY (#5.2) for building the variable LRLABEL. WRITE AUTHORITY: @
8	Reserved	0;18	SET	'1' FOR 2X5 UNEVEN; '2' FOR ORDER # FIRST; '3' FOR MEDLAB; '4' FOR SITE FILE; '5' FOR SITE DEVELOPED VAF 10-1392; LAST EDITED: `OCT 18, 1992` DESCRIPTION: Reserved for future use.
9	WORK AREA	0;17	SET	'WORK AREA' FOR WORK AREA; LAST EDITED: `NOV 18, 1991` DESCRIPTION: `This field should only be edited if this accession area is used for the purpose of workload definitions. This accession area is then used with load/worklist to define the area of the lab which should receive WKLD credit.` SPECIMENS CAN NOT BE ACCESSIONED INTO THIS ACCESSION AREA. IT IS SOLELY FOR THE USE WKLD DEFAULT ANSWERS FOR LMIP/WKLD DATA COLLECTION.
10	WORKLOAD ON	0;16	SET	'1' FOR YES; LAST EDITED: `OCT 31, 1992` DESCRIPTION: `this field is used to activate wkld collection. Each accession area can be turned on independently. In order for this field to trigger wkld collection, the field WKLD STATS ON (#17) in the LABORATORY SITE (#69.9) file` must also indicate ON.
11	COLLECT STD/QC/REPEATS	0;20	SET	'1' FOR YES; LAST EDITED: `NOV 26, 1993` DESCRIPTION: `If you wish to have the verification process to prompt the user for Standards, QC and Repeats after each session enter a Yes.` This will cause the counts entered to be added to all test the user verified during that particular session. The function of entering this data can be also done by the option STD/QC/REPS/MANUAL WKLD COUNT [LR WKLD STD/QC/REPS] found on the Process Menu [LR DO!].
12	EXTERNAL SERVICE AREA	0;22	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `APR 23, 2003` DESCRIPTION: This field determines if the Accession Area is defined for send out tests.

AREA: AUTOPSY	AREA: BLOOD BANK	AREA: CHEMISTRY	AREA: CYTOPATHOLOGY	AREA: ELECTRON MICROSCOPY	AREA: HEMATOLOGY	AREA: MICROBIOLOGY	AREA: SENDOUTS
AREA: SURGICAL PATHOLOGY	AREA: URINALYSIS

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #59	INTERIM MANAGEMENT SUPPORT
ICR #531	HEALTH SUMMARY ORDER ENTRY/RESULTS REPORTING	ACCESSION (15). Access: Direct Global Read & w/Fileman TESTS (.01). Access: Direct Global Read & w/Fileman COMPLETE DATE (4). Access: Direct Global Read & w/Fileman
ICR #572	QUALITY IMPROVEMENT CHECKLIST
ICR #687	HEALTH SUMMARY
ICR #1951	DSS EXTRACTS	AREA (.01). Access: Direct Global Read & w/Fileman ABBREVIATION (.09). Access: Direct Global Read & w/Fileman LAB DIVISION (.19). Access: Read w/Fileman PROVIDER (6.5). Access: Read w/Fileman DIV (26). Access: Read w/Fileman
ICR #1963	IMAGING VBECS ORDER ENTRY/RESULTS REPORTING VIRTUAL PATIENT RECORD	AREA (.01). Access: Direct Global Read & w/Fileman ABBREVIATION (.09). Access: Direct Global Read & w/Fileman LR SUBSCRIPT (.02). Access: Direct Global Read & w/Fileman
ICR #4185	CLINICAL REMINDERS
ICR #4773	VBECS ORDER ENTRY/RESULTS REPORTING	ORDER # (14). Access: Direct Global Read & w/Fileman LRDFN (.01). Access: Direct Global Read & w/Fileman ACCESSION (15). Access: Direct Global Read & w/Fileman DRAW TIME (9). Access: Direct Global Read & w/Fileman FILE # (1). Access: Direct Global Read & w/Fileman UID (16). Access: Direct Global Read & w/Fileman TEST (.01). Access: Direct Global Read & w/Fileman	Direct global access permitted
ICR #5343	ONCOLOGY	DIV (26). Access: Read w/Fileman
ICR #6003	IMAGING	LRDFN (.01). Access: Direct Global Read & w/Fileman ACCESSION (15). Access: Direct Global Read & w/Fileman INVERSE DATE (13.5). Access: Direct Global Read & w/Fileman	$D function is executed on ^LRO(68,LRAA,1,LRAD)$D and $O functions are executed on^LRO(68,LRAA,1,LRAD,1,LRAN)$Order function is executed on ^LRO(68,"B",LRSS,0)where LRSS equals "CY":"SP":"EM"

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.05(XREF 2n1.4), .05(XREF 2n2.4), .05(XREF 3n1.4), .05(XREF 3n2.4), .06(XREF 1n1.4), .06(XREF 1n2.4), .07(XREF 1n1.4), .07(XREF 1n2.4)
^DD(68	.05(XREF 2S), .05(XREF 2K), .05(XREF 3S), .05(XREF 3n1.1), .05(XREF 3K), .05(XREF 3n2.1), .06(XREF 1S), .06(XREF 1K), .07(XREF 1S), .07(XREF 1K) , .4+1
^LAB(62.07 - [#62.07]	.05(XREF 2n1.1), .06(XREF 1n1.1), .07(XREF 1n1.1)
^LRO(68 - [#68]	.01(XREF 1S), .01(XREF 1K), .04(XREF 1S), .04(XREF 1K), .05(XREF 2S), .05(XREF 2n1.4), .05(XREF 2K), .05(XREF 2n2.4), .05(XREF 3S), .05(XREF 3n1.4) , .05(XREF 3K), .05(XREF 3n2.4), .06(XREF 1S), .06(XREF 1n1.4), .06(XREF 1K), .06(XREF 1n2.4), .07(XREF 1S), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.4) , .09+1, .09(XREF 1S), .09(XREF 1K), .095(XREF 1S), .095(XREF 1K), .4OF9.2+1
^XUSEC("LRLIASON"	.01DEL1+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	.05(XREF 3n1.4), .05(XREF 3n2.4)
>> D0	.05(XREF 2S), .05(XREF 2n1.1), .05(XREF 2K), .05(XREF 3S), .05(XREF 3n1.1), .05(XREF 3K), .05(XREF 3n2.1), .06(XREF 1S), .06(XREF 1n1.1), .06(XREF 1K) , .07(XREF 1S), .07(XREF 1n1.1), .07(XREF 1K)
>> DA	.01(XREF 1S), .01(XREF 1K), .04(XREF 1S), .04(XREF 1K), .05(XREF 2S), .05(XREF 2K), .05(XREF 3S), .05(XREF 3K), .06(XREF 1S), .06(XREF 1K) , .07(XREF 1S), .07(XREF 1K), .09(XREF 1S), .09(XREF 1K), .095(XREF 1S), .095(XREF 1K), .4OF9.2+1
>> DE	.05(XREF 2n1.4), .05(XREF 2n2.4), .06(XREF 1n1.4), .06(XREF 1n2.4), .07(XREF 1n1.4), .07(XREF 1n2.4)
DIC	.04+1!, .05+1!, .06+1!, .095+1!, .8+1!*
DIC("S"	.04+1, .04SCR+1, .05+1, .05SCR+1, .06+1, .06SCR+1, .095+1, .095SCR+1, .8+1, .8SCR+1
>> DIE	.04+1, .05+1, .06+1, .095+1, .8+1
>> DIG	.05(XREF 2n1.4), .05(XREF 2n2.4), .05(XREF 3n1.4), .05(XREF 3n2.4), .06(XREF 1n1.4), .06(XREF 1n2.4), .07(XREF 1n1.4), .07(XREF 1n2.4)
>> DIH	.05(XREF 2n1.4), .05(XREF 2n2.4), .05(XREF 3n1.4), .05(XREF 3n2.4), .06(XREF 1n1.4), .06(XREF 1n2.4), .07(XREF 1n1.4), .07(XREF 1n2.4)
>> DIU	.05(XREF 2S), .05(XREF 2K), .05(XREF 3S), .05(XREF 3K), .06(XREF 1S), .06(XREF 1K), .07(XREF 1S), .07(XREF 1K)
DIV	.05(XREF 2S), .05(XREF 2n1.1), .05(XREF 2n1.4), .05(XREF 2K), .05(XREF 2n2.4), .05(XREF 3S), .05(XREF 3n1.4), .05(XREF 3K), .05(XREF 3n2.4), .06(XREF 1S) , .06(XREF 1n1.1), .06(XREF 1n1.4), .06(XREF 1K), .06(XREF 1n2.4), .07(XREF 1S), .07(XREF 1n1.1), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.4)
DIV(0	.05(XREF 2S), .05(XREF 2n1.4), .05(XREF 2K), .05(XREF 2n2.4), .05(XREF 3S), .05(XREF 3n1.4), .05(XREF 3K), .05(XREF 3n2.4), .06(XREF 1S), .06(XREF 1n1.4) , .06(XREF 1K), .06(XREF 1n2.4), .07(XREF 1S), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.4)
DUZ	.01DEL1+1
LR4264	.4OF9.2+1~*
U	.05(XREF 3S), .05(XREF 3n1.1), .05(XREF 3n1.4), .05(XREF 3K), .05(XREF 3n2.1), .05(XREF 3n2.4), .4OF9.2+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .04+1!, .04(XREF 1S), .04(XREF 1K), .05+1!, .05(XREF 2S), .05(XREF 2n1.1), .05(XREF 2n1.4) , .05(XREF 2K), .05(XREF 2n2.4), .05(XREF 3S), .05(XREF 3n1.1), .05(XREF 3n1.4), .05(XREF 3K), .05(XREF 3n2.1), .05(XREF 3n2.4), .051+1!, .06+1! , .06(XREF 1S), .06(XREF 1n1.1), .06(XREF 1n1.4), .06(XREF 1K), .06(XREF 1n2.4), .061+1!, .07(XREF 1S), .07(XREF 1n1.1), .07(XREF 1n1.4), .07(XREF 1K) , .07(XREF 1n2.4), .071+1!, .08+1!, .09+1!, .09(XREF 1S), .09(XREF 1K), .095+1!, .095(XREF 1S), .095(XREF 1K), .4+1! , .4OF9.2+1!, .8+1*!, 5.1+1!, 5.2+1!, 5.3+1!
Y	.04+1, .05+1, .05(XREF 2S), .05(XREF 2n1.4), .05(XREF 2K), .05(XREF 2n2.4), .05(XREF 3S), .05(XREF 3K), .06+1, .06(XREF 1S) , .06(XREF 1n1.4), .06(XREF 1K), .06(XREF 1n2.4), .07(XREF 1S), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.4), .095+1, .8+1
Y(1	.05(XREF 2S), .05(XREF 2n1.1), .05(XREF 2K), .05(XREF 3S), .05(XREF 3n1.1), .05(XREF 3K), .05(XREF 3n2.1), .06(XREF 1S), .06(XREF 1n1.1), .06(XREF 1K) , .07(XREF 1S), .07(XREF 1n1.1), .07(XREF 1K)
Y(101	.05(XREF 2n1.1), .05(XREF 3n1.1), .05(XREF 3n2.1), .06(XREF 1n1.1), .07(XREF 1n1.1)
Y(102	.05(XREF 2n1.1), .05(XREF 3n1.1), .05(XREF 3n2.1), .06(XREF 1n1.1), .07(XREF 1n1.1)
Y(103	.05(XREF 3n1.1), .05(XREF 3n2.1)
Y(2	.05(XREF 3S), .05(XREF 3K)

Customize PDF page

Package: Lab Service

Global: ^LRO(68

Information

Description

Directly Accessed By Routines, Total: 499

Accessed By FileMan Db Calls, Total: 60

Pointed To By FileMan Files, Total: 19

Pointer To FileMan Files, Total: 18

Fields, Total: 35

Found Entries, Total: 10

ICR, Total: 10

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
EN^DDIOL	.4OF9.2+1
^DIC	.04+1, .05+1, .06+1, .095+1, .8+1
^DICR	.05(XREF 2n1.4), .05(XREF 2n2.4), .05(XREF 3n1.4), .05(XREF 3n2.4), .06(XREF 1n1.4), .06(XREF 1n2.4), .07(XREF 1n1.4), .07(XREF 1n2.4)

Name	Field # of Occurrence
^(	.05(XREF 2S), .05(XREF 2n1.1), .05(XREF 2n1.4), .05(XREF 2K), .05(XREF 2n2.4), .06(XREF 1S), .06(XREF 1n1.1), .06(XREF 1n1.4), .06(XREF 1K), .06(XREF 1n2.4) , .07(XREF 1S), .07(XREF 1n1.1), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.4)
^(0	.05(XREF 3S), .05(XREF 3n1.4), .05(XREF 3K), .05(XREF 3n2.4), .4OF9.2+1