Global: ^LR

FileMan FileNo	FileMan Filename	Package
63	LAB DATA	Lab Service

Package	Total	Routines
Lab Service	562	ACCESSION NUMBER AUTOPSY ORGAN/TISSUE AUTOPSY SPECIMEN CELL BLOCK CODE SYSTEM REFERENCE EXTERNAL PACKAGE REFERENCE FUNGUS/YEAST IMAGE LR309 LR541PST LR7OB63 LR7OB630 LR7OB63B LR7OB63D LR7OB68 LR7OFAO LR7OGC LR7OGG LR7OGMG LR7OGMM LR7OGMU LR7OMERG LR7OR1 LR7OR2 LR7OSAP LR7OSAP4 LR7OSBR LR7OSMZ0 LR7OSMZ1 LR7OSMZ2 LR7OSMZ4 LR7OSMZU LR7OSUM LR7OSUM2 LRABG1 LRAC14 LRAC2 LRAC2A LRAC4 LRACFILE LRACM2 LRACS1 LRACSUM LRACSUM1 LRAPAUA LRAPAUL LRAPAULC LRAPBK LRAPBR3 LRAPBR4 LRAPBS1 LRAPC LRAPDA LRAPDEL LRAPEDC LRAPF LRAPFICH LRAPFIX LRAPH LRAPICD LRAPJNC LRAPKLG LRAPLG LRAPLG2 LRAPMOD LRAPPF1 LRAPQ LRAPQACD LRAPQACN LRAPQAMR LRAPQAR LRAPQAT LRAPQAT1 LRAPQOR LRAPQOR1 LRAPR1 LRAPS LRAPS1 LRAPS2 LRAPSEM1 LRAPSEM2 LRAPSL1 LRAPSM LRAPSWK LRAPT1 LRAPT2 LRAPT3 LRAPUTL LRAPV LRAPWA LRAPWEA LRAPWKA LRAPWR LRAPWR1 LRAPWU LRAPX LRAR02 LRAR03 LRAR04 LRAR05 LRARCHD LRARCHE LRARCHIV LRAUAW LRAUL LRAUMLK LRAURPT LRAUSICD LRAUSTA LRBEBA2 LRBEBA4 LRBEBA5 LRBEPEND LRBLAA LRBLDPA2 LRBLJB LRBLJD LRBLJLA LRBLJTS1 LRBLJU1 LRBLJX LRBLP LRBLPA LRBLPAB LRBLPABRH LRBLPBR1 LRBLPCS LRBLPD LRBLPD1 LRBLPEDIT LRBLPIT LRBLPOLD LRBLPR LRBLPRA LRBLPUS LRBLPX LRBLQPR LRBLSUM LRBLTA LRBLTA1 LRBLU LRCAPAUD LRCAPDAR LRCAPDSS LRCAPPH LRCAPPH1 LRCAPPHX LRCAPV2 LRCENDEL LRCHIVD LRCHIVE LRCHIVK LRDIQ LRDIST LRDIST1 LRDPA LREGFR2 LREPI1 LRFAST LRGEN1 LRGP LRGV2 LRGVG2 LRHY01 LRHYBC1 LRHYLS1 LRHYPH0 LRHYPH2 LRLABELF LRLABLD0 LRLISTPS LRLLP5 LRLNC63A LRLSTWRL LRMIAU2 LRMIBL LRMIBUG LRMIEDZ LRMIHDR LRMILL LRMINEW LRMINEW1 LRMIPLOG LRMIPSU LRMIPSZ4 LRMISEZ1 LRMISEZB LRMISR LRMISTF1 LRMITSPO LRMIV LRMIV4 LRMIVER LRMRSHRT LRNINES7 LRNODRAW LROE LROE2 LROR1 LROR4A LROR9 LRORD1 LROSPLG LROSPLG2 LROW LRPHLIS1 LRPX LRPXAPI2 LRPXAPP LRPXCHK LRPXSXRA LRRP LRRP2 LRRP4 LRRPLU LRRPLUA LRRPU LRSMAC LRSOR LRSORC1 LRSPRPT LRSPRPT1 LRSPRPT2 LRSTUF1 LRTOCOST LRTSTJAM LRTSTJAN LRTSTJM1 LRUCN LRUD LRUD1 LRUDEL LRUE LRUER LRUET LRUG LRUL LRULB1 LRULEN LRUMDM LRUMI LRUPA2 LRUPAD2 LRUPQ1 LRUQ LRUR LRUSET LRUTAD LRUTELL LRUWG LRVER LRVER1 LRVER2 LRVER3 LRVER3A LRVER5 LRVR0 LRVR4 LRVRAP4 LRVRAR LRVRMI2A LRVRMI3 LRVRMI4A LRVRPOC LRWD LRWLST12 LRWRKLS1 LRWRKLST LRWU8 LRWU9A LRX MICROBIOLOGY MYCOBACTERIUM ORDERED TEST ORGANISM PARAFFIN BLOCK PARASITE PLASTIC BLOCK PRODUCING LABORATORY RBC ANTIGENS PRESENT(other) RELATED NAME SPECIMEN # STAGE SUPPLEMENTARY REPORT MODIFIED TIU REFERENCE DATE/TIME - AU TIU REFERENCE DATE/TIME - EM TIU REFERENCE DATE/TIME - SP ^LRD(65 DATE FROZEN SECTION MODIFIED EM IMAGE (MICROSCOPIC) LR317 LR7OB63A LR7OB63C LR7OGMC LR7OSAP1 LR7OSAP2 LRAC1 LRACP LRACPG LRAPA LRAPBK1 LRAPBR5 LRAPBS2 LRAPDPT LRAPL LRAPLG1 LRAPOLD LRAPONC LRAPPA LRAPPRE LRAPQAC LRAPQAM LRAPRES LRAPRES1 LRAPS3 LRAPSA LRAPSNMD LRAPST LRAPST1 LRAPTIUP LRAPWE LRAPWKA1 LRAPWSPG LRARCHK LRBLAUD1 LRBLDRR LRBLJPA1 LRBLJPH LRBLJUT LRBLPB LRBLPCS1 LRBLPE LRBLPEW LRBLPR1 LRBLPTR1 LRBLPX1 LRBLQST LRCAPES1 LRCHIV LRCKF69 LRCKPTR LRDCOM LRDFN-TESTS LREPI LREPI1A LRFLAG LRGV1 LRGVP LRHDR LRHY0 LRHY22 LRHYAFT LRHYDEL LRLABLD LRLLP2 LRLNC63 LRMIPC LRMIPSZ1 LRMIUT LRMIV2 LRMIVER1 LRMIZAP1 LROC LROR LRPHSET2 LRPXAPI1 LRPXRM LRPXSXRL LRRMM LRRPL LRRSP LRSLOW LRTSTOUT LRUCNBB LRUCSR LRUMDP LRUPAD1 LRUPS LRUPT LRUTT LRVER4 LRVR2 LRVR3 LRVR5 LRVRMI4 LRWLST LRWLST11 LRWRKS2 LRWU9 MICROBIOLOGY AUDIT STAIN/PROCEDURE SURGICAL PATHOLOGY ^LR CYTOPATHOLOGY IMAGE (GROSS) LR7OB0 LR7OF4 LR7OSMZ3 LR7OSMZ5 LR7OSUM1 LRABG LRAC6 LRAPALRT LRAPBR2 LRAPCUM LRAPED LRAPKOE LRAPMRL1 LRAPSL LRAUFIX LRBLPAG LRBLPT1 LRBLRCT LRBLTXA LRCONJAM LRCYPCT LRMIUT1 LROR4 LROR4B LRPXAPIU LRPXSXRB LRSORA3 LRUA LRUDPT LRVR LRVR1 LRWRKINC LRWU ^LRT(67.2 COMMENT DONATION OR DEFERRAL DATE EPON BLOCK FROZEN TISSUE BLOCK HLA ANTIGENS PRESENT LR7OB1 LR7OB69 LR7OC0 LR7OFAA LR7OGM LR7OGMP LR7ORB3 LR7OSAP3 LR7OSBB1 LR7OSBR1 LR7OVB LRAC3 LRAC7 LRAC9 LRACF LRACFIX LRACKL LRACM2F LRACM3 LRACS LRACS2 LRACS3 LRAPAUSR LRAPBR LRAPBR1 LRAPCUM1 LRAPCWK LRAPDSR LRAPM LRAPMV LRAPPF LRAPQAFS LRAPQOR3 LRAPR LRAPSEM LRAPT LRAPTT LRAPWE1 LRARNPX1 LRAURV LRAUSM LRBEBA21 LRBLJC LRBLJDA LRBLJED LRBLJL1 LRBLJPP LRBLPBR LRBLPC LRBLPCMBS LRBLPOOL LRBLPTR LRBLPUS2 LRBLSCREEN LRBLSPP LRBLSTR LRCE LRCENDE1 LRCKF68 LRDPA1 LRDPA2 LRDPAREF LRDRAW LREGFR LREPICY LRFIXAU LRGEN LRHYF1 LRLAM LRLIST LRLISTE LRLLS2 LRLLS3 LRLSTWRK LRMIAUD LRMIEDZ2 LRMINEW2 LRMIPSZ LRMIPSZ2 LRMIPSZ3 LRMITSPE LRMIV1 LROR3 LROW2P LRPHITE2 LRPHITEM LRPHSET1 LRQCC LRRP1 LRRP3 LRSETUP LRSORB LRSORD1 LRSPGD LRSPRPTA LRSPRPTM LRSPSICD LRSPT LRSTUF2 LRU LRUCE LRUEPR LRUMD LRUPA1 LRUPACA LRUSP LRUTRAN LRUW LRVERA LRVRA LRVRMI2 LRVRMI5 LRVRW LRWLST1 LRWOMEN LRWRKIN1 LRWU1 LRWU6 LRXDRPT LRXREF MORPHOLOGY PATIENT XMATCHED/ASSIGNED SMEAR PREP SPECIMEN TIU REFERENCE DATE/TIME - CY TRANSFUSION RECORD VIRUS
Automated Lab Instruments	68	LA7DVC LA7DVEXT LA7DVM LA7HDR LA7HDR1 LA7QRY1 LA7QRY2 LA7SM2 LA7SMP0 LA7SRR LA7UID2 LA7UIIN2 LA7UIO1 LA7UTL02 LA7UTL03 LA7UTL1A LA7UTL1C LA7VHLU2 LA7VHLU3 LA7VIN2A LA7VMSG LA7VMSG1 LA7VOBR LA7VOBX1 LA7VOBX2 LA7VOBX3 LA7VOBX4 LA7VORM1 LA7VORM3 LA7VORR1 LA7VORU LA7VORU1 LA7VORU2 LA7VORUA LA7VORUB LA7VPID LABCX4D LADIMD LAEKT7D LAEPXD LAGEN LAHTCCAD LAKDIFF LAKDIFF1 LAKUR LAKUR1 LAMIAUT1 LAMIAUT2 LAMIAUT3 LAMIAUT4 LAMIAUT5 LAMIAUT6 LAMIAUT7 LAMILL LAMIVTKD LAMIVTL1 LAMIVTL2 LAMIVTL3 LAMIVTL4 LAMIVTL6 LAMIVTLD LAMIVTLG LAMIVTLW LAMSD LAPERD LAPFICH LAPMAXD LAXSYMBL
Health Summary	18	GMTSLRAE GMTSLRB GMTSLRBE GMTSLRC GMTSLRCE GMTSLRCP GMTSLREE GMTSLRM GMTSLRMB GMTSLRME GMTSLRMX GMTSLROE GMTSLRPE GMTSLRS GMTSLRS7 GMTSLRSC GMTSLRSE GMTSLRTE
Order Entry Results Reporting	14	ORAM ORAMTTR ORB3LAB ORB3U2 ORDV02D ORDV05E ORDV05T ORDV05X ORDVX1 ORELR5 ORWGAPIB ORWORB ORWRP2 ORY244
VBECS	12	VBECA1 VBECA3 VBECA4 VBECA6 VBECDC00 VBECDCR VBECDCU VBECDCU1 VBECDCX VBECDCX1 VBECRPCA VBECRPCB
Virtual Patient Record	9	VPRDJ06 VPRDJ08A VPRDLR VPRDLRA VPRDLRO VPREVSND VPRP20 VPRSDAB VPRSDAQ
Imaging	8	MAGDRPCG MAGGTLB MAGGTLB1 MAGGTRPT MAGQBUT2 MAGSDEL3 MAGTP006 MAGTP013
Surgery	6	SRBLOOD SROAL1 SROAL2 SROCL1 SROSPLG SROSPLG2
Clinical Case Registries	5	RORHL06 RORHL10 RORHL11 RORUTL10 RORXU003
Enterprise Health Management Platform	5	HMPDJ06 HMPDJ08A HMPDLR HMPDLRA HMPEVNT
PCE Patient Care Encounter	4	PXRRPAPI PXRRPCE2 PXRRPCE3 PXRRPCE4
Clinical Reminders	3	PXRMCWH PXRMLABS PXRMXX2
DSS Extracts	3	ECXLABN ECXLABO ECXLBB
Methicillin Resistant Staph Aurerus Initiative Reports	3	MMRSCDI1 MMRSCRE3 MMRSIPC3
National Health Information Network	3	NHINVLR NHINVLRA NHINVLRO
VA FileMan	3	ITEM YEAR ^DDE
Emergency Department Integration Software	2	EDPLAB EDPMED
Kernel	2	ARRAY SUBSCRIPTS COMPUTABLE FILE REFERENCES
Outpatient Pharmacy	2	PSOLAB PSORXLAB
Text Integration Utility	2	TIULAB TIULIP
Toolkit	2	XDRDVAL2 XDRMERG0
Womens Health	2	WVLABCHK WVSNOMED
Automated Medical Information Exchange	1	DVBCLABR
Clinical Information Resource Network	1	RGVCCMR2
Clinical Monitoring System	1	QAMC21
Dietetics	1	FHASM4
Medicine	1	MCRH1
Oncology	1	ONCOCFL1
Pharmacy Benefits Management	1	PSULR2
Pharmacy Data Management	1	PSSLAB
VistA Integration Adapter	1	VIABEFR

