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 |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^LRO(68

Package: Lab Service

Global: ^LRO(68


Information

FileMan FileNo FileMan Filename Package
68 ACCESSION Lab Service

Description

Directly Accessed By Routines, Total: 427

Package Total Routines
Lab Service 315 ACCESSION NUMBER    ASSOCIATED DIVISION    CONTROL NAME    LR291    LR411PST    LR72ENVC    LR7OB0    LR7OB630
LR7OB68    LR7OF2    LR7OFAA    LR7OFAO    LR7OGMC    LR7OGMM    LR7OGMU    LR7OGO
LR7OMERG    LR7OR1    LR7OR2    LR7ORB3    LR7OSAP    LR7OSAP4    LR7OSMZ1    LR7OSOS
LR7OSOS1    LR7OU1    LR7OV3    LR7OVB    LRAC1    LRAC14    LRAC2    LRAC2A
LRACC    LRACF    LRACFIX    LRACKL    LRACM3    LRACM4    LRAP    LRAPBK
LRAPBS1    LRAPCWK    LRAPDA    LRAPDAC    LRAPDS    LRAPED    LRAPFIX    LRAPHDR
LRAPKOE    LRAPLG    LRAPLG1    LRAPLIB    LRAPM    LRAPMOR    LRAPMR    LRAPMV
LRAPOCC    LRAPOR    LRAPPR    LRAPPRO    LRAPSWK    LRAPTOP    LRAPUTL    LRAPWA
LRAPWE    LRAPWR1    LRBLDCP    LRBLPA    LRBLPE1    LRBLPEW    LRBLPUS    LRCAPD2
LRCAPDSS    LRCAPML1    LRCAPPH1    LRCAPPH2    LRCAPV1    LRCAPV2    LRCAPVM    LRCE
LRCENDEL    LRCKF64    LRCKF68    LRCKF68A    LRCKF69    LRCKFLAA    LRDFN-TESTS    LRFAST
LRGP    LRGV    LRGV1    LRHYDEL    LRHYF4    LRHYPH0    LRHYPL    LRLIST
LRLISTE    LRLL    LRMINEW    LRMINEW1    LRMINEW2    LRMISTF    LRMISTF1    LRMIUT1
LRMIV    LRMIZAP    LRMRSHRT    LRNIGHT2    LROC    LROE    LROLOVER    LROR
LROR3    LROR4    LROR9    LROS    LRPHLIS1    LRPXAPI2    LRQCC    LRRP
LRSTUF1    LRTP    LRTSTJM1    LRTSTSET    LRUA    LRUCE    LRUCLR    LRUCNG
LRULB    LRULB1    LRUPA    LRUPA1    LRUPA2    LRUPACA    LRUPACS    LRUPAD1
LRUPAD2    LRUPQ    LRUPQ1    LRUSP    LRUTAD    LRUTELL    LRUTRAN    LRVER1
LRVER3    LRVER4    LRVERA    LRVR0    LRVR1    LRVR3    LRVRA    LRVRAR
LRVRPOCU    LRVRW    LRWLST    LRWLST12    LRWRKS    LRWRKS2    LRWU    ^LAM
LR7OB63D    LRARCR2    LRBEBA21    LRBEPEND    LRBLDR    LRCAPAUD    LRCAPMA1    LRCAPV1S
LRCENDE1    LRCKFLA    LREVENT    LREXPD    LRFASTS    LRGP1    LRMIBUG    LRMISEZ
LRNINES7    LRPXSXRB    LRTSTJAN    LRU    LRUCN    LRUD    LRUER    LRUPAC
LRUPAD    ^LRO(68    LRAPR    LRAPRES    LRAPRES1    LRAPSL1    LRAPTR    LRAPU
LRAPUALT    LRAPWE1    LRAPWKA    LRAPWR    LRAPWSPG    LRARCMA1    LRARCML1    LRAUAW
LRAUTOACC    LRBEBA3    LRBEBA5    LRBEBAO    LRBLPCS1    LRBLPE    LRBLPR    LRBLPUS2
LRBLPX    LRBLPX1    LRBLSUM    LRCAPBB    LRCAPBV    LRCAPDAR    LRCAPES    LRCAPES1
LRCAPPH    LRCAPR2    LRCAPV    LRCONJAM    LRFIXAU    LRFLAG    LRGVP    LRHY22
LRHY4X    LRHYAFT    LRHYBC1    LRHYF1    LRHYF2    LRHYLS1    LRHYT1    LRHYT2
LRLABLD    LRLABXT    LRLL1    LRLL1A    LRLL2    LRLL3    LRLL4    LRLLP2
LRLLP5    LRLLS    LRLLS2    LRLLS3    LRLLU    LRLSR    LRLSTWRK    LRLSTWRL
LRMIEDZ    LRMIEDZ2    LRMIEDZ3    LRMIEDZ4    LRMILL    LRMIPLOG    LRMIPSZ    LRMIPSZ1
LRMISEZ1    LRMIU4    LRMIUT    LRMIV1    LRMIV2    LRMIV3    LRMIVER    LRMIVER1
LRPHITE1    LRPHITE2    LRPHITEM    LRRP6    LRRP6A1    LRRP8B    LRRP8C    LRRPLUA
LRSETUP    LRSLOW    LRSTUF2    LRTOT    LRTSTJAM    LRTSTOUT    LRTT5P1    LRUBYDIV
LRUDEL    LRULA    LRUMDM    LRUMI    LRUPACT    LRUPT    LRUTL    LRUTT
LRUW    LRUWG    LRUWL    LRUWLF    LRVER    LRVER3A    LRVR    LRVR4
LRVRARU    LRVRMI1    LRVRMI5    LRWLST1    LRWLST11    LRWLST1A    LRWLST2    LRWRKIN1
LRWRKINC    LRWRKLS1    LRWRKLST    LRWU3    LRWU4    LRX    LRXREF    LRXREF1
PROFILE    TESTS    WKLD CODE    
Automated Lab Instruments 78 LA7ADL    LA7ADLS    LA7HDR    LA7HDR1    LA7PCFG    LA7SM    LA7SM1    LA7SM2
LA7SM2A    LA7SMA    LA7SMB    LA7SMB1    LA7SMP    LA7SMP0    LA7SMU    LA7SMU1
LA7SRR    LA7SUTL    LA7UID1    LA7UID2    LA7UIIN1    LA7UIIN2    LA7UIO    LA7UIO1
LA7UTIL    LA7VHLU2    LA7VHLU3    LA7VHLUB    LA7VIN1A    LA7VIN2A    LA7VIN4    LA7VIN4A
LA7VIN5    LA7VMSG    LA7VORM1    LA7VORM3    LA7VORR1    LA7VORUA    LABCX4D    LADIMD
LAEKT7D    LAGEN    LAHTCCAD    LAKDIFF3    LAMIAUT1    LAMILL    LAMIVT6    LAMIVTE6
LAMIVTK    LAMIVTK6    LAMIVTKD    LAMIVTL4    LAMIVTL6    LAMIVTLC    LAMIVTLD    LAMIVTLP
LASET    LAXSYM    LAXSYMBL    LAXSYMHQ    ^LAHM(62.485    LA7VORUB    LA81PRE    LAEPXD
LAKDIFF    LAKUR    LAMIAUT0    LAMIAUT4    LAMIAUT7    LAMIAUT8    LAMIVT5    LAMIVTKU
LAMIVTL0    LAMIVTL1    LAMIVTLG    LAMSD    LAPERD    LAPMAXD    
DSS Extracts 5 ECXDVSN1    ECXFELOC    ECXLABN    ECXLABO    ECXLBB    
Imaging 5 MAGGTLB    MAGTP003    MAGTP004    MAGTP006    MAGTP013    
Order Entry Results Reporting 4 ORDV02D    ORDV05E    ORELR2    ORWGAPIC    
VBECS 4 VBECA6    VBECPOST    VBECRPCB    VBECRPCM    
Health Summary 2 GMTSLRME    GMTSLROE    
Clinical Reminders 1 PXRMLABS    
Interim Management Support 1 ECTDLAB    
Oncology 1 ONCOCFL1    

Accessed By FileMan Db Calls, Total: 51

Package Total Routines
Lab Service 36 LR291    LRACC    LRAPED    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    LRVR0    LRVRA    LRVRPOCU    LRWLST
LRWRKINC    LRWRKLST    LRWRKS    LRWU4    
Automated Lab Instruments 6 LA7PCFG    LA7SM    LA7SRR    LA7VORM1    LA81PRE    LAMIVTL0    
Imaging 2 MAGDIR8A    MAGVORDR    
National Health Information Network 2 NHINVLR    NHINVLRO    
DSS Extracts 1 ECXDVSN1    
Enterprise Health Management Platform 1 HMPDLRA    
Interim Management Support 1 ECTDLAB    
VBECS 1 VBECA6    
Virtual Patient Record 1 VPRDLRA    

Pointed To By FileMan Files, Total: 17

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)]    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)[11.51.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]    
Automated Lab Instruments 1 LAB SHIPPING CONFIGURATION(#62.9)[#62.9001(.02)]    
VBECS 1 VBECS WORKLOAD CAPTURE(#6002.01)[14]    

Pointer To FileMan Files, Total: 18

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
.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.

Found Entries, Total: 22

AREA: AUTOPSY    AREA: BLOOD BANK    AREA: CHEM-20    AREA: CHEMISTRY    AREA: COAG    AREA: CYTOPATHOLOGY    AREA: DIF/PLT/EST/RBC/MORP    AREA: EM    
AREA: GAS    AREA: HEMATOLOGY    AREA: MANUAL CHEM    AREA: MICROBIOLOGY    AREA: RETIC COUNT    AREA: RIA    AREA: SED RATES    AREA: SEND OUT    
AREA: SEROLOGY    AREA: STAT LAB    AREA: SURGICAL PATHOLOGY    AREA: TEST MONTHLY    AREA: TOXICOLOGY    AREA: URINALYSIS    

ICR, Total: 10

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"

    External References

    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)

    Global Variables Directly Accessed

    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

    Naked Globals

    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

    Local Variables

    Legend:

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