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 |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^DGCR(399.5

Package: Integrated Billing

Global: ^DGCR(399.5


Information

FileMan FileNo FileMan Filename Package
399.5 BILLING RATES Integrated Billing

Description

Directly Accessed By Routines, Total: 9

Package Total Routines
Integrated Billing 8 IBAUTL2    IBCBR    IBCOPV2    IBCU61    IBCU62    IBORAT2A    IBTOSUM1    ^DGCR(399.5
Registration 1 DGCRBR    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Integrated Billing 1 IBCBR    
Registration 1 DGCRBR    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Integrated Billing 2 MCCR UTILITY(#399.1)[.02]    REVENUE CODE(#399.2)[.03]    

Fields, Total: 7

Field # Name Loc Type Details
.01 EFFECTIVE DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:2991001X) X
  • LAST EDITED:  MAY 25, 1990
  • HELP-PROMPT:  TYPE A DATE BETWEEN 10/1/1986 AND 10/1/1999
  • DESCRIPTION:  This is the date in which changes in billing rates will take effect. A new entry, with a new effective date is necessary to change a previous entry. The most recent effective date's entry data will be used (even if its
    null) in calculating current charges.
  • CROSS-REFERENCE:  399.5^B
    1)= S ^DGCR(399.5,"B",$E(X,1,30),DA)=""
    2)= K ^DGCR(399.5,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  399.5^AIVDT^MUMPS
    1)= S:$P(^DGCR(399.5,DA,0),U,2)&($P(^(0),U,3)) ^DGCR(399.5,"AIVDT",$P(^(0),U,2),-X,$P(^(0),U,3),DA)=""
    2)= K:$P(^DGCR(399.5,DA,0),U,2)&($P(^(0),U,3)) ^DGCR(399.5,"AIVDT",$P(^(0),U,2),-X,$P(^(0),U,3),DA)
    3)= DON'T DELETE
    All rates by revenue code, bedsection, and inverse date effective.
.02 BILLING BEDSECTION 0;2 POINTER TO MCCR UTILITY FILE (#399.1)
************************REQUIRED FIELD************************
MCCR UTILITY(#399.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^DGCR(399.1,+Y,0),U,5)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 04, 1990
  • DESCRIPTION:  
    This is the Specialty for which we have approved billing rates.
  • SCREEN:  S DIC("S")="I $P(^DGCR(399.1,+Y,0),U,5)"
  • EXPLANATION:  VALID BILLING BEDSECTIONS ONLY
  • CROSS-REFERENCE:  399.5^AIVDT1^MUMPS
    1)= S:$P(^DGCR(399.5,DA,0),U,3) ^DGCR(399.5,"AIVDT",X,-^(0),$P(^(0),U,3),DA)=""
    2)= K:$P(^DGCR(399.5,DA,0),U,3) ^DGCR(399.5,"AIVDT",X,-^(0),$P(^(0),U,3),DA)
    3)= DON'T DELETE
    All rates by revenue code, bedsection, and inverse date effective.
.03 REVENUE CODE 0;3 POINTER TO REVENUE CODE FILE (#399.2)
************************REQUIRED FIELD************************
REVENUE CODE(#399.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^DGCR(399.2,+Y,0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 01, 1990
  • DESCRIPTION:  
    This is the revenue code that will automatically be used with this rate.
  • SCREEN:  S DIC("S")="I $P(^DGCR(399.2,+Y,0),U,3)"
  • EXPLANATION:  Select Active Revenue Codes Only!
  • CROSS-REFERENCE:  399.5^D
    1)= S ^DGCR(399.5,"D",$E(X,1,30),DA)=""
    2)= K ^DGCR(399.5,"D",$E(X,1,30),DA)
    3)= Don't delete this.
  • CROSS-REFERENCE:  399.5^AIVDT2^MUMPS
    1)= S:$P(^DGCR(399.5,DA,0),U,2) ^DGCR(399.5,"AIVDT",$P(^(0),U,2),-^(0),X,DA)=""
    2)= K:$P(^DGCR(399.5,DA,0),U,2) ^DGCR(399.5,"AIVDT",$P(^(0),U,2),-^(0),X,DA)
    3)= DON'T DELETE
    All rates by revenue code, bedsection, and inverse date effective.
.04 AMOUNT 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<1) X
  • OUTPUT TRANSFORM:  S X=Y,X2="2$" D COMMA^%DTC S Y=X
  • LAST EDITED:  MAY 29, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the unit charge dollar amount for this rate.
.05 ACTIVE 0;5 SET
  • '0' FOR NOT ACTIVE;
  • '1' FOR YES, ACTIVE;

  • LAST EDITED:  MAY 01, 1990
  • DESCRIPTION:  If a rate is no longer to be used it should be inactivated. This may be necessary if you are building rates for the same care using different Revenue Codes and would like to keep the old entries in the file for reference
    purposes.
