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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^DIC(36

Package: Integrated Billing

Global: ^DIC(36


Information

FileMan FileNo FileMan Filename Package
36 INSURANCE COMPANY Integrated Billing

Description

Directly Accessed By Routines, Total: 97

Package Total Routines
Integrated Billing 68 IB20PT1    IB20PT81    IB20PT87    IB20PT88    IB20PT8A    IB20PT8B    IBCBB1    IBCD4
IBCF1    IBCF10    IBCF21    IBCF3    IBCF31    IBCFP    IBCNADD    IBCNS
IBCNS1    IBCNS2    IBCNSA    IBCNSBL1    IBCNSC    IBCNSC0    IBCNSC01    IBCNSC1
IBCNSC2    IBCNSC3    IBCNSM    IBCNSM1    IBCNSM3    IBCNSM5    IBCNSM6    IBCNSOK
IBCNSP    IBCNSP0    IBCONS1    IBCORC1    IBCSC3    IBCSCE    IBCU3    IBCU41
IBCU5    IBCU61    IBERS2    IBOBL    IBOTR2    IBOTR3    IBOUNP3    IBTOBI1
IBTOBI2    IBTUTL3    ^DIC(36    ^IBA(355.7    IBCNSP2    IBCNSU    IBOLK1    IBOUNP6
IBRBUL    IBTRCD0    ^DGCR(399    IBCORC2    IBTOAT1    IBTRC    IBTRC3    IBTRC4
IBTRD    ^IBT(356.2    IBTRC2    SYNONYM    
Registration 8 DG3PR0    DGCRNS    DGINS    DGREG0    DGRPTL3    DGVPTIB3    DGVPTIB6    VAFHLIN1
Automated Information Collection System 1 IBDFN6    
IHS VA Support Files 1 SYNONYM    
Kernel 1 XUSNPIXU    
Order Entry Results Reporting 1 ORDV07    

Accessed By FileMan Db Calls, Total: 7

Package Total Routines
Integrated Billing 4 IBCNSC    IBCNSC1    IBCNSC3    IBCOC    
Registration 2 DGINS    DGVPTIB4    
Health Summary 1 GMTSDEM2    

Pointed To By FileMan Files, Total: 6

Package Total FileMan Files
Integrated Billing 5 BILL/CLAIMS(#399)[101102103]
INSURANCE COMPANY(#36)[.127.139.147.157.16.167.187]
GROUP INSURANCE PLAN(#355.3)[.01]    IB SITE PARAMETERS(#350.9)[4.024.06]    INSURANCE REVIEW(#356.2)[.08]    
Registration 1 VA PATIENT(#2)[#2.101(25)#2.312(.01)]    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Integrated Billing 4 REVENUE CODE(#399.2)[.09.15]    INSURANCE COMPANY(#36)[.127.139.147.157.16.167.187]
BILL FORM TYPE(#353)[.14]    TYPE OF INSURANCE COVERAGE(#355.2)[.13]    
Kernel 1 STATE(#5)[.115.125.145.155.165.185]    

Fields, Total: 81

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

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
  • LAST EDITED:  FEB 26, 1993
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  Enter the name of the insurance carrier which at least one patient seen at your facility has. This information must be updated using the 'Insurance Company Entry/Edit' option, NOT using VA FileMan. Editing of this data
    through a filemanager option could cause negative impacts on the MAS and IB software modules in addition to other DHCP modules.
  • DELETE TEST:  .01,0)= I 1
    1,0)= I '$D(^XUSEC("IB INSURANCE SUPERVISOR",DUZ))!($O(^IBA(355.3,"B",DA,0))) W !!,"Deletion not allowed"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  36^B
    1)= S ^DIC(36,"B",$E(X,1,30),DA)=""
    2)= K ^DIC(36,"B",$E(X,1,30),DA)
.05 INACTIVE 0;5 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAR 12, 1993
  • HELP-PROMPT:  ENTER 'YES' IF THIS COMPANY IS INACTIVE AND SHOULD NO LONGER BE ALLOWED FOR SELECTION.
  • DESCRIPTION:  
    If this insurance company is no longer active in your area, enter INACTIVE here.  This will disallow users from selecting this insurance company entry.
  • DELETE TEST:  1,0)= I $D(DGINS)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.06 ALLOW MULTIPLE BEDSECTIONS 0;6 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 15, 1990
  • HELP-PROMPT:  Enter whether or not this Insurance Company will accept multiple bedsections on a claim form. If left blank a NO is assumed.
  • DESCRIPTION:  This field determines whether this insurance company will accept multiple bedsections on one claim form. If answered 'YES' then selection of the PRIMARY INSURANCE CARRIER in MCCR will trigger revenue codes for all
    bedsections within the STATEMENT COVERS FROM and STATEMENT COVERS TO dates.  If this is answered 'NO' or left blank then only the first bedsection in the date range will be used.
.07 DIFFERENT REVENUE CODES TO USE 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X I $D(X) X "F DGII=1:4:$L(X) S DGINX=$E(X,DGII,DGII+3) I $S(DGINX?3N:0,DGINX?3N1"","":0,1:1) K X Q" K DGII,DGINX
  • LAST EDITED:  JUL 03, 1990
  • HELP-PROMPT:  Answer must be 3-40 characters in length. Enter the 3 digit revenue codes separated by commas to set up for bills with this insurance company. Answer must be 3 numerics separated by commas.
  • DESCRIPTION:  If this field contains revenue codes that have matching entries in the Billing Rates file for the bedsection being billed. The revenue codes listed in this field, separated by commas, will be automatically set up for this
    insurance company rather than the standard revenue codes that are Standard Rates set up in the Billing Rates file.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.08 ONE OPT. VISIT ON BILL ONLY 0;8 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 15, 1990
  • HELP-PROMPT:  Enter whether or not claom form's to this Insurance Company should allow only 1 outpatient visit per bill.
  • DESCRIPTION:  If this field is answered 'YES' then only one outpatient visit will be allowed per claim form for this Insurance Company. If it is unanswered or answered 'NO' then multiple (up to 10) outpatient bills will be allowed per
    claim form.
.09 AMBULATORY SURG. REV. CODE 0;9 POINTER TO REVENUE CODE FILE (#399.2) REVENUE CODE(#399.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 20, 1991
  • HELP-PROMPT:  Enter the default revenue code for ambulatory surgical codes. This will automatically be used when creating a bill.
  • DESCRIPTION:  
    This is the Revenue Code that will automatically be generated for this insurance company if a billable Ambulatory Surgical Code is listed as a procedure in this this bill.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)"
  • EXPLANATION:  Only Activated Revenue Codes can be selected!
.1 ATTENDING PHYSICIAN ID. 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>22!($L(X)<3) X
  • LAST EDITED:  OCT 28, 1992
  • HELP-PROMPT:  Answer must be 3-22 characters in length.
  • DESCRIPTION:  Enter in this field the Attending Physician ID (UPIN) number. Currently several insurance companies require a UPIN of VAD000. If the entry for this insurance company is completed, this field will print on the UB-82 in
    form locator 92 and in form locator 82 of the UB-92 for all bills where this insurance company is the primary insurer.
.11 HOSPITAL PROVIDER NUMBER 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  AUG 26, 1993
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    An identifier assigned to the facility by the insurance company.  Will be printed in form locator 51 of the UB-92 of bills for this insurance company.
  • TECHNICAL DESCR:  
    Printed in form locator 51 of the UB-92 if the insurance company is the primary insurance company.
.111 STREET ADDRESS [LINE 1] .11;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
  • LAST EDITED:  APR 02, 1993
  • HELP-PROMPT:  Enter the first line of this company's street address with 3-35 characters.
  • DESCRIPTION:  
    Enter the first line of the mailing address for this insurance carrier.
  • DELETE TEST:  1,0)= I $D(DGINS)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^36^.112
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.11)):^(.11),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(36,.111,1,1,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.11)):^(.11),1:""),DIV=X S $P(^(.11),U,2)=DIV,DIH=36,DIG=.112 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.11)):^(.11),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(36,.111,1,1,2.4)
    2.4)= S DIH=$S($D(^DIC(36,DIV(0),.11)):^(.11),1:""),DIV=X S $P(^(.11),U,2)=DIV,DIH=36,DIG=.112 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= STREET ADDRESS [LINE 2]
    When changing or deleting STREET ADDRESS [LINE 1] delete STREET ADDRESS [LINE 2].
  • CROSS-REFERENCE:  ^^TRIGGER^36^.113
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.11)):^(.11),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.111,1,2,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.11)):^(.11),1:""),DIV=X S $P(^(.11),U,3)=DIV,DIH=36,DIG=.113 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.11)):^(.11),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.111,1,2,2.4)
    2.4)= S DIH=$S($D(^DIC(36,DIV(0),.11)):^(.11),1:""),DIV=X S $P(^(.11),U,3)=DIV,DIH=36,DIG=.113 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= STREET ADDRESS [LINE 3]
    When changing or deleting STREET ADDRESS [LINE 1] delete STREET ADDRESS [LINE 3].
.112 STREET ADDRESS [LINE 2] .11;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1993
  • HELP-PROMPT:  Enter the second line of this company's street address with 3-30 characters if the space provided in 'STREET ADDRESS' was not sufficient.
  • DESCRIPTION:  
    If this insurance company's street address is longer than one line, enter the second line here.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the STREET ADDRESS [LINE 1] field of the INSURANCE COMPANY File
  • CROSS-REFERENCE:  ^^TRIGGER^36^.113
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.11)):^(.11),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.112,1,1,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.11)):^(.11),1:""),DIV=X S $P(^(.11),U,3)=DIV,DIH=36,DIG=.113 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.11)):^(.11),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.112,1,1,2.4)
    2.4)= S DIH=$S($D(^DIC(36,DIV(0),.11)):^(.11),1:""),DIV=X S $P(^(.11),U,3)=DIV,DIH=36,DIG=.113 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= STREET ADDRESS [LINE 3]
    When changing or deleting STREET ADDRESS [LINE 2] delete STREET ADDRESS [LINE 3].
.113 STREET ADDRESS [LINE 3] .11;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  FEB 26, 1993
  • HELP-PROMPT:  Enter the third line of this company's street address with 3-30 characters if the space provided in 'STREET ADDRESS' and 'STREET ADDRESS 2' was not sufficient.
  • DESCRIPTION:  
    If this insurance company's street address is longer than two lines, enter the third line here.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the STREET ADDRESS [LINE 2] field of the INSURANCE COMPANY File
    TRIGGERED by the STREET ADDRESS [LINE 1] field of the INSURANCE COMPANY File
.114 CITY .11;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<2) X
  • LAST EDITED:  FEB 26, 1993
  • HELP-PROMPT:  Enter the city in which this company is located with 2-25 characters. If the space provided is not sufficient, abbreviate the city to the best of your ability.
  • DESCRIPTION:  
    Enter the city of the mailing address for this insurance carrier.
  • DELETE TEST:  1,0)= I $D(DGINS)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.115 STATE .11;5 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  MAR 12, 1993
  • DESCRIPTION:  
    Enter the state of the mailing address for this insurance carrier.
  • DELETE TEST:  1,0)= I $D(DGINS)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.116 ZIP CODE .11;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  FEB 26, 1993
  • HELP-PROMPT:  Answer with either 5 digit or 9 digit zip code.
  • DESCRIPTION:  Enter the zip code of the mailing address for this insurance carrier. Answer with either the 5 digit zip code (format 12345) or with the 9 digit zip code (in format 123456789 or 12345-6789).
  • DELETE TEST:  1,0)= I $D(DGINS)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.117 BILLING COMPANY NAME .11;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUL 15, 1993
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the name of the insurance carrier's billing company.
.119 FAX NUMBER .11;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<7) X
  • LAST EDITED:  NOV 23, 1993
  • HELP-PROMPT:  Enter the fax number of the company with 7 - 20 characters, ex. 415-444-6555.
  • DESCRIPTION:  
    Enter the fax number of this insurance carrier.
.12 FILING TIME FRAME 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  FEB 01, 1994
  • HELP-PROMPT:  Enter maximum amount of time from date of service that the insurance company allows for submitting claims. Answer must be 3-30 characters in length.
  • DESCRIPTION:  Enter the maximum amount of time from the date of service that the insurance company allows for submitting claims. Examples: 60 days, 90 days, 6 months, 1 year, 18 months; March 30 following year of service, June 1
    following year of service.
.121 CLAIMS (INPT) STREET ADDRESS 1 .12;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUL 15, 1993
  • HELP-PROMPT:  If the inpatient claims process address of this company is different from its main address, enter Line 1 of the inpatient claims street address. Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the first line of the street address for the inpatient claims office of this insurance carrier.
  • CROSS-REFERENCE:  ^^TRIGGER^36^.122
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.12)):^(.12),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(36,.121,1,1,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.12)):^(.12),1:""),DIV=X S $P(^(.12),U,2)=DIV,DIH=36,DIG=.122 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.12)):^(.12),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(36,.121,1,1,2.4)
    2.4)= S DIH=$S($D(^DIC(36,DIV(0),.12)):^(.12),1:""),DIV=X S $P(^(.12),U,2)=DIV,DIH=36,DIG=.122 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= CLAIMS STREET ADDRESS [LINE 2]
    When changing or deleting CLAIMS (INPT) STREET ADDRESS 1 delete CLAIMS (INPT) STREET ADDRESS 2.
  • CROSS-REFERENCE:  ^^TRIGGER^36^.123
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.12)):^(.12),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.121,1,2,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.12)):^(.12),1:""),DIV=X S $P(^(.12),U,3)=DIV,DIH=36,DIG=.123 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.12)):^(.12),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.121,1,2,2.4)
    2.4)= S DIH=$S($D(^DIC(36,DIV(0),.12)):^(.12),1:""),DIV=X S $P(^(.12),U,3)=DIV,DIH=36,DIG=.123 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= CLAIMS STREET ADDRESS [LINE 3]
    When changing or deleting CLAIMS (INPT) STREET ADDRESS 1 delete CLAIMS (INPT) STREET ADDRESS 3.
