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: ^DIC(16

Package: Kernel

Global: ^DIC(16


Information

FileMan FileNo FileMan Filename Package
16 PERSON Kernel

Description

Directly Accessed By Routines, Total: 194

Package Total Routines
IHS Dental System 22 ADEAPC    ADEAPC1    ADEATT4    ADEFLEX0    ADEFLEX1    ADEGRL    ADEGRL1    ADEGRL2
ADEGRL6    ADEMNG    ADEPEND    ADEPENDA    ADEPLV1    ADEPME    ADEPQA4    ADEPSUB1
ADEPV1    ADERVW1    ADEXER1    ADEXER2    ADEXSU1    ADEXSU2    
Patient Care Component Reports 22 APCLADX0    APCLAP11    APCLAP12    APCLAP21    APCLAP3P    APCLAP6P    APCLAUD0    APCLAUD2
APCLAUD4    APCLCP1P    APCLCP5P    APCLCP6P    APCLCZP1    APCLDP1    APCLDP1P    APCLGVP
APCLPP2    APCLPRPM    APCLT1P    APCLV06    APCLVPVC    APCLYV61    
Kernel 14 ^DIC(6    A4A7161    A4A7162    A4A7163    A4A7164    A4A7PCH5    A4A7PCH6    XUA4A7
XUINEND    XUSERNEW    XUXCTY    ^DIC(16    ^DIC(3    ^VA(200    
Quality Assurance 12 AQAOEDTP    AQAQCHK    AQAQDCC    AQAQDEL    AQAQEDT    AQAQMCC    AQAQMIS    AQAQPR11
AQAQPR21    AQAQPR31    AQAQPR41    AQAQRE    
Patient Care Component 8 APCD206F    APCDAAC1    APCDDVW1    APCDEFC    APCHS1    APCHS1B    APCHS6    APCHS6A
IHS Changes To Pharmacy 5 APSP61P    APSPDRP2    APSPOST4    APSPOSTP    APSPT161    
IHS VA Support Files 5 AVAP2    AVAP3    AVAP4    AVAPCHK    AVASLXR    
Registration 5 DGV53PT2    DGV53PT3    DGV53PT4    DGV53PT5    DGV53PT6    
Contract Health Management Information System 4 ACHSA6    ACHSRP2    ACHSRPF1    ACHSY200    
IHS Changes To ADT 4 ADGCP    ADGCRB6    ADGPCAC4    ADGPI    
Alcohol Chemical Dependency 3 ACD4P1PB    ACDENVCK    ACDPCCL6    
Third Party Billing 3 ABMDE4A    ABMDVST2    ABMDVST9    
Case Management System 2 ACMPOST    ACMPSTFX    
Clinical Scheduling for Windows 2 BSDX41A    BSDX41F    
Data Warehouse Export System 2 BDWUTIL    BDWUTIL1    
IHS V Files 200 Conversion 2 BVCHK    BVCONV1    
Lab Service 2 LRMITRZA    LRXSAVE    
Patient Care Component Data Transmission 2 APCPRCH1    APCPUTIL    
Phoenix Devel Center 2 AZXBV1    AZXZVS1    
Referred Care Information System 2 BMCRR121    BMCRR41    
Diabetes Registry 1 BDMVRL5    
Health Summary Components 1 BHSDEN1    
IHS Changes To Lab 1 BLRDPT30    
IHS Changes To Scheduling 1 BSDU1    
IHS Mods To Radiology Nuclear Medicine 1 BRAPCC    
IHS RPMS CHR System 1 BCHABC1    
IHS Support HL7 Interfaces 1 BHLPRV    
Immunization Tracking 1 BIUTL6    
M Transfer 1 BMXADE2    
Mental Health Social Services 1 AMHPCCL1    
Patient Chart 1 BPCPCCUP    
Pharmacy Point of Sale 1 ABSPOSB3    
Portland Private Insurance package 1 AZP3RP    
Time And Attendance 1 ^ATAEMP    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
IHS VA Support Files 1 AVAPRVC    

Pointed To By FileMan Files, Total: 7

Package Total FileMan Files
Kernel 3 USER(#3)[100]    PROVIDER(#6)[.01]    NEW PERSON(#200)[8980.16]    
Time And Attendance 2 EMPLOYEE(#8004100)[.01]    TIMEKEEPER(#8004102)[11]    
Contracts and Grants 1 CIS CONTRACT PERSONNEL(#9002331.4)[.01]    
IHS Dental System 1 DENTAL EMPLOYEE(#9002010.01)[.01]    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Kernel 3 USER(#3)[30.00330.099]    STATE(#5)[.115.1215]    PROVIDER(#6)[30.006]    
Registration 3 RACE(#10)[5]    MARITAL STATUS(#11)[4]    RELIGION(#13)[7]    

Fields, Total: 36

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3)!(X'?1U.UP1","1U.UP) X
  • LAST EDITED:  JUN 18, 1991
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
  • DELETE TEST:  .01,0)= I 1
    1,0)= I 1 W *7,"  PERSONS CAN'T BE DELETED!!"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the NAME field of the NEW PERSON File
    TRIGGERED by the NAME field of the USER File
  • CROSS-REFERENCE:  16^B
    1)= S ^DIC(16,"B",$E(X,1,30),DA)=""
    2)= K ^DIC(16,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  16^BS5^MUMPS
    1)= Q:$P(^DIC(16,DA,0),U,9)']""  S ^DIC(16,"BS5",$E(X,1)_$E($P(^(0),U,9),6,9),DA)=""
    2)= Q:$P(^DIC(16,DA,0),U,9)']""  K ^DIC(16,"BS5",$E(X,1)_$E($P(^(0),U,9),6,9),DA)
  • CROSS-REFERENCE:  16^AC^MUMPS
    1)= S Y="A" F %=0:0 S Y=$O(^DIC(16,DA,Y)) Q:Y'?1"A".N  S:+^(Y) ^DIC(16,Y,$E(X,1,30),DA)=""
    2)= S Y="A" F %=0:0 S Y=$O(^DIC(16,DA,Y)) Q:Y'?1"A".N  K ^DIC(16,Y,$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^3^.01
    1)= K DIV S DIV=X,(D0,DIV(0))=DA X ^DD(16,.01,1,4,89.2) S DIU=$S($D(^DIC(3,D0,0)):$P(^(0),U,1),1:""),D0=DA K Y S X=DIV X ^DD(16,.01,1,4,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(16,D0,"A3")):^("A3"),1:"") S X=Y(0)'=$S('$D(^DIC(3,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1))
    1.4)= S DIH=$S($D(^DIC(3,DIV(0),0)):$P(^(0),"^",1),1:"") I DIH'=DIV,$D(^(0)) S $P(^(0),U,1)=DIV,DIH=3,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    3)= Edited trigger
    89.2)= S Y=$S($D(^DIC(16,D0,"A3"))#2:^("A3"),1:"") X:Y'>0 ^DD(16,.01,1,4,89.3) S (D,D0,DIV(0))=+Y S:$P(^DIC(3,D0,0),"^",16)'=DA $P(^(0),"^",16)=DA I $S($D(^DIC(16,DA,"A3")):^("A3"),1:"")'=D0 S ^("A3")=D0
    89.3)= N DD,DO,DINUM K DIC S DIC="^DIC(3,",DIC(0)="NMFL",DLAYGO=3,XU16=DA,Y=$G(XU3) S:$D(XU200) DINUM=XU200 D:'Y FILE^DICN K DLAYGO,XU16
    CREATE CONDITION)= PERSON NAME'=USER FILE POINTER
    CREATE VALUE)= NAME
    DELETE VALUE)= NO EFFECT
    DIC)= LOOKUP
    FIELD)= NAME:USER
  • CROSS-REFERENCE:  16^AE^MUMPS
    1)= S $P(^DIC(16,DA,20),"^",2)=$P(X,",",2)_" "_$P(X,",",1) Q
    1.1)= S X=DIV S X=DIV,Y(1)=X S X=",",Y(2)=X S X=2,X=$P(Y(1),Y(2),X)_" ",Y(3)=X S X=DIV,Y(4)=X S X=",",Y(5)=X S X=1,X=$P(Y(4),Y(5),X) S Y=X,X=Y(3),X=X_Y
    1.4)= S DIH=$S($D(^DIC(16,DIV(0),20)):^(20),1:""),DIV=X S $P(^(20),U,2)=DIV,DIH=16,DIG=20.2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= $P(NAME,",",2)_" "_$P(NAME,",",1)
    DELETE VALUE)= NO EFFECT
    FIELD)= SIGNATURE BLOCK PRINTED NAME
  • CROSS-REFERENCE:  ^^TRIGGER^200^.01
    1)= K DIV S DIV=X,(XU16,D0,DIV(0))=DA X ^DD(16,.01,1,6,89.2) S DIU=$S($D(^VA(200,D0,0)):$P(^(0),"^",1),1:""),D0=DA K Y,XU16 S X=DIV X ^DD(16,.01,1,6,1.4)
    1.4)= S DIH=$S($D(^VA(200,DIV(0),0)):$P(^(0),"^",1),1:"") I DIH'=DIV,$D(^(0)) S $P(^(0),U,1)=DIV,DIH=200,DIG=.01 D ^DICR
    2)= Q
    3)= Edited trigger
    89.2)= S (D,D0,DIV(0))=$S($D(^DIC(16,D0,"A3"))#2:^("A3"),1:"") Q:'D0  I '$D(^VA(200,D0,0))#2 K DIC S DIC="^VA(200,",DIC(0)="L",DINUM=D0 K DO,DD D FILE^DICN
    CREATE VALUE)= NAME
    DELETE VALUE)= NO EFFECT
    DIC)= LOOKUP
    FIELD)= NAME:NEW PERSON