.06 PAYORS TO USE WITH 0;6 SET
  • 'i' FOR INSURANCE CO.;
  • 'p' FOR PATIENTS;
  • 'o' FOR OTHER (INSTITUTIONS);
  • 'op' FOR PATIENTS & INSTITUTIONS;
  • 'iop' FOR ALL BUT CAT C'S;
  • 'iopc' FOR ALL;
  • 'c' FOR CAT C. BILLS ONLY;
  • 'opc' FOR ALL BUT INSURANCE CO.'S;

  • LAST EDITED:  MAY 04, 1990
  • DESCRIPTION:  Enter the payors that this Billing Rate is to be used with. For the purposes of this field, the choices for payer are:
    i - Insurance companies
    o - Other (Institutions
    p - Patients
    c - Means Test/Cat C bills
    All bills to patients will be considered patient bills except for Means test Co-payment bills, which may have a different amount or maximum associated with it.
.07 NON-STANDARD RATE 0;7 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 15, 1990
  • HELP-PROMPT:  Enter whether or not this Billing Rate should NOT be set up automatically for bills to the identified payors and bedsections.
  • DESCRIPTION:  This field should be answered 'YES' if this billing rate should not be automatically set up for all payers identified in the field 'PAYORS TO USE WITH." This billing rate will only be used with insurance companies where
    this revenue code has been listed in the  DIFFERENT REVENUE CODES TO USE field of the Insurance Company File.
    If this field is left blank or answered 'NO' then this Revenue Code and amount will be set up automatically for this bedsection when a bill is created.

Found Entries, Total: 378

EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    
EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    
EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    
EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    
EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    
EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1986-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    
EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    
EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    
EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    
EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    
EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1987-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    
EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    
EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    
EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    
EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    
EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1988-10-01 00:00:00    
EFFECTIVE DATE: 1988-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    
EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    
EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    
EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    
EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    
EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1989-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    
EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    
EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    
EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    
EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    
EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    
EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-10-01 00:00:00    EFFECTIVE DATE: 1990-12-01 00:00:00    EFFECTIVE DATE: 1990-12-01 00:00:00    EFFECTIVE DATE: 1990-12-01 00:00:00    EFFECTIVE DATE: 1990-12-01 00:00:00    
EFFECTIVE DATE: 1990-12-01 00:00:00    EFFECTIVE DATE: 1990-12-01 00:00:00    EFFECTIVE DATE: 1990-12-01 00:00:00    EFFECTIVE DATE: 1990-12-01 00:00:00    EFFECTIVE DATE: 1990-12-01 00:00:00    EFFECTIVE DATE: 1990-12-01 00:00:00    EFFECTIVE DATE: 1990-12-01 00:00:00    EFFECTIVE DATE: 1990-12-01 00:00:00    
EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    
EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    
EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    
EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    
EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    
EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-10-01 00:00:00    EFFECTIVE DATE: 1991-12-01 00:00:00    EFFECTIVE DATE: 1991-12-01 00:00:00    
EFFECTIVE DATE: 1991-12-01 00:00:00    EFFECTIVE DATE: 1991-12-01 00:00:00    EFFECTIVE DATE: 1991-12-01 00:00:00    EFFECTIVE DATE: 1991-12-01 00:00:00    EFFECTIVE DATE: 1991-12-01 00:00:00    EFFECTIVE DATE: 1991-12-01 00:00:00    EFFECTIVE DATE: 1991-12-01 00:00:00    EFFECTIVE DATE: 1991-12-01 00:00:00    
EFFECTIVE DATE: 1991-12-01 00:00:00    EFFECTIVE DATE: 1991-12-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    
EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    
EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    
EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    
EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    
EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1992-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    
EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    
EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    
EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    
EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    
EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    
EFFECTIVE DATE: 1993-10-01 00:00:00    EFFECTIVE DATE: 1993-10-01 00:00:00    

External References

Name Field # of Occurrence
^%DT .01+1
COMMA^%DTC ID.04+1, .04OT+1
^DIC .02+1, .03+1
Y^DIQ ID.02+1, ID.03+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(399.1 ID.02+1
^DD(399.2 ID.03+1
^DGCR(399.1 - [#399.1] ID.02+1
^DGCR(399.2 - [#399.2] ID.03+1
^DGCR(399.5 - [#399.5] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, ID.03+1, ID.04+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 2S), .02(XREF 2K), .03(XREF 2S), .03(XREF 2K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*
%I ID.02+1*!, ID.03+1*!
>> C ID.02+1*, ID.03+1*
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)
DGZX ID.04+1*!
DIC ID.02+1, ID.03+1, ID.05+1, .02+1!*, .03+1!*
DIC("S" .02+1*, .02SCR+1*, .03+1*, .03SCR+1*
>> DIE .02+1, .03+1
U ID.02+1, ID.03+1, ID.04+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 2S), .02(XREF 2K), .03(XREF 2S), .03(XREF 2K)
X ID.04+1*, .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02+1*!, .02(XREF 2S), .02(XREF 2K), .03+1*!
.03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04+1*!, .04OT+1*
X2 ID.04+1*!, .04OT+1*
>> Y ID.02+1*, ID.03+1*, .01+1, .02+1, .03+1, .04OT+1*
>> Y(0 .04OT+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All