Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^LR

Package: Lab Service

Global: ^LR


Information

FileMan FileNo FileMan Filename Package
63 LAB DATA Lab Service

Description

Directly Accessed By Routines, Total: 782

Package Total Routines
Lab Service 562 AUTOPSY ORGAN/TISSUE    AUTOPSY SPECIMEN    CYTOPATHOLOGY    DONATION OR DEFERRAL DATE    LR7OB0    LR7OF4    LR7OSBR1    LR7OSMZ3
LRACS2    LRAPBR1    LRAPM    LRAPPA    LRAPQAFS    LRAPSEM1    LRAPST    LRBEBA2
LRBLAUD1    LRBLPD1    LRBLPE    LRBLPEDIT    LRBLPEW    LRBLPR1    LRCAPPH1    LRDFN-TESTS
LRDPA    LREPI1A    LRGVG2    LRHYDEL    LRLAM    LRMIBUG    LRMIEDZ    LRMIV1
LRMIV2    LRRP1    LRRSP    LRSMAC    LRSORB    LRSPRPTA    ^LR    CODE SYSTEM REFERENCE
EXTERNAL PACKAGE REFERENCE    LR7OB63C    LR7OGMU    LR7OR2    LR7OSMZ0    LRAPBR4    LRAPBR5    LRAPL
LRAPQAM    LRAPR    LRAPSA    LRAPT3    LRAPTT    LRAURPT    LRAUSICD    LRBEPEND
LRDPAREF    LRFAST    LRHYAFT    LRHYF1    ^LRD(65    DATE FROZEN SECTION MODIFIED    LR7OGG    LR7OGMG
LR7OSMZ1    LRAC6    LRACFILE    LRAPDSR    LRAPFIX    LRAPPRE    LRAPWEA    LRAUFIX
LRBLDPA2    LRBLPBR1    LRBLPCMBS    LRBLQST    LRBLSCREEN    LRCAPPH    LRDIQ    LRDPA2
LRHY01    LRHYBC1    LRMIPSZ    LRPXAPP    LRRP2    LRSLOW    LRSOR    LRSPRPT
LRSPRPT2    LRUPACA    LRUPS    LRWRKINC    LRWU6    PRODUCING LABORATORY    STAIN/PROCEDURE    SUPPLEMENTARY REPORT MODIFIED
^LRT(67.2    ACCESSION NUMBER    CELL BLOCK    COMMENT    EM    EPON BLOCK    FROZEN TISSUE BLOCK    FUNGUS/YEAST
HLA ANTIGENS PRESENT    IMAGE    IMAGE (GROSS)    IMAGE (MICROSCOPIC)    LR309    LR317    LR541PST    LR7OB1
LR7OB63    LR7OB630    LR7OB63A    LR7OB63B    LR7OB63D    LR7OB68    LR7OB69    LR7OC0
LR7OFAA    LR7OFAO    LR7OGC    LR7OGM    LR7OGMC    LR7OGMM    LR7OGMP    LR7OMERG
LR7OR1    LR7ORB3    LR7OSAP    LR7OSAP1    LR7OSAP2    LR7OSAP3    LR7OSAP4    LR7OSBB1
LR7OSBR    LR7OSMZ2    LR7OSMZ4    LR7OSMZ5    LR7OSMZU    LR7OSUM    LR7OSUM1    LR7OSUM2
LR7OVB    LRABG    LRABG1    LRAC1    LRAC14    LRAC2    LRAC2A    LRAC3
LRAC4    LRAC7    LRAC9    LRACF    LRACFIX    LRACKL    LRACM2    LRACM2F
LRACM3    LRACP    LRACPG    LRACS    LRACS1    LRACS3    LRACSUM    LRACSUM1
LRAPA    LRAPALRT    LRAPAUA    LRAPAUL    LRAPAULC    LRAPAUSR    LRAPBK    LRAPBK1
LRAPBR    LRAPBR2    LRAPBR3    LRAPBS1    LRAPBS2    LRAPC    LRAPCUM    LRAPCUM1
LRAPCWK    LRAPDA    LRAPDEL    LRAPDPT    LRAPED    LRAPEDC    LRAPF    LRAPFICH
LRAPH    LRAPICD    LRAPJNC    LRAPKLG    LRAPKOE    LRAPLG    LRAPLG1    LRAPLG2
LRAPMOD    LRAPMRL1    LRAPMV    LRAPOLD    LRAPONC    LRAPPF    LRAPPF1    LRAPQ
LRAPQAC    LRAPQACD    LRAPQACN    LRAPQAMR    LRAPQAR    LRAPQAT    LRAPQAT1    LRAPQOR
LRAPQOR1    LRAPQOR3    LRAPR1    LRAPRES    LRAPRES1    LRAPS    LRAPS1    LRAPS2
LRAPS3    LRAPSEM    LRAPSEM2    LRAPSL    LRAPSL1    LRAPSM    LRAPSNMD    LRAPST1
LRAPSWK    LRAPT    LRAPT1    LRAPT2    LRAPTIUP    LRAPUTL    LRAPV    LRAPWA
LRAPWE    LRAPWE1    LRAPWKA    LRAPWKA1    LRAPWR    LRAPWR1    LRAPWSPG    LRAPWU
LRAPX    LRAR02    LRAR03    LRAR04    LRAR05    LRARCHD    LRARCHE    LRARCHIV
LRARCHK    LRARNPX1    LRAUAW    LRAUL    LRAUMLK    LRAURV    LRAUSM    LRAUSTA
LRBEBA21    LRBEBA4    LRBEBA5    LRBLAA    LRBLDRR    LRBLJB    LRBLJC    LRBLJD
LRBLJDA    LRBLJED    LRBLJL1    LRBLJLA    LRBLJPA1    LRBLJPH    LRBLJPP    LRBLJTS1
LRBLJU1    LRBLJUT    LRBLJX    LRBLP    LRBLPA    LRBLPAB    LRBLPABRH    LRBLPAG
LRBLPB    LRBLPBR    LRBLPC    LRBLPCS    LRBLPCS1    LRBLPD    LRBLPIT    LRBLPOLD
LRBLPOOL    LRBLPR    LRBLPRA    LRBLPT1    LRBLPTR    LRBLPTR1    LRBLPUS    LRBLPUS2
LRBLPX    LRBLPX1    LRBLQPR    LRBLRCT    LRBLSPP    LRBLSTR    LRBLSUM    LRBLTA
LRBLTA1    LRBLTXA    LRBLU    LRCAPAUD    LRCAPDAR    LRCAPDSS    LRCAPES1    LRCAPPHX
LRCAPV2    LRCE    LRCENDE1    LRCENDEL    LRCHIV    LRCHIVD    LRCHIVE    LRCHIVK
LRCKF68    LRCKF69    LRCKPTR    LRCONJAM    LRCYPCT    LRDCOM    LRDIST    LRDIST1
LRDPA1    LRDRAW    LREGFR    LREGFR2    LREPI    LREPI1    LREPICY    LRFIXAU
LRFLAG    LRGEN    LRGEN1    LRGP    LRGV1    LRGV2    LRGVP    LRHDR
LRHY0    LRHY22    LRHYLS1    LRHYPH0    LRHYPH2    LRLABELF    LRLABLD    LRLABLD0
LRLIST    LRLISTE    LRLISTPS    LRLLP2    LRLLP5    LRLLS2    LRLLS3    LRLNC63
LRLNC63A    LRLSTWRK    LRLSTWRL    LRMIAU2    LRMIAUD    LRMIBL    LRMIEDZ2    LRMIHDR
LRMILL    LRMINEW    LRMINEW1    LRMINEW2    LRMIPC    LRMIPLOG    LRMIPSU    LRMIPSZ1
LRMIPSZ2    LRMIPSZ3    LRMIPSZ4    LRMISEZ1    LRMISEZB    LRMISR    LRMISTF1    LRMITSPE
LRMITSPO    LRMIUT    LRMIUT1    LRMIV    LRMIV4    LRMIVER    LRMIVER1    LRMIZAP1
LRMRSHRT    LRNINES7    LRNODRAW    LROC    LROE    LROE2    LROR    LROR1
LROR3    LROR4    LROR4A    LROR4B    LROR9    LRORD1    LROSPLG    LROSPLG2
LROW    LROW2P    LRPHITE2    LRPHITEM    LRPHLIS1    LRPHSET1    LRPHSET2    LRPX
LRPXAPI1    LRPXAPI2    LRPXAPIU    LRPXCHK    LRPXRM    LRPXSXRA    LRPXSXRB    LRPXSXRL
LRQCC    LRRMM    LRRP    LRRP3    LRRP4    LRRPL    LRRPLU    LRRPLUA
LRRPU    LRSETUP    LRSORA3    LRSORC1    LRSORD1    LRSPGD    LRSPRPT1    LRSPRPTM
LRSPSICD    LRSPT    LRSTUF1    LRSTUF2    LRTOCOST    LRTSTJAM    LRTSTJAN    LRTSTJM1
LRTSTOUT    LRU    LRUA    LRUCE    LRUCN    LRUCNBB    LRUCSR    LRUD
LRUD1    LRUDEL    LRUDPT    LRUE    LRUEPR    LRUER    LRUET    LRUG
LRUL    LRULB1    LRULEN    LRUMD    LRUMDM    LRUMDP    LRUMI    LRUPA1
LRUPA2    LRUPAD1    LRUPAD2    LRUPQ1    LRUPT    LRUQ    LRUR    LRUSET
LRUSP    LRUTAD    LRUTELL    LRUTRAN    LRUTT    LRUW    LRUWG    LRVER
LRVER1    LRVER2    LRVER3    LRVER3A    LRVER4    LRVER5    LRVERA    LRVR
LRVR0    LRVR1    LRVR2    LRVR3    LRVR4    LRVR5    LRVRA    LRVRAP4
LRVRAR    LRVRMI2    LRVRMI2A    LRVRMI3    LRVRMI4    LRVRMI4A    LRVRMI5    LRVRPOC
LRVRW    LRWD    LRWLST    LRWLST1    LRWLST11    LRWLST12    LRWOMEN    LRWRKIN1
LRWRKLS1    LRWRKLST    LRWRKS2    LRWU    LRWU1    LRWU8    LRWU9    LRWU9A
LRX    LRXDRPT    LRXREF    MICROBIOLOGY    MICROBIOLOGY AUDIT    MORPHOLOGY    MYCOBACTERIUM    ORDERED TEST
ORGANISM    PARAFFIN BLOCK    PARASITE    PATIENT XMATCHED/ASSIGNED    PLASTIC BLOCK    RBC ANTIGENS PRESENT(other)    RELATED NAME    SMEAR PREP
SPECIMEN    SPECIMEN #    STAGE    SURGICAL PATHOLOGY    TIU REFERENCE DATE/TIME - AU    TIU REFERENCE DATE/TIME - CY    TIU REFERENCE DATE/TIME - EM    TIU REFERENCE DATE/TIME - SP
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 13 ORAM    ORAMTTR    ORB3LAB    ORB3U2    ORDV02D    ORDV05E    ORDV05T    ORDV05X
ORDVX1    ORELR5    ORWGAPIB    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 ^DDE    ITEM    YEAR    
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    

Accessed By FileMan Db Calls, Total: 64

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    

Pointed To By FileMan Files, Total: 19

Package Total FileMan Files
Lab Service 13 LABORATORY TEST(#60)[400]    ANTIMICROBIAL SUSCEPTIBILITY(#62.06)[55.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)]    

Pointer To FileMan Files, Total: 27

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)[.10112.113.513.613.814.8102.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.

External References

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

Global Variables Directly Accessed

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)

Naked Globals

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

Local Variables

Legend:

>> 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*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All