.111 STREET ADDRESS .11;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<2) X
  • LAST EDITED:  JUL 14, 1988
  • HELP-PROMPT:  MAXIMUM LENGTH: 50, MINIMUM LENGTH: 2
  • CROSS-REFERENCE:  16^ACX1^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") S:X1>0 $P(^VA(200,X1,.11),"^",1)=X S X1=$S($D(^DIC(16,DA,"A6")):^("A6"),1:"") S:X1>0 $P(^DIC(6,X1,.11),"^",1)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") S:X1>0 $P(^VA(200,X1,.11),"^",1)="" S X1=$S($D(^DIC(16,DA,"A6")):^("A6"),1:"") S:X1>0 $P(^DIC(6,X1,.11),"^",1)=""
    3)= Used to keep 3-16-200 in sync.
.112 STREET ADDRESS 2 .11;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAR 05, 1989
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
  • CROSS-REFERENCE:  16^ACX2^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") S:X1>0 $P(^VA(200,X1,.11),"^",2)=X S X1=$S($D(^DIC(16,DA,"A6")):^("A6"),1:"") S:X1>0 $P(^DIC(6,X1,.11),"^",2)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") S:X1>0 $P(^VA(200,X1,.11),"^",2)="" S X1=$S($D(^DIC(16,DA,"A6")):^("A6"),1:"") S:X1>0 $P(^DIC(6,X1,.11),"^",2)=""
    3)= Used to keep 3-16-200 in sync.
.113 STREET ADDRESS 3 .11;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAR 05, 1989
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
  • CROSS-REFERENCE:  16^ACX3^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") S:X1>0 $P(^VA(200,X1,.11),"^",3)=X S X1=$S($D(^DIC(16,DA,"A6")):^("A6"),1:"") S:X1>0 $P(^DIC(6,X1,.11),"^",3)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") S:X1>0 $P(^VA(200,X1,.11),"^",3)="" S X1=$S($D(^DIC(16,DA,"A6")):^("A6"),1:"") S:X1>0 $P(^DIC(6,X1,.11),"^",3)=""
    3)= Used to keep 3-16-200 in sync.
.114 CITY .11;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  SEP 10, 1982
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • CROSS-REFERENCE:  16^ACX4^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") S:X1>0 $P(^VA(200,X1,.11),"^",4)=X S X1=$S($D(^DIC(16,DA,"A6")):^("A6"),1:"") S:X1>0 $P(^DIC(6,X1,.11),"^",4)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") S:X1>0 $P(^VA(200,X1,.11),"^",4)="" S X1=$S($D(^DIC(16,DA,"A6")):^("A6"),1:"") S:X1>0 $P(^DIC(6,X1,.11),"^",4)=""
    3)= Used to keep 3-16-200 in sync.
.115 STATE .11;5 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  NOV 18, 1985
  • CROSS-REFERENCE:  16^ACX5^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") S:X1>0 $P(^VA(200,X1,.11),"^",5)=X S X1=$S($D(^DIC(16,DA,"A6")):^("A6"),1:"") S:X1>0 $P(^DIC(6,X1,.11),"^",5)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") S:X1>0 $P(^VA(200,X1,.11),"^",5)="" S X1=$S($D(^DIC(16,DA,"A6")):^("A6"),1:"") S:X1>0 $P(^DIC(6,X1,.11),"^",5)=""
    3)= Used to keep 3-16-200 in sync.
.116 ZIP CODE .11;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1"-"4N)) X
  • LAST EDITED:  FEB 08, 1989
  • HELP-PROMPT:  Answer with ZIP CODE or ZIP+4.
  • CROSS-REFERENCE:  16^ACX6^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") S:X1>0 $P(^VA(200,X1,.11),"^",6)=X S X1=$S($D(^DIC(16,DA,"A6")):^("A6"),1:"") S:X1>0 $P(^DIC(6,X1,.11),"^",6)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") S:X1>0 $P(^VA(200,X1,.11),"^",6)="" S X1=$S($D(^DIC(16,DA,"A6")):^("A6"),1:"") S:X1>0 $P(^DIC(6,X1,.11),"^",6)=""
    3)= Used to keep 3-16-200 in sync.
.117 COUNTY .11;7 NUMBER

  • INPUT TRANSFORM:  S Z0=$S($D(^DIC(16,D0,.11)):+$P(^(.11),"^",5),1:0) K:'Z0 X Q:'Z0!'$D(^DIC(5,Z0,1,0)) S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC
  • OUTPUT TRANSFORM:  Q:Y']"" S Z0=$S($D(^DIC(16,D0,.11)):+$P(^(.11),"^",5),1:"") Q:'Z0 S Y=$P($S($D(^DIC(5,Z0,1,Y,0)):^(0),1:""),"^",3)
  • LAST EDITED:  AUG 16, 1984
  • HELP-PROMPT:  Enter a valid county code or county name for the state
  • EXECUTABLE HELP:  S ZD=D,X="?",Z0=$S($D(^DIC(16,D0,.11)):+$P(^(.11),U,5),1:0) Q:'Z0!'$D(^DIC(5,Z0,1,0)) S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.1211 TEMPORARY ADDRESS 1 .121;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  FEB 28, 1984
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • CROSS-REFERENCE:  16^ACX7^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.121),"^",1)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.121),"^",1)=""
    3)= Used to keep 3-16-200 in sync.
.1212 TEMPORARY ADDRESS 2 .121;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  MAR 05, 1989
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • CROSS-REFERENCE:  16^ACX8^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.121),"^",2)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.121),"^",2)=""
    3)= Used to keep 3-16-200 in sync.
.1213 TEMPORARY ADDRESS 3 .121;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  MAR 05, 1989
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • CROSS-REFERENCE:  16^ACX9^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.121),"^",3)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.121),"^",3)=""
    3)= Used to keep 3-16-200 in sync.
.1214 TEMPORARY CITY .121;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  MAR 05, 1989
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • CROSS-REFERENCE:  16^ACX10^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.121),"^",4)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.121),"^",4)=""
    3)= Used to keep 3-16-200 in sync.
.1215 TEMPORARY STATE .121;5 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  FEB 28, 1984
  • CROSS-REFERENCE:  16^ACX11^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.121),"^",5)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.121),"^",5)=""
    3)= Used to keep 3-16-200 in sync.
.1216 TEMPORARY ZIPCODE .121;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1"-"4N)) X
  • LAST EDITED:  FEB 16, 1989
  • HELP-PROMPT:  Answer with ZIP code or ZIP+4.
  • CROSS-REFERENCE:  16^ACX12^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.121),"^",6)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.121),"^",6)=""
    3)= Used to keep 3-16-200 in sync.