.122 CLAIMS (INPT) STREET ADDRESS 2 .12;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUL 15, 1993
  • HELP-PROMPT:  If the inpatient claims process address of this company is different from its main address, enter Line 2 of the inpatient claims street address. Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    If this insurance company's inpatient claims office street address is longer than one line, enter the second line here.
  • NOTES:  TRIGGERED by the CLAIMS (INPT) STREET ADDRESS 1 field of the INSURANCE COMPANY File
  • CROSS-REFERENCE:  ^^TRIGGER^36^.123
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.12)):^(.12),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.122,1,1,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.12)):^(.12),1:""),DIV=X S $P(^(.12),U,3)=DIV,DIH=36,DIG=.123 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.12)):^(.12),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.122,1,1,2.4)
    2.4)= S DIH=$S($D(^DIC(36,DIV(0),.12)):^(.12),1:""),DIV=X S $P(^(.12),U,3)=DIV,DIH=36,DIG=.123 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= CLAIMS STREET ADDRESS [LINE 3]
    When changing or deleting CLAIMS (OPT) STREET ADDRESS 2 delete CLAIMS (OPT) STREET ADDRESS 3.
.123 CLAIMS (INPT) STREET ADDRESS 3 .12;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUL 15, 1993
  • HELP-PROMPT:  If the inpatient claims process address of this company is different from its main address, enter Line 3 of the inpatient claims street address. Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    If this insurance company's inpatient claims office street address is longer than two lines, enter the third line here.
  • NOTES:  TRIGGERED by the CLAIMS (INPT) STREET ADDRESS 1 field of the INSURANCE COMPANY File
    TRIGGERED by the CLAIMS (INPT) STREET ADDRESS 2 field of the INSURANCE COMPANY File
.124 CLAIMS (INPT) PROCESS CITY .12;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<2) X
  • LAST EDITED:  JUL 15, 1993
  • HELP-PROMPT:  If the inpatient claims process address of this company is different from its main address, enter city of the inpatient claims process address. Answer must be 2-25 characters in length.
  • DESCRIPTION:  
    Enter the city in which this insurance company's inpatient claims office is located.
.125 CLAIMS (INPT) PROCESS STATE .12;5 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  OCT 07, 1993
  • HELP-PROMPT:  If the inpatient claims process address of this company is different from its main address, enter state of the inpatient claims process address.
  • DESCRIPTION:  
    Enter the state in which this insurance company's inpatient claims office is located.  Enter state even if it is the same as the state of the company's main address.
.126 CLAIMS (INPT) PROCESS ZIP .12;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  JUL 15, 1993
  • HELP-PROMPT:  If the inpatient claims process address of this company is different from its main address, enter zip code of the inpatient claims process address. Answer with either 5 digit or 9 digit zip code.
  • DESCRIPTION:  
    Answer with either the 5 digit zip code (format 12345) or with the 9 digit zip code (in format 123456789 or 12345-6789).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.127 CLAIMS (INPT) COMPANY NAME .12;7 POINTER TO INSURANCE COMPANY FILE (#36) INSURANCE COMPANY(#36)

  • INPUT TRANSFORM:  S DIC(0)=DIC(0)_"F",DIC("S")="I '$P(^(0),U,5),'$P($G(^(.12)),U,7),(Y'=DA)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 05, 1993
  • DESCRIPTION:  You can only select a company that processes claims. The company specified in this field must be an active insurance company, not the same company as the entry being edited, and must not have another company specified as
    handling Inpatient Claims for it.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,5),'$P($G(^(.12)),U,7),(Y'=DA)"
  • EXPLANATION:  Select a company that processes inpatient claims for this company. Must be active, not this company, and process its own inpatient claims.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ANOTHER CO. PROCESS CLAIMS? field of the INSURANCE COMPANY File
.128 ANOTHER CO. PROCESS CLAIMS? .12;8 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  OCT 07, 1993
  • DESCRIPTION:  
    Enter "Yes" if another insurance company processes Inpatient Claims.
  • CROSS-REFERENCE:  ^^TRIGGER^36^.127
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$P($G(^DIC(36,DA,.12)),"^",8) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,.12)):^(.12),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(36,.128,1,1,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.12)):^(.12),1:""),DIV=X S $P(^(.12),U,7)=DIV,DIH=36,DIG=.127 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= S X='$P($G(^DIC(36,DA,.12)),"^",8)
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.127
    Enter "Yes" if another insurance company processes Inpatient Claims.
.129 CLAIMS (INPT) FAX .12;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<7) X
  • LAST EDITED:  NOV 22, 1993
  • HELP-PROMPT:  Enter the fax number of the inpatient claims office with 7-20 characters, e.g. 444-8888, 614-333-9999.
  • DESCRIPTION:  
    Enter the fax number of this insurance carrier's inpatient claims office.
.13 TYPE OF COVERAGE 0;13 POINTER TO TYPE OF INSURANCE COVERAGE FILE (#355.2) TYPE OF INSURANCE COVERAGE(#355.2)

  • LAST EDITED:  JUN 03, 1993
  • DESCRIPTION:  If this insurance carrier provides only one type of coverage then select the entry that best describes this carriers type of coverage. If this carrier provides more than one type of coverage then select HEALTH INSURANCE.
    The default answer if left unanswered is Health Insurance.
    This is useful information when contacting carriers, when creating claims for reimbursement and when estimating if the payment received is appropriate.
    If this field is answered it may affect choices that can be selected when entering policy or benefit information.
.131 PHONE NUMBER .13;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<7) X
  • LAST EDITED:  FEB 26, 1993
  • HELP-PROMPT:  Enter the telephone number of the company with 7 - 20 characters, ex. 777-8888, 415 111 2222 x123.
  • DESCRIPTION:  
    Enter the phone number at which this insurance carrier can be reached.
  • DELETE TEST:  1,0)= I $D(DGINS)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.1311 CLAIMS (RX) PHONE NUMBER .13;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<7) X
  • LAST EDITED:  JAN 04, 1994
  • HELP-PROMPT:  Enter the telephone number of the prescription claims office with 7 - 20 characters, ex. 777-8888, 415 111 2222x123.
  • DESCRIPTION:  
    Enter the phone number at which the prescription claims office of this insurance carrier can be reached.
.132 BILLING PHONE NUMBER .13;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<7) X
  • LAST EDITED:  MAY 04, 1990
  • HELP-PROMPT:  Enter the telephone number of the billing office for this company. Answer must be 7-20 characters in length.
  • DESCRIPTION:  
    Enter the phone number of the insurance carrier where inquiries about patient billing should be made.
.133 PRECERTIFICATION PHONE NUMBER .13;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<7) X
  • LAST EDITED:  MAY 04, 1990
  • HELP-PROMPT:  Enter the phone number for getting Precertification of insurance if this company requires it. Answer must be 7-20 characters in length.
  • DESCRIPTION:  
    If precertification is required prior to a patient being treated, enter the number of the insurance carrier to which this request can be made.
.134 VERIFICATION PHONE NUMBER .13;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<7) X
  • LAST EDITED:  MAR 29, 1993
  • HELP-PROMPT:  Enter the phone number for getting verification of insurance. Answer must be 7-20 characters in length.
  • DESCRIPTION:  
    Enter the phone number of the insurance carrier to which a Verification request can be made.
.135 CLAIMS (INPT) PHONE NUMBER .13;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<7) X
  • LAST EDITED:  JUL 15, 1993
  • HELP-PROMPT:  Enter the telephone number of the inpatient claims office with 7-20 characters, e.g. 777-8888, 415 111 2222 x123.
  • DESCRIPTION:  
    Enter the telephone number at which this insurance carrier's inpatient claims office can be reached.
.136 CLAIMS (OPT) PHONE NUMBER .13;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<7) X
  • LAST EDITED:  JUL 15, 1993
  • HELP-PROMPT:  Enter the telephone number of the outpatient claims office with 7 - 20 characters, ex. 777-8888, 415 111 2222 x123.
  • DESCRIPTION:  
    Enter the phone number at which the outpatient claims office of this insurance carrier can be reached.
.137 APPEALS PHONE NUMBER .13;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<7) X
  • LAST EDITED:  JUL 15, 1993
  • HELP-PROMPT:  Enter the telephone number of the appeals office with 7 - 20 characters, ex. 777-8888, 415 111 2222 x123.
  • DESCRIPTION:  
    Enter the telephone number at which the appeals office of this insurance carrier can be reached.
.138 INQUIRY PHONE NUMBER .13;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<7) X
  • LAST EDITED:  JUL 15, 1993
  • HELP-PROMPT:  Enter the telephone number of the inquiry office with 7 - 20 characters, ex. 777-8888, 415 111 222 x123.
  • DESCRIPTION:  
    Enter the telephone number at which the inquiry office of this insurance carrier can be reached.
.139 PRECERT COMPANY NAME .13;9 POINTER TO INSURANCE COMPANY FILE (#36) INSURANCE COMPANY(#36)

  • INPUT TRANSFORM:  S DIC(0)=DIC(0)_"F",DIC("S")="I '$P(^(0),U,5),'$P($G(^(.13)),U,9),(Y'=DA)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 06, 1993
  • DESCRIPTION:  
    You can only select a company that processes Precerts.  The company specified in this field must be an active insurance company, not the same company specified as handling Precerts for it.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,5),'$P($G(^(.13)),U,9),(Y'=DA)"
  • EXPLANATION:  Select a company that processes precerts for this company. Must be active, not this company, and process its own precerts.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ANOTHER CO. PROCESS PRECERTS? field of the INSURANCE COMPANY File
.14 FORM TYPE 0;14 POINTER TO BILL FORM TYPE FILE (#353) BILL FORM TYPE(#353)

  • LAST EDITED:  AUG 26, 1993
  • HELP-PROMPT:  Enter the primary Form Type desired by this Insurance Company.
  • DESCRIPTION:  This is the primary form type for the insurance company. An entry is needed only if the primary form type for this insurance company is different than the Default Form Type site parameter.
    Used for the conversion from the UB-82 to the UB-92.  If this is set to either of those form types then all UB bills for this insurance company will be printed on that form.
  • TECHNICAL DESCR:  
    Set up initially because companies are converting to the UB-92 at different times and once they do they will no longer accept the UB-82.
.141 APPEALS ADDRESS ST. [LINE 1] .14;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1993
  • HELP-PROMPT:  If the appeals address of this company is different from its main address, enter Line 1 of the appeals street address. Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the first line of the street address of the appeals office of this insurance carrier.
  • CROSS-REFERENCE:  ^^TRIGGER^36^.142
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.14)):^(.14),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(36,.141,1,1,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.14)):^(.14),1:""),DIV=X S $P(^(.14),U,2)=DIV,DIH=36,DIG=.142 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.14)):^(.14),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(36,.141,1,1,2.4)
    2.4)= S DIH=$S($D(^DIC(36,DIV(0),.14)):^(.14),1:""),DIV=X S $P(^(.14),U,2)=DIV,DIH=36,DIG=.142 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= APPEALS ADDRESS ST. [LINE 2]
    When changing or deleting APPEALS ADDRESS ST. [LINE 1] delete APPEALS ADDRESS ST. [LINE 2].
  • CROSS-REFERENCE:  ^^TRIGGER^36^.143
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.14)):^(.14),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.141,1,2,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.14)):^(.14),1:""),DIV=X S $P(^(.14),U,3)=DIV,DIH=36,DIG=.143 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.14)):^(.14),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.141,1,2,2.4)
    2.4)= S DIH=$S($D(^DIC(36,DIV(0),.14)):^(.14),1:""),DIV=X S $P(^(.14),U,3)=DIV,DIH=36,DIG=.143 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= APPEALS ADDRESS ST. [LINE 3]
    When changing or deleting APPEALS ADDRESS ST. [LINE 1] delete APPEALS ADDRESS ST. [LINE 3].
.142 APPEALS ADDRESS ST. [LINE 2] .14;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1993
  • HELP-PROMPT:  If the appeals address of this company is different from its main address, enter Line 2 of the appeals street address. Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    If this insurance company's appeals office address is longer than one line, enter the second line here.
  • NOTES:  TRIGGERED by the APPEALS ADDRESS ST. [LINE 1] field of the INSURANCE COMPANY File
  • CROSS-REFERENCE:  ^^TRIGGER^36^.143
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.14)):^(.14),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.142,1,1,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.14)):^(.14),1:""),DIV=X S $P(^(.14),U,3)=DIV,DIH=36,DIG=.143 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.14)):^(.14),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.142,1,1,2.4)
    2.4)= S DIH=$S($D(^DIC(36,DIV(0),.14)):^(.14),1:""),DIV=X S $P(^(.14),U,3)=DIV,DIH=36,DIG=.143 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= APPEALS ADDRESS ST. [LINE 3]
    When changing or deleting APPEALS ADDRESS ST. [LINE 2] delete APPEALS ADDRESS ST. [LINE 3].
.143 APPEALS ADDRESS ST. [LINE 3] .14;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  FEB 25, 1993
  • HELP-PROMPT:  If the appeals address of this company is different from its main address, enter Line 3 of the appeals street address. Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    If this insurance company's appeals office address is longer than two lines, enter the third line here.
  • NOTES:  TRIGGERED by the APPEALS ADDRESS ST. [LINE 2] field of the INSURANCE COMPANY File
    TRIGGERED by the APPEALS ADDRESS ST. [LINE 1] field of the INSURANCE COMPANY File
.144 APPEALS ADDRESS CITY .14;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<2) X
  • LAST EDITED:  FEB 25, 1993
  • HELP-PROMPT:  If the appeals address of this company is different from its main address, enter city of the appeals address. Answer must be 2-25 characters in length.
  • DESCRIPTION:  
    Enter the city in which the appeals office of this insurance company is located.
.145 APPEALS ADDRESS STATE .14;5 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  OCT 07, 1993
  • HELP-PROMPT:  If the appeals address of this company is different from its main address, enter state of the appeals address.
  • DESCRIPTION:  
    Enter the state in which the appeals office of this insurance company is located.  Enter state even if it is the same as the state of the company's main address.