Package	Total	Routines
Lab Service	50	LRAPALRT LRAPAUL LRAPBR LRAPBR1 LRAPBR4 LRAPBR5 LRAPBS1 LRAPDA LRAPDSR LRAPED LRAPEDC LRAPLG1 LRAPM LRAPMOD LRAPMRL1 LRAPMV LRAPOLD LRAPQOR2 LRAPR LRAPRES LRAPUTL LRAPWA LRAPWE LRAPWR LRAUAW LRBEBA LRBEBA2 LRBEBA3 LRBEBA31 LRBEBA4 LRBEBA5 LRBEPEND LRBLJM1 LRBLP LRBLPE LRBLPUS LRCAPBV LRCAPES1 LRMIEDZ2 LRMIV1 LRMIV2 LRPXSXRA LRPXSXRB LRPXSXRL LRSPRPT LRUA LRUCE LRUCN LRUDEL LRVR0
Imaging	9	MAGDIR8A MAGDRPCG MAGGTIA2 MAGT7MA MAGTP004 MAGTP007 MAGTP013 MAGVIM02 MAGVORDR
Automated Lab Instruments	2	LA7VPFL LAMIVTL6
Clinical Case Registries	1	RORHL05
Medicine	1	MCRH1
VBECS	1	VBECA3