.1217 START DATE OF TEMP ADDRESS .121;7 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 28, 1984
  • CROSS-REFERENCE:  16^ACX17^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.121),"^",7)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.121),"^",7)=""
    3)= Used to keep 3-16-200 in sync.
.1218 END DATE OF TEMP ADDRESS .121;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 05, 1989
  • CROSS-REFERENCE:  16^ACX18^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.121),"^",8)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.121),"^",8)=""
    3)= Used to keep 3-16-200 in sync.
.131 PHONE .13;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  FEB 28, 1983
  • HELP-PROMPT:  ANSWER MUST BE 4-20 CHARACTERS IN LENGTH
  • CROSS-REFERENCE:  16^ACX13^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.13),"^",1)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.13),"^",1)=""
    3)= Used to keep 3-16-200 in sync.
.132 OFFICE PHONE .13;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  FEB 28, 1983
  • HELP-PROMPT:  ENTER OTHER PHONE TO REACH PT. IE. 801-582-1565 EX.1262
  • CROSS-REFERENCE:  16^ACX14^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.13),"^",2)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.13),"^",2)=""
    3)= Used to keep 3-16-200 in sync.
.133 PHONE #3 .13;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  FEB 28, 1983
  • HELP-PROMPT:  ANSWER MUST BE 4-20 CHARACTERS IN LENGTH
  • CROSS-REFERENCE:  16^ACX15^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.13),"^",3)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.13),"^",3)=""
    3)= Used to keep 3-16-200 in sync.
.134 PHONE #4 .13;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  MAR 05, 1989
  • HELP-PROMPT:  ANSWER MUST BE 4-20 CHARACTERS IN LENGTH
  • CROSS-REFERENCE:  16^ACX16^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.13),"^",4)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.13),"^",4)=""
    3)= Used to keep 3-16-200 in sync.
1 SEX 0;2 SET
  • 'F' FOR FEMALE;
  • 'M' FOR MALE;

  • LAST EDITED:  MAR 05, 1989
  • CROSS-REFERENCE:  16^ACX19^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,1),"^",2)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,1),"^",2)=""
    3)= Used to keep 3-16-200 in sync.
2 DOB 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X>DT X
  • LAST EDITED:  NOV 10, 1998
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  16^ACX22^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,1),"^",3)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,1),"^",3)=""
    3)= Used to keep 3-16-200 in sync.
3 EMPLOYMENT STATUS 0;4 SET
  • 'E' FOR EMPLOYED;
  • 'U' FOR UNEMPLOYED;
  • 'R' FOR RETIRED;
  • 'D' FOR DISABLED;
  • 'S' FOR SELF-EMPLOYED;

  • LAST EDITED:  FEB 28, 1983
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4 MARITAL STATUS 0;5 POINTER TO MARITAL STATUS FILE (#11) MARITAL STATUS(#11)

  • LAST EDITED:  SEP 18, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
5 RACE 0;6 POINTER TO RACE FILE (#10) RACE(#10)

  • LAST EDITED:  OCT 29, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
6 OCCUPATION 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAR 28, 1983
  • HELP-PROMPT:  Enter the patient's occupation, 1-30 characters.
7 RELIGION 0;8 POINTER TO RELIGION FILE (#13) RELIGION(#13)

  • LAST EDITED:  OCT 29, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
8 SSN 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<9)!'(X?9N) X
  • LAST EDITED:  APR 20, 1989
  • HELP-PROMPT:  ANSWER MUST BE 9 NUMBERS.
  • CROSS-REFERENCE:  16^BS5^MUMPS
    1)= S ^DIC(16,"BS5",$E(^DIC(16,DA,0),1)_$E(X,6,9),DA)=""
    2)= K ^DIC(16,"BS5",$E(^DIC(16,DA,0),1)_$E(X,6,9),DA)
  • CROSS-REFERENCE:  16^BS^MUMPS
    1)= S ^DIC(16,"BS",$E(X,6,9),DA)=""
    2)= K ^DIC(16,"BS",$E(X,6,9),DA)
  • CROSS-REFERENCE:  16^ACX32^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,1),"^",9)=X,^VA(200,"SSN",X,X1)="",^VA(200,"BS",$E(X,6,9),X1)="",^VA(200,"BS5",$E(^VA(200,X1,0),1)_$E(X,6,9),X1)=""
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,1),"^",9)="" K ^VA(200,"SSN",X,X1),^VA(200,"BS",$E(X,6,9),X1),^VA(200,"BS5",$E(^VA(200,X1,0),1)_$E(X,6,9),X1)
    3)= Used to keep 3-16-200 in sync.
20.1 INITIALS 20;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<2) X
  • LAST EDITED:  APR 21, 1989
  • HELP-PROMPT:  ANSWER MUST BE 2-5 CHARACTERS IN LENGTH
  • CROSS-REFERENCE:  16^ACX31^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,0),"^",2)=X,^VA(200,"C",X,X1)="",$P(^DIC(3,X1,0),"^",2)=X,^DIC(3,"C",X,X1)=""
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,0),"^",2)="",$P(^DIC(3,X1,0),"^",2)="" K ^VA(200,"C",X,X1),^DIC(3,"C",X,X1)
    3)= Used to keep 3-16-200 in sync.
  • CROSS-REFERENCE:  16^ACX33^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A6")):^("A6"),1:"") I X1>0 S $P(^DIC(6,X1,0),"^",2)=X,^DIC(6,"C",X,X1)=""
    2)= S X1=$S($D(^DIC(16,DA,"A6")):^("A6"),1:"") I X1>0 S $P(^DIC(6,X1,0),"^",2)="" K ^DIC(6,"C",X,X1)
    3)= Used to keep 3-16-200 in sync.
20.2 SIGNATURE 20;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  NOV 18, 1985
  • HELP-PROMPT:  ANSWER MUST BE 3-15 CHARACTERS IN LENGTH
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the NAME field of the PERSON File
  • CROSS-REFERENCE:  16^ACX20^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,20),"^",2)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,20),"^",2)=""
    3)= Used to keep 3-16-200 in sync.
20.3 SIGNATURE BLOCK 20;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  NOV 18, 1985
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • CROSS-REFERENCE:  16^ACX21^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,20),"^",3)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,20),"^",3)=""
    3)= Used to keep 3-16-200 in sync.
20.4 ELECTRONIC SIGNATURE CODE 20;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<6) X I $D(X) D HASH^XUSHSHP
  • OUTPUT TRANSFORM:  S Y=""
  • LAST EDITED:  AUG 21, 1987
  • HELP-PROMPT:  ANSWER MUST BE 6-20 CHARACTERS IN LENGTH
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  16^ACX23^MUMPS
    1)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,20),"^",4)=X
    2)= S X1=$S($D(^DIC(16,DA,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,20),"^",4)=""
    3)= Used to keep 3-16-200 in sync.