.146 APPEALS ADDRESS ZIP .14;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  FEB 26, 1993
  • HELP-PROMPT:  If the appeals address of this company is different from its main address, enter zip code of the appeals address. Answer with either 5 digit or 9 digit zip code.
  • DESCRIPTION:  
    Answer with either the 5 digit zip code (format 12345) or with the 9 digit zip code (in format 123456789 or 12345-6789).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.147 APPEALS COMPANY NAME .14;7 POINTER TO INSURANCE COMPANY FILE (#36) INSURANCE COMPANY(#36)

  • INPUT TRANSFORM:  S DIC(0)=DIC(0)_"F",DIC("S")="I '$P(^(0),U,5),'$P($G(^(.14)),U,7),(Y'=DA)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 06, 1993
  • DESCRIPTION:  You can only select a company that processes Appeals. The company specified in this field must be an active insurance company, not the same company as the entry being edited, and must not have another company specified as
    handling Appeals for it.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,5),'$P($G(^(.14)),U,7),(Y'=DA)"
  • EXPLANATION:  Select a company that processes inpatient claims for this company. Must be active, not this company, and process its own inpatient claims.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ANOTHER CO. PROCESS APPEALS? field of the INSURANCE COMPANY File
.148 ANOTHER CO. PROCESS APPEALS? .14;8 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  OCT 07, 1993
  • DESCRIPTION:  
    Enter "Yes" if another insurance company processes appeals.
  • CROSS-REFERENCE:  ^^TRIGGER^36^.147
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$P($G(^DIC(36,DA,.14)),"^",8) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,.14)):^(.14),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(36,.148,1,1,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.14)):^(.14),1:""),DIV=X S $P(^(.14),U,7)=DIV,DIH=36,DIG=.147 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= S X='$P($G(^DIC(36,DA,.14)),"^",8)
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.147
.149 APPEALS FAX .14;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<7) X
  • LAST EDITED:  NOV 22, 1993
  • HELP-PROMPT:  Enter the fax number of this insurance carrier's appeals office with 7 - 20 characters, ex. 444-8888, 614-333-9999.
  • DESCRIPTION:  
    Enter the fax number of the appeals office of this insurance carrier.
.15 PRESCRIPTION REFILL REV. CODE 0;15 POINTER TO REVENUE CODE FILE (#399.2) REVENUE CODE(#399.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 10, 1994
  • HELP-PROMPT:  Enter revenue code to be used for Rx refills.
  • DESCRIPTION:  
    This is the Revenue Code that will automatically be generated for this insurance company if a prescription refill is listed on this bill.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)"
  • EXPLANATION:  This is the Revenue Code that will automatically be generated for this insurance company if a prescription refill is listed on this bill.
.151 INQUIRY ADDRESS ST. [LINE 1] .15;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1993
  • HELP-PROMPT:  If the inquiry address of this company is different from its main address, enter Line 1 of the inquiry street address. Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the first line of the street address of the inquiry office of this insurance carrier.
  • CROSS-REFERENCE:  ^^TRIGGER^36^.152
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.15)):^(.15),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(36,.151,1,1,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.15)):^(.15),1:""),DIV=X S $P(^(.15),U,2)=DIV,DIH=36,DIG=.152 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.15)):^(.15),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(36,.151,1,1,2.4)
    2.4)= S DIH=$S($D(^DIC(36,DIV(0),.15)):^(.15),1:""),DIV=X S $P(^(.15),U,2)=DIV,DIH=36,DIG=.152 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= INQUIRY ADDRESS ST. [LINE 2]
    When changing or deleting INQUIRY ADDRESS ST. [LINE 1] delete INQUIRY ADDRESS ST. [LINE 2].
  • CROSS-REFERENCE:  ^^TRIGGER^36^.153
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.15)):^(.15),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.151,1,2,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.15)):^(.15),1:""),DIV=X S $P(^(.15),U,3)=DIV,DIH=36,DIG=.153 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.15)):^(.15),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.151,1,2,2.4)
    2.4)= S DIH=$S($D(^DIC(36,DIV(0),.15)):^(.15),1:""),DIV=X S $P(^(.15),U,3)=DIV,DIH=36,DIG=.153 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= INQUIRY ADDRESS ST. [LINE 3]
    When changing or deleting INQUIRY ADDRESS ST. [LINE 1] delete INQUIRY ADDRESS ST. [LINE 3].
.152 INQUIRY ADDRESS ST. [LINE 2] .15;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1993
  • HELP-PROMPT:  If the inquiry address of this company is different from its main address, enter Line 2 of the inquiry street address. Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    If this insurance company's inquiry address is longer than one line, enter the second line here.
  • NOTES:  TRIGGERED by the INQUIRY ADDRESS ST. [LINE 1] field of the INSURANCE COMPANY File
  • CROSS-REFERENCE:  ^^TRIGGER^36^.153
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.15)):^(.15),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.152,1,1,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.15)):^(.15),1:""),DIV=X S $P(^(.15),U,3)=DIV,DIH=36,DIG=.153 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.15)):^(.15),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.152,1,1,2.4)
    2.4)= S DIH=$S($D(^DIC(36,DIV(0),.15)):^(.15),1:""),DIV=X S $P(^(.15),U,3)=DIV,DIH=36,DIG=.153 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= INQUIRY ADDRESS ST. [LINE 3]
    When changing or deleting INQUIRY ADDRESS ST. [LINE 2] delete INQUIRY ADDRESS ST. [LINE 3].
.153 INQUIRY ADDRESS ST. [LINE 3] .15;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  FEB 25, 1993
  • HELP-PROMPT:  If the inquiry address of this company is different from its main address, enter Line 3 of the inquiry street address. Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    If this insurance company's inquiry address is longer than two lines, enter the third line here.
  • NOTES:  TRIGGERED by the INQUIRY ADDRESS ST. [LINE 1] field of the INSURANCE COMPANY File
    TRIGGERED by the INQUIRY ADDRESS ST. [LINE 2] field of the INSURANCE COMPANY File
.154 INQUIRY ADDRESS CITY .15;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<2) X
  • LAST EDITED:  FEB 25, 1993
  • HELP-PROMPT:  If the inquiry address of this company is different from its main address, enter city of the inquiry address. Answer must be 2-25 characters in length.
  • DESCRIPTION:  
    Enter the city in which this insurance company's inquiry address office is located.
.155 INQUIRY ADDRESS STATE .15;5 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  FEB 25, 1993
  • HELP-PROMPT:  If the inquiry address of this company is different from its main address, enter state of the inquiry address.
  • DESCRIPTION:  
    Enter the state in which this insurance company's inquiry address office is located.  Enter state even if it is the same as the state of the company's main address.
.156 INQUIRY ADDRESS ZIP CODE .15;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  FEB 26, 1993
  • HELP-PROMPT:  If the inquiry address of this company is different from its main address, enter zip code of the inquiry address. Answer with either the 5 digit or 9 digit zip code.
  • DESCRIPTION:  
    Answer with either the 5 digit zip code (format 12345) or with the 9 digit zip code (in format 123456789 or 12345-6789).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.157 INQUIRY COMPANY NAME .15;7 POINTER TO INSURANCE COMPANY FILE (#36) INSURANCE COMPANY(#36)

  • INPUT TRANSFORM:  S DIC(0)=DIC(0)_"F",DIC("S")="I '$P(^(0),U,5),'$P($G(^(.15)),U,7),(Y'=DA)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 08, 1993
  • DESCRIPTION:  You can only select a company that processes Inquiries. The company specified in this field must be an active insurance company, not the same company as the entry being edited, and must not have another company specified
    as handling Inquiries for it.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,5),'$P($G(^(.15)),U,7),(Y'=DA)"
  • EXPLANATION:  Select a company that processes inquiries for this company. Must be active, not this company, and process its own inquiries.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ANOTHER CO. PROCESS INQUIRIES? field of the INSURANCE COMPANY File
.158 ANOTHER CO. PROCESS INQUIRIES? .15;8 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  OCT 07, 1993
  • DESCRIPTION:  
    Enter "Yes" if another insurance company processes Inquiries.
  • CROSS-REFERENCE:  ^^TRIGGER^36^.157
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$P($G(^DIC(36,DA,.15)),"^",8) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,.15)):^(.15),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(36,.158,1,1,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.15)):^(.15),1:""),DIV=X S $P(^(.15),U,7)=DIV,DIH=36,DIG=.157 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= S X='$P($G(^DIC(36,DA,.15)),"^",8)
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.157
.159 INQUIRY FAX .15;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<7) X
  • LAST EDITED:  NOV 22, 1993
  • HELP-PROMPT:  Enter the fax number of this insurance carrier's inquiries office with 7 - 20 characters, ex. 444-8888, 614-333-9999.
  • DESCRIPTION:  
    Enter the fax number of the inquiries office of this insurance carrier.
.16 REPOINT PATIENTS TO 0;16 POINTER TO INSURANCE COMPANY FILE (#36) INSURANCE COMPANY(#36)

  • LAST EDITED:  FEB 28, 1994
  • DESCRIPTION:  
    If an insurance company has been inactivated and the patients repointed to another company then this is the company that they are assigned.
  • TECHNICAL DESCR:  
    This field will be maintained by the computer.  Do not manually enter/edit.
    WRITE AUTHORITY:  ^
.161 CLAIMS (OPT) STREET ADDRESS 1 .16;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
  • LAST EDITED:  OCT 07, 1993
  • HELP-PROMPT:  If the outpatient claims process address of this company is different from its main address, enter Line 1 of the outpatient claims street address. Answer must be 3-35 characters in length.
  • DESCRIPTION:  
    Enter the first line of the street address for the outpatient claims office of this insurance carrier.
  • CROSS-REFERENCE:  ^^TRIGGER^36^.162
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.16)):^(.16),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(36,.161,1,1,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.16)):^(.16),1:""),DIV=X S $P(^(.16),U,2)=DIV,DIH=36,DIG=.162 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.16)):^(.16),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(36,.161,1,1,2.4)
    2.4)= S DIH=$S($D(^DIC(36,DIV(0),.16)):^(.16),1:""),DIV=X S $P(^(.16),U,2)=DIV,DIH=36,DIG=.162 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #.162
    When changing or deleting CLAIMS (OPT) STREET ADDRESS 1 delete CLAIMS (OPT) STREET ADDRESS 2.
  • CROSS-REFERENCE:  ^^TRIGGER^36^.163
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.16)):^(.16),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.161,1,2,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.16)):^(.16),1:""),DIV=X S $P(^(.16),U,3)=DIV,DIH=36,DIG=.163 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.16)):^(.16),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.161,1,2,2.4)
    2.4)= S DIH=$S($D(^DIC(36,DIV(0),.16)):^(.16),1:""),DIV=X S $P(^(.16),U,3)=DIV,DIH=36,DIG=.163 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #.163
    When changing or deleting CLAIMS (OPT) STREET ADDRESS 1 delete CLAIMS (OPT) STREET ADDRESS 3.
.162 CLAIMS (OPT) STREET ADDRESS 2 .16;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
  • LAST EDITED:  JUL 15, 1993
  • HELP-PROMPT:  If the outpatient claims process address of this company is different from its main address, enter Line 2 of the outpatient claims street address. Answer must be 3-35 characters in length.
  • DESCRIPTION:  
    If this insurance company's outpatient claims office street address is longer than one line, enter the second line here.
  • NOTES:  TRIGGERED by the CLAIMS (OPT) STREET ADDRESS 1 field of the INSURANCE COMPANY File
  • CROSS-REFERENCE:  ^^TRIGGER^36^.163
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.16)):^(.16),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.162,1,1,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.16)):^(.16),1:""),DIV=X S $P(^(.16),U,3)=DIV,DIH=36,DIG=.163 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.16)):^(.16),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.162,1,1,2.4)
    2.4)= S DIH=$S($D(^DIC(36,DIV(0),.16)):^(.16),1:""),DIV=X S $P(^(.16),U,3)=DIV,DIH=36,DIG=.163 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #.163
    When changing or deleting CLAIMS (OPT) STREET ADDRESS 2 delete CLAIMS (OPT) STREET ADDRESS 3.
.163 CLAIMS (OPT) STREET ADDRESS 3 .16;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
  • LAST EDITED:  JUL 15, 1993
  • HELP-PROMPT:  If the outpatient claims process address of this company is different from its main address, enter Line 3 of the outpatient claims street address. Answer must be 3-35 characters in length.
  • DESCRIPTION:  
    If this insurance company's outpatient claims office street address is longer than two lines, enter the third line here.
  • NOTES:  TRIGGERED by the CLAIMS (OPT) STREET ADDRESS 1 field of the INSURANCE COMPANY File
    TRIGGERED by the CLAIMS (OPT) STREET ADDRESS 2 field of the INSURANCE COMPANY File
.164 CLAIMS (OPT) PROCESS CITY .16;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<2) X
  • LAST EDITED:  JUL 15, 1993
  • HELP-PROMPT:  If the outpatient claims process address of this company is different from its main address, enter city of the outpatient claims process address. Answer must be 2-25 characters in length.
  • DESCRIPTION:  
    Enter the city in which this insurance company's outpatient claims office is located.
.165 CLAIMS (OPT) PROCESS STATE .16;5 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  JUL 15, 1993
  • HELP-PROMPT:  If the outpatient claims process address of this company is different from its main address, enter state of the outpatient claims address.
  • DESCRIPTION:  
    Enter the state in which this insurance company's outpatient claims office is located.  Enter state even if it is the same as the state of the company's main address.
.166 CLAIMS (OPT) PROCESS ZIP .16;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  AUG 16, 1993
  • HELP-PROMPT:  If the outpatient claims process address of this company is different from its main address, enter zip code of the outpatient claims process address. Answer with either 5 digit or 9 digit zip code.
  • DESCRIPTION:  
    Answer with either the 5 digit zip code (format 12345) or with the 9 digit zip code (in format 123456789 or 12345-6789).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.167 CLAIMS (OPT) COMPANY NAME .16;7 POINTER TO INSURANCE COMPANY FILE (#36) INSURANCE COMPANY(#36)

  • INPUT TRANSFORM:  S DIC(0)=DIC(0)_"F",DIC("S")="I '$P(^(0),U,5),'$P($G(^(.16)),U,7),Y'=DA" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 01, 1993
  • DESCRIPTION:  You can only select a company that processes claims. The company specified in this field must be an active insurance company, not the same company as the entry being edited, and must not have another company specified as
    handling Outpatient Claims for it.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,5),'$P($G(^(.16)),U,7),Y'=DA"
  • EXPLANATION:  Select an active Insurance Company that will process Outpatient Claims for this company. It may not be this company or have another company process outpatient claims for it.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ANOTHER CO. PROCESS CLAIMS? field of the INSURANCE COMPANY File
.168 ANOTHER CO. PROCESS CLAIMS? .16;8 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  OCT 07, 1993
  • DESCRIPTION:  
    Enter "Yes" if another insurance company processes Outpatient Claims.
  • CROSS-REFERENCE:  ^^TRIGGER^36^.167
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$P($G(^DIC(36,DA,.16)),"^",8) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,.16)):^(.16),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(36,.168,1,1,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.16)):^(.16),1:""),DIV=X S $P(^(.16),U,7)=DIV,DIH=36,DIG=.167 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= S X='$P($G(^DIC(36,DA,.16)),"^",8)
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.167
.169 CLAIMS (OPT) FAX .16;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<7) X
  • LAST EDITED:  NOV 22, 1993
  • HELP-PROMPT:  Enter the fax number of the outpatient claims office with 7 - 20 characters, ex. 444-8888, 614-333-9999.
  • DESCRIPTION:  
    Enter the fax number of the outpatient claims office of this insurance carrier.
.178 ANOTHER CO. PROCESS PRECERTS? .17;8 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  OCT 07, 1993
  • DESCRIPTION:  
    Enter "Yes" if another insurance company processes precerts.
  • CROSS-REFERENCE:  ^^TRIGGER^36^.139
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$P($G(^DIC(36,DA,.17)),"^",8) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,.13)):^(.13),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(36,.178,1,1,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.13)):^(.13),1:""),DIV=X S $P(^(.13),U,9)=DIV,DIH=36,DIG=.139 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= S X='$P($G(^DIC(36,DA,.17)),"^",8)
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.139
.181 CLAIMS (RX) STREET ADDRESS 1 .18;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JAN 04, 1994
  • HELP-PROMPT:  If the prescription claims address of this company is different from its main address, enter Line 1 of the prescription claims address. Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the first line of the street address for the prescription claims office of this insurance carrier.
  • CROSS-REFERENCE:  ^^TRIGGER^36^.182
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(36,.181,1,1,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""),DIV=X S $P(^(.18),U,2)=DIV,DIH=36,DIG=.182 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(^DIC(36,D0,.18)):^(.18),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(36,.181,1,1,2.4)
    2.4)= S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""),DIV=X S $P(^(.18),U,2)=DIV,DIH=36,DIG=.182 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #.182
    When changing or deleting CLAIMS (RX) STREET 1 delete CLAIMS (RX) STREET ADDRESS 1.
  • CROSS-REFERENCE:  ^^TRIGGER^36^.183
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.181,1,2,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""),DIV=X S $P(^(.18),U,3)=DIV,DIH=36,DIG=.183 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(^DIC(36,D0,.18)):^(.18),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.181,1,2,2.4)
    2.4)= S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""),DIV=X S $P(^(.18),U,3)=DIV,DIH=36,DIG=.183 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #.183
    When changing or deleting CLAIMS (RX) STREET ADDRESS 1 delete CLAIMS (RX) STREET ADDRESS 2.
.182 CLAIMS (RX) STREET ADDRESS 2 .18;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JAN 04, 1994
  • HELP-PROMPT:  If the prescription claims address of this company is different from its main address, enter Line 2 of the prescription claims address. Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    If this insurance company's prescription claims office street address is longer than one line, enter the second line here.
  • NOTES:  TRIGGERED by the CLAIMS (RX) STREET ADDRESS 1 field of the INSURANCE COMPANY File
  • CROSS-REFERENCE:  ^^TRIGGER^36^.183
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.182,1,1,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""),DIV=X S $P(^(.18),U,3)=DIV,DIH=36,DIG=.183 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(^DIC(36,D0,.18)):^(.18),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.182,1,1,2.4)
    2.4)= S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""),DIV=X S $P(^(.18),U,3)=DIV,DIH=36,DIG=.183 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #.183
.183 CLAIMS (RX) STREET ADDRESS 3 .18;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JAN 03, 1994
  • HELP-PROMPT:  If the prescription clais office address of this company is different from its main address, enter Line 3 of the prescription claims street address. Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    If this insurance company's prescription claims office street address is longer than two lines, enter the third line here.
  • NOTES:  TRIGGERED by the CLAIMS (RX) STREET ADDRESS 1 field of the INSURANCE COMPANY File
    TRIGGERED by the CLAIMS (RX) STREET ADDRESS 2 field of the INSURANCE COMPANY File
.184 CLAIMS (RX) CITY .18;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<2) X
  • LAST EDITED:  JAN 03, 1994
  • HELP-PROMPT:  If the prescription claims office address of this company is different from its main address, enter city of the prescription claims address. Answer must be 2-25 characters in length.
  • DESCRIPTION:  
    Enter the city in which this insurance company's prescription claims office is located.
.185 CLAIMS (RX) STATE .18;5 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  JAN 03, 1994
  • HELP-PROMPT:  If the prescription clais office address of this company is different from its main address, enter state of the prescription claims office.
  • DESCRIPTION:  
    Enter the state in which this insurance company's prescription claims office is located.  Enter state even if it is the same as the state of the company's main address.
.186 CLAIMS (RX) ZIP .18;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  JAN 04, 1994
  • HELP-PROMPT:  If the prescription claims address of this company is different from its main address, enter zip code of the prescription claims address. Answer with either 5 digit or 9 digit zip code.
  • DESCRIPTION:  
    Answer with either the 5 digit zip code (format 12345) or with the 9 digit zip code (in format 123456789 or 12345-6789).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.187 CLAIMS (RX) COMPANY NAME .18;7 POINTER TO INSURANCE COMPANY FILE (#36) INSURANCE COMPANY(#36)

  • INPUT TRANSFORM:  S DIC(0)=DIC(0)_"F",DIC("S")="I '$P(^(0),U,5),'$P($G(^(.18)),U,7),(Y'=DA)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 04, 1994
  • DESCRIPTION:  You can only select a company that processes Prescriptions. The company specified in this field must be an active insurance company, not the same company as the entry being edited, and must not have another company
    specified as handling Prescriptions for it.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,5),'$P($G(^(.18)),U,7),(Y'=DA)"
  • EXPLANATION:  Select a company that processes prescription claims for this company. Must be active, not this company, and process its own prescription claims.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ANOTHER CO. PROCESS RX CLAIMS? field of the INSURANCE COMPANY File
.188 ANOTHER CO. PROCESS RX CLAIMS? .18;8 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JAN 04, 1994
  • DESCRIPTION:  
    Enter "Yes" if another insurance company processes prescription claims.
  • CROSS-REFERENCE:  ^^TRIGGER^36^.187
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$P($G(^DIC(36,DA,.18)),"^",8) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(36,.188,1,1,1.4)
    1.4)= S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""),DIV=X S $P(^(.18),U,7)=DIV,DIH=36,DIG=.187 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= S X='$P($G(^DIC(36,DA,.18)),"^",8)
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.187
    Enter "Yes" if another insurance company processes prescription claims.
.189 CLAIMS (RX) FAX .18;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<7) X
  • LAST EDITED:  JAN 03, 1994
  • HELP-PROMPT:  Enter the fax number of the prescription claims office with 7-20 characters, ex. 444-8888, 614-333-9999.
  • DESCRIPTION:  
    Enter the fax number of the prescription claims office of this insurance carrier.
1 REIMBURSE? 0;2 SET
************************REQUIRED FIELD************************
  • 'Y' FOR WILL REIMBURSE;
  • '*' FOR WILL REIMBURSE IF TREATED UNDER VAR 6046(C) OR VAR 6060.2(A);
  • '**' FOR DEPENDS ON POLICY, CHECK WITH COMPANY;
  • 'N' FOR WILL NOT REIMBURSE;

  • LAST EDITED:  NOV 02, 1990
  • DESCRIPTION:  
    Choose from the available list of choices the appropriate code denoting whether or not and under which circumstances this insurance carrier will reimburse the Dept of Veterans Affairs for care received.
  • DELETE TEST:  1,0)= I $D(DGINS)
2 SIGNATURE REQUIRED ON BILL? 0;3 SET
************************REQUIRED FIELD************************
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  DEC 22, 1991
  • HELP-PROMPT:  Enter 'Yes' if a bill sent to this insurance carrier requires a manual signature or 'No' if it does not.
  • DESCRIPTION:  
    Enter a yes or no in this field denoting whether a signature is required on a bill before being submitted to the insurance carrier.
  • DELETE TEST:  1,0)= I $D(DGINS)
10 SYNONYM 10;0 Multiple #36.03 36.03
11 REMARKS 11;0 WORD-PROCESSING #36.011

  • LAST EDITED:  NOV 09, 1993
  • DESCRIPTION:  
    You may enter unlimited free text comments about this insurance company.  It may be helpful to date ongoing comments and identify the source of the comments.

ICR, Total: 12

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #61
  • SOCIAL WORK
  • NAME (.01).
    Access: Read w/Fileman

    ICR #612
  • PROSTHETICS
  • NAME (.01).
    Access: Read w/Fileman

    ICR #645
  • Automated Information Collection System
  • NAME (.01).
    Access: Read w/Fileman

    ICR #766
  • PATIENT DATA EXCHANGE
  • ICR #794
  • MENTAL HEALTH
  • HEALTH SUMMARY
  • ORDER ENTRY/RESULTS REPORTING
  • NAME (.01).
    Access: Read w/Fileman

    ICR #949
  • INCOME VERIFICATION MATCH
  • NAME (.01).
    Access: Write w/Fileman

    STREET ADDRESS [LINE 1] (.111).
    Access: Write w/Fileman

    STREET ADDRESS [LINE 2] (.112).
    Access: Write w/Fileman

    CITY (.114).
    Access: Write w/Fileman

    STATE (.115).
    Access: Write w/Fileman

    ZIP CODE (.116).
    Access: Write w/Fileman

    PHONE NUMBER (.131).
    Access: Write w/Fileman

    Update of the insurance company address.
    ICR #3596
  • HEALTH SUMMARY
  • ORDER ENTRY/RESULTS REPORTING
  • NAME (.01).
    Access: Read w/Fileman

    ICR #3642
  • M DATA EXTRACTOR
  • ICR #4391
  • ACCOUNTS RECEIVABLE
  • INSURANCE COMPANY (.01).
    Access: Direct Global Read & w/Fileman

    INSURANCE COMPANY (.01).
    Access: Pointed to

    INSURANCE COMPANY (.01).
    Access: Read w/Fileman

    STREET ADDRESS [LINE 1] (.111).
    Access: Direct Global Read & w/Fileman

    STREET ADDRESS [LINE 2] (.112).
    Access: Direct Global Read & w/Fileman

    STREET ADDRESS [LINE 3] (.113).
    Access: Direct Global Read & w/Fileman

    CITY (.114).
    Access: Direct Global Read & w/Fileman

    STATE (.115).
    Access: Direct Global Read & w/Fileman

    ZIP CODE (.116).
    Access: Direct Global Read & w/Fileman

    ICR #4971
  • KERNEL
  • NAME (.01).
    Access: Direct Global Read & w/Fileman

    TYPE OF COVERAGE (.13).
    Access: Direct Global Read & w/Fileman

    ICR #5292
  • INSURANCE CAPTURE BUFFER
  • ICR #6142
  • OUTPATIENT PHARMACY
  • NAME (.01).
    Access: Read w/Fileman

    External References

    Name Field # of Occurrence
    ^DIC .09+1, .127+1, .139+1, .147+1, .15+1, .157+1, .167+1, .187+1, .09+1, .127+1
    , .139+1, .147+1, .15+1, .157+1, .167+1, .187+1
    ^DICR .111(XREF 1n1.4), .111(XREF 1n2.4), .111(XREF 2n1.4), .111(XREF 2n2.4), .112(XREF 1n1.4), .112(XREF 1n2.4), .121(XREF 1n1.4), .121(XREF 1n2.4), .121(XREF 2n1.4), .121(XREF 2n2.4)
    .122(XREF 1n1.4), .122(XREF 1n2.4), .128(XREF 1n1.4), .141(XREF 1n1.4), .141(XREF 1n2.4), .141(XREF 2n1.4), .141(XREF 2n2.4), .142(XREF 1n1.4), .142(XREF 1n2.4), .148(XREF 1n1.4)
    .151(XREF 1n1.4), .151(XREF 1n2.4), .151(XREF 2n1.4), .151(XREF 2n2.4), .152(XREF 1n1.4), .152(XREF 1n2.4), .158(XREF 1n1.4), .161(XREF 1n1.4), .161(XREF 1n2.4), .161(XREF 2n1.4)
    .161(XREF 2n2.4), .162(XREF 1n1.4), .162(XREF 1n2.4), .168(XREF 1n1.4), .178(XREF 1n1.4), .181(XREF 1n1.4), .181(XREF 1n2.4), .181(XREF 2n1.4), .181(XREF 2n2.4), .182(XREF 1n1.4)
    .182(XREF 1n2.4), .188(XREF 1n1.4), .111(XREF 1n1.4), .111(XREF 1n2.4), .111(XREF 2n1.4), .111(XREF 2n2.4), .112(XREF 1n1.4), .112(XREF 1n2.4), .121(XREF 1n1.4), .121(XREF 1n2.4)
    .121(XREF 2n1.4), .121(XREF 2n2.4), .122(XREF 1n1.4), .122(XREF 1n2.4), .128(XREF 1n1.4), .141(XREF 1n1.4), .141(XREF 1n2.4), .141(XREF 2n1.4), .141(XREF 2n2.4), .142(XREF 1n1.4)
    .142(XREF 1n2.4), .148(XREF 1n1.4), .151(XREF 1n1.4), .151(XREF 1n2.4), .151(XREF 2n1.4), .151(XREF 2n2.4), .152(XREF 1n1.4), .152(XREF 1n2.4), .158(XREF 1n1.4), .161(XREF 1n1.4)
    .161(XREF 1n2.4), .161(XREF 2n1.4), .161(XREF 2n2.4), .162(XREF 1n1.4), .162(XREF 1n2.4), .168(XREF 1n1.4), .178(XREF 1n1.4), .181(XREF 1n1.4), .181(XREF 1n2.4), .181(XREF 2n1.4)
    .181(XREF 2n2.4), .182(XREF 1n1.4), .182(XREF 1n2.4), .188(XREF 1n1.4)
    Y^DIQ ID.115+1, ID.115+1
    ZIPIN^VAFADDR .116+1, .126+1, .146+1, .156+1, .166+1, .186+1, .116+1, .126+1, .146+1, .156+1
    , .166+1, .186+1
    ZIPOUT^VAFADDR .116OT+1, .126OT+1, .146OT+1, .156OT+1, .166OT+1, .186OT+1, .116OT+1, .126OT+1, .146OT+1, .156OT+1
    , .166OT+1, .186OT+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( .111(XREF 1n1.4), .111(XREF 1n2.4), .111(XREF 2n1.4), .111(XREF 2n2.4), .112(XREF 1n1.4), .112(XREF 1n2.4), .121(XREF 1n1.4), .121(XREF 1n2.4), .121(XREF 2n1.4), .121(XREF 2n2.4)
    .122(XREF 1n1.4), .122(XREF 1n2.4), .128(XREF 1n1.4), .141(XREF 1n1.4), .141(XREF 1n2.4), .141(XREF 2n1.4), .141(XREF 2n2.4), .142(XREF 1n1.4), .142(XREF 1n2.4), .148(XREF 1n1.4)
    .151(XREF 1n1.4), .151(XREF 1n2.4), .151(XREF 2n1.4), .151(XREF 2n2.4), .152(XREF 1n1.4), .152(XREF 1n2.4), .158(XREF 1n1.4), .161(XREF 1n1.4), .161(XREF 1n2.4), .161(XREF 2n1.4)
    .161(XREF 2n2.4), .162(XREF 1n1.4), .162(XREF 1n2.4), .168(XREF 1n1.4), .178(XREF 1n1.4), .181(XREF 1n1.4), .181(XREF 1n2.4), .181(XREF 2n1.4), .181(XREF 2n2.4), .182(XREF 1n1.4)
    .182(XREF 1n2.4), .188(XREF 1n1.4), .111(XREF 1n1.4), .111(XREF 1n2.4), .111(XREF 2n1.4), .111(XREF 2n2.4), .112(XREF 1n1.4), .112(XREF 1n2.4), .121(XREF 1n1.4), .121(XREF 1n2.4)
    .121(XREF 2n1.4), .121(XREF 2n2.4), .122(XREF 1n1.4), .122(XREF 1n2.4), .128(XREF 1n1.4), .141(XREF 1n1.4), .141(XREF 1n2.4), .141(XREF 2n1.4), .141(XREF 2n2.4), .142(XREF 1n1.4)
    .142(XREF 1n2.4), .148(XREF 1n1.4), .151(XREF 1n1.4), .151(XREF 1n2.4), .151(XREF 2n1.4), .151(XREF 2n2.4), .152(XREF 1n1.4), .152(XREF 1n2.4), .158(XREF 1n1.4), .161(XREF 1n1.4)
    .161(XREF 1n2.4), .161(XREF 2n1.4), .161(XREF 2n2.4), .162(XREF 1n1.4), .162(XREF 1n2.4), .168(XREF 1n1.4), .178(XREF 1n1.4), .181(XREF 1n1.4), .181(XREF 1n2.4), .181(XREF 2n1.4)
    .181(XREF 2n2.4), .182(XREF 1n1.4), .182(XREF 1n2.4), .188(XREF 1n1.4)
    ^DD(36 .111(XREF 1S), .111(XREF 1K), .111(XREF 2S), .111(XREF 2K), .112(XREF 1S), .112(XREF 1K), .121(XREF 1S), .121(XREF 1K), .121(XREF 2S), .121(XREF 2K)
    .122(XREF 1S), .122(XREF 1K), .128(XREF 1S), .141(XREF 1S), .141(XREF 1K), .141(XREF 2S), .141(XREF 2K), .142(XREF 1S), .142(XREF 1K), .148(XREF 1S)
    .151(XREF 1S), .151(XREF 1K), .151(XREF 2S), .151(XREF 2K), .152(XREF 1S), .152(XREF 1K), .158(XREF 1S), .161(XREF 1S), .161(XREF 1K), .161(XREF 2S)
    .161(XREF 2K), .162(XREF 1S), .162(XREF 1K), .168(XREF 1S), .178(XREF 1S), .181(XREF 1S), .181(XREF 1K), .181(XREF 2S), .181(XREF 2K), .182(XREF 1S)
    .182(XREF 1K), .188(XREF 1S), .111(XREF 1S), .111(XREF 1K), .111(XREF 2S), .111(XREF 2K), .112(XREF 1S), .112(XREF 1K), .121(XREF 1S), .121(XREF 1K)
    .121(XREF 2S), .121(XREF 2K), .122(XREF 1S), .122(XREF 1K), .128(XREF 1S), .141(XREF 1S), .141(XREF 1K), .141(XREF 2S), .141(XREF 2K), .142(XREF 1S)
    .142(XREF 1K), .148(XREF 1S), .151(XREF 1S), .151(XREF 1K), .151(XREF 2S), .151(XREF 2K), .152(XREF 1S), .152(XREF 1K), .158(XREF 1S), .161(XREF 1S)
    .161(XREF 1K), .161(XREF 2S), .161(XREF 2K), .162(XREF 1S), .162(XREF 1K), .168(XREF 1S), .178(XREF 1S), .181(XREF 1S), .181(XREF 1K), .181(XREF 2S)
    .181(XREF 2K), .182(XREF 1S), .182(XREF 1K), .188(XREF 1S)
    ^DD(5 ID.115+1, ID.115+1
    ^DIC(36 - [#36] .01(XREF 1S), .01(XREF 1K), .111(XREF 1S), .111(XREF 1n1.4), .111(XREF 1K), .111(XREF 1n2.4), .111(XREF 2S), .111(XREF 2n1.4), .111(XREF 2K), .111(XREF 2n2.4)
    .112(XREF 1S), .112(XREF 1n1.4), .112(XREF 1K), .112(XREF 1n2.4), .121(XREF 1S), .121(XREF 1n1.4), .121(XREF 1K), .121(XREF 1n2.4), .121(XREF 2S), .121(XREF 2n1.4)
    .121(XREF 2K), .121(XREF 2n2.4), .122(XREF 1S), .122(XREF 1n1.4), .122(XREF 1K), .122(XREF 1n2.4), .128(XREF 1S), .128(XREF 1n1.4), .141(XREF 1S), .141(XREF 1n1.4)
    .141(XREF 1K), .141(XREF 1n2.4), .141(XREF 2S), .141(XREF 2n1.4), .141(XREF 2K), .141(XREF 2n2.4), .142(XREF 1S), .142(XREF 1n1.4), .142(XREF 1K), .142(XREF 1n2.4)
    .148(XREF 1S), .148(XREF 1n1.4), .151(XREF 1S), .151(XREF 1n1.4), .151(XREF 1K), .151(XREF 1n2.4), .151(XREF 2S), .151(XREF 2n1.4), .151(XREF 2K), .151(XREF 2n2.4)
    .152(XREF 1S), .152(XREF 1n1.4), .152(XREF 1K), .152(XREF 1n2.4), .158(XREF 1S), .158(XREF 1n1.4), .161(XREF 1S), .161(XREF 1n1.4), .161(XREF 1K), .161(XREF 1n2.4)
    .161(XREF 2S), .161(XREF 2n1.4), .161(XREF 2K), .161(XREF 2n2.4), .162(XREF 1S), .162(XREF 1n1.4), .162(XREF 1K), .162(XREF 1n2.4), .168(XREF 1S), .168(XREF 1n1.4)
    .178(XREF 1S), .178(XREF 1n1.4), .181(XREF 1S), .181(XREF 1n1.4), .181(XREF 1K), .181(XREF 1n2.4), .181(XREF 2S), .181(XREF 2n1.4), .181(XREF 2K), .181(XREF 2n2.4)
    .182(XREF 1S), .182(XREF 1n1.4), .182(XREF 1K), .182(XREF 1n2.4), .188(XREF 1S), .188(XREF 1n1.4), .01(XREF 1S), .01(XREF 1K), .111(XREF 1S), .111(XREF 1n1.4)
    .111(XREF 1K), .111(XREF 1n2.4), .111(XREF 2S), .111(XREF 2n1.4), .111(XREF 2K), .111(XREF 2n2.4), .112(XREF 1S), .112(XREF 1n1.4), .112(XREF 1K), .112(XREF 1n2.4)
    .121(XREF 1S), .121(XREF 1n1.4), .121(XREF 1K), .121(XREF 1n2.4), .121(XREF 2S), .121(XREF 2n1.4), .121(XREF 2K), .121(XREF 2n2.4), .122(XREF 1S), .122(XREF 1n1.4)
    .122(XREF 1K), .122(XREF 1n2.4), .128(XREF 1S), .128(XREF 1n1.4), .141(XREF 1S), .141(XREF 1n1.4), .141(XREF 1K), .141(XREF 1n2.4), .141(XREF 2S), .141(XREF 2n1.4)
    .141(XREF 2K), .141(XREF 2n2.4), .142(XREF 1S), .142(XREF 1n1.4), .142(XREF 1K), .142(XREF 1n2.4), .148(XREF 1S), .148(XREF 1n1.4), .151(XREF 1S), .151(XREF 1n1.4)
    .151(XREF 1K), .151(XREF 1n2.4), .151(XREF 2S), .151(XREF 2n1.4), .151(XREF 2K), .151(XREF 2n2.4), .152(XREF 1S), .152(XREF 1n1.4), .152(XREF 1K), .152(XREF 1n2.4)
    .158(XREF 1S), .158(XREF 1n1.4), .161(XREF 1S), .161(XREF 1n1.4), .161(XREF 1K), .161(XREF 1n2.4), .161(XREF 2S), .161(XREF 2n1.4), .161(XREF 2K), .161(XREF 2n2.4)
    .162(XREF 1S), .162(XREF 1n1.4), .162(XREF 1K), .162(XREF 1n2.4), .168(XREF 1S), .168(XREF 1n1.4), .178(XREF 1S), .178(XREF 1n1.4), .181(XREF 1S), .181(XREF 1n1.4)
    .181(XREF 1K), .181(XREF 1n2.4), .181(XREF 2S), .181(XREF 2n1.4), .181(XREF 2K), .181(XREF 2n2.4), .182(XREF 1S), .182(XREF 1n1.4), .182(XREF 1K), .182(XREF 1n2.4)
    .188(XREF 1S), .188(XREF 1n1.4)
    ^DIC(5 - [#5] ID.115+1, ID.115+1
    ^IBA(355.3 - [#355.3] .01DEL1+1, .01DEL1+1
    ^XUSEC("IB INSURANCE SUPERVISOR" .01DEL1+1, .01DEL1+1

    Naked Globals

    Name Field # of Occurrence
    ^( ID.111+1, ID.114+1, ID.115+1, .111(XREF 1S), .111(XREF 1n1.4), .111(XREF 1K), .111(XREF 1n2.4), .111(XREF 2S), .111(XREF 2n1.4), .111(XREF 2K)
    .111(XREF 2n2.4), .112(XREF 1S), .112(XREF 1n1.4), .112(XREF 1K), .112(XREF 1n2.4), .121(XREF 1S), .121(XREF 1n1.4), .121(XREF 1K), .121(XREF 1n2.4), .121(XREF 2S)
    .121(XREF 2n1.4), .121(XREF 2K), .121(XREF 2n2.4), .122(XREF 1S), .122(XREF 1n1.4), .122(XREF 1K), .122(XREF 1n2.4), .128(XREF 1S), .128(XREF 1n1.4), .141(XREF 1S)
    .141(XREF 1n1.4), .141(XREF 1K), .141(XREF 1n2.4), .141(XREF 2S), .141(XREF 2n1.4), .141(XREF 2K), .141(XREF 2n2.4), .142(XREF 1S), .142(XREF 1n1.4), .142(XREF 1K)
    .142(XREF 1n2.4), .148(XREF 1S), .148(XREF 1n1.4), .151(XREF 1S), .151(XREF 1n1.4), .151(XREF 1K), .151(XREF 1n2.4), .151(XREF 2S), .151(XREF 2n1.4), .151(XREF 2K)
    .151(XREF 2n2.4), .152(XREF 1S), .152(XREF 1n1.4), .152(XREF 1K), .152(XREF 1n2.4), .158(XREF 1S), .158(XREF 1n1.4), .161(XREF 1S), .161(XREF 1n1.4), .161(XREF 1K)
    .161(XREF 1n2.4), .161(XREF 2S), .161(XREF 2n1.4), .161(XREF 2K), .161(XREF 2n2.4), .162(XREF 1S), .162(XREF 1n1.4), .162(XREF 1K), .162(XREF 1n2.4), .168(XREF 1S)
    .168(XREF 1n1.4), .178(XREF 1S), .178(XREF 1n1.4), .181(XREF 1S), .181(XREF 1n1.4), .181(XREF 1K), .181(XREF 1n2.4), .181(XREF 2S), .181(XREF 2n1.4), .181(XREF 2K)
    .181(XREF 2n2.4), .182(XREF 1S), .182(XREF 1n1.4), .182(XREF 1K), .182(XREF 1n2.4), .188(XREF 1S), .188(XREF 1n1.4), ID.111+1, ID.114+1, ID.115+1
    .111(XREF 1S), .111(XREF 1n1.4), .111(XREF 1K), .111(XREF 1n2.4), .111(XREF 2S), .111(XREF 2n1.4), .111(XREF 2K), .111(XREF 2n2.4), .112(XREF 1S), .112(XREF 1n1.4)
    .112(XREF 1K), .112(XREF 1n2.4), .121(XREF 1S), .121(XREF 1n1.4), .121(XREF 1K), .121(XREF 1n2.4), .121(XREF 2S), .121(XREF 2n1.4), .121(XREF 2K), .121(XREF 2n2.4)
    .122(XREF 1S), .122(XREF 1n1.4), .122(XREF 1K), .122(XREF 1n2.4), .128(XREF 1S), .128(XREF 1n1.4), .141(XREF 1S), .141(XREF 1n1.4), .141(XREF 1K), .141(XREF 1n2.4)
    .141(XREF 2S), .141(XREF 2n1.4), .141(XREF 2K), .141(XREF 2n2.4), .142(XREF 1S), .142(XREF 1n1.4), .142(XREF 1K), .142(XREF 1n2.4), .148(XREF 1S), .148(XREF 1n1.4)
    .151(XREF 1S), .151(XREF 1n1.4), .151(XREF 1K), .151(XREF 1n2.4), .151(XREF 2S), .151(XREF 2n1.4), .151(XREF 2K), .151(XREF 2n2.4), .152(XREF 1S), .152(XREF 1n1.4)
    .152(XREF 1K), .152(XREF 1n2.4), .158(XREF 1S), .158(XREF 1n1.4), .161(XREF 1S), .161(XREF 1n1.4), .161(XREF 1K), .161(XREF 1n2.4), .161(XREF 2S), .161(XREF 2n1.4)
    .161(XREF 2K), .161(XREF 2n2.4), .162(XREF 1S), .162(XREF 1n1.4), .162(XREF 1K), .162(XREF 1n2.4), .168(XREF 1S), .168(XREF 1n1.4), .178(XREF 1S), .178(XREF 1n1.4)
    .181(XREF 1S), .181(XREF 1n1.4), .181(XREF 1K), .181(XREF 1n2.4), .181(XREF 2S), .181(XREF 2n1.4), .181(XREF 2K), .181(XREF 2n2.4), .182(XREF 1S), .182(XREF 1n1.4)
    .182(XREF 1K), .182(XREF 1n2.4), .188(XREF 1S), .188(XREF 1n1.4)
    ^("0" ID1+1, ID1+1
    ^(0 ID.115+1, ID.115+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %I ID.115+1*!, ID.115+1*!
    >> C ID.115+1*, ID.115+1*
    >> D0 .111(XREF 1S), .111(XREF 1K), .111(XREF 2S), .111(XREF 2K), .112(XREF 1S), .112(XREF 1K), .121(XREF 1S), .121(XREF 1K), .121(XREF 2S), .121(XREF 2K)
    .122(XREF 1S), .122(XREF 1K), .128(XREF 1S), .141(XREF 1S), .141(XREF 1K), .141(XREF 2S), .141(XREF 2K), .142(XREF 1S), .142(XREF 1K), .148(XREF 1S)
    .151(XREF 1S), .151(XREF 1K), .151(XREF 2S), .151(XREF 2K), .152(XREF 1S), .152(XREF 1K), .158(XREF 1S), .161(XREF 1S), .161(XREF 1K), .161(XREF 2S)
    .161(XREF 2K), .162(XREF 1S), .162(XREF 1K), .168(XREF 1S), .178(XREF 1S), .181(XREF 1S), .181(XREF 1K), .181(XREF 2S), .181(XREF 2K), .182(XREF 1S)
    .182(XREF 1K), .188(XREF 1S), .111(XREF 1S), .111(XREF 1K), .111(XREF 2S), .111(XREF 2K), .112(XREF 1S), .112(XREF 1K), .121(XREF 1S), .121(XREF 1K)
    .121(XREF 2S), .121(XREF 2K), .122(XREF 1S), .122(XREF 1K), .128(XREF 1S), .141(XREF 1S), .141(XREF 1K), .141(XREF 2S), .141(XREF 2K), .142(XREF 1S)
    .142(XREF 1K), .148(XREF 1S), .151(XREF 1S), .151(XREF 1K), .151(XREF 2S), .151(XREF 2K), .152(XREF 1S), .152(XREF 1K), .158(XREF 1S), .161(XREF 1S)
    .161(XREF 1K), .161(XREF 2S), .161(XREF 2K), .162(XREF 1S), .162(XREF 1K), .168(XREF 1S), .178(XREF 1S), .181(XREF 1S), .181(XREF 1K), .181(XREF 2S)
    .181(XREF 2K), .182(XREF 1S), .182(XREF 1K), .188(XREF 1S)
    >> DA .01DEL1+1, .01(XREF 1S), .01(XREF 1K), .111(XREF 1S), .111(XREF 1K), .111(XREF 2S), .111(XREF 2K), .112(XREF 1S), .112(XREF 1K), .121(XREF 1S)
    .121(XREF 1K), .121(XREF 2S), .121(XREF 2K), .122(XREF 1S), .122(XREF 1K), .128(XREF 1S), .141(XREF 1S), .141(XREF 1K), .141(XREF 2S), .141(XREF 2K)
    .142(XREF 1S), .142(XREF 1K), .148(XREF 1S), .151(XREF 1S), .151(XREF 1K), .151(XREF 2S), .151(XREF 2K), .152(XREF 1S), .152(XREF 1K), .158(XREF 1S)
    .161(XREF 1S), .161(XREF 1K), .161(XREF 2S), .161(XREF 2K), .162(XREF 1S), .162(XREF 1K), .168(XREF 1S), .178(XREF 1S), .181(XREF 1S), .181(XREF 1K)
    .181(XREF 2S), .181(XREF 2K), .182(XREF 1S), .182(XREF 1K), .188(XREF 1S), .01DEL1+1, .01(XREF 1S), .01(XREF 1K), .111(XREF 1S), .111(XREF 1K)
    .111(XREF 2S), .111(XREF 2K), .112(XREF 1S), .112(XREF 1K), .121(XREF 1S), .121(XREF 1K), .121(XREF 2S), .121(XREF 2K), .122(XREF 1S), .122(XREF 1K)
    .128(XREF 1S), .141(XREF 1S), .141(XREF 1K), .141(XREF 2S), .141(XREF 2K), .142(XREF 1S), .142(XREF 1K), .148(XREF 1S), .151(XREF 1S), .151(XREF 1K)
    .151(XREF 2S), .151(XREF 2K), .152(XREF 1S), .152(XREF 1K), .158(XREF 1S), .161(XREF 1S), .161(XREF 1K), .161(XREF 2S), .161(XREF 2K), .162(XREF 1S)
    .162(XREF 1K), .168(XREF 1S), .178(XREF 1S), .181(XREF 1S), .181(XREF 1K), .181(XREF 2S), .181(XREF 2K), .182(XREF 1S), .182(XREF 1K), .188(XREF 1S)
    DGII .07+1!, .07+1!
    >> DGINS .05DEL1+1, .111DEL1+1, .114DEL1+1, .115DEL1+1, .116DEL1+1, .131DEL1+1, 1DEL1+1, 2DEL1+1, .05DEL1+1, .111DEL1+1
    , .114DEL1+1, .115DEL1+1, .116DEL1+1, .131DEL1+1, 1DEL1+1, 2DEL1+1
    DGINX .07+1!, .07+1!
    DIC ID.115+1, .09+1!*, .127+1!*, .139+1!*, .147+1!*, .15+1!*, .157+1!*, .167+1!*, .187+1!*, ID.115+1
    , .09+1!*, .127+1!*, .139+1!*, .147+1!*, .15+1!*, .157+1!*, .167+1!*, .187+1!*
    DIC("S" .09+1*, .09SCR+1*, .127+1*, .127SCR+1*, .139+1*, .139SCR+1*, .147+1*, .147SCR+1*, .15+1*, .15SCR+1*
    , .157+1*, .157SCR+1*, .167+1*, .167SCR+1*, .187+1*, .187SCR+1*, .09+1*, .09SCR+1*, .127+1*, .127SCR+1*
    , .139+1*, .139SCR+1*, .147+1*, .147SCR+1*, .15+1*, .15SCR+1*, .157+1*, .157SCR+1*, .167+1*, .167SCR+1*
    , .187+1*, .187SCR+1*
    DIC(0 .127+1*, .139+1*, .147+1*, .157+1*, .167+1*, .187+1*, .127+1*, .139+1*, .147+1*, .157+1*
    , .167+1*, .187+1*
    >> DIE .09+1, .127+1, .139+1, .147+1, .15+1, .157+1, .167+1, .187+1, .09+1, .127+1
    , .139+1, .147+1, .15+1, .157+1, .167+1, .187+1
    >> DIG .111(XREF 1n1.4), .111(XREF 1n2.4), .111(XREF 2n1.4), .111(XREF 2n2.4), .112(XREF 1n1.4), .112(XREF 1n2.4), .121(XREF 1n1.4), .121(XREF 1n2.4), .121(XREF 2n1.4), .121(XREF 2n2.4)
    .122(XREF 1n1.4), .122(XREF 1n2.4), .128(XREF 1n1.4), .141(XREF 1n1.4), .141(XREF 1n2.4), .141(XREF 2n1.4), .141(XREF 2n2.4), .142(XREF 1n1.4), .142(XREF 1n2.4), .148(XREF 1n1.4)
    .151(XREF 1n1.4), .151(XREF 1n2.4), .151(XREF 2n1.4), .151(XREF 2n2.4), .152(XREF 1n1.4), .152(XREF 1n2.4), .158(XREF 1n1.4), .161(XREF 1n1.4), .161(XREF 1n2.4), .161(XREF 2n1.4)
    .161(XREF 2n2.4), .162(XREF 1n1.4), .162(XREF 1n2.4), .168(XREF 1n1.4), .178(XREF 1n1.4), .181(XREF 1n1.4), .181(XREF 1n2.4), .181(XREF 2n1.4), .181(XREF 2n2.4), .182(XREF 1n1.4)
    .182(XREF 1n2.4), .188(XREF 1n1.4), .111(XREF 1n1.4), .111(XREF 1n2.4), .111(XREF 2n1.4), .111(XREF 2n2.4), .112(XREF 1n1.4), .112(XREF 1n2.4), .121(XREF 1n1.4), .121(XREF 1n2.4)
    .121(XREF 2n1.4), .121(XREF 2n2.4), .122(XREF 1n1.4), .122(XREF 1n2.4), .128(XREF 1n1.4), .141(XREF 1n1.4), .141(XREF 1n2.4), .141(XREF 2n1.4), .141(XREF 2n2.4), .142(XREF 1n1.4)
    .142(XREF 1n2.4), .148(XREF 1n1.4), .151(XREF 1n1.4), .151(XREF 1n2.4), .151(XREF 2n1.4), .151(XREF 2n2.4), .152(XREF 1n1.4), .152(XREF 1n2.4), .158(XREF 1n1.4), .161(XREF 1n1.4)
    .161(XREF 1n2.4), .161(XREF 2n1.4), .161(XREF 2n2.4), .162(XREF 1n1.4), .162(XREF 1n2.4), .168(XREF 1n1.4), .178(XREF 1n1.4), .181(XREF 1n1.4), .181(XREF 1n2.4), .181(XREF 2n1.4)
    .181(XREF 2n2.4), .182(XREF 1n1.4), .182(XREF 1n2.4), .188(XREF 1n1.4)
    >> DIH .111(XREF 1n1.4), .111(XREF 1n2.4), .111(XREF 2n1.4), .111(XREF 2n2.4), .112(XREF 1n1.4), .112(XREF 1n2.4), .121(XREF 1n1.4), .121(XREF 1n2.4), .121(XREF 2n1.4), .121(XREF 2n2.4)
    .122(XREF 1n1.4), .122(XREF 1n2.4), .128(XREF 1n1.4), .141(XREF 1n1.4), .141(XREF 1n2.4), .141(XREF 2n1.4), .141(XREF 2n2.4), .142(XREF 1n1.4), .142(XREF 1n2.4), .148(XREF 1n1.4)
    .151(XREF 1n1.4), .151(XREF 1n2.4), .151(XREF 2n1.4), .151(XREF 2n2.4), .152(XREF 1n1.4), .152(XREF 1n2.4), .158(XREF 1n1.4), .161(XREF 1n1.4), .161(XREF 1n2.4), .161(XREF 2n1.4)
    .161(XREF 2n2.4), .162(XREF 1n1.4), .162(XREF 1n2.4), .168(XREF 1n1.4), .178(XREF 1n1.4), .181(XREF 1n1.4), .181(XREF 1n2.4), .181(XREF 2n1.4), .181(XREF 2n2.4), .182(XREF 1n1.4)
    .182(XREF 1n2.4), .188(XREF 1n1.4), .111(XREF 1n1.4), .111(XREF 1n2.4), .111(XREF 2n1.4), .111(XREF 2n2.4), .112(XREF 1n1.4), .112(XREF 1n2.4), .121(XREF 1n1.4), .121(XREF 1n2.4)
    .121(XREF 2n1.4), .121(XREF 2n2.4), .122(XREF 1n1.4), .122(XREF 1n2.4), .128(XREF 1n1.4), .141(XREF 1n1.4), .141(XREF 1n2.4), .141(XREF 2n1.4), .141(XREF 2n2.4), .142(XREF 1n1.4)
    .142(XREF 1n2.4), .148(XREF 1n1.4), .151(XREF 1n1.4), .151(XREF 1n2.4), .151(XREF 2n1.4), .151(XREF 2n2.4), .152(XREF 1n1.4), .152(XREF 1n2.4), .158(XREF 1n1.4), .161(XREF 1n1.4)
    .161(XREF 1n2.4), .161(XREF 2n1.4), .161(XREF 2n2.4), .162(XREF 1n1.4), .162(XREF 1n2.4), .168(XREF 1n1.4), .178(XREF 1n1.4), .181(XREF 1n1.4), .181(XREF 1n2.4), .181(XREF 2n1.4)
    .181(XREF 2n2.4), .182(XREF 1n1.4), .182(XREF 1n2.4), .188(XREF 1n1.4)
    >> DIU .111(XREF 1S), .111(XREF 1K), .111(XREF 2S), .111(XREF 2K), .112(XREF 1S), .112(XREF 1K), .121(XREF 1S), .121(XREF 1K), .121(XREF 2S), .121(XREF 2K)
    .122(XREF 1S), .122(XREF 1K), .128(XREF 1S), .141(XREF 1S), .141(XREF 1K), .141(XREF 2S), .141(XREF 2K), .142(XREF 1S), .142(XREF 1K), .148(XREF 1S)
    .151(XREF 1S), .151(XREF 1K), .151(XREF 2S), .151(XREF 2K), .152(XREF 1S), .152(XREF 1K), .158(XREF 1S), .161(XREF 1S), .161(XREF 1K), .161(XREF 2S)
    .161(XREF 2K), .162(XREF 1S), .162(XREF 1K), .168(XREF 1S), .178(XREF 1S), .181(XREF 1S), .181(XREF 1K), .181(XREF 2S), .181(XREF 2K), .182(XREF 1S)
    .182(XREF 1K), .188(XREF 1S), .111(XREF 1S), .111(XREF 1K), .111(XREF 2S), .111(XREF 2K), .112(XREF 1S), .112(XREF 1K), .121(XREF 1S), .121(XREF 1K)
    .121(XREF 2S), .121(XREF 2K), .122(XREF 1S), .122(XREF 1K), .128(XREF 1S), .141(XREF 1S), .141(XREF 1K), .141(XREF 2S), .141(XREF 2K), .142(XREF 1S)
    .142(XREF 1K), .148(XREF 1S), .151(XREF 1S), .151(XREF 1K), .151(XREF 2S), .151(XREF 2K), .152(XREF 1S), .152(XREF 1K), .158(XREF 1S), .161(XREF 1S)
    .161(XREF 1K), .161(XREF 2S), .161(XREF 2K), .162(XREF 1S), .162(XREF 1K), .168(XREF 1S), .178(XREF 1S), .181(XREF 1S), .181(XREF 1K), .181(XREF 2S)
    .181(XREF 2K), .182(XREF 1S), .182(XREF 1K), .188(XREF 1S)
    DIV .111(XREF 1S), .111(XREF 1n1.4), .111(XREF 1K), .111(XREF 1n2.4), .111(XREF 2S), .111(XREF 2n1.4), .111(XREF 2K), .111(XREF 2n2.4), .112(XREF 1S), .112(XREF 1n1.4)
    .112(XREF 1K), .112(XREF 1n2.4), .121(XREF 1S), .121(XREF 1n1.4), .121(XREF 1K), .121(XREF 1n2.4), .121(XREF 2S), .121(XREF 2n1.4), .121(XREF 2K), .121(XREF 2n2.4)
    .122(XREF 1S), .122(XREF 1n1.4), .122(XREF 1K), .122(XREF 1n2.4), .128(XREF 1S), .128(XREF 1n1.4), .141(XREF 1S), .141(XREF 1n1.4), .141(XREF 1K), .141(XREF 1n2.4)
    .141(XREF 2S), .141(XREF 2n1.4), .141(XREF 2K), .141(XREF 2n2.4), .142(XREF 1S), .142(XREF 1n1.4), .142(XREF 1K), .142(XREF 1n2.4), .148(XREF 1S), .148(XREF 1n1.4)
    .151(XREF 1S), .151(XREF 1n1.4), .151(XREF 1K), .151(XREF 1n2.4), .151(XREF 2S), .151(XREF 2n1.4), .151(XREF 2K), .151(XREF 2n2.4), .152(XREF 1S), .152(XREF 1n1.4)
    .152(XREF 1K), .152(XREF 1n2.4), .158(XREF 1S), .158(XREF 1n1.4), .161(XREF 1S), .161(XREF 1n1.4), .161(XREF 1K), .161(XREF 1n2.4), .161(XREF 2S), .161(XREF 2n1.4)
    .161(XREF 2K), .161(XREF 2n2.4), .162(XREF 1S), .162(XREF 1n1.4), .162(XREF 1K), .162(XREF 1n2.4), .168(XREF 1S), .168(XREF 1n1.4), .178(XREF 1S), .178(XREF 1n1.4)
    .181(XREF 1S), .181(XREF 1n1.4), .181(XREF 1K), .181(XREF 1n2.4), .181(XREF 2S), .181(XREF 2n1.4), .181(XREF 2K), .181(XREF 2n2.4), .182(XREF 1S), .182(XREF 1n1.4)
    .182(XREF 1K), .182(XREF 1n2.4), .188(XREF 1S), .188(XREF 1n1.4), .111(XREF 1S), .111(XREF 1n1.4), .111(XREF 1K), .111(XREF 1n2.4), .111(XREF 2S), .111(XREF 2n1.4)
    .111(XREF 2K), .111(XREF 2n2.4), .112(XREF 1S), .112(XREF 1n1.4), .112(XREF 1K), .112(XREF 1n2.4), .121(XREF 1S), .121(XREF 1n1.4), .121(XREF 1K), .121(XREF 1n2.4)
    .121(XREF 2S), .121(XREF 2n1.4), .121(XREF 2K), .121(XREF 2n2.4), .122(XREF 1S), .122(XREF 1n1.4), .122(XREF 1K), .122(XREF 1n2.4), .128(XREF 1S), .128(XREF 1n1.4)
    .141(XREF 1S), .141(XREF 1n1.4), .141(XREF 1K), .141(XREF 1n2.4), .141(XREF 2S), .141(XREF 2n1.4), .141(XREF 2K), .141(XREF 2n2.4), .142(XREF 1S), .142(XREF 1n1.4)
    .142(XREF 1K), .142(XREF 1n2.4), .148(XREF 1S), .148(XREF 1n1.4), .151(XREF 1S), .151(XREF 1n1.4), .151(XREF 1K), .151(XREF 1n2.4), .151(XREF 2S), .151(XREF 2n1.4)
    .151(XREF 2K), .151(XREF 2n2.4), .152(XREF 1S), .152(XREF 1n1.4), .152(XREF 1K), .152(XREF 1n2.4), .158(XREF 1S), .158(XREF 1n1.4), .161(XREF 1S), .161(XREF 1n1.4)
    .161(XREF 1K), .161(XREF 1n2.4), .161(XREF 2S), .161(XREF 2n1.4), .161(XREF 2K), .161(XREF 2n2.4), .162(XREF 1S), .162(XREF 1n1.4), .162(XREF 1K), .162(XREF 1n2.4)
    .168(XREF 1S), .168(XREF 1n1.4), .178(XREF 1S), .178(XREF 1n1.4), .181(XREF 1S), .181(XREF 1n1.4), .181(XREF 1K), .181(XREF 1n2.4), .181(XREF 2S), .181(XREF 2n1.4)
    .181(XREF 2K), .181(XREF 2n2.4), .182(XREF 1S), .182(XREF 1n1.4), .182(XREF 1K), .182(XREF 1n2.4), .188(XREF 1S), .188(XREF 1n1.4)
    DIV(0 .111(XREF 1S), .111(XREF 1n1.4), .111(XREF 1K), .111(XREF 1n2.4), .111(XREF 2S), .111(XREF 2n1.4), .111(XREF 2K), .111(XREF 2n2.4), .112(XREF 1S), .112(XREF 1n1.4)
    .112(XREF 1K), .112(XREF 1n2.4), .121(XREF 1S), .121(XREF 1n1.4), .121(XREF 1K), .121(XREF 1n2.4), .121(XREF 2S), .121(XREF 2n1.4), .121(XREF 2K), .121(XREF 2n2.4)
    .122(XREF 1S), .122(XREF 1n1.4), .122(XREF 1K), .122(XREF 1n2.4), .128(XREF 1S), .128(XREF 1n1.4), .141(XREF 1S), .141(XREF 1n1.4), .141(XREF 1K), .141(XREF 1n2.4)
    .141(XREF 2S), .141(XREF 2n1.4), .141(XREF 2K), .141(XREF 2n2.4), .142(XREF 1S), .142(XREF 1n1.4), .142(XREF 1K), .142(XREF 1n2.4), .148(XREF 1S), .148(XREF 1n1.4)
    .151(XREF 1S), .151(XREF 1n1.4), .151(XREF 1K), .151(XREF 1n2.4), .151(XREF 2S), .151(XREF 2n1.4), .151(XREF 2K), .151(XREF 2n2.4), .152(XREF 1S), .152(XREF 1n1.4)
    .152(XREF 1K), .152(XREF 1n2.4), .158(XREF 1S), .158(XREF 1n1.4), .161(XREF 1S), .161(XREF 1n1.4), .161(XREF 1K), .161(XREF 1n2.4), .161(XREF 2S), .161(XREF 2n1.4)
    .161(XREF 2K), .161(XREF 2n2.4), .162(XREF 1S), .162(XREF 1n1.4), .162(XREF 1K), .162(XREF 1n2.4), .168(XREF 1S), .168(XREF 1n1.4), .178(XREF 1S), .178(XREF 1n1.4)
    .181(XREF 1S), .181(XREF 1n1.4), .181(XREF 1K), .181(XREF 1n2.4), .181(XREF 2S), .181(XREF 2n1.4), .181(XREF 2K), .181(XREF 2n2.4), .182(XREF 1S), .182(XREF 1n1.4)
    .182(XREF 1K), .182(XREF 1n2.4), .188(XREF 1S), .188(XREF 1n1.4), .111(XREF 1S), .111(XREF 1n1.4), .111(XREF 1K), .111(XREF 1n2.4), .111(XREF 2S), .111(XREF 2n1.4)
    .111(XREF 2K), .111(XREF 2n2.4), .112(XREF 1S), .112(XREF 1n1.4), .112(XREF 1K), .112(XREF 1n2.4), .121(XREF 1S), .121(XREF 1n1.4), .121(XREF 1K), .121(XREF 1n2.4)
    .121(XREF 2S), .121(XREF 2n1.4), .121(XREF 2K), .121(XREF 2n2.4), .122(XREF 1S), .122(XREF 1n1.4), .122(XREF 1K), .122(XREF 1n2.4), .128(XREF 1S), .128(XREF 1n1.4)
    .141(XREF 1S), .141(XREF 1n1.4), .141(XREF 1K), .141(XREF 1n2.4), .141(XREF 2S), .141(XREF 2n1.4), .141(XREF 2K), .141(XREF 2n2.4), .142(XREF 1S), .142(XREF 1n1.4)
    .142(XREF 1K), .142(XREF 1n2.4), .148(XREF 1S), .148(XREF 1n1.4), .151(XREF 1S), .151(XREF 1n1.4), .151(XREF 1K), .151(XREF 1n2.4), .151(XREF 2S), .151(XREF 2n1.4)
    .151(XREF 2K), .151(XREF 2n2.4), .152(XREF 1S), .152(XREF 1n1.4), .152(XREF 1K), .152(XREF 1n2.4), .158(XREF 1S), .158(XREF 1n1.4), .161(XREF 1S), .161(XREF 1n1.4)
    .161(XREF 1K), .161(XREF 1n2.4), .161(XREF 2S), .161(XREF 2n1.4), .161(XREF 2K), .161(XREF 2n2.4), .162(XREF 1S), .162(XREF 1n1.4), .162(XREF 1K), .162(XREF 1n2.4)
    .168(XREF 1S), .168(XREF 1n1.4), .178(XREF 1S), .178(XREF 1n1.4), .181(XREF 1S), .181(XREF 1n1.4), .181(XREF 1K), .181(XREF 1n2.4), .181(XREF 2S), .181(XREF 2n1.4)
    .181(XREF 2K), .181(XREF 2n2.4), .182(XREF 1S), .182(XREF 1n1.4), .182(XREF 1K), .182(XREF 1n2.4), .188(XREF 1S), .188(XREF 1n1.4)
    DUZ .01DEL1+1, .01DEL1+1
    U ID.111+1, ID.114+1, ID.115+1, ID1+1, .111(XREF 1S), .111(XREF 1n1.4), .111(XREF 1K), .111(XREF 1n2.4), .111(XREF 2S), .111(XREF 2n1.4)
    .111(XREF 2K), .111(XREF 2n2.4), .112(XREF 1S), .112(XREF 1n1.4), .112(XREF 1K), .112(XREF 1n2.4), .121(XREF 1S), .121(XREF 1n1.4), .121(XREF 1K), .121(XREF 1n2.4)
    .121(XREF 2S), .121(XREF 2n1.4), .121(XREF 2K), .121(XREF 2n2.4), .122(XREF 1S), .122(XREF 1n1.4), .122(XREF 1K), .122(XREF 1n2.4), .128(XREF 1S), .128(XREF 1n1.4)
    .141(XREF 1S), .141(XREF 1n1.4), .141(XREF 1K), .141(XREF 1n2.4), .141(XREF 2S), .141(XREF 2n1.4), .141(XREF 2K), .141(XREF 2n2.4), .142(XREF 1S), .142(XREF 1n1.4)
    .142(XREF 1K), .142(XREF 1n2.4), .148(XREF 1S), .148(XREF 1n1.4), .151(XREF 1S), .151(XREF 1n1.4), .151(XREF 1K), .151(XREF 1n2.4), .151(XREF 2S), .151(XREF 2n1.4)
    .151(XREF 2K), .151(XREF 2n2.4), .152(XREF 1S), .152(XREF 1n1.4), .152(XREF 1K), .152(XREF 1n2.4), .158(XREF 1S), .158(XREF 1n1.4), .161(XREF 1S), .161(XREF 1n1.4)
    .161(XREF 1K), .161(XREF 1n2.4), .161(XREF 2S), .161(XREF 2n1.4), .161(XREF 2K), .161(XREF 2n2.4), .162(XREF 1S), .162(XREF 1n1.4), .162(XREF 1K), .162(XREF 1n2.4)
    .168(XREF 1S), .168(XREF 1n1.4), .178(XREF 1S), .178(XREF 1n1.4), .181(XREF 1S), .181(XREF 1n1.4), .181(XREF 1K), .181(XREF 1n2.4), .181(XREF 2S), .181(XREF 2n1.4)
    .181(XREF 2K), .181(XREF 2n2.4), .182(XREF 1S), .182(XREF 1n1.4), .182(XREF 1K), .182(XREF 1n2.4), .188(XREF 1S), .188(XREF 1n1.4), ID.111+1, ID.114+1
    , ID.115+1, ID1+1, .111(XREF 1S), .111(XREF 1n1.4), .111(XREF 1K), .111(XREF 1n2.4), .111(XREF 2S), .111(XREF 2n1.4), .111(XREF 2K), .111(XREF 2n2.4)
    .112(XREF 1S), .112(XREF 1n1.4), .112(XREF 1K), .112(XREF 1n2.4), .121(XREF 1S), .121(XREF 1n1.4), .121(XREF 1K), .121(XREF 1n2.4), .121(XREF 2S), .121(XREF 2n1.4)
    .121(XREF 2K), .121(XREF 2n2.4), .122(XREF 1S), .122(XREF 1n1.4), .122(XREF 1K), .122(XREF 1n2.4), .128(XREF 1S), .128(XREF 1n1.4), .141(XREF 1S), .141(XREF 1n1.4)
    .141(XREF 1K), .141(XREF 1n2.4), .141(XREF 2S), .141(XREF 2n1.4), .141(XREF 2K), .141(XREF 2n2.4), .142(XREF 1S), .142(XREF 1n1.4), .142(XREF 1K), .142(XREF 1n2.4)
    .148(XREF 1S), .148(XREF 1n1.4), .151(XREF 1S), .151(XREF 1n1.4), .151(XREF 1K), .151(XREF 1n2.4), .151(XREF 2S), .151(XREF 2n1.4), .151(XREF 2K), .151(XREF 2n2.4)
    .152(XREF 1S), .152(XREF 1n1.4), .152(XREF 1K), .152(XREF 1n2.4), .158(XREF 1S), .158(XREF 1n1.4), .161(XREF 1S), .161(XREF 1n1.4), .161(XREF 1K), .161(XREF 1n2.4)
    .161(XREF 2S), .161(XREF 2n1.4), .161(XREF 2K), .161(XREF 2n2.4), .162(XREF 1S), .162(XREF 1n1.4), .162(XREF 1K), .162(XREF 1n2.4), .168(XREF 1S), .168(XREF 1n1.4)
    .178(XREF 1S), .178(XREF 1n1.4), .181(XREF 1S), .181(XREF 1n1.4), .181(XREF 1K), .181(XREF 1n2.4), .181(XREF 2S), .181(XREF 2n1.4), .181(XREF 2K), .181(XREF 2n2.4)
    .182(XREF 1S), .182(XREF 1n1.4), .182(XREF 1K), .182(XREF 1n2.4), .188(XREF 1S), .188(XREF 1n1.4)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .07+1!, .09+1*!, .1+1!, .11+1!, .111+1!, .111(XREF 1S), .111(XREF 1n1.4)
    .111(XREF 1K), .111(XREF 1n2.4), .111(XREF 2S), .111(XREF 2n1.4), .111(XREF 2K), .111(XREF 2n2.4), .112+1!, .112(XREF 1S), .112(XREF 1n1.4), .112(XREF 1K)
    .112(XREF 1n2.4), .113+1!, .114+1!, .116+1!, .117+1!, .119+1!, .12+1!, .121+1!, .121(XREF 1S), .121(XREF 1n1.4)
    .121(XREF 1K), .121(XREF 1n2.4), .121(XREF 2S), .121(XREF 2n1.4), .121(XREF 2K), .121(XREF 2n2.4), .122+1!, .122(XREF 1S), .122(XREF 1n1.4), .122(XREF 1K)
    .122(XREF 1n2.4), .123+1!, .124+1!, .126+1!, .127+1*!, .128(XREF 1S), .128(XREF 1n1.4), .129+1!, .131+1!, .1311+1!
    , .132+1!, .133+1!, .134+1!, .135+1!, .136+1!, .137+1!, .138+1!, .139+1*!, .141+1!, .141(XREF 1S)
    .141(XREF 1n1.4), .141(XREF 1K), .141(XREF 1n2.4), .141(XREF 2S), .141(XREF 2n1.4), .141(XREF 2K), .141(XREF 2n2.4), .142+1!, .142(XREF 1S), .142(XREF 1n1.4)
    .142(XREF 1K), .142(XREF 1n2.4), .143+1!, .144+1!, .146+1!, .147+1*!, .148(XREF 1S), .148(XREF 1n1.4), .149+1!, .15+1*!
    , .151+1!, .151(XREF 1S), .151(XREF 1n1.4), .151(XREF 1K), .151(XREF 1n2.4), .151(XREF 2S), .151(XREF 2n1.4), .151(XREF 2K), .151(XREF 2n2.4), .152+1!
    .152(XREF 1S), .152(XREF 1n1.4), .152(XREF 1K), .152(XREF 1n2.4), .153+1!, .154+1!, .156+1!, .157+1*!, .158(XREF 1S), .158(XREF 1n1.4)
    , .159+1!, .161+1!, .161(XREF 1S), .161(XREF 1n1.4), .161(XREF 1K), .161(XREF 1n2.4), .161(XREF 2S), .161(XREF 2n1.4), .161(XREF 2K), .161(XREF 2n2.4)
    , .162+1!, .162(XREF 1S), .162(XREF 1n1.4), .162(XREF 1K), .162(XREF 1n2.4), .163+1!, .164+1!, .166+1!, .167+1*!, .168(XREF 1S)
    .168(XREF 1n1.4), .169+1!, .178(XREF 1S), .178(XREF 1n1.4), .181+1!, .181(XREF 1S), .181(XREF 1n1.4), .181(XREF 1K), .181(XREF 1n2.4), .181(XREF 2S)
    .181(XREF 2n1.4), .181(XREF 2K), .181(XREF 2n2.4), .182+1!, .182(XREF 1S), .182(XREF 1n1.4), .182(XREF 1K), .182(XREF 1n2.4), .183+1!, .184+1!
    , .186+1!, .187+1*!, .188(XREF 1S), .188(XREF 1n1.4), .189+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), .07+1!, .09+1*!
    , .1+1!, .11+1!, .111+1!, .111(XREF 1S), .111(XREF 1n1.4), .111(XREF 1K), .111(XREF 1n2.4), .111(XREF 2S), .111(XREF 2n1.4), .111(XREF 2K)
    .111(XREF 2n2.4), .112+1!, .112(XREF 1S), .112(XREF 1n1.4), .112(XREF 1K), .112(XREF 1n2.4), .113+1!, .114+1!, .116+1!, .117+1!
    , .119+1!, .12+1!, .121+1!, .121(XREF 1S), .121(XREF 1n1.4), .121(XREF 1K), .121(XREF 1n2.4), .121(XREF 2S), .121(XREF 2n1.4), .121(XREF 2K)
    .121(XREF 2n2.4), .122+1!, .122(XREF 1S), .122(XREF 1n1.4), .122(XREF 1K), .122(XREF 1n2.4), .123+1!, .124+1!, .126+1!, .127+1*!
    .128(XREF 1S), .128(XREF 1n1.4), .129+1!, .131+1!, .1311+1!, .132+1!, .133+1!, .134+1!, .135+1!, .136+1!
    , .137+1!, .138+1!, .139+1*!, .141+1!, .141(XREF 1S), .141(XREF 1n1.4), .141(XREF 1K), .141(XREF 1n2.4), .141(XREF 2S), .141(XREF 2n1.4)
    .141(XREF 2K), .141(XREF 2n2.4), .142+1!, .142(XREF 1S), .142(XREF 1n1.4), .142(XREF 1K), .142(XREF 1n2.4), .143+1!, .144+1!, .146+1!
    , .147+1*!, .148(XREF 1S), .148(XREF 1n1.4), .149+1!, .15+1*!, .151+1!, .151(XREF 1S), .151(XREF 1n1.4), .151(XREF 1K), .151(XREF 1n2.4)
    .151(XREF 2S), .151(XREF 2n1.4), .151(XREF 2K), .151(XREF 2n2.4), .152+1!, .152(XREF 1S), .152(XREF 1n1.4), .152(XREF 1K), .152(XREF 1n2.4), .153+1!
    , .154+1!, .156+1!, .157+1*!, .158(XREF 1S), .158(XREF 1n1.4), .159+1!, .161+1!, .161(XREF 1S), .161(XREF 1n1.4), .161(XREF 1K)
    .161(XREF 1n2.4), .161(XREF 2S), .161(XREF 2n1.4), .161(XREF 2K), .161(XREF 2n2.4), .162+1!, .162(XREF 1S), .162(XREF 1n1.4), .162(XREF 1K), .162(XREF 1n2.4)
    , .163+1!, .164+1!, .166+1!, .167+1*!, .168(XREF 1S), .168(XREF 1n1.4), .169+1!, .178(XREF 1S), .178(XREF 1n1.4), .181+1!
    .181(XREF 1S), .181(XREF 1n1.4), .181(XREF 1K), .181(XREF 1n2.4), .181(XREF 2S), .181(XREF 2n1.4), .181(XREF 2K), .181(XREF 2n2.4), .182+1!, .182(XREF 1S)
    .182(XREF 1n1.4), .182(XREF 1K), .182(XREF 1n2.4), .183+1!, .184+1!, .186+1!, .187+1*!, .188(XREF 1S), .188(XREF 1n1.4), .189+1!
    Y ID.115+1*, .09+1, .111(XREF 1S), .111(XREF 1K), .111(XREF 2S), .111(XREF 2K), .112(XREF 1S), .112(XREF 1K), .116OT+1, .121(XREF 1S)
    .121(XREF 1K), .121(XREF 2S), .121(XREF 2K), .122(XREF 1S), .122(XREF 1K), .126OT+1, .127+1, .128(XREF 1S), .139+1, .141(XREF 1S)
    .141(XREF 1K), .141(XREF 2S), .141(XREF 2K), .142(XREF 1S), .142(XREF 1K), .146OT+1, .147+1, .148(XREF 1S), .15+1, .151(XREF 1S)
    .151(XREF 1K), .151(XREF 2S), .151(XREF 2K), .152(XREF 1S), .152(XREF 1K), .156OT+1, .157+1, .158(XREF 1S), .161(XREF 1S), .161(XREF 1K)
    .161(XREF 2S), .161(XREF 2K), .162(XREF 1S), .162(XREF 1K), .166OT+1, .167+1, .168(XREF 1S), .178(XREF 1S), .181(XREF 1S), .181(XREF 1K)
    .181(XREF 2S), .181(XREF 2K), .182(XREF 1S), .182(XREF 1K), .186OT+1, .187+1, .188(XREF 1S), ID.115+1*, .09+1, .111(XREF 1S)
    .111(XREF 1K), .111(XREF 2S), .111(XREF 2K), .112(XREF 1S), .112(XREF 1K), .116OT+1, .121(XREF 1S), .121(XREF 1K), .121(XREF 2S), .121(XREF 2K)
    .122(XREF 1S), .122(XREF 1K), .126OT+1, .127+1, .128(XREF 1S), .139+1, .141(XREF 1S), .141(XREF 1K), .141(XREF 2S), .141(XREF 2K)
    .142(XREF 1S), .142(XREF 1K), .146OT+1, .147+1, .148(XREF 1S), .15+1, .151(XREF 1S), .151(XREF 1K), .151(XREF 2S), .151(XREF 2K)
    .152(XREF 1S), .152(XREF 1K), .156OT+1, .157+1, .158(XREF 1S), .161(XREF 1S), .161(XREF 1K), .161(XREF 2S), .161(XREF 2K), .162(XREF 1S)
    .162(XREF 1K), .166OT+1, .167+1, .168(XREF 1S), .178(XREF 1S), .181(XREF 1S), .181(XREF 1K), .181(XREF 2S), .181(XREF 2K), .182(XREF 1S)
    .182(XREF 1K), .186OT+1, .187+1, .188(XREF 1S)
    Y(0 .116OT+1*, .126OT+1*, .128(XREF 1S), .146OT+1*, .148(XREF 1S), .156OT+1*, .158(XREF 1S), .166OT+1*, .168(XREF 1S), .178(XREF 1S)
    , .186OT+1*, .188(XREF 1S), .116OT+1*, .126OT+1*, .128(XREF 1S), .146OT+1*, .148(XREF 1S), .156OT+1*, .158(XREF 1S), .166OT+1*
    .168(XREF 1S), .178(XREF 1S), .186OT+1*, .188(XREF 1S)
    Y(1 .111(XREF 1S), .111(XREF 1K), .111(XREF 2S), .111(XREF 2K), .112(XREF 1S), .112(XREF 1K), .121(XREF 1S), .121(XREF 1K), .121(XREF 2S), .121(XREF 2K)
    .122(XREF 1S), .122(XREF 1K), .128(XREF 1S), .141(XREF 1S), .141(XREF 1K), .141(XREF 2S), .141(XREF 2K), .142(XREF 1S), .142(XREF 1K), .148(XREF 1S)
    .151(XREF 1S), .151(XREF 1K), .151(XREF 2S), .151(XREF 2K), .152(XREF 1S), .152(XREF 1K), .158(XREF 1S), .161(XREF 1S), .161(XREF 1K), .161(XREF 2S)
    .161(XREF 2K), .162(XREF 1S), .162(XREF 1K), .168(XREF 1S), .178(XREF 1S), .181(XREF 1S), .181(XREF 1K), .181(XREF 2S), .181(XREF 2K), .182(XREF 1S)
    .182(XREF 1K), .188(XREF 1S), .111(XREF 1S), .111(XREF 1K), .111(XREF 2S), .111(XREF 2K), .112(XREF 1S), .112(XREF 1K), .121(XREF 1S), .121(XREF 1K)
    .121(XREF 2S), .121(XREF 2K), .122(XREF 1S), .122(XREF 1K), .128(XREF 1S), .141(XREF 1S), .141(XREF 1K), .141(XREF 2S), .141(XREF 2K), .142(XREF 1S)
    .142(XREF 1K), .148(XREF 1S), .151(XREF 1S), .151(XREF 1K), .151(XREF 2S), .151(XREF 2K), .152(XREF 1S), .152(XREF 1K), .158(XREF 1S), .161(XREF 1S)
    .161(XREF 1K), .161(XREF 2S), .161(XREF 2K), .162(XREF 1S), .162(XREF 1K), .168(XREF 1S), .178(XREF 1S), .181(XREF 1S), .181(XREF 1K), .181(XREF 2S)
    .181(XREF 2K), .182(XREF 1S), .182(XREF 1K), .188(XREF 1S)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All