Package	Total	FileMan Files
Lab Service	13	LABORATORY TEST(#60)[400] ANTIMICROBIAL SUSCEPTIBILITY(#62.06)[5, 5.1] LAB CONTROL NAME(#62.3)[63] CUMULATIVE(#64.7)[.01] BLOOD DONOR(#65.5)[63] ACCESSION(#68)[#68.02(.01)] LAB ORDER ENTRY(#69)[#69.01(.01)] COLLECTION LIST(#69.1)[#69.11(3)] LAB SECTION PRINT(#69.2)[#69.27(.01), #69.3(.01)] REFERRAL PATIENT(#67)[63] RESEARCH(#67.1)[63] STERILIZER(#67.2)[63] ENVIRONMENTAL(#67.3)[63]
Automated Lab Instruments	1	LAB SHIPPING MANIFEST(#62.8)[#62.801(.01)]
Imaging	1	DICOM LAB TEMP LIST(#2006.5838)[2]
Medicine	1	RHEUMATOLOGY(#701)[613]
Order Entry Results Reporting	1	ORDER CHECK INSTANCES(#100.05)[#100.08(.01)]
Registration	1	PATIENT(#2)[63]
Surgery	1	RISK MODEL LAB TEST(#139.2)[#139.21(.01)]

Package	Total	FileMan Files
Lab Service	17	LABORATORY TEST(#60)[#63.07(13), #63.07(14), #63.20211(.01), #63.3311(.01), #63.5(13), #63.5(14), #63.51(13), #63.51(14), #63.52(13), #63.52(14), #63.53(13), #63.53(14), #63.812(.02), #63.8122(.01), #63.823(.01), #63.825(.01), #63.902(.02), #63.90241(.01), #63.90251(.01), #63.9122(.01), #63.923(.01), #63.9241(.01)] TOPOGRAPHY FIELD(#61)[#63.01(.05), #63.04(.05), #63.05(.05), #63.07(8), #63.12(.01), #63.2(.01), #63.202(.06), #63.212(.01), #63.5(8), #63.51(8), #63.52(8), #63.53(8), #63.812(.06), #63.902(.06), #63.912(.01)] MORPHOLOGY FIELD(#61.1)[#63.16(.01), #63.216(.01), #63.22(.01), #63.916(.01)] ETIOLOGY FIELD(#61.2)[#63.17(.01), #63.217(.01), #63.23(.01), #63.3(.01), #63.34(.01), #63.37(.01), #63.39(.01), #63.43(.01), #63.917(.01)] FUNCTION FIELD(#61.3)[#63.011(.01), #63.0112(.01), #63.0114(.01), #63.012(.01), #63.013(.01), #63.016(.01), #63.075(.01), #63.13(.01), #63.14(.01), #63.141(.01), #63.25(.01), #63.285(.01), #63.46(.01), #63.85(.01), #63.985(.01)] DISEASE FIELD(#61.4)[#63.15(.01), #63.21(.01), #63.215(.01), #63.915(.01)] PROCEDURE FIELD(#61.5)[#63.24(.01), #63.282(.01), #63.82(.01), #63.982(.01)] COLLECTION SAMPLE(#62)[#63.01(.055), #63.05(.055), #63.07(9), #63.202(.07), #63.5(9), #63.51(9), #63.52(9), #63.53(9), #63.812(.07), #63.902(.07)] URGENCY(#62.05)[#63.07(2), #63.5(2), #63.51(2), #63.52(2), #63.53(2)] LAB DESCRIPTIONS(#62.5)[#63.029(.01), #63.089(.01), #63.099(.01), #63.999(.01)] LAB ELECTRONIC CODES(#64.061)[#63.07(5), #63.07(10), #63.5(5), #63.5(10), #63.51(5), #63.51(10), #63.52(5), #63.52(10), #63.53(5), #63.53(10)] LAB REPORTS(#64.5)[#63.03(.01)] BLOOD BANK UTILITY(#65.4)[#63.017(.11), #63.0171(.02)] BLOOD PRODUCT(#66)[#63.015(.02), #63.017(.02), #63.019(.01), #63.084(.01)] LAB LOINC(#95.3)[#63.00014(.06)] WKLD CODE(#64)[#63.00014(.06)] BLOOD INVENTORY(#65)[#63.0841(.01)]
Kernel	2	INSTITUTION(#4)[14.91, #63.00012(.02), #63.00013(.03), #63.02(.32), #63.02(.33), #63.02(.345), #63.04(.111), #63.04(.112), #63.04(.32), #63.04(.33), #63.04(.345), #63.05(.111), #63.05(.112), #63.05(.32), #63.05(.33), #63.05(.345), #63.08(.32), #63.08(.33), #63.08(.345), #63.09(.32), #63.09(.33), #63.09(.345), #63.539(7)] NEW PERSON(#200)[.101, 12.1, 13.5, 13.6, 13.8, 14.8, 102.1, #63.01(.04), #63.01(.07), #63.01(.09), #63.01(10.2), #63.01(11.2), #63.017(.04), #63.0171(.03), #63.02(.02), #63.02(.021), #63.02(.07), #63.02(.13), #63.02(.171), #63.025(.02), #63.0272(.02), #63.04(.04), #63.04(.1), #63.041(1), #63.05(.04), #63.05(.07), #63.05(11.55), #63.05(11.56), #63.05(15.5), #63.05(19.5), #63.05(25.5), #63.05(35), #63.07(6), #63.07(12), #63.08(.02), #63.08(.021), #63.08(.07), #63.08(.13), #63.08(.171), #63.084(.08), #63.085(.02), #63.086(.02), #63.087(.02), #63.09(.02), #63.09(.021), #63.09(.07), #63.09(.13), #63.09(.171), #63.095(.02), #63.097(.02), #63.2072(.02), #63.2072(.03), #63.242(.02), #63.3242(.02), #63.3242(.03), #63.5(6), #63.5(12), #63.51(6), #63.51(12), #63.52(6), #63.52(12), #63.53(6), #63.53(12), #63.539(2), #63.8172(.02), #63.8172(.03), #63.84(.02), #63.9072(.02), #63.9072(.03), #63.94(.02)]
CPT HCPCS Codes	1	CPT(#81)[#63.00014(.06)]
DRG Grouper	1	ICD DIAGNOSIS(#80)[#63.203(.01), #63.808(.01), #63.88(.01), #63.901(.01)]
Imaging	1	IMAGE(#2005)[#63.22005(.01), #63.28(.01), #63.45(.01), #63.82005(.01), #63.92005(.01)]
Order Entry Results Reporting	1	ORDER(#100)[#63.07(3), #63.5(3), #63.51(3), #63.52(3), #63.53(3)]
Registration	1	FACILITY TREATING SPECIALTY(#45.7)[14.6, #63.084(2.3)]
Scheduling	1	HOSPITAL LOCATION(#44)[#63.04(.111), #63.05(.111)]
Text Integration Utility	1	TIU DOCUMENT(#8925)[#63.101(1), #63.19(1), #63.47(1), #63.49(1)]
VA FileMan	1	FILE(#1)[.02]

Fields, Total: 97

Field #	Name	Loc	Type	Details
.01	LRDFN	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X` LAST EDITED: `MAR 17, 2006` HELP-PROMPT: `Enter the application entry number.` DESCRIPTION: `The internal file number of the "patient" (or other entity)` DELETE TEST: `1,0)= I 1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `63^B` `1)= S ^LR("B",$E(X,1,30),DA)=""` `2)= K ^LR("B",$E(X,1,30),DA)` `The internal file number in the ^LR file. This is commonly known as LRDFN variable in LR* routines.`
.02	PARENT FILE	0;2	POINTER TO FILE FILE (#1)	**********************REQUIRED FIELD********************** FILE(#1) INPUT TRANSFORM: `S DIC("S")="I $D(^(""%"",""B"",""LR""))" D ^DIC:X'?1"?".E K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DDIFN=X` LAST EDITED: `NOV 04, 2002` DESCRIPTION: `The file where the name of this entry may be found.` SCREEN: `S DIC("S")="I $D(^(""%"",""B"",""LR""))"` EXPLANATION: `Enter the appropriate parent you wish this entry associated with.` EXECUTABLE HELP: `W !!,"Allowable Entries: " F %II=0:0 S %II=$O(^DIC("AC","LR",%II)) Q:%II'>0 W ?20,%II,?30,$P(^DIC(%II,0),"^",1),!` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `63^AZZ^MUMPS` `1)= Q` `2)= I '$D(DIU(0)) S DOLP=X,L1=^LR(DA,0),X=$P(L1,"^",3) X ^DD(63,.03,1,1,2) S ^LR(DA,0)=$P(L1,"^",1,2)_"^^"_$P(L1,"^",4,99) K DOLP,L1,L,Q`
.03	NAME	0;3	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `I '$D(DIU(0)) S PDA=DA,PDIC=DIC,DIC(0)="QEM",DIC=$S($D(DDIFN):DDIFN,$D(^LR(DA,0)):+$P(^LR(DA,0),"^",2),1:""),DDIFN=DIC K:DIC<1 X D ^DIC:DIC>0 S DIC=PDIC,DA=PDA K PDA,PDIC I $D(Y) S X=+Y K:Y'>0 X,Y I $D(Y) X ^DD(63,.03,.000` `1)` OUTPUT TRANSFORM: `N L,L1 S L1=$S($D(DA):DA,$D(D0):D0,1:"") I L1>0 S L=^LR(L1,0),Y="" I +$P(L,"^",2)>0 S Y=$P($S($D(@(^DIC(+$P(L,"^",2),0,"GL")_(+$P(L,"^",3))_",0)")):^(0),1:""),"^",1)` LAST EDITED: `JAN 13, 1984` DESCRIPTION: `The internal file number in the parent file for this entry.` EXECUTABLE HELP: `S X="?",PDA=DA,PDIC=DIC,DIC=$S($D(DDIFN):DDIFN,$D(^LR(DA,0)):+$P(^LR(DA,0),"^",2),1:0),DIC(0)="QEM" D ^DIC:DIC>0 S DIC=PDIC,DA=PDA K PDA,PDI,X` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `63^CZZ^MUMPS` `1)= S @(^DIC(+$P(^LR(DA,0),"^",2),0,"GL")_(+X)_",""LR"")")=DA` `2)= N L I '$D(DIU(0)) S L=$S($D(DOLP):"^"_DOLP_"^"_X,1:^LR(DA,0)) K @(^DIC(+$P(L,"^",2),0,"GL")_(+X)_",""LR"")")`
.04	DO NOT TRANSFUSE	0;4	SET	'1' FOR DO NOT TRANSFUSE; '0' FOR OK TO TRANSFUSE; LAST EDITED: `SEP 09, 1985` DESCRIPTION: `If DO NOT TRANSFUSE is entered then the patient cannot be transfused until the reason for not transfusing a blood component is resolved. The reason can be entered in the BLOOD BANK COMMENTS field.`
.05	ABO GROUP	0;5	SET	**********************REQUIRED FIELD********************** 'A' FOR A; 'B' FOR B; 'AB' FOR AB; 'O' FOR O; LAST EDITED: `AUG 15, 1988` DESCRIPTION: `ABO blood group of patient` EXECUTABLE HELP: `W !,"Enter A for A, B for B, O for O or AB for AB"`
.06	RH TYPE	0;6	SET	**********************REQUIRED FIELD********************** 'POS' FOR POS; 'NEG' FOR NEG; LAST EDITED: `AUG 15, 1988` DESCRIPTION: `This is the patient's RH blood type.`
.07	RBC ANTIGENS PRESENT(other)	1;0	POINTER Multiple #63.13	63.13 DESCRIPTION: `Red blood cell antigens present other than ABO and Rho(D).` SCREEN: `S DIC("S")="I $P(^(0),U,5)=""AN"""` EXPLANATION: `SELECTS ONLY ANTIGENS`
.075	ANTIBODIES IDENTIFIED	1.7;0	POINTER Multiple #63.075	63.075 DESCRIPTION: `These are the patient's identified antibodies.` SCREEN: `S DIC("S")="I $P(^(0),U,5)=""AB"""` EXPLANATION: `Selects only antibodies`
.076	BLOOD BANK COMMENTS	3;0	WORD-PROCESSING #63.076	DESCRIPTION: `These are blood bank comments for this patient.` LAST EDITED: `JUN 02, 1985` DESCRIPTION: `These are blood bank comments for this patient.`
.08	RBC ANTIGENS ABSENT(other)	1.5;0	POINTER Multiple #63.016	63.016 DESCRIPTION: `Red blood cell antigens absent other than ABO & Rho(D).` SCREEN: `S DIC("S")="I $P(^(0),U,5)=""AN"""` EXPLANATION: `SELECTS ONLY ANTIGENS`
.084	BLOOD COMPONENT REQUEST	1.8;0	POINTER Multiple #63.084	63.084 DESCRIPTION: `These are blood component requests.` SCREEN: `S DIC("S")="I $P(^(0),U,15)"` EXPLANATION: `Selects only components that can be requested`
.085	TRANSFUSION RECORD	1.6;0	DATE Multiple #63.017	63.017 DESCRIPTION: `This is data concerning the patient's transfusion.` IDENTIFIED BY: `COMPONENT(#.02)[R], COMPONENT ID(#.03)[R]`
.086	TRANSFUSION REACTION DATE	1.9;0	DATE Multiple #63.0171	63.0171 LAST EDITED: `DEC 29, 1992` DESCRIPTION: `Transfusion reactions that cannot be assigned to a specific unit are entered here.`
.09	HOSPITAL ID		COMPUTED	MUMPS CODE: `S L1=$S($D(D0):D0,1:"") I L1>0 S L=^LR(L1,0),X=$P($S($D(@(^DIC(+$P(L,"^",2),0,"GL")_(+$P(L,"^",3))_",0)")):^(0),1:""),"^",9),X=$S(X?9N:$E(X,1,3)_"-"_$E(X,4,5)_"-"_$E(X,6,9),1:X)` ALGORITHM: `S L1=$S($D(D0):D0,1:"") I L1>0 S L=^LR(L1,0),X=$P($S($D(@(^DIC(+$P(L,"^",2),0,"GL")_(+$P(L,"^",3))_",0)")):^(0),1:""),"^",9),X=$S(X?9N:$E(X,1,3)_"-"_$E(X,4,5)_"-"_$E(X,6,9),1:X)` LAST EDITED: `OCT 07, 2013` DESCRIPTION: `Computed field to present the hospital ID from the parent file.`
.091	PAT. INFO.	.091;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `NOV 08, 1988` HELP-PROMPT: `ANSWER MUST BE 1-20 CHARACTERS IN LENGTH` DESCRIPTION: `Patient information`
.092	LOCATION TYPE	.092;1	SET	'C' FOR CLINIC; 'M' FOR MODULE; 'W' FOR WARD; 'Z' FOR OTHER LOCATION; 'N' FOR NON-CLINIC STOP; 'F' FOR FILE AREA; 'I' FOR IMAGING; 'OR' FOR OPERATING ROOM; LAST EDITED: `OCT 21, 1991` DESCRIPTION: `This field is used for Workload Classification. Other location type is the default answer.` TECHNICAL DESCR: `This field is simular to the type field found in File #44. It is used to deterimin In-patient/Out-patient workload.`
.1	REPORT ROUTING (LOCATION)	.1;E1,19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>19!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-19 CHARACTERS IN LENGTH` DESCRIPTION: `The most current location where a lab procedure was requested.`
.101	REPORT ROUTING (PROVIDER)	.2;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 06, 1992` DESCRIPTION: `The most current requesting person who requested a lab procedure.`
.11	CUMULATIVE REPORT PAGES	PG;0	POINTER Multiple #63.03	63.03 DESCRIPTION: `Current temporary (active) page numbers for the cumulative report.`
.12	PRODUCING LABORATORY	PL;0	Multiple #63.00012	63.00012 DESCRIPTION: `Contains information related to laboratory results which document legal and accreditation required information. It documents the laboratory that produces the lab result value (performing laboratory) in addition to other` `supporting information such as address of the performing laboratory and the name/title/identifier of the laboratory director of the performing laboratory when required.` INDEXED BY: `LAB DATA REFERENCE (AC), LAB DATA REFERENCE (B)`
.13	EXTERNAL PACKAGE REFERENCE	EPR;0	Multiple #63.00013	63.00013 LAST EDITED: `OCT 02, 2008` DESCRIPTION: `Stores information related to various external packages which are related to a laboratory specimen.` INDEXED BY: `LAB DATA REFERENCE (AC), LAB DATA REFERENCE & TYPE OF REFERENCE (AD), LAB DATA REFERENCE (B)`
.14	CODE SYSTEM REFERENCE	CSR;0	Multiple #63.00014	63.00014 LAST EDITED: `OCT 30, 2009` DESCRIPTION: `Contains codes from various code systems used to encode this data element.` INDEXED BY: `LAB DATA REFERENCE (AC), LAB DATA REFERENCE & ROLE (AD), LAB DATA REFERENCE & ROLE & NAME OF CODE SYSTEM & CODE ID (AE), LAB DATA REFERENCE (B)`
.2	HLA ANTIGENS PRESENT	2;0	POINTER Multiple #63.14	63.14 DESCRIPTION: `These are HLA antigens associated with this patient.` SCREEN: `S DIC("S")="I $P(^(0),U,5)=""HL"""` EXPLANATION: `SELECTS ONLY HLA ANTIGENS`
.21	HLA ANTIGENS ABSENT	2.1;0	POINTER Multiple #63.141	63.141 DESCRIPTION: `These are HLA antigens NOT associated with this patient.` SCREEN: `S DIC("S")="I $P(^(0),U,5)=""HL"""` EXPLANATION: `Selects HLA antigens`
1	BLOOD BANK	BB;0	DATE Multiple #63.01	63.01 DESCRIPTION: `This is blood bank data on this patient.`
2	EM	EM;0	DATE Multiple #63.02	63.02 LAST EDITED: `MAR 06, 2003` DESCRIPTION: `This is patient data from electron microscopy (EM).` INDEXED BY: `REPORT RELEASE DATE (AC)`
4	CHEM, HEM, TOX, RIA, SER, etc.	CH;0	DATE Multiple #63.04	63.04 LAST EDITED: `JUN 16, 1997` DESCRIPTION: `Multiple field for Chem., Hem., Tox., RIA, Ser., etc. results`
5	MICROBIOLOGY	MI;0	DATE Multiple #63.05	63.05 LAST EDITED: `DEC 03, 1991` DESCRIPTION: `This is microbiology data associated with this patient.`
8	SURGICAL PATHOLOGY	SP;0	DATE Multiple #63.08	63.08 DESCRIPTION: `This is the surgical pathology for this patient.` IDENTIFIED BY: `SURGICAL PATH ACC #(#.06)[R]` INDEXED BY: `REPORT RELEASE DATE/TIME (AD)`
9	CYTOPATHOLOGY	CY;0	DATE Multiple #63.09	63.09 DESCRIPTION: `QCytopathology data associated with this patient.` INDEXED BY: `REPORT RELEASE DATE/TIME (AD)`
11	AUTOPSY DATE/TIME	AU;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) D D^LRAUAW K:'LR(63,12)!(LR(63,12)&(X` `LAST EDITED: NOV 30, 1988` `HELP-PROMPT: FUTURE DATE/TIME NOT ALLOWED` `DESCRIPTION:` `This is the date/time of the autopsy.` `EXECUTABLE HELP: K DZ W ?3,"Autopsy date must be after date died " D D^LRAUAW S Y=LR(63,12) D:Y D^LRU W:Y]"" "(",Y,")" W !` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `CROSS-REFERENCE: 63^AAU^MUMPS` `1)= S ^LR("AAU",X,DA)=""` `2)= K ^LR("AAU",X,DA)`
12	DATE/TIME OF DEATH		COMPUTED	MUMPS CODE: `S A=^LR(D0,0),B=+$P(A,U,2),C=+$P(A,U,3),A=^DIC(B,0,"GL"),Y=$S($D(@(A_C_",.35)")):+^(.35),1:"") D D^LRU S X=Y` ALGORITHM: `S A=^LR(D0,0),B=+$P(A,U,2),C=+$P(A,U,3),A=^DIC(B,0,"GL"),Y=$S($D(@(A_C_",.35)")):+^(.35),1:"") D D^LRU S X=Y` LAST EDITED: `FEB 20, 1991` HELP-PROMPT: `FUTURE DATE/TIME NOT ALLOWED` DESCRIPTION: `This is the date/time of death.`
12.1	PHYSICIAN	AU;12	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U))),$D(^XUSEC(""PROVIDER"",Y)),$$ACTIVE^XUSER(Y)",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 07, 1993` HELP-PROMPT: `Select the requesting provider.` DESCRIPTION: `This is the requesting provider.` SCREEN: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U))),$D(^XUSEC(""PROVIDER"",Y)),$$ACTIVE^XUSER(Y)"` EXPLANATION: `Selects active providers who hold the VA PROVIDER security key.`
12.5	AGE AT DEATH	AU;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAR 13, 1984` HELP-PROMPT: `ANSWER MUST BE 1-30 CHARACTERS IN LENGTH` DESCRIPTION: `This is the age of the patient at the time of death.`
13	DATE AUTOPSY REPORT COMPLETED	AU;3	DATE	INPUT TRANSFORM: `S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1!('$D(^LR(DA,"AU"))) X I $D(X),+^LR(DA,"AU")>X K X W !,"Date must be after date autopsy performed (" S Y=+^("AU") D D^LRU W Y,")"` LAST EDITED: `FEB 21, 1991` HELP-PROMPT: `FUTURE DATE/TIME NOT ALLOWED` DESCRIPTION: `This is the date the autopsy report was completed.` EXECUTABLE HELP: `K DZ W ?5,"AUTOPSY DATE/TIME MUST BE ENTERED"` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
13.01	AUTOPSY TYPIST	AU;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<2) X` LAST EDITED: `JUN 23, 1986` HELP-PROMPT: `ANSWER MUST BE 2-5 CHARACTERS IN LENGTH` DESCRIPTION: `The name of the Autopsy typist` EXECUTABLE HELP: `W !?5,"Enter initials of autopsy typist"`
13.1	DATE FINAL AUTOPSY DIAGNOSES	AU;4	DATE	INPUT TRANSFORM: `S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1!('$D(^LR(DA,"AU"))) X I $D(X),+^LR(DA,"AU")>X K X W !,"Date must be after date autopsy performed (" S Y=+^("AU") D D^LRU W Y,")"` LAST EDITED: `FEB 20, 1991` HELP-PROMPT: `FUTURE DATE/TIME NOT ALLOWED` DESCRIPTION: `This is the date the final autopsy diagnoses are completed.` EXECUTABLE HELP: `K DZ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
13.5	RESIDENT PATHOLOGIST	AU;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 07, 1993` DESCRIPTION: `This is the resident pathologist.` SCREEN: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"` EXPLANATION: `Selection must be made from active PROVIDERS who hold the PROVIDER security key.`
13.6	SENIOR PATHOLOGIST	AU;10	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 07, 1989` DESCRIPTION: `This is the senior pathologist.` SCREEN: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"` EXPLANATION: `Selects only active providers`
13.7	AUTOPSY TYPE	AU;11	SET	'F' FOR FULL AUTOPSY; 'H' FOR HEAD ONLY; 'T' FOR TRUNK ONLY; 'A' FOR ABDOMEN ONLY; 'C' FOR CHEST ONLY; 'O' FOR OTHER LIMITATION; LAST EDITED: `SEP 28, 1993` DESCRIPTION: `This is the autopsy type.`
13.8	AUTOPSY ASSISTANT	AU;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `AUG 16, 1992` DESCRIPTION: `If prosector has an assistant enter name of assistant.`
14	AUTOPSY ACC #	AU;6	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>15!($L(X)<5)!'(X?1ANP.ANP1" "2N1" "1N.N) X I $D(X),$D(LRABV),$D(^LR("AAUA",$E(+$G(^LR(DA,"AU")),1,3),$G(LRABV),X)) N ARR S ARR(1)=$C(7)_X_" is already taken for "_LRABV,ARR(2)="" D EN^DDIOL(.ARR) K X` LAST EDITED: `SEP 26, 2013` HELP-PROMPT: `Answer must be 5-15 characters in length.` DESCRIPTION: `This is the number of this autopsy.` EXECUTABLE HELP: `D EN^DDIOL("Enter as prefix yr number (ex. AU 95 23)")` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `63^AAUA^MUMPS` `1)= S ^LR("AAUA",$E(+^LR(DA,"AU"),1,3),$P(X," "),$P(X," ",3),DA)=""` `2)= K ^LR("AAUA",$E(+^LR(DA,"AU"),1,3),$P(X," "),$P(X," ",3),DA)`
14.1	LOCATION	AU;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X I $D(X) X:X["?" ^DD(63,14.1,4) Q:X["?" S Y(0)="",LRLLOC=X,DIC(0)="EQMZ",DIC=44 D ^DIC S X=$P($G(Y(0)),U,1) X:Y<1 ^DD(63,14.1,9.2) Q:'$D(X) S:X']"" X="UNKNOWN"` `9.2 = K X R !?3,"Non-standard location ! OK ? NO// ",YN:DTIME S:YN["Y" X=LRLLOC` LAST EDITED: `FEB 24, 1999` HELP-PROMPT: `ANSWER MUST BE 1-30 CHARACTERS IN LENGTH` DESCRIPTION: `This is the requesting location.` EXECUTABLE HELP: `S X="?",DIC(0)="Q",DIC=44 D ^DIC` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
14.5	SERVICE	AU;8	SET	'M' FOR MEDICINE; 'S' FOR SURGERY; 'P' FOR PSYCHIATRY; 'NH' FOR NHCU; 'NE' FOR NEUROLOGY; 'I' FOR INTERMEDIATE MED; 'R' FOR REHAB MEDICINE; 'SCI' FOR SPINAL CORD INJURY; 'D' FOR DOMICILLARY; 'B' FOR BLIND REHAB; LAST EDITED: `DEC 04, 1984` DESCRIPTION: `This is the service to which this patient was assigned.`
14.6	TREATING SPECIALITY AT DEATH	AU;14	POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)	FACILITY TREATING SPECIALTY(#45.7) LAST EDITED: `NOV 03, 1992` DESCRIPTION: `Name of treating specialty at time of patient's death.`
14.7	AUTOPSY RELEASE DATE/TIME	AU;15	DATE	INPUT TRANSFORM: `S %DT="ETXR",%DT(0)="N" D ^%DT K %DT S X=Y K:Y<1!('$D(^LR(DA,"AU"))) X I $D(X) S Y=+^LR(DA,"AU") I 'Y!(Y>X) K X D D^LRU W !,"No AUTOPSY TIME",!,"or AUTOPSY RELEASE TIME before AUTOPSY TIME" W:Y]"" " (",Y,")"` LAST EDITED: `SEP 08, 1995` HELP-PROMPT: `ONLY CURRENT DATE/TIME ALLOWED` DESCRIPTION: `Date and time autopsy verified.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
14.8	AUTOPSY RELEASED BY	AU;16	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 21, 1992` DESCRIPTION: `Name of person releasing verified autopsy report.`
14.9	PROVISIONAL ANAT DX DATE	AU;17	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X),X<$P(+$G(^LR(DA,"AU")),".") K X W $C(7),!!,"Date must be after autopsy date."` LAST EDITED: `JUN 10, 1996` DESCRIPTION: `Date provisional anatomic diagnoses reported` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
14.91	RELEASING SITE	AU;18	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `JAN 29, 2009` HELP-PROMPT: `Enter the facility/site that is releasing this autopsy.` DESCRIPTION: `This field indicates the site that released the clinical report. This field can be used to determine the information required to correctly indicate the address/location of the laboratory responsible for releasing the` `report.`
16	BODY HEIGHT (in)	AW;1	NUMBER	INPUT TRANSFORM: `S Q9="30,96,1" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 30 AND 96` DESCRIPTION: `Height of body in inches` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
17	BODY WT (lb)	AW;2	NUMBER	INPUT TRANSFORM: `S Q9="30,700,0" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 30 AND 700` DESCRIPTION: `Weight of body in pounds` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
18	LUNG,RT (gm)	AW;3	NUMBER	INPUT TRANSFORM: `S Q9="50,10000,0" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 50 AND 10000` DESCRIPTION: `Right lung` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
19	LUNG,LT (gm)	AW;4	NUMBER	INPUT TRANSFORM: `S Q9="50,10000,0" D ^LRNUM` LAST EDITED: `SEP 29, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 50 AND 10000` DESCRIPTION: `Left lung` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
20	LIVER (gm)	AW;5	NUMBER	INPUT TRANSFORM: `S Q9="100,15000,0" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 100 AND 15000` DESCRIPTION: `Body organ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
21	SPLEEN (gm)	AW;6	NUMBER	INPUT TRANSFORM: `S Q9="1,15000,0" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 15000` DESCRIPTION: `Body organ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
22	KIDNEY,RT (gm)	AW;7	NUMBER	INPUT TRANSFORM: `S Q9="1,10000,0" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 10000` DESCRIPTION: `Right kidney` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
23	KIDNEY,LT (gm)	AW;8	NUMBER	INPUT TRANSFORM: `S Q9="1,10000,0" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 10000` DESCRIPTION: `Left kidney` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
24	HEART (gm)	AW;9	NUMBER	INPUT TRANSFORM: `S Q9="100,2000,0" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 100 AND 2000` DESCRIPTION: `Body organ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
25	BRAIN (gm)	AW;10	NUMBER	INPUT TRANSFORM: `S Q9="1,2000,0" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 2000` DESCRIPTION: `Body organ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
25.1	PITUITARY GLAND (gm)	AW;11	NUMBER	INPUT TRANSFORM: `S Q9="0,99,3" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `Enter weight in grams (ex. 1.5 =1.5 grams)` DESCRIPTION: `Body organ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
25.2	THYROID GLAND (gm)	AW;12	NUMBER	INPUT TRANSFORM: `S Q9="0,99,3" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `Enter weight in grams (ex. 1.5 =1.5 grams)` DESCRIPTION: `Body organ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
25.3	PARATHYROID, LEFT UPPER (gm)	AW;13	NUMBER	INPUT TRANSFORM: `S Q9="0,99,3" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `Enter weight in grams (ex. 1.5 =1.5 grams)` DESCRIPTION: `Left upper parathyroid` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
25.4	PARATHYROID, LEFT LOWER (gm)	AW;14	NUMBER	INPUT TRANSFORM: `S Q9="0,99,3" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `Enter weight in grams (ex. 1.5 =1.5 grams)` DESCRIPTION: `Left lower parathyroid` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
25.5	PARATHYROID, RIGHT UPPER (gm)	AW;15	NUMBER	INPUT TRANSFORM: `S Q9="0,99,3" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `Enter weight in grams (ex. 1.5 =1.5 grams)` DESCRIPTION: `Right upper parathyroid` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
25.6	PARATHYROID, RIGHT LOWER (gm)	AW;16	NUMBER	INPUT TRANSFORM: `S Q9="0,99,3" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `Enter weight in grams (ex. 1.5 =1.5 grams)` DESCRIPTION: `Right lower parathyroid` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
25.7	ADRENAL, LEFT (gm)	AW;17	NUMBER	INPUT TRANSFORM: `S Q9="0,99,3" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `Enter weight in grams (ex. 1.5 =1.5 grams)` DESCRIPTION: `Left adrenal` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
25.8	ADRENAL, RIGHT (gm)	AW;18	NUMBER	INPUT TRANSFORM: `S Q9="0,99,3" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `Enter weight in grams (ex. 1.5 =1.5 grams)` DESCRIPTION: `Right adrenal` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
25.9	PANCREAS (gm)	AWI;1	NUMBER	INPUT TRANSFORM: `S Q9="0,999,0" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 999` DESCRIPTION: `Body organ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
25.91	TESTIS, LEFT (gm)	AWI;2	NUMBER	INPUT TRANSFORM: `S Q9="0,500,1" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 500` DESCRIPTION: `Left testis` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
25.92	TESTIS, RIGHT (gm)	AWI;3	NUMBER	INPUT TRANSFORM: `S Q9="0,500,1" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 500` DESCRIPTION: `Right testis` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
25.93	OVARY, LEFT (gm)	AWI;4	NUMBER	INPUT TRANSFORM: `S Q9="0,500,1" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 500` DESCRIPTION: `Left ovary` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
25.94	OVARY, RIGHT (gm)	AWI;5	NUMBER	INPUT TRANSFORM: `S Q9="0,500,1" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 500` DESCRIPTION: `Right ovary` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
26	TRICUSPID VALVE (cm)	AV;1	NUMBER	INPUT TRANSFORM: `S Q9="1,20,1" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A NUMBER BETWEEN 1 AND 20` DESCRIPTION: `Body organ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
27	PULMONIC VALVE (cm)	AV;2	NUMBER	INPUT TRANSFORM: `S Q9="1,20,1" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A NUMBER BETWEEN 1 AND 20` DESCRIPTION: `Body organ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
28	MITRAL VALVE (cm)	AV;3	NUMBER	INPUT TRANSFORM: `S Q9="1,20,1" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A NUMBER BETWEEN 1 AND 20` DESCRIPTION: `Body organ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
29	AORTIC VALVE (cm)	AV;4	NUMBER	INPUT TRANSFORM: `S Q9="1,20,1" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A NUMBER BETWEEN 1 AND 20` DESCRIPTION: `Body organ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
30	RIGHT VENTRICLE (cm)	AV;5	NUMBER	INPUT TRANSFORM: `S Q9="0,5,2" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 5` DESCRIPTION: `Body organ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
31	LEFT VENTRICLE (cm)	AV;6	NUMBER	INPUT TRANSFORM: `S Q9="0,9,2" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 9` DESCRIPTION: `Body organ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
31.1	PLEURAL CAVITY, LEFT (ml)	AV;7	NUMBER	INPUT TRANSFORM: `S Q9="0,99999,0" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 99999` DESCRIPTION: `Left pleural cavity` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
31.2	PLEURAL CAVITY, RIGHT (ml)	AV;8	NUMBER	INPUT TRANSFORM: `S Q9="0,99999,0" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 99999` DESCRIPTION: `Right pleural cavity` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
31.3	PERICARDIAL CAVITY (ml)	AV;9	NUMBER	INPUT TRANSFORM: `S Q9="0,99999,0" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 99999` DESCRIPTION: `Body organ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
31.4	PERITONEAL CAVITY (ml)	AV;10	NUMBER	INPUT TRANSFORM: `S Q9="0,99999,0" D ^LRNUM` LAST EDITED: `MAY 24, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 99999` DESCRIPTION: `Body organ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
32	AUTOPSY ORGAN/TISSUE	AY;0	POINTER Multiple #63.2	63.2 DESCRIPTION: `These are the organ/tissue(s) examined.` SCREEN: `S DIC("S")="I SEX[$P(^(0),U,3)"` EXPLANATION: `Selects where appropriate sex specific organ or tissue.`
32.1	AUTOPSY COMMENTS	AZC;0	Multiple #63.97	63.97 DESCRIPTION: `These are comments on the autopsy.`
32.2	CLINICAL DIAGNOSES	81;0	WORD-PROCESSING #63.322	DESCRIPTION: `These are the clinical diagnoses.` LAST EDITED: `MAR 11, 1985`
32.3	PATHOLOGICAL DIAGNOSES	82;0	WORD-PROCESSING #63.323	DESCRIPTION: `These are the pathological diagnoses.` LAST EDITED: `MAR 11, 1985`
32.4	AUTOPSY SUPPLEMENTARY REPORT	84;0	DATE Multiple #63.324	63.324 DESCRIPTION: `Multiple for autopsy supplementary report`
33	AUTOPSY SPECIMEN	33;0	Multiple #63.033	63.033 DESCRIPTION: `Autopsy organs and tissues are entered here for block and slide preparation, label printing and workload.`
80	AUTOPSY ICD CODE	80;0	POINTER Multiple #63.808	63.808 LAST EDITED: `JUN 28, 2012` DESCRIPTION: `These are the ICD codes on this autopsy.`
83.1	MAJOR DIAGNOSTIC DISAGREEMENT	83;1	SET	**********************REQUIRED FIELD********************** '0' FOR NO; '1' FOR YES; LAST EDITED: `FEB 12, 1987` DESCRIPTION: `If major diagnostic disagreements between autopsy and clinical findings` `enter 'YES' else enter 'NO'.`
83.2	CLINICAL DIAGNOSIS CLARIFIED	83;2	SET	'1' FOR YES; '0' FOR NO; '2' FOR CONFIRMED; LAST EDITED: `FEB 13, 1987` DESCRIPTION: `If clinical dx insufficient (ex. intracranial hemorrhage) did autopsy` `clarify the dx (ex. ruptured aneurysm) ?`
99	AUTOPSY QA CODE	99;0	POINTER Multiple #63.999	63.999 DESCRIPTION: `Multiple for autopsy quality assurance code` SCREEN: `S DIC("S")="I $P(^(0),U,4)=""I"",$L($P(^(0),U))<3"` EXPLANATION: `Selects entries with less than 3 characters`
100	ARCHIVE REFERENCE	T;0	Multiple #63.99	63.99 DESCRIPTION: `These are references to archiving information.`
101	TIU REFERENCE DATE/TIME - AU	101;0	DATE Multiple #63.101	63.101 LAST EDITED: `AUG 28, 2001` DESCRIPTION: `This multiple stores TIU information for corresponding SF515 autopsy reports that have been electronically signed and stored in TIU. This information is used to access the reports in TIU.`
102	DATE REPORT MODIFIED - AU	102;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 30, 2001` DESCRIPTION: `This is the date the report was modified if it was modified after it was electronically signed/released.`
102.1	PERSON MODIFYING TEXT	102;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 30, 2001` DESCRIPTION: `Stores the DUZ of the person who modified the report AFTER it was electronically signed/released.`
102.2	DIAGNOSIS MODIFIED	102;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 30, 2001` DESCRIPTION: `1 = Diagnosis modified AFTER report was electronically signed/released.`

Name	Line Occurrences (* Changed, ! Killed)
^DD(63	ID.03+1, .02(XREF 1K), .03+1, 14.1+1
^DIC - [#1]	ID.02+1, .02(HELP ), .03OT+1, .03(XREF 1S), .03(XREF 1K), .09+1, 12+1
^DIC("AC"	.02(HELP )
^LR - [#63]	ID.02+1, .02(XREF 1K), .03+1, .03OT+1, .03(HELP ), .03(XREF 1S), .03(XREF 1K), .09+1, 12+1, 13+1 , 13.1+1, 14+1, 14(XREF 1S), 14(XREF 1K), 14.7+1, 14.9+1
^LR("AAU"	11(XREF 1S), 11(XREF 1K)
^LR("AAUA"	14+1, 14(XREF 1S), 14(XREF 1K)
^LR("B"	.01(XREF 1S), .01(XREF 1K)

Name	Field # of Occurrence
^(	12+1
^("%"	.02SCREXP+1
^("0"	ID.02+1, ID.03+1
^("AU"	13+1, 13.1+1
^(0	ID.02+1, .03OT+1, .09+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	11+1!, 13+1!, 13.1+1!, 14.7+1!, 14.9+1, 102+1
%DT(0	11+1, 13+1, 13.1+1, 14.7+1
>> %II	.02(HELP )
>> A	12+1*
ARR	14+1~
ARR(1	14+1*
ARR(2	14+1*
>> B	12+1*
>> C	12+1*
>> D	12.1+1, 13.5+1, 13.6+1*
>> D0	.03OT+1, .09+1, 12+1
DA	ID.03+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1K), .03+1, .03(HELP ), .03(XREF 1S), .03(XREF 1K), 11(XREF 1S), 11(XREF 1K) , 13+1, 13.1+1, 14+1, 14(XREF 1S), 14(XREF 1K), 14.7+1, 14.9+1
>> DDIFN	.02+1, .03+1, .03(HELP )
DIC	.02+1!, .03+1, .03(HELP ), 12.1+1!, 13.5+1!, 13.6+1!, 14.1+1, 14.1(HELP )
DIC("S"	.02+1, .02SCR+1, 12.1+1, 12.1SCR+1, 13.5+1, 13.5SCR+1, 13.6+1, 13.6SCR+1
DIC(0	.03+1, .03(HELP ), 14.1+1, 14.1(HELP )
>> DIE	.02+1, 12.1+1, 13.5+1, 13.6+1
>> DINUM	.01+1*
>> DIU(0	.02(XREF 1K), .03+1, .03(XREF 1K)
DOLP	.02(XREF 1K), .03(XREF 1K)
DTIME	14.1OF9.2+1
DZ	11(HELP ), 13(HELP ), 13.1(HELP )
L	.02(XREF 1K), .03OT+1~, .03(XREF 1K), .09+1
L1	.02(XREF 1K), .03OT+1~, .09+1
>> LR(63	11+1, 11(HELP )
>> LRABV	14+1
>> LRH(2	11+1
>> LRLLOC	14.1+1*, 14.1OF9.2+1
PDA	.03+1*!, .03(HELP )
PDI	.03(HELP )
PDIC	.03+1*!, .03(HELP )
PDY	ID.03+1*!
Q	.02(XREF 1K)
>> Q9	16+1, 17+1, 18+1, 19+1, 20+1, 21+1, 22+1, 23+1, 24+1, 25+1 , 25.1+1, 25.2+1, 25.3+1, 25.4+1, 25.5+1, 25.6+1, 25.7+1, 25.8+1, 25.9+1, 25.91+1 , 25.92+1, 25.93+1, 25.94+1, 26+1, 27+1, 28+1, 29+1, 30+1, 31+1, 31.1+1 , 31.2+1, 31.3+1, 31.4+1*
U	ID.02+1, 12+1, 14.1+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1K), .02SCREXP+1, .03+1!, .03(HELP ), .03(XREF 1S), .03(XREF 1K) , .09+1, .091+1!, .1+1!, 11+1!, 11(XREF 1S), 11(XREF 1K), 12+1, 12.1+1!, 12.5+1!, 13+1! , 13.01+1!, 13.1+1!, 13.5+1!, 13.6+1!, 14+1!, 14(XREF 1S), 14(XREF 1K), 14.1+1!, 14.1(HELP ), 14.1OF9.2+1!* , 14.7+1!, 14.9+1!, 102+1*!
Y	ID.02+1, ID.03+1, .02+1, .03+1!, .03OT+1, 11+1, 11(HELP ), 12+1, 12.1+1, 13+1 , 13.1+1, 13.5+1, 13.6+1, 14.1+1, 14.7+1, 14.9+1, 102+1
Y(0	.03OT+1, 14.1+1
>> YN	14.1OF9.2+1*

Customize PDF page

Package: Lab Service

Global: ^LR

Information

Description

Directly Accessed By Routines, Total: 783

Accessed By FileMan Db Calls, Total: 64

Pointed To By FileMan Files, Total: 19

Pointer To FileMan Files, Total: 27

Fields, Total: 97

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	11+1, 13+1, 13.1+1, 14.7+1, 14.9+1, 102+1
EN^DDIOL	14+1, 14(HELP )
^DIC	.02+1, .03+1, .03(HELP ), 14.1+1, 14.1(HELP )
IX^DIC	12.1+1, 13.5+1, 13.6+1
D^LRAUAW	11+1, 11(HELP )
^LRNUM	16+1, 17+1, 18+1, 19+1, 20+1, 21+1, 22+1, 23+1, 24+1, 25+1 , 25.1+1, 25.2+1, 25.3+1, 25.4+1, 25.5+1, 25.6+1, 25.7+1, 25.8+1, 25.9+1, 25.91+1 , 25.92+1, 25.93+1, 25.94+1, 26+1, 27+1, 28+1, 29+1, 30+1, 31+1, 31.1+1 , 31.2+1, 31.3+1, 31.4+1
D^LRU	11(HELP ), 12+1, 13+1, 13.1+1, 14.7+1