30.003 USER FILE POINTER A3;1 POINTER TO USER FILE (#3) USER(#3)

  • INPUT TRANSFORM:  I $P(^DIC(3,+X,0),U,16),$P(^(0),U,16)'=DA S X=$P(^(0),U,16) W !?20,"This user points to person ",$P(^DIC(16,X,0),U,1) K X
  • LAST EDITED:  APR 26, 1989
  • HELP-PROMPT:  Is this person also a user?
    WRITE AUTHORITY:  ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the PERSON FILE POINTER field of the USER File
  • CROSS-REFERENCE:  16^A3^MUMPS
    1)= S ^DIC(16,"A3",$E($P(^DIC(16,DA,0),"^",1),1,30),DA)=""
    2)= K ^DIC(16,"A3",$E($P(^DIC(16,DA,0),"^",1),1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^3^100
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(16,30.003,1,2,69.2) S X=X S Y=X,X=Y(1),X=X S X=X'=Y S D0=I(0,0) I X S X=DIV X ^DD(16,30.003,1,2,1.2) X ^DD(16,30.003,1,2,1.1) X ^DD(16,30.003,1,2,1.4)
    1.1)= S X=DIV S X=$S('$D(D0):"",D0<0:"",1:D0)
    1.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(3,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DIC(3,D0,0)):^(0),1:"") S X=$P(Y(101),U,16),X=X S X=X S D0=I(0,0) S DIU=X K Y
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(16,30.003,1,2,69.2) S X=X S Y=X,X=Y(1),X=X S X=X'=Y S D0=I(0,0)
    1.4)= S DIH=$S($D(^DIC(3,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) X "F %=0:0 Q:$L($P(DIH,U,15,99))  S DIH=DIH_U" S %=$P(DIH,U,17,999),DIU=$P(DIH,U,16),^(0)=$P(DIH,U,1,15)_U_DIV_$S(%]"":U_%,1:""),DIH=3,DIG=100 D ^DICR:$N(^DD(
    DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(3,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DIC(3,D0,0)):^(0),1:"") S X=$P(Y(101),U,16),X=X S X=X S D0=I(0,0) S DIU=X K Y S X="" X ^DD(16,30.0
    03,1,2,2.4)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(16,D0,"A3")):^("A3"),1:"") S X=$S('$D(^DIC(3,+X,0)):"",1:$P(^(0),U,1))'=$S('$D(^DIC(3,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1))
    2.4)= S DIH=$S($D(^DIC(3,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) X "F %=0:0 Q:$L($P(DIH,U,15,99))  S DIH=DIH_U" S %=$P(DIH,U,17,999),DIU=$P(DIH,U,16),^(0)=$P(DIH,U,1,15)_U_DIV_$S(%]"":U_%,1:""),DIH=3,DIG=100 D ^DICR:$N(^DD(
    DIH,DIG,1,0))>0
    3)= This X-ref keeps the user and person file pointers in sync
    69.2)= S I(0,0)=$S($D(D0):D0,1:"") S X=$S('$D(D0):"",D0<0:"",1:D0),Y(1)=X,D0=Y(0) S:'$D(^DIC(3,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(3,D0,0)):^(0),1:"") S X=$P(Y(101),U,16)
    89.2)= S I(0,0)=$S($D(D0):D0,1:"") S (D,D0,DIV(0))=+X
    CREATE CONDITION)= NUMBER'=INTERNAL(USER FILE POINTER:PERSON FILE POINTER)
    CREATE VALUE)= PERSON NUMBER
    DELETE CONDITION)= OLD USER FILE POINTER'=USER FILE POINTER
    DELETE VALUE)= @
    DIC)= LOOKUP
    FIELD)= USER FILE POINTER:PERSON FILE POINTER
30.006 PROVIDER FILE POINTER A6;1 POINTER TO PROVIDER FILE (#6) PROVIDER(#6)

  • LAST EDITED:  APR 26, 1989
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the NAME field of the PROVIDER File
  • CROSS-REFERENCE:  ^^TRIGGER^6^.01
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(16,30.006,1,1,1.2) X ^DD(16,30.006,1,1,1.1) X ^DD(16,30.006,1,1,1.4)
    1.1)= S X=DIV S X=$S('$D(D0):"",D0<0:"",1:D0)
    1.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=X S:'$D(^DIC(6,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DIC(6,D0,0)):^(0),1:"") S X=$S('$D(^DIC(16,+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S DIU=X K Y
    1.4)= S DIH=$S($D(^DIC(6,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(0)=DIV_$S(%]"":U_%,1:""),DIH=6,DIG=.01 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= NUMBER
    DELETE VALUE)= NO EFFECT
    FIELD)= PROVIDER FILE:NAME
  • CROSS-REFERENCE:  16^A6^MUMPS
    1)= S ^DIC(16,"A6",$E($P(^DIC(16,DA,0),U,1),1,30),DA)=""
    2)= K ^DIC(16,"A6",$E($P(^DIC(16,DA,0),U,1),1,30),DA)
30.099 MERGE WITH USER A99;1 POINTER TO USER FILE (#3) USER(#3)

  • INPUT TRANSFORM:  S %=$S('$D(^DIC(16,DA,"A3")):0,+^("A3"):2,$P(^DIC(3,+X,0),U,16)<1:1,1:0) I % W $P(" User must already point to a person.^ Don't setup pointer for PERSONs with a USER ptn",U,%) K X
  • HELP-PROMPT:  This is a pointer to the user file that will keep it from being added to the user file during the UPDATE pass of the new person file install
31 OLD NAME VALUE 31;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>32!($L(X)<1) X
  • LAST EDITED:  JAN 29, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-32 CHARACTERS IN LENGTH

Found Entries, Total: 8

NAME: ADAM,ADAM    NAME: BSTS,PROXY USER    NAME: KAAJEE,PROXY    NAME: LRLAB,HL    NAME: LRLAB,POC    NAME: MANAGER,SYSTEM    NAME: TASKMAN,PROXY USER    NAME: XOBVTESTER,APPLICATION PROXY    

ICR, Total: 3

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #40
  • Integrated Patient Fund
  • ICR #66
  • IFCAP
  • ICR #10049 (All Fields).
    Access: Read w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT .1217+1, .1218+1, 2+1, .1217+1, .1218+1, 2+1
    ^DIC .117+1, .117(HELP ), .117+1, .117(HELP )
    FILE^DICN .01(XREF 4n89.3), .01(XREF 6n89.2), .01(XREF 4n89.3), .01(XREF 6n89.2)
    ^DICR .01(XREF 4n1.4), .01(XREF 5n1.4), .01(XREF 6n1.4), 30.003(XREF 2n1.4), 30.003(XREF 2n2.4), 30.006(XREF 1n1.4), .01(XREF 4n1.4), .01(XREF 5n1.4), .01(XREF 6n1.4), 30.003(XREF 2n1.4)
    30.003(XREF 2n2.4), 30.006(XREF 1n1.4)
    HASH^XUSHSHP 20.4+1, 20.4+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( .01(XREF 4n1.4), .01(XREF 5n1.4), 30.003(XREF 2n1.4), 30.003(XREF 2n2.4), 30.006(XREF 1n1.4), .01(XREF 4n1.4), .01(XREF 5n1.4), 30.003(XREF 2n1.4), 30.003(XREF 2n2.4), 30.006(XREF 1n1.4)
    ^DD(16 .01(XREF 4S), .01(XREF 4n89.2), .01(XREF 6S), 30.003(XREF 2S), 30.003(XREF 2n1.3), 30.003(XREF 2K), 30.006(XREF 1S), .01(XREF 4S), .01(XREF 4n89.2), .01(XREF 6S)
    30.003(XREF 2S), 30.003(XREF 2n1.3), 30.003(XREF 2K), 30.006(XREF 1S)
    ^DIC(16 - [#16] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4n1.3), .01(XREF 4n89.2), .01(XREF 5S), .01(XREF 5n1.4)
    .01(XREF 6n89.2), .111(XREF 1S), .111(XREF 1K), .112(XREF 1S), .112(XREF 1K), .113(XREF 1S), .113(XREF 1K), .114(XREF 1S), .114(XREF 1K), .115(XREF 1S)
    .115(XREF 1K), .116(XREF 1S), .116(XREF 1K), .117+1, .117OT+1, .117(HELP ), .1211(XREF 1S), .1211(XREF 1K), .1212(XREF 1S), .1212(XREF 1K)
    .1213(XREF 1S), .1213(XREF 1K), .1214(XREF 1S), .1214(XREF 1K), .1215(XREF 1S), .1215(XREF 1K), .1216(XREF 1S), .1216(XREF 1K), .1217(XREF 1S), .1217(XREF 1K)
    .1218(XREF 1S), .1218(XREF 1K), .131(XREF 1S), .131(XREF 1K), .132(XREF 1S), .132(XREF 1K), .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K)
    1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2K), 8(XREF 3S), 8(XREF 3K)
    20.1(XREF 1S), 20.1(XREF 1K), 20.1(XREF 2S), 20.1(XREF 2K), 20.2(XREF 1S), 20.2(XREF 1K), 20.3(XREF 1S), 20.3(XREF 1K), 20.4(XREF 1S), 20.4(XREF 1K)
    , 30.003+1, 30.003(XREF 1S), 30.003(XREF 1K), 30.003(XREF 2n2.3), 30.006(XREF 1n1.2), 30.006(XREF 2S), 30.006(XREF 2K), 30.099+1, .01(XREF 1S), .01(XREF 1K)
    .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4n1.3), .01(XREF 4n89.2), .01(XREF 5S), .01(XREF 5n1.4), .01(XREF 6n89.2), .111(XREF 1S)
    .111(XREF 1K), .112(XREF 1S), .112(XREF 1K), .113(XREF 1S), .113(XREF 1K), .114(XREF 1S), .114(XREF 1K), .115(XREF 1S), .115(XREF 1K), .116(XREF 1S)
    .116(XREF 1K), .117+1, .117OT+1, .117(HELP ), .1211(XREF 1S), .1211(XREF 1K), .1212(XREF 1S), .1212(XREF 1K), .1213(XREF 1S), .1213(XREF 1K)
    .1214(XREF 1S), .1214(XREF 1K), .1215(XREF 1S), .1215(XREF 1K), .1216(XREF 1S), .1216(XREF 1K), .1217(XREF 1S), .1217(XREF 1K), .1218(XREF 1S), .1218(XREF 1K)
    .131(XREF 1S), .131(XREF 1K), .132(XREF 1S), .132(XREF 1K), .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K), 1(XREF 1S), 1(XREF 1K)
    2(XREF 1S), 2(XREF 1K), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2K), 8(XREF 3S), 8(XREF 3K), 20.1(XREF 1S), 20.1(XREF 1K)
    20.1(XREF 2S), 20.1(XREF 2K), 20.2(XREF 1S), 20.2(XREF 1K), 20.3(XREF 1S), 20.3(XREF 1K), 20.4(XREF 1S), 20.4(XREF 1K), 30.003+1, 30.003(XREF 1S)
    30.003(XREF 1K), 30.003(XREF 2n2.3), 30.006(XREF 1n1.2), 30.006(XREF 2S), 30.006(XREF 2K), 30.099+1
    ^DIC(3 - [#3] .01(XREF 4S), .01(XREF 4n1.3), .01(XREF 4n1.4), .01(XREF 4n89.2), 20.1(XREF 1S), 20.1(XREF 1K), 30.003+1, 30.003(XREF 2n1.2), 30.003(XREF 2n1.4), 30.003(XREF 2K)
    30.003(XREF 2n2.3), 30.003(XREF 2n2.4), 30.003(XREF 2n69.2), 30.099+1, .01(XREF 4S), .01(XREF 4n1.3), .01(XREF 4n1.4), .01(XREF 4n89.2), 20.1(XREF 1S), 20.1(XREF 1K)
    , 30.003+1, 30.003(XREF 2n1.2), 30.003(XREF 2n1.4), 30.003(XREF 2K), 30.003(XREF 2n2.3), 30.003(XREF 2n2.4), 30.003(XREF 2n69.2), 30.099+1
    ^DIC(5 - [#5] .117+1, .117OT+1, .117(HELP ), .117+1, .117OT+1, .117(HELP )
    ^DIC(6 - [#6] .111(XREF 1S), .111(XREF 1K), .112(XREF 1S), .112(XREF 1K), .113(XREF 1S), .113(XREF 1K), .114(XREF 1S), .114(XREF 1K), .115(XREF 1S), .115(XREF 1K)
    .116(XREF 1S), .116(XREF 1K), 20.1(XREF 2S), 20.1(XREF 2K), 30.006(XREF 1n1.2), 30.006(XREF 1n1.4), .111(XREF 1S), .111(XREF 1K), .112(XREF 1S), .112(XREF 1K)
    .113(XREF 1S), .113(XREF 1K), .114(XREF 1S), .114(XREF 1K), .115(XREF 1S), .115(XREF 1K), .116(XREF 1S), .116(XREF 1K), 20.1(XREF 2S), 20.1(XREF 2K)
    30.006(XREF 1n1.2), 30.006(XREF 1n1.4)
    ^VA(200 - [#200] .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 6n89.2), .111(XREF 1S), .111(XREF 1K), .112(XREF 1S), .112(XREF 1K), .113(XREF 1S), .113(XREF 1K), .114(XREF 1S)
    .114(XREF 1K), .115(XREF 1S), .115(XREF 1K), .116(XREF 1S), .116(XREF 1K), .1211(XREF 1S), .1211(XREF 1K), .1212(XREF 1S), .1212(XREF 1K), .1213(XREF 1S)
    .1213(XREF 1K), .1214(XREF 1S), .1214(XREF 1K), .1215(XREF 1S), .1215(XREF 1K), .1216(XREF 1S), .1216(XREF 1K), .1217(XREF 1S), .1217(XREF 1K), .1218(XREF 1S)
    .1218(XREF 1K), .131(XREF 1S), .131(XREF 1K), .132(XREF 1S), .132(XREF 1K), .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K), 1(XREF 1S)
    1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 8(XREF 3S), 8(XREF 3K), 20.1(XREF 1S), 20.1(XREF 1K), 20.2(XREF 1S), 20.2(XREF 1K), 20.3(XREF 1S)
    20.3(XREF 1K), 20.4(XREF 1S), 20.4(XREF 1K), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 6n89.2), .111(XREF 1S), .111(XREF 1K), .112(XREF 1S), .112(XREF 1K)
    .113(XREF 1S), .113(XREF 1K), .114(XREF 1S), .114(XREF 1K), .115(XREF 1S), .115(XREF 1K), .116(XREF 1S), .116(XREF 1K), .1211(XREF 1S), .1211(XREF 1K)
    .1212(XREF 1S), .1212(XREF 1K), .1213(XREF 1S), .1213(XREF 1K), .1214(XREF 1S), .1214(XREF 1K), .1215(XREF 1S), .1215(XREF 1K), .1216(XREF 1S), .1216(XREF 1K)
    .1217(XREF 1S), .1217(XREF 1K), .1218(XREF 1S), .1218(XREF 1K), .131(XREF 1S), .131(XREF 1K), .132(XREF 1S), .132(XREF 1K), .133(XREF 1S), .133(XREF 1K)
    .134(XREF 1S), .134(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 8(XREF 3S), 8(XREF 3K), 20.1(XREF 1S), 20.1(XREF 1K)
    20.2(XREF 1S), 20.2(XREF 1K), 20.3(XREF 1S), 20.3(XREF 1K), 20.4(XREF 1S), 20.4(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^( .01(XREF 3S), .117+1, .117OT+1, .117(HELP ), .01(XREF 3S), .117+1, .117OT+1, .117(HELP )
    ^("A3" .01(XREF 4n1.3), .01(XREF 4n89.2), .01(XREF 6n89.2), .111(XREF 1S), .111(XREF 1K), .112(XREF 1S), .112(XREF 1K), .113(XREF 1S), .113(XREF 1K), .114(XREF 1S)
    .114(XREF 1K), .115(XREF 1S), .115(XREF 1K), .116(XREF 1S), .116(XREF 1K), .1211(XREF 1S), .1211(XREF 1K), .1212(XREF 1S), .1212(XREF 1K), .1213(XREF 1S)
    .1213(XREF 1K), .1214(XREF 1S), .1214(XREF 1K), .1215(XREF 1S), .1215(XREF 1K), .1216(XREF 1S), .1216(XREF 1K), .1217(XREF 1S), .1217(XREF 1K), .1218(XREF 1S)
    .1218(XREF 1K), .131(XREF 1S), .131(XREF 1K), .132(XREF 1S), .132(XREF 1K), .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K), 1(XREF 1S)
    1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 8(XREF 3S), 8(XREF 3K), 20.1(XREF 1S), 20.1(XREF 1K), 20.2(XREF 1S), 20.2(XREF 1K), 20.3(XREF 1S)
    20.3(XREF 1K), 20.4(XREF 1S), 20.4(XREF 1K), 30.003(XREF 2n2.3), 30.099+1, .01(XREF 4n1.3), .01(XREF 4n89.2), .01(XREF 6n89.2), .111(XREF 1S), .111(XREF 1K)
    .112(XREF 1S), .112(XREF 1K), .113(XREF 1S), .113(XREF 1K), .114(XREF 1S), .114(XREF 1K), .115(XREF 1S), .115(XREF 1K), .116(XREF 1S), .116(XREF 1K)
    .1211(XREF 1S), .1211(XREF 1K), .1212(XREF 1S), .1212(XREF 1K), .1213(XREF 1S), .1213(XREF 1K), .1214(XREF 1S), .1214(XREF 1K), .1215(XREF 1S), .1215(XREF 1K)
    .1216(XREF 1S), .1216(XREF 1K), .1217(XREF 1S), .1217(XREF 1K), .1218(XREF 1S), .1218(XREF 1K), .131(XREF 1S), .131(XREF 1K), .132(XREF 1S), .132(XREF 1K)
    .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 8(XREF 3S), 8(XREF 3K)
    20.1(XREF 1S), 20.1(XREF 1K), 20.2(XREF 1S), 20.2(XREF 1K), 20.3(XREF 1S), 20.3(XREF 1K), 20.4(XREF 1S), 20.4(XREF 1K), 30.003(XREF 2n2.3), 30.099+1
    ^("A6" .111(XREF 1S), .111(XREF 1K), .112(XREF 1S), .112(XREF 1K), .113(XREF 1S), .113(XREF 1K), .114(XREF 1S), .114(XREF 1K), .115(XREF 1S), .115(XREF 1K)
    .116(XREF 1S), .116(XREF 1K), 20.1(XREF 2S), 20.1(XREF 2K), .111(XREF 1S), .111(XREF 1K), .112(XREF 1S), .112(XREF 1K), .113(XREF 1S), .113(XREF 1K)
    .114(XREF 1S), .114(XREF 1K), .115(XREF 1S), .115(XREF 1K), .116(XREF 1S), .116(XREF 1K), 20.1(XREF 2S), 20.1(XREF 2K)
    ^(0 .01(XREF 2S), .01(XREF 2K), .01(XREF 4S), .01(XREF 4n1.3), .01(XREF 4n1.4), .01(XREF 4n89.2), .01(XREF 6S), .01(XREF 6n1.4), .117OT+1, 30.003+1
    30.003(XREF 2n1.2), 30.003(XREF 2n1.4), 30.003(XREF 2K), 30.003(XREF 2n2.3), 30.003(XREF 2n2.4), 30.003(XREF 2n69.2), 30.006(XREF 1n1.2), 30.006(XREF 1n1.4), .01(XREF 2S), .01(XREF 2K)
    .01(XREF 4S), .01(XREF 4n1.3), .01(XREF 4n1.4), .01(XREF 4n89.2), .01(XREF 6S), .01(XREF 6n1.4), .117OT+1, 30.003+1, 30.003(XREF 2n1.2), 30.003(XREF 2n1.4)
    30.003(XREF 2K), 30.003(XREF 2n2.3), 30.003(XREF 2n2.4), 30.003(XREF 2n69.2), 30.006(XREF 1n1.2), 30.006(XREF 1n1.4)
    ^(20 .01(XREF 5n1.4), .01(XREF 5n1.4)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % .01(XREF 3S), .01(XREF 3K), 30.003(XREF 2n1.4), 30.003(XREF 2n2.4), 30.006(XREF 1n1.4), 30.099+1*, .01(XREF 3S), .01(XREF 3K), 30.003(XREF 2n1.4), 30.003(XREF 2n2.4)
    30.006(XREF 1n1.4), 30.099+1*
    >> %DT .1217+1*, .1218+1*, 2+1*, .1217+1*, .1218+1*, 2+1*
    >> D .01(XREF 4n89.2), .01(XREF 6n89.2), .117(HELP ), 30.003(XREF 2n89.2), .01(XREF 4n89.2), .01(XREF 6n89.2), .117(HELP ), 30.003(XREF 2n89.2)
    >> D0 .01(XREF 4S), .01(XREF 4n1.3), .01(XREF 4n89.2), .01(XREF 6S), .01(XREF 6n89.2), .117+1, .117OT+1, .117(HELP ), 30.003(XREF 2S), 30.003(XREF 2n1.1)
    30.003(XREF 2n1.2), 30.003(XREF 2n1.3), 30.003(XREF 2K), 30.003(XREF 2n2.3), 30.003(XREF 2n69.2), 30.003(XREF 2n89.2), 30.006(XREF 1S), 30.006(XREF 1n1.1), 30.006(XREF 1n1.2), .01(XREF 4S)
    .01(XREF 4n1.3), .01(XREF 4n89.2), .01(XREF 6S), .01(XREF 6n89.2), .117+1, .117OT+1, .117(HELP ), 30.003(XREF 2S), 30.003(XREF 2n1.1), 30.003(XREF 2n1.2)
    30.003(XREF 2n1.3), 30.003(XREF 2K), 30.003(XREF 2n2.3), 30.003(XREF 2n69.2), 30.003(XREF 2n89.2), 30.006(XREF 1S), 30.006(XREF 1n1.1), 30.006(XREF 1n1.2)
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4n1.3), .01(XREF 4n89.2), .01(XREF 4n89.3)
    .01(XREF 5S), .01(XREF 6S), .111(XREF 1S), .111(XREF 1K), .112(XREF 1S), .112(XREF 1K), .113(XREF 1S), .113(XREF 1K), .114(XREF 1S), .114(XREF 1K)
    .115(XREF 1S), .115(XREF 1K), .116(XREF 1S), .116(XREF 1K), .1211(XREF 1S), .1211(XREF 1K), .1212(XREF 1S), .1212(XREF 1K), .1213(XREF 1S), .1213(XREF 1K)
    .1214(XREF 1S), .1214(XREF 1K), .1215(XREF 1S), .1215(XREF 1K), .1216(XREF 1S), .1216(XREF 1K), .1217(XREF 1S), .1217(XREF 1K), .1218(XREF 1S), .1218(XREF 1K)
    .131(XREF 1S), .131(XREF 1K), .132(XREF 1S), .132(XREF 1K), .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K), 1(XREF 1S), 1(XREF 1K)
    2(XREF 1S), 2(XREF 1K), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2K), 8(XREF 3S), 8(XREF 3K), 20.1(XREF 1S), 20.1(XREF 1K)
    20.1(XREF 2S), 20.1(XREF 2K), 20.2(XREF 1S), 20.2(XREF 1K), 20.3(XREF 1S), 20.3(XREF 1K), 20.4(XREF 1S), 20.4(XREF 1K), 30.003+1, 30.003(XREF 1S)
    30.003(XREF 1K), 30.003(XREF 2S), 30.003(XREF 2n1.3), 30.003(XREF 2K), 30.003(XREF 2n2.3), 30.006(XREF 1S), 30.006(XREF 2S), 30.006(XREF 2K), 30.099+1, .01(XREF 1S)
    .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4n1.3), .01(XREF 4n89.2), .01(XREF 4n89.3), .01(XREF 5S)
    .01(XREF 6S), .111(XREF 1S), .111(XREF 1K), .112(XREF 1S), .112(XREF 1K), .113(XREF 1S), .113(XREF 1K), .114(XREF 1S), .114(XREF 1K), .115(XREF 1S)
    .115(XREF 1K), .116(XREF 1S), .116(XREF 1K), .1211(XREF 1S), .1211(XREF 1K), .1212(XREF 1S), .1212(XREF 1K), .1213(XREF 1S), .1213(XREF 1K), .1214(XREF 1S)
    .1214(XREF 1K), .1215(XREF 1S), .1215(XREF 1K), .1216(XREF 1S), .1216(XREF 1K), .1217(XREF 1S), .1217(XREF 1K), .1218(XREF 1S), .1218(XREF 1K), .131(XREF 1S)
    .131(XREF 1K), .132(XREF 1S), .132(XREF 1K), .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S)
    2(XREF 1K), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2K), 8(XREF 3S), 8(XREF 3K), 20.1(XREF 1S), 20.1(XREF 1K), 20.1(XREF 2S)
    20.1(XREF 2K), 20.2(XREF 1S), 20.2(XREF 1K), 20.3(XREF 1S), 20.3(XREF 1K), 20.4(XREF 1S), 20.4(XREF 1K), 30.003+1, 30.003(XREF 1S), 30.003(XREF 1K)
    30.003(XREF 2S), 30.003(XREF 2n1.3), 30.003(XREF 2K), 30.003(XREF 2n2.3), 30.006(XREF 1S), 30.006(XREF 2S), 30.006(XREF 2K), 30.099+1
    DD .01(XREF 4n89.3), .01(XREF 6n89.2), .01(XREF 4n89.3), .01(XREF 6n89.2)
    DIC .01(XREF 4n89.3), .01(XREF 6n89.2), .117+1*!, .117(HELP ), .01(XREF 4n89.3), .01(XREF 6n89.2), .117+1*!, .117(HELP )
    DIC(0 .01(XREF 4n89.3), .01(XREF 6n89.2), .117+1*, .117(HELP ), .01(XREF 4n89.3), .01(XREF 6n89.2), .117+1*, .117(HELP )
    >> DIE .117(HELP ), .117(HELP )
    >> DIG .01(XREF 4n1.4), .01(XREF 5n1.4), .01(XREF 6n1.4), 30.003(XREF 2n1.4), 30.003(XREF 2n2.4), 30.006(XREF 1n1.4), .01(XREF 4n1.4), .01(XREF 5n1.4), .01(XREF 6n1.4), 30.003(XREF 2n1.4)
    30.003(XREF 2n2.4), 30.006(XREF 1n1.4)
    >> DIH .01(XREF 4n1.4), .01(XREF 5n1.4), .01(XREF 6n1.4), 30.003(XREF 2n1.4), 30.003(XREF 2n2.4), 30.006(XREF 1n1.4), .01(XREF 4n1.4), .01(XREF 5n1.4), .01(XREF 6n1.4), 30.003(XREF 2n1.4)
    30.003(XREF 2n2.4), 30.006(XREF 1n1.4)
    DINUM .01(XREF 4n89.3), .01(XREF 6n89.2), .01(XREF 4n89.3), .01(XREF 6n89.2)
    >> DIU .01(XREF 4S), .01(XREF 6S), 30.003(XREF 2n1.2), 30.003(XREF 2n1.4), 30.003(XREF 2K), 30.003(XREF 2n2.4), 30.006(XREF 1n1.2), 30.006(XREF 1n1.4), .01(XREF 4S), .01(XREF 6S)
    30.003(XREF 2n1.2), 30.003(XREF 2n1.4), 30.003(XREF 2K), 30.003(XREF 2n2.4), 30.006(XREF 1n1.2), 30.006(XREF 1n1.4)
    DIV .01(XREF 4S), .01(XREF 4n1.3), .01(XREF 4n1.4), .01(XREF 5n1.1), .01(XREF 5n1.4), .01(XREF 6S), .01(XREF 6n1.4), 30.003(XREF 2S), 30.003(XREF 2n1.1), 30.003(XREF 2n1.2)
    30.003(XREF 2n1.3), 30.003(XREF 2n1.4), 30.003(XREF 2K), 30.003(XREF 2n2.3), 30.003(XREF 2n2.4), 30.006(XREF 1S), 30.006(XREF 1n1.1), 30.006(XREF 1n1.4), .01(XREF 4S), .01(XREF 4n1.3)
    .01(XREF 4n1.4), .01(XREF 5n1.1), .01(XREF 5n1.4), .01(XREF 6S), .01(XREF 6n1.4), 30.003(XREF 2S), 30.003(XREF 2n1.1), 30.003(XREF 2n1.2), 30.003(XREF 2n1.3), 30.003(XREF 2n1.4)
    30.003(XREF 2K), 30.003(XREF 2n2.3), 30.003(XREF 2n2.4), 30.006(XREF 1S), 30.006(XREF 1n1.1), 30.006(XREF 1n1.4)
    DIV(0 .01(XREF 4S), .01(XREF 4n1.3), .01(XREF 4n1.4), .01(XREF 4n89.2), .01(XREF 5n1.4), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 6n89.2), 30.003(XREF 2S), 30.003(XREF 2n1.2)
    30.003(XREF 2n1.3), 30.003(XREF 2n1.4), 30.003(XREF 2K), 30.003(XREF 2n2.3), 30.003(XREF 2n2.4), 30.003(XREF 2n89.2), 30.006(XREF 1S), 30.006(XREF 1n1.2), 30.006(XREF 1n1.4), .01(XREF 4S)
    .01(XREF 4n1.3), .01(XREF 4n1.4), .01(XREF 4n89.2), .01(XREF 5n1.4), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 6n89.2), 30.003(XREF 2S), 30.003(XREF 2n1.2), 30.003(XREF 2n1.3)
    30.003(XREF 2n1.4), 30.003(XREF 2K), 30.003(XREF 2n2.3), 30.003(XREF 2n2.4), 30.003(XREF 2n89.2), 30.006(XREF 1S), 30.006(XREF 1n1.2), 30.006(XREF 1n1.4)
    DLAYGO .01(XREF 4n89.3), .01(XREF 4n89.3)
    DO .01(XREF 4n89.3), .01(XREF 6n89.2), .01(XREF 4n89.3), .01(XREF 6n89.2)
    DT 2+1, 2+1
    >> I(0 30.003(XREF 2S), 30.003(XREF 2n1.2), 30.003(XREF 2n1.3), 30.003(XREF 2K), 30.003(XREF 2n69.2), 30.003(XREF 2n89.2), 30.006(XREF 1n1.2), 30.003(XREF 2S), 30.003(XREF 2n1.2), 30.003(XREF 2n1.3)
    30.003(XREF 2K), 30.003(XREF 2n69.2), 30.003(XREF 2n89.2), 30.006(XREF 1n1.2)
    U .01(XREF 2S), .01(XREF 2K), .01(XREF 4S), .01(XREF 4n1.3), .01(XREF 4n1.4), .01(XREF 5n1.4), .01(XREF 6n1.4), .117(HELP ), 30.003+1, 30.003(XREF 2n1.2)
    30.003(XREF 2n1.4), 30.003(XREF 2K), 30.003(XREF 2n2.3), 30.003(XREF 2n2.4), 30.003(XREF 2n69.2), 30.006(XREF 1n1.2), 30.006(XREF 1n1.4), 30.006(XREF 2S), 30.006(XREF 2K), 30.099+1
    .01(XREF 2S), .01(XREF 2K), .01(XREF 4S), .01(XREF 4n1.3), .01(XREF 4n1.4), .01(XREF 5n1.4), .01(XREF 6n1.4), .117(HELP ), 30.003+1, 30.003(XREF 2n1.2)
    30.003(XREF 2n1.4), 30.003(XREF 2K), 30.003(XREF 2n2.3), 30.003(XREF 2n2.4), 30.003(XREF 2n69.2), 30.006(XREF 1n1.2), 30.006(XREF 1n1.4), 30.006(XREF 2S), 30.006(XREF 2K), 30.099+1
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4n1.3), .01(XREF 5S)
    .01(XREF 5n1.1), .01(XREF 5n1.4), .01(XREF 6S), .111+1!, .111(XREF 1S), .112+1!, .112(XREF 1S), .113+1!, .113(XREF 1S), .114+1!
    .114(XREF 1S), .115(XREF 1S), .116+1!, .116(XREF 1S), .117+1!*, .117(HELP ), .1211+1!, .1211(XREF 1S), .1212+1!, .1212(XREF 1S)
    , .1213+1!, .1213(XREF 1S), .1214+1!, .1214(XREF 1S), .1215(XREF 1S), .1216+1!, .1216(XREF 1S), .1217+1*!, .1217(XREF 1S), .1218+1*!
    .1218(XREF 1S), .131+1!, .131(XREF 1S), .132+1!, .132(XREF 1S), .133+1!, .133(XREF 1S), .134+1!, .134(XREF 1S), 1(XREF 1S)
    , 2+1*!, 2(XREF 1S), 6+1!, 8+1!, 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2K), 8(XREF 3S), 8(XREF 3K)
    , 20.1+1!, 20.1(XREF 1S), 20.1(XREF 1K), 20.1(XREF 2S), 20.1(XREF 2K), 20.2+1!, 20.2(XREF 1S), 20.3+1!, 20.3(XREF 1S), 20.4+1!
    20.4(XREF 1S), 30.003+1*!, 30.003(XREF 2S), 30.003(XREF 2n1.1), 30.003(XREF 2n1.2), 30.003(XREF 2n1.3), 30.003(XREF 2n1.4), 30.003(XREF 2K), 30.003(XREF 2n2.3), 30.003(XREF 2n2.4)
    30.003(XREF 2n69.2), 30.003(XREF 2n89.2), 30.006(XREF 1S), 30.006(XREF 1n1.1), 30.006(XREF 1n1.2), 30.006(XREF 1n1.4), 30.099+1!, 31+1!, .01+1!, .01(XREF 1S)
    .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4n1.3), .01(XREF 5S), .01(XREF 5n1.1), .01(XREF 5n1.4)
    .01(XREF 6S), .111+1!, .111(XREF 1S), .112+1!, .112(XREF 1S), .113+1!, .113(XREF 1S), .114+1!, .114(XREF 1S), .115(XREF 1S)
    , .116+1!, .116(XREF 1S), .117+1!*, .117(HELP ), .1211+1!, .1211(XREF 1S), .1212+1!, .1212(XREF 1S), .1213+1!, .1213(XREF 1S)
    , .1214+1!, .1214(XREF 1S), .1215(XREF 1S), .1216+1!, .1216(XREF 1S), .1217+1*!, .1217(XREF 1S), .1218+1*!, .1218(XREF 1S), .131+1!
    .131(XREF 1S), .132+1!, .132(XREF 1S), .133+1!, .133(XREF 1S), .134+1!, .134(XREF 1S), 1(XREF 1S), 2+1*!, 2(XREF 1S)
    , 6+1!, 8+1!, 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2K), 8(XREF 3S), 8(XREF 3K), 20.1+1!, 20.1(XREF 1S)
    20.1(XREF 1K), 20.1(XREF 2S), 20.1(XREF 2K), 20.2+1!, 20.2(XREF 1S), 20.3+1!, 20.3(XREF 1S), 20.4+1!, 20.4(XREF 1S), 30.003+1*!
    30.003(XREF 2S), 30.003(XREF 2n1.1), 30.003(XREF 2n1.2), 30.003(XREF 2n1.3), 30.003(XREF 2n1.4), 30.003(XREF 2K), 30.003(XREF 2n2.3), 30.003(XREF 2n2.4), 30.003(XREF 2n69.2), 30.003(XREF 2n89.2)
    30.006(XREF 1S), 30.006(XREF 1n1.1), 30.006(XREF 1n1.2), 30.006(XREF 1n1.4), 30.099+1!, 31+1!
    >> X1 .111(XREF 1S), .111(XREF 1K), .112(XREF 1S), .112(XREF 1K), .113(XREF 1S), .113(XREF 1K), .114(XREF 1S), .114(XREF 1K), .115(XREF 1S), .115(XREF 1K)
    .116(XREF 1S), .116(XREF 1K), .1211(XREF 1S), .1211(XREF 1K), .1212(XREF 1S), .1212(XREF 1K), .1213(XREF 1S), .1213(XREF 1K), .1214(XREF 1S), .1214(XREF 1K)
    .1215(XREF 1S), .1215(XREF 1K), .1216(XREF 1S), .1216(XREF 1K), .1217(XREF 1S), .1217(XREF 1K), .1218(XREF 1S), .1218(XREF 1K), .131(XREF 1S), .131(XREF 1K)
    .132(XREF 1S), .132(XREF 1K), .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K)
    8(XREF 3S), 8(XREF 3K), 20.1(XREF 1S), 20.1(XREF 1K), 20.1(XREF 2S), 20.1(XREF 2K), 20.2(XREF 1S), 20.2(XREF 1K), 20.3(XREF 1S), 20.3(XREF 1K)
    20.4(XREF 1S), 20.4(XREF 1K), .111(XREF 1S), .111(XREF 1K), .112(XREF 1S), .112(XREF 1K), .113(XREF 1S), .113(XREF 1K), .114(XREF 1S), .114(XREF 1K)
    .115(XREF 1S), .115(XREF 1K), .116(XREF 1S), .116(XREF 1K), .1211(XREF 1S), .1211(XREF 1K), .1212(XREF 1S), .1212(XREF 1K), .1213(XREF 1S), .1213(XREF 1K)
    .1214(XREF 1S), .1214(XREF 1K), .1215(XREF 1S), .1215(XREF 1K), .1216(XREF 1S), .1216(XREF 1K), .1217(XREF 1S), .1217(XREF 1K), .1218(XREF 1S), .1218(XREF 1K)
    .131(XREF 1S), .131(XREF 1K), .132(XREF 1S), .132(XREF 1K), .133(XREF 1S), .133(XREF 1K), .134(XREF 1S), .134(XREF 1K), 1(XREF 1S), 1(XREF 1K)
    2(XREF 1S), 2(XREF 1K), 8(XREF 3S), 8(XREF 3K), 20.1(XREF 1S), 20.1(XREF 1K), 20.1(XREF 2S), 20.1(XREF 2K), 20.2(XREF 1S), 20.2(XREF 1K)
    20.3(XREF 1S), 20.3(XREF 1K), 20.4(XREF 1S), 20.4(XREF 1K)
    XU16 .01(XREF 4n89.3), .01(XREF 6S), .01(XREF 4n89.3), .01(XREF 6S)
    >> XU200 .01(XREF 4n89.3), .01(XREF 4n89.3)
    >> XU3 .01(XREF 4n89.3), .01(XREF 4n89.3)
    Y .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4n89.2), .01(XREF 4n89.3), .01(XREF 5n1.1), .01(XREF 6S), .117+1, .117OT+1*, .1217+1
    , .1218+1, 2+1, 20.4OT+1*, 30.003(XREF 2S), 30.003(XREF 2n1.2), 30.003(XREF 2n1.3), 30.003(XREF 2K), 30.006(XREF 1n1.2), .01(XREF 3S), .01(XREF 3K)
    .01(XREF 4S), .01(XREF 4n89.2), .01(XREF 4n89.3), .01(XREF 5n1.1), .01(XREF 6S), .117+1, .117OT+1*, .1217+1, .1218+1, 2+1
    , 20.4OT+1*, 30.003(XREF 2S), 30.003(XREF 2n1.2), 30.003(XREF 2n1.3), 30.003(XREF 2K), 30.006(XREF 1n1.2)
    Y(0 .01(XREF 4n1.3), .117OT+1*, 20.4OT+1*, 30.003(XREF 2S), 30.003(XREF 2n1.3), 30.003(XREF 2n2.3), 30.003(XREF 2n69.2), .01(XREF 4n1.3), .117OT+1*, 20.4OT+1*
    30.003(XREF 2S), 30.003(XREF 2n1.3), 30.003(XREF 2n2.3), 30.003(XREF 2n69.2)
    Y(1 .01(XREF 4n1.3), .01(XREF 5n1.1), 30.003(XREF 2S), 30.003(XREF 2n1.3), 30.003(XREF 2n2.3), 30.003(XREF 2n69.2), .01(XREF 4n1.3), .01(XREF 5n1.1), 30.003(XREF 2S), 30.003(XREF 2n1.3)
    30.003(XREF 2n2.3), 30.003(XREF 2n69.2)
    Y(101 30.003(XREF 2n1.2), 30.003(XREF 2K), 30.003(XREF 2n69.2), 30.006(XREF 1n1.2), 30.003(XREF 2n1.2), 30.003(XREF 2K), 30.003(XREF 2n69.2), 30.006(XREF 1n1.2)
    Y(2 .01(XREF 5n1.1), .01(XREF 5n1.1)
    Y(3 .01(XREF 5n1.1), .01(XREF 5n1.1)
    Y(4 .01(XREF 5n1.1), .01(XREF 5n1.1)
    Y(5 .01(XREF 5n1.1), .01(XREF 5n1.1)
    Z0 .117+1*!, .117OT+1*, .117(HELP ), .117+1*!, .117OT+1*, .117(HELP )
    ZD .117(HELP ), .117(HELP )
    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