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

Package: Integrated Billing

Global: ^IBT(356


Information

FileMan FileNo FileMan Filename Package
356 CLAIMS TRACKING Integrated Billing

Description

Directly Accessed By Routines, Total: 81

Package Total Routines
Integrated Billing 73 IBCD1    IBCD2    IBCD5    IBCNSBL    IBCONS3    IBCU8    IBCU81    IBCU82
IBTOAT    IBTODD1    IBTOTR    IBTOUR1    IBTOUR2    IBTOUR4    IBTOUR5    IBTRCD
IBTRDD    IBTRE1    IBTRE4    IBTRE6    IBTRKR2    IBTRKR3    IBTRKR41    IBTRKR5
IBTRPR0    IBTRPR1    IBTRV1    IBTRV2    IBTRV3    IBTRVD    IBTUTL1    IBTUTL2
IBTUTL3    IBTUTL4    ^IBT(356    ^IBT(356.1    ^IBT(356.2    ^IBT(356.399    IBCD    IBCDC
IBCDE    IBCNSP01    IBCNSP02    IBPU2    IBTOAT1    IBTOBI    IBTOBI4    IBTODD
IBTOLR    IBTOPW    IBTOSA    IBTOSUM    IBTOUA    IBTRC    IBTRC1    IBTRC2
IBTRC3    IBTRD    IBTRE    IBTRE0    IBTRE3    IBTRE5    IBTRED    IBTRED1
IBTRED2    IBTRKR31    ^IBA(362.1    IBTRKR    IBTRPR01    IBTRPR2    IBTRV    ^IBT(356.9
IBTUTL    
PCE Patient Care Encounter 1 PXICLN9B    

Accessed By FileMan Db Calls, Total: 19

Package Total Routines
Integrated Billing 19 IBCDC    IBCNSP01    IBCNSP02    IBCONS3    IBPU2    IBTOAT    IBTOLR    IBTOSA
IBTRC1    IBTRE1    IBTRED1    IBTRED2    IBTRKR    IBTRKR2    IBTRKR31    IBTRV
IBTUTL    IBTUTL1    IBTUTL2    

Pointed To By FileMan Files, Total: 4

Package Total FileMan Files
Integrated Billing 4 IB AUTOMATED BILLING COMMENTS(#362.1)[.02]    HOSPITAL REVIEW(#356.1)[.02]    INSURANCE REVIEW(#356.2)[.02]    CLAIMS TRACKING/BILL(#356.399)[.01]    

Pointer To FileMan Files, Total: 11

Package Total FileMan Files
Integrated Billing 4 BILL/CLAIMS(#399)[.11]    CLAIMS TRACKING TYPE(#356.6)[.18]    CLAIMS TRACKING NON-BILLABLE REASONS(#356.8)[.19]    INPATIENT DIAGNOSIS(#356.9)[.3]    
Registration 3 PATIENT MOVEMENT(#405)[.05]    SCHEDULED ADMISSION(#41.1)[.32]    VA PATIENT(#2)[.02]    
IHS Patient 1 VISIT(#9000010)[.03]    
Kernel 1 NEW PERSON(#200)[1.021.041.051.06]    
Outpatient Pharmacy 1 PRESCRIPTION(#52)[.08]    
Scheduling 1 OUTPATIENT ENCOUNTER(#409.68)[.04]    

Fields, Total: 38

Field # Name Loc Type Details
.01 ENTRY ID 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999)!(X<1001)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 09, 1993
  • HELP-PROMPT:  Type a Number between 1001 and 99999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is a unique number assigned to this entry.  The first 3 characters of the number are the station number.
  • DELETE TEST:  1,0)= I $P(^IBT(356,DA,0),U,2) W *7,!,"Only can be deleted from Menus"
  • CROSS-REFERENCE:  356^B
    1)= S ^IBT(356,"B",$E(X,1,30),DA)=""
    2)= K ^IBT(356,"B",$E(X,1,30),DA)
.02 PATIENT 0;2 POINTER TO VA PATIENT FILE (#2) VA PATIENT(#2)

  • LAST EDITED:  AUG 31, 1993
  • DESCRIPTION:  Enter the patient that this Claims Tracking entry is for. This is the patient whose admission, outpatient visit, prescription refill, prosthetic device or other encounter for medical care or services is being tracked.
  • CROSS-REFERENCE:  356^C
    1)= S ^IBT(356,"C",$E(X,1,30),DA)=""
    2)= K ^IBT(356,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  356^ADM1^MUMPS
    1)= S:$P(^IBT(356,DA,0),"^",5) ^IBT(356,"ADM",X,+$P(^(0),"^",5),DA)=""
    2)= K ^IBT(356,"ADM",X,+$P(^IBT(356,DA,0),"^",5),DA)
    Cross-reference of all admissions by patient.
  • CROSS-REFERENCE:  356^APTDT1^MUMPS
    1)= S:$P(^IBT(356,DA,0),U,6) ^IBT(356,"APTDT",X,-($P(^(0),U,6)),DA)=""
    2)= K ^IBT(356,"APTDT",X,-($P(^IBT(356,DA,0),U,6)),DA)
    Cross reference of all episodes of care by patient by date, in inverse date order so can list most recent first.
  • CROSS-REFERENCE:  356^ASPC1^MUMPS
    1)= S:$P(^IBT(356,DA,0),U,12) ^IBT(356,X,+$P(^(0),U,12),DA)=""
    2)= K ^IBT(356,X,+$P(^IBT(356,DA,0),U,12),DA)
    Cross-reference of special types of bills by patient.
  • CROSS-REFERENCE:  356^ADFN^MUMPS
    1)= S ^IBT(356,"ADFN"_X,+^IBT(356,DA,0),DA)=""
    2)= K ^IBT(356,"ADFN"_X,+^IBT(356,DA,0),DA)
    Cross-reference by patient dfn for fast look-up.
  • CROSS-REFERENCE:  356^ATOBIL^MUMPS
    1)= S:$P(^IBT(356,DA,0),U,17)&($P(^(0),U,18)) ^IBT(356,"ATOBIL",+X,+$P(^(0),U,18),+$P(^(0),U,17),DA)=""
    2)= K ^IBT(356,"ATOBIL",+X,+$P(^IBT(356,DA,0),U,18),+$P(^(0),U,17),DA)
    This is a cross-reference of all active billable events that have not already been billed.  It is used by the autobilling software to determine the next autobill date for a patient by type of event.
  • CROSS-REFERENCE:  356^APTY^MUMPS
    1)= S:$P(^IBT(356,DA,0),U,6)&($P(^(0),U,18)) ^IBT(356,"APTY",X,+$P(^(0),U,18),+$P(^(0),U,6),DA)=""
    2)= K ^IBT(356,"APTY",X,+$P(^IBT(356,DA,0),U,18),+$P(^(0),U,6),DA)
    Cross-reference of all entries by patient by event type, by episode date.
  • CROSS-REFERENCE:  356^AENC1^MUMPS
    1)= S:$P(^IBT(356,DA,0),U,4) ^IBT(356,"AENC",X,+$P(^(0),U,4),DA)=""
    2)= K ^IBT(356,"AENC",X,+$P(^IBT(356,DA,0),U,4),DA)
    Cross reference of all outpatient encounters by patient
.03 VISIT 0;3 POINTER TO VISIT FILE (#9000010) VISIT(#9000010)

  • LAST EDITED:  JUL 12, 1993
  • DESCRIPTION:  This is the visit for the patient that is being tracked in this entry.
    This field is a place holder for when visit tracking is implemented.  It will point to the visit that is being tracked.
  • CROSS-REFERENCE:  356^AVSIT
    1)= S ^IBT(356,"AVSIT",$E(X,1,30),DA)=""
    2)= K ^IBT(356,"AVSIT",$E(X,1,30),DA)
    Regular cross-reference of claim by visit.
.04 OUTPATIENT ENCOUNTER 0;4 POINTER TO OUTPATIENT ENCOUNTER FILE (#409.68) OUTPATIENT ENCOUNTER(#409.68)

  • LAST EDITED:  AUG 31, 1993
  • DESCRIPTION:  
    This is the outpatient encounter that is being tracked.  If this is entered and the provider and/or diagnosis for the encounter are entered then the inforamation will be extracted from the encounter file.
  • CROSS-REFERENCE:  356^ASCE
    1)= S ^IBT(356,"ASCE",$E(X,1,30),DA)=""
    2)= K ^IBT(356,"ASCE",$E(X,1,30),DA)
    Regular cross-reference of claims by outpatient encounters.
  • CROSS-REFERENCE:  356^AENC^MUMPS
    1)= S:$P(^IBT(356,DA,0),U,2) ^IBT(356,"AENC",+$P(^(0),U,2),X,DA)=""
    2)= K ^IBT(356,"AENC",+$P(^IBT(356,DA,0),U,2),X,DA)
    Cross reference of outpatient encounters by patient.
.05 ADMISSION 0;5 POINTER TO PATIENT MOVEMENT FILE (#405) PATIENT MOVEMENT(#405)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 18, 1993
  • DESCRIPTION:  
    This is the admission that is being tracked.  When an entry is added for inpatient care for any date the software will find the current admission for that date and use the current admission from the patient movement file.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=1"
  • EXPLANATION:  Only admissions for this patient.
  • CROSS-REFERENCE:  356^ADM^MUMPS
    1)= S:$P(^IBT(356,DA,0),"^",2) ^IBT(356,"ADM",+$P(^(0),"^",2),X,DA)=""
    2)= K ^IBT(356,"ADM",+$P(^IBT(356,DA,0),"^",2),X,DA)
    Cross reference of all admissions by patient.
  • CROSS-REFERENCE:  356^AD
    1)= S ^IBT(356,"AD",$E(X,1,30),DA)=""
    2)= K ^IBT(356,"AD",$E(X,1,30),DA)
    Regular x-ref of admission movement ifn
.06 EPISODE DATE 0;6 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 08, 1993
  • DESCRIPTION:  This is the date of the episode of care or services that is being tracked. For admissions, it is the admission date. For outpatient visits it is the visit date. For prescription refills it is the refill date. For
    prosthetic items it is the date that the prosthetic item was issued.
    The data in this field is entered by the Claims tracking event tracker routines.
  • CROSS-REFERENCE:  356^D
    1)= S ^IBT(356,"D",$E(X,1,30),DA)=""
    2)= K ^IBT(356,"D",$E(X,1,30),DA)
  • CROSS-REFERENCE:  356^APTDT^MUMPS
    1)= S:$P(^IBT(356,DA,0),U,2) ^IBT(356,"APTDT",+$P(^(0),U,2),-X,DA)=""
    2)= K ^IBT(356,"APTDT",+$P(^IBT(356,DA,0),U,2),-X,DA)
    Cross reference of all episodes of care by patient by date, in inverse date order so can list most recent first.
  • CROSS-REFERENCE:  356^APTY1^MUMPS
    1)= S:$P(^IBT(356,DA,0),U,2)&($P(^(0),U,18)) ^IBT(356,"APTY",+$P(^(0),U,2),+$P(^(0),U,18),X,DA)=""
    2)= K ^IBT(356,"APTY",+$P(^IBT(356,DA,0),U,2),+$P(^(0),U,18),X,DA)
    Cross-reference of all entries by patient by event type, by episode date.
.07 ADMISSION TYPE 0;7 SET
  • '1' FOR SCHEDULED;
  • '2' FOR URGENT;
  • '3' FOR EMERGENT;
  • '4' FOR UNSCHEDULED;
  • '5' FOR COURT ORDERED;

  • LAST EDITED:  AUG 20, 1993
  • DESCRIPTION:  Enter whether this admission was a scheduled admission, a direct admission from the outpatient area, or whether this was an urgent or emergent admission. The type of admission will impact whether pre-certification reviews
    should be done and the impact on reimbursements.
  • NOTES:  TRIGGERED by the EVENT TYPE field of the CLAIMS TRACKING File
.08 PRESCRIPTION 0;8 POINTER TO PRESCRIPTION FILE (#52) PRESCRIPTION(#52)

  • LAST EDITED:  AUG 13, 1993
  • DESCRIPTION:  
    If the entry that is being tracked is a prescription refill then this field should point to the entry in the prescription file.
  • CROSS-REFERENCE:  356^ARXFL1^MUMPS
    1)= S:$P(^IBT(356,DA,0),U,10) ^IBT(356,"ARXFL",X,+$P(^(0),U,10),DA)=""
    2)= K ^IBT(356,"ARXFL",X,+$P(^IBT(356,DA,0),U,10),DA)
    This is a cross reference of all prescriptions and refills.  It is used to ensure that only 1 entry for each refill is created.
.09 PROSTHETIC ITEM 0;9 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  JAN 31, 1994
  • DESCRIPTION:  
    If this tracking entry is for a prothetic item, this is the pointer to the prosthetic item file.
  • CROSS-REFERENCE:  356^APRO
    1)= S ^IBT(356,"APRO",$E(X,1,30),DA)=""
    2)= K ^IBT(356,"APRO",$E(X,1,30),DA)
.1 REFILL DATE 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 13, 1993
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  This is the internal entry number of the refill, it will have an input and output transform to make it look like its a date. The system will store the number value.
  • CROSS-REFERENCE:  356^ARXFL^MUMPS
    1)= S:$P(^IBT(356,DA,0),U,8) ^IBT(356,"ARXFL",$P(^(0),U,8),X,DA)=""
    2)= K ^IBT(356,"ARXFL",+$P(^IBT(356,DA,0),U,8),X,DA)
    This is a cross reference of all prescriptions and refills.  It is used to ensure that only 1 entry for each refill is created.
.11 INITIAL BILL NUMBER 0;11 POINTER TO BILL/CLAIMS FILE (#399) BILL/CLAIMS(#399)

  • LAST EDITED:  AUG 25, 1993
  • DESCRIPTION:  
    This is the bill number in the BILL/CLAIMS file for the initial bill number for this entry.  It is the bill to the third party for this claim.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the BILL NUMBER field of the CLAIMS TRACKING/BILL File
  • CROSS-REFERENCE:  356^E
    1)= S ^IBT(356,"E",$E(X,1,30),DA)=""
    2)= K ^IBT(356,"E",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^356^.17
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=$$BILL^IBTUTL(DA) X ^DD(356,.11,1,2,1.4)
    1.4)= S DIH=$S($D(^IBT(356,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 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(^IBT(356,D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=$$BILL^IBTUTL(DA) X ^DD(356,.11,1,2,2.4)
    2.4)= S DIH=$S($D(^IBT(356,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$$BILL^IBTUTL(DA)
    DELETE VALUE)= S X=$$BILL^IBTUTL(DA)
    FIELD)= EARLIEST AUTO BILL DATE
    Re-sets Earliest Auto Bill Date each time Initial Bill Number is modified.
.12 OTHER TYPE OF BILL 0;12 SET
  • '1' FOR TORT FEASOR;
  • '2' FOR FEDERAL OWCP;
  • '3' FOR WORKMAN'S COMP;
  • '4' FOR OTHER;

  • LAST EDITED:  AUG 24, 1993
  • DESCRIPTION:  If this claims tracking entry can be billed as other than an insurance claim or a patient bill enter the type of claim. If a patient has ever had a claim type other than insurance then special warnings may be given in the
    billing and claims tracking package.
    WRITE AUTHORITY:  @
  • CROSS-REFERENCE:  356^AC
    1)= S ^IBT(356,"AC",$E(X,1,30),DA)=""
    2)= K ^IBT(356,"AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  356^ASPC^MUMPS
    1)= S:$P(^IBT(356,DA,0),U,2) ^IBT(356,"ASPC",+$P(^(0),U,2),X,DA)=""
    2)= K ^IBT(356,"ASPC",+$P(^IBT(356,DA,0),U,2),X,DA)
    Cross reference of special types of bills by patient.
  • CROSS-REFERENCE:  ^^TRIGGER^356^.17
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="" S DIH=$S($D(^IBT(356,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 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(^IBT(356,D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=$$BILL^IBTUTL(DA) X ^DD(356,.12,1,3,2.4)
    2.4)= S DIH=$S($D(^IBT(356,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= S X=$$BILL^IBTUTL(DA)
    FIELD)= EARLIEST AUTO BILL DATE
    Deletes the Earliest Auto Bill Date (.17) if an Other Type of Bill is entered, the event may need a rate type other than reimbursable ins.  and therefore should not be billed by the automated biller.  Re-sets EABD if Other
    Type of Bill is deleted.
.14 SECOND OPINION REQUIRED 0;14 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 09, 1993
  • DESCRIPTION:  
    If this patient insurance policy requires a second opinion enter 'YES'.  If a second opinion is not required then enter 'NO'.
.15 SECOND OPINION OBTAINED 0;15 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 09, 1993
  • DESCRIPTION:  If a second opinion was required by this patients' insurance policy, enter 'YES' if it was obtained or 'NO' if it was not obtained. If a second opinion was obtained but did not meet the insurance companies criteria for
    any reason, enter 'NO'.
    This field will be used to help determine the estimated reimbursement from the insurance carrier.  If a second opinion was not obtained certain denials and penalties may be assessed.
.17 EARLIEST AUTO BILL DATE 0;17 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 24, 1993
  • HELP-PROMPT:  Enter the date the autobiller will first try and create a bill for this visit. Delete this date if the visit is not billable.
  • DESCRIPTION:  This is the earliest date that this visit can be automatically billed. The automatic billing software will use this date when searching for events to bill. All events with an Earliest Auto Bill Date on or before the run
    date of the automatic biller will be considered for inclusion on a bill.
    This field may be set in one of two ways.  If AUTOMATE BILLING is on for the Event Type then this field will be automatically set when apparently billable events are added to the claims tracking module.  This field can
    also be directly set by a user, AUTOMATE BILLING does not need to be on for the Event Type.  When the automated biller runs it will attempt to add the event to a bill.
    This date should be deleted if the event turns out not to be suitable for a reimbursable insurance bill.  This field will automatically be deleted if the event is added to a bill or a reason not-billable is entered.
  • TECHNICAL DESCR:  If and only if this field is set will the event be considered by the automatic biller. This will be set to the date the event was entered into claims tracking plus the number of days delay for the event type.
    Setting of this field may be automatic, ie. all by triggers, if automated billing is turned on for the event type.  Initially set by triggers on Event  Type (.18) and Date Entered (1.01).
    This may also be set by user.
    There is no checking to determine if the event is actually billable when the date is added.  Instead, if one of the fields that makes an event not billable is entered this field is deleted.
  • NOTES:  TRIGGERED by the EVENT TYPE field of the CLAIMS TRACKING File
    TRIGGERED by the DATE ENTERED field of the CLAIMS TRACKING File
    TRIGGERED by the INITIAL BILL NUMBER field of the CLAIMS TRACKING File
    TRIGGERED by the OTHER TYPE OF BILL field of the CLAIMS TRACKING File
    TRIGGERED by the REASON NOT BILLABLE field of the CLAIMS TRACKING File
    TRIGGERED by the INACTIVE field of the CLAIMS TRACKING File
  • CROSS-REFERENCE:  356^ABD
    1)= S ^IBT(356,"ABD",$E(X,1,30),DA)=""
    2)= K ^IBT(356,"ABD",$E(X,1,30),DA)
    Regular cross reference of auto bill date field.
  • CROSS-REFERENCE:  356^ATOBIL1^MUMPS
    1)= S:$P(^IBT(356,DA,0),U,2)&($P(^(0),U,18)) ^IBT(356,"ATOBIL",+$P(^(0),U,2),+$P(^(0),U,18),+X,DA)=""
    2)= K ^IBT(356,"ATOBIL",+$P(^IBT(356,DA,0),U,2),+$P(^(0),U,18),+X,DA)
    Cross-reference of all billable, non-billed events by patient, event type, and earliest auto bill date.  Only events with entries in this x-ref will be considered for inclusion on a bill by the automated biller.
.18 EVENT TYPE 0;18 POINTER TO CLAIMS TRACKING TYPE FILE (#356.6) CLAIMS TRACKING TYPE(#356.6)

  • LAST EDITED:  OCT 08, 1993
  • DESCRIPTION:  This is the type of event that is being tracked. This field is automatically stored when an entry is created. Scheduled admissions are tracked to allow for precertification reviews. When an admission occurs within 7
    days of a scheduled admission the scheduled admission will be updated to an inpatient care event type automatically.
    Choose an event type of Scheduled Admission only for future scheduled admissions and choose an event type of admission for past admissions.  If you are using the scheduled admissions portion of the MAS package then
    scheduled admissions will automatically be added to claims tracking 7 days before the scheduled admission and automatically converted to an event type of admission after the patient has been admitted.
    For admissions you will be able to specify the type of admission in another field.
  • CROSS-REFERENCE:  356^EVNT
    1)= S ^IBT(356,"EVNT",$E(X,1,30),DA)=""
    2)= K ^IBT(356,"EVNT",$E(X,1,30),DA)
  • CROSS-REFERENCE:  356^ANABD3^MUMPS
    1)= S:$P(^IBT(356,DA,0),U,20)&($P(^(0),U,19)="")&($P(^(0),"^",17)) ^IBT(356,"ANABD",X,$P(^(0),U,17),DA)=""
    2)= K ^IBT(356,"ANABD",X,+$P(^IBT(356,DA,0),U,17),DA)
    Cross reference of all active, billable events by event type and next auto bill date.
  • CROSS-REFERENCE:  ^^TRIGGER^356^.17
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(356,.18,1,3,1.1) X ^DD(356,.18,1,3,1.4)
    1.1)= S X=DIV S X=$$EABD^IBTUTL($P($G(^IBT(356,+DA,0)),U,18),+$G(^IBT(356,+DA,1)))
    1.4)= S DIH=$S($D(^IBT(356,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 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(^IBT(356,D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="" S DIH=$S($D(^IBT(356,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR:$N(^DD(DIH,DIG
    ,1,0))>0
    CREATE VALUE)= S X=$$EABD^IBTUTL($P($G(^IBT(356,+DA,0)),U,18),+$G(^IBT(356,+DA,1)))
    DELETE VALUE)= @
    FIELD)= EARLIEST AUTO BILL DATE
    Sets the Earliest Auto Bill Date whenever Event Type is set.  Does not check if event is billable.
  • CROSS-REFERENCE:  356^APTY2^MUMPS
    1)= S:$P(^IBT(356,DA,0),U,2)&($P(^(0),U,6)) ^IBT(356,"APTY",+$P(^(0),U,2),X,+$P(^(0),U,6),DA)=""
    2)= K ^IBT(356,"APTY",+$P(^IBT(356,DA,0),U,2),X,+$P(^(0),U,6),DA)
    Cross-reference of all entries by patient by event type, by episode date.
  • CROSS-REFERENCE:  ^^TRIGGER^356^.07
    1)= X ^DD(356,.18,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$$ADT^IBTRE0(DA) X ^DD(356,.18,1,5,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(356,.07,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,7)_":",2),$C(59),1)=""
    1.4)= S DIH=$S($D(^IBT(356,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=356,DIG=.07 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.07=""
    CREATE VALUE)= S X=$$ADT^IBTRE0(DA)
    DELETE VALUE)= NO EFFECT
    FIELD)= #.07
.19 REASON NOT BILLABLE 0;19 POINTER TO CLAIMS TRACKING NON-BILLABLE REASONS FILE (#356.8) CLAIMS TRACKING NON-BILLABLE REASONS(#356.8)

  • LAST EDITED:  AUG 24, 1993
  • DESCRIPTION:  Enter the primary reason this episode of care should not be billed to an insurance company.
    If a reason not billable is entered, then this episode will no longer appear on reports as billable and will not be used by the automated biller as a billable event.
  • CROSS-REFERENCE:  356^AR
    1)= S ^IBT(356,"AR",$E(X,1,30),DA)=""
    2)= K ^IBT(356,"AR",$E(X,1,30),DA)
    Regular cross reference of reason not billable
  • CROSS-REFERENCE:  356^ANABD1^MUMPS
    1)= K:X ^IBT(356,"ANABD",+$P(^IBT(356,DA,0),U,18),+$P(^(0),U,17),DA)
    2)= S:$P(^IBT(356,DA,0),U,20)&($P(^(0),U,17))&($P(^(0),U,18)) ^IBT(356,"ANABD",$P(^(0),U,18),$P(^(0),U,17),DA)=""
    Cross reference of all active, billable events by event type and next auto bill date.
  • CROSS-REFERENCE:  ^^TRIGGER^356^.17
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="" S DIH=$S($D(^IBT(356,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 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(^IBT(356,D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=$$BILL^IBTUTL(DA) X ^DD(356,.19,1,3,2.4)
    2.4)= S DIH=$S($D(^IBT(356,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= S X=$$BILL^IBTUTL(DA)
    FIELD)= EARLIEST AUTO BILL DATE
    Deletes the Earliest Auto Bill Date (.17) when Reason Not Billable is set, event is no longer billable.  Re-sets EABD if Reason Not Billable is deleted.
.2 INACTIVE 0;20 SET
  • '0' FOR INACTIVE;
  • '1' FOR ACTIVE;

  • LAST EDITED:  AUG 26, 1993
  • DESCRIPTION:  An entry is automatically inactived if the parent event that is being tracked is either deleted or edited so that it no longer is a valid tracking entry.
    Inactivating an entry has the same affect as deleting an entry except that the activity is left as a history.
  • CROSS-REFERENCE:  356^ANABD2^MUMPS
    1)= S:X&($P(^IBT(356,DA,0),U,19)="")&($P(^(0),U,18))&($P(^(0),U,17)) ^IBT(356,"ANABD",$P(^(0),U,18),$P(^(0),U,17),DA)=""
    2)= K ^IBT(356,"ANABD",+$P(^IBT(356,DA,0),U,18),+$P(^(0),U,17),DA)
    Cross reference of all active, billable events by event type and next auto bill date.
  • CROSS-REFERENCE:  ^^TRIGGER^356^.17
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=$$BILL^IBTUTL(DA) X ^DD(356,.2,1,2,1.4)
    1.4)= S DIH=$S($D(^IBT(356,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 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(^IBT(356,D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="" S DIH=$S($D(^IBT(356,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR:$N(^DD(DIH,DIG
    ,1,0))>0
    CREATE VALUE)= S X=$$BILL^IBTUTL(DA)
    DELETE VALUE)= @
    FIELD)= EARLIEST AUTO BILL DATE
    Re-sets Earliest Auto Bill Date whenever Status is modified.
.21 ESTIMATED INS. PAYMENT (PRI) 0;21 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JUL 12, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the estimated amount that the primary insurance carrier is expected to pay on this claim.
.22 ESTIMATED INS. PAYMENT (SEC) 0;22 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JUL 12, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This the the estimated amount that the secondary insurance carrier is expected to pay on this claim.
.23 ESTIMATED INS. PAYMENT (TER) 0;23 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JUL 12, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the estimated amount that the tertiary insurance carrier is expected to pay on this claim.
.24 TRACKED AS INSURANCE CLAIM? 0;24 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 27, 1993
  • DESCRIPTION:  Enter 'YES' if the patient is insured for this event. Enter 'No' if the patient is not insured for this event. If this event is not tracked as an insurance claim, the field REASON NOT BILLABLE will automatically have
    entered "NOT INSURED" if it is not otherwise entered.
  • SCREEN:  S DIC("S")="I $S(Y=0:1,$$INSURED^IBCNS1($P(^IBT(356,DA,0),U,2),$P(^(0),U,6)):1,1:0)"
  • EXPLANATION:  Only patients who have active insurance for the episode
  • CROSS-REFERENCE:  356^AI
    1)= S ^IBT(356,"AI",$E(X,1,30),DA)=""
    2)= K ^IBT(356,"AI",$E(X,1,30),DA)
.25 TRACKED AS RANDOM SAMPLE? 0;25 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 12, 1993
  • DESCRIPTION:  Enter if this is to be tracked as a Random Sample for UR purposes. The Claims tracking module is designed to flag one admission per week each from the 3 major bedsections, Medicine, Surgery, and Psychiatry, as a random
    sample that is to have utilization review follow-up.  If there is not sufficient activity in your facility for the automated tracker to set up the minimum random sample, then you may manually add entires to be tracked for
    UR purposes.
.26 TRACKED AS SPECIAL CONDITION 0;26 SET
  • '1' FOR TURP;
  • '2' FOR COPD;
  • '3' FOR CVD;
  • '0' FOR NONE;

  • LAST EDITED:  JAN 24, 1994
  • DESCRIPTION:  If you are tracking special conditions for follow up by UR then indicate that this is a special condition UR case and UR will be required and the information about this case will appear on special condition reports.
    The choices are:   TURP -- Transurethral Prostatectomy
    COPD -- Chronic Obstructive Pulmonary Disease
    CVD  -- Cerebrovascular Disease
.27 TRACKED AS A LOCAL ADDITION? 0;27 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 24, 1993
  • DESCRIPTION:  
    If this is being track as a local addition for UR purposes then enter 'YES'.
.28 ESTIMATED MT CHARGES 0;28 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JUL 12, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Enter the estimated amount of Means Test copayment charges that are to be paid by the patient for this case.
.29 ESTIMATED TOTAL CHARGES 0;29 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JUL 12, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  Enter the estimated total charges from this case. This is the estimated total amount due the government.
    The total estimated charges minus the estimated payments from all sources will be the amount not anticipated to be reimbursed from this case.  Comparing estimated receipt versus the actual amount received will help
    determine if all payers have sufficiently re-imbursed the government.
.3 ADMITTING REASON (ICD-9) 0;30 POINTER TO INPATIENT DIAGNOSIS FILE (#356.9) INPATIENT DIAGNOSIS(#356.9)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,4)=3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 01, 1993
  • DESCRIPTION:  
    This is the ICD9 diagnosis code for the admitting diagnosis.
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)=3"
  • EXPLANATION:  Must be the admitting diagnosis for this admission movement.
.31 SPECIAL CONSENT ROI 0;31 SET
  • '1' FOR NOT REQUIRED;
  • '2' FOR OBTAINED;
  • '3' FOR REQUIRED;
  • '4' FOR REFUSED;

  • LAST EDITED:  AUG 24, 1993
  • DESCRIPTION:  Enter whether or not a special consent release of information form for this patient for this episode of care is required, obtained, or not necessary. If ROI is required but not obtained, certain clinical information may
    not be released to Insurance carriers.  This will affect contacts with insurance companies and bill preparation.
    Generally a special consent is required if the patient has or was treated for Drug and Alcohol, HIV, and sickle cell anemia.
.32 SCHEDULED ADMISSION 0;32 POINTER TO SCHEDULED ADMISSION FILE (#41.1) SCHEDULED ADMISSION(#41.1)

  • INPUT TRANSFORM:  S DIC("S")="I +^(0)=$P(^IBT(356,DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 09, 1993
  • DESCRIPTION:  If this claims tracking entry is for a scheduled admission, this is the scheduled admission.
    This field points to the entry in the Scheduled Admissions file that is being tracked.  When this scheduled admission is acutally admitted, it will be converted to an inpatient admission tracking record automatically.
  • SCREEN:  S DIC("S")="I +^(0)=$P(^IBT(356,DA,0),U,2)"
  • EXPLANATION:  You can only select scheduled admissions for the same patient.
  • CROSS-REFERENCE:  356^ASCH
    1)= S ^IBT(356,"ASCH",$E(X,1,30),DA)=""
    2)= K ^IBT(356,"ASCH",$E(X,1,30),DA)
    Regular index of scheduled admissions
1.01 DATE ENTERED 1;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 24, 1993
  • DESCRIPTION:  
    Enter the date that this entry was created.  This will usually be the date that the automated tracker created this entry on.
  • CROSS-REFERENCE:  ^^TRIGGER^356^.17
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(356,1.01,1,1,1.1) X ^DD(356,1.01,1,1,1.4)
    1.1)= S X=DIV S X=$$EABD^IBTUTL($P($G(^IBT(356,+DA,0)),U,18),+$G(^IBT(356,+DA,1)))
    1.4)= S DIH=$S($D(^IBT(356,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 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(^IBT(356,D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="" S DIH=$S($D(^IBT(356,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR:$N(^DD(DIH,DIG
    ,1,0))>0
    CREATE VALUE)= S X=$$EABD^IBTUTL($P($G(^IBT(356,+DA,0)),U,18),+$G(^IBT(356,+DA,1)))
    DELETE VALUE)= @
    FIELD)= EARLIEST AUTO BILL DATE
    Sets the Earliest Auto Bill Date whenever Date Entered is set.  Does not check if event is billable.
1.02 ENTERED BY 1;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 09, 1993
  • DESCRIPTION:  
    Enter the name of the user who first created this entry.  This is most important if this entry was not created by the automated tracker.
1.03 DATE LAST EDITED 1;3 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 06, 1993
  • DESCRIPTION:  
    Enter the date that this claim was last edited.
1.04 LAST EDITED BY 1;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 09, 1993
  • DESCRIPTION:  
    Enter the user who last edited this claim tracking entry.
1.05 HOSPITAL REVIEWS ASSIGNED TO 1;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 25, 1993
  • DESCRIPTION:  Enter the UR person that this case is assigned to if it is assigned to an individual for hospital Reviews.
    Cases may be assigned for an individual to follow for the length of their admission.  If viewing pending work by who it is assigned to then this field is used to sort the pending work.
1.06 INS. REVIEWS ASSIGNED TO 1;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 25, 1993
  • DESCRIPTION:  Enter the Insurance UR person that this case is assigned to if it is assigned to an individual for Insurance UR.
    Cases may be assigned for an individual to follow for the length of their admission.  If viewing pending work by who it is assigned to then this field is used to sort the pending work.
1.07 FOLLOW-UP TYPE 1;7 SET
  • '1' FOR NONE;
  • '2' FOR ADMISSION NOTIFICATION;
  • '3' FOR ADMISSION AND DISCHARGE NOTIFICATION;
  • '4' FOR PRE-CERTIFICATION;
  • '5' FOR PRE-CERT AND CONT. STAY;
  • '6' FOR PRE-CERT AND DISCH.;
  • '7' FOR PRE-CERT, CONT. STAY AND DISCH.;

  • LAST EDITED:  JAN 28, 1994
  • DESCRIPTION:  
    Enter type of follow that the insurance company requires for this visit.  This information will be used by the reports to determine if the case requires pre-cert or not, or pre-cert and continued stay.
1.08 ADDITIONAL COMMENT 1;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
  • LAST EDITED:  JAN 28, 1994
  • HELP-PROMPT:  If necessary, use this field for a brief additional explaination of why this case isn't billable. Answer must be 3-80 characters in length.
  • DESCRIPTION:  
    Enter any brief comment about this episode that may explain why a case is not billable.

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #1350
  • UTILIZATION MANAGEMENT ROLLUP
  • ENTRY ID (.01).
    Access: Direct Global Read & w/Fileman

    PATIENT (.02).
    Access: Direct Global Read & w/Fileman

    ADMISSION (.05).
    Access: Direct Global Read & w/Fileman

    EVENT TYPE (.18).
    Access: Direct Global Read & w/Fileman

    INACTIVE (.2).
    Access: Direct Global Read & w/Fileman

    TRACKED AS RANDOM SAMPLE? (.25).
    Access: Direct Global Read & w/Fileman

    TRACKED AS SPECIAL CONDITION? (.26).
    Access: Direct Global Read & w/Fileman

    TRACKED AS LOCAL ADDITION? (.27).
    Access: Direct Global Read & w/Fileman

    ACUTE CARE DISCHARGE DATE (1.09).
    Access: Direct Global Read & w/Fileman

    The 'ADIS' x-ref is used as the center point(discharges) to most lookups for patient reporting in the IBQ package.
    ICR #5313
  • INSURANCE CAPTURE BUFFER
  • External References

    Name Field # of Occurrence
    ^%DT .06+1, .17+1, 1.01+1, 1.03+1
    ^DIC .05+1, .3+1, .32+1
    ^DICR .11(XREF 2n1.4), .11(XREF 2n2.4), .12(XREF 3S), .12(XREF 3n2.4), .18(XREF 3n1.4), .18(XREF 3K), .18(XREF 5n1.4), .19(XREF 3S), .19(XREF 3n2.4), .2(XREF 2n1.4)
    .2(XREF 2K), 1.01(XREF 1n1.4), 1.01(XREF 1K)
    Y^DIQ ID.02+1, ID.18+1
    $$ADT^IBTRE0 .18(XREF 5S)
    ID^IBTRE20 IDWRITE+1
    $$BILL^IBTUTL .11(XREF 2S), .11(XREF 2K), .12(XREF 3K), .19(XREF 3K), .2(XREF 2S)
    $$EABD^IBTUTL .18(XREF 3n1.1), 1.01(XREF 1n1.1)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( .11(XREF 2n1.4), .11(XREF 2n2.4), .12(XREF 3S), .12(XREF 3n2.4), .18(XREF 3n1.4), .18(XREF 3K), .18(XREF 5n1.4), .19(XREF 3S), .19(XREF 3n2.4), .2(XREF 2n1.4)
    .2(XREF 2K), 1.01(XREF 1n1.4), 1.01(XREF 1K)
    ^DD(2 ID.02+1
    ^DD(356 .11(XREF 2S), .11(XREF 2K), .12(XREF 3K), .18(XREF 3S), .18(XREF 5S), .18(XREF 5n1.3), .19(XREF 3K), .2(XREF 2S), 1.01(XREF 1S)
    ^DD(356.6 ID.18+1
    ^DPT - [#2] ID.02+1
    ^IBE(356.6 - [#356.6] ID.18+1
    ^IBT(356 - [#356] .01DEL1+1, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S)
    .02(XREF 4K), .02(XREF 5S), .02(XREF 5K), .02(XREF 6S), .02(XREF 6K), .02(XREF 7S), .02(XREF 7K), .02(XREF 8S), .02(XREF 8K), .03(XREF 1S)
    .03(XREF 1K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .05(XREF 1S), .05(XREF 1K), .05(XREF 2S), .05(XREF 2K), .06(XREF 1S)
    .06(XREF 1K), .06(XREF 2S), .06(XREF 2K), .06(XREF 4S), .06(XREF 4K), .08(XREF 1S), .08(XREF 1K), .09(XREF 1S), .09(XREF 1K), .1(XREF 1S)
    .1(XREF 1K), .11(XREF 1S), .11(XREF 1K), .11(XREF 2S), .11(XREF 2n1.4), .11(XREF 2K), .11(XREF 2n2.4), .12(XREF 1S), .12(XREF 1K), .12(XREF 2S)
    .12(XREF 2K), .12(XREF 3S), .12(XREF 3K), .12(XREF 3n2.4), .17(XREF 1S), .17(XREF 1K), .17(XREF 2S), .17(XREF 2K), .18(XREF 1S), .18(XREF 1K)
    .18(XREF 2S), .18(XREF 2K), .18(XREF 3S), .18(XREF 3n1.1), .18(XREF 3n1.4), .18(XREF 3K), .18(XREF 4S), .18(XREF 4K), .18(XREF 5S), .18(XREF 5n1.3)
    .18(XREF 5n1.4), .19(XREF 1S), .19(XREF 1K), .19(XREF 2S), .19(XREF 2K), .19(XREF 3S), .19(XREF 3K), .19(XREF 3n2.4), .2(XREF 1S), .2(XREF 1K)
    .2(XREF 2S), .2(XREF 2n1.4), .2(XREF 2K), .24(XREF 1S), .24(XREF 1K), .32(XREF 1S), .32(XREF 1K), 1.01(XREF 1S), 1.01(XREF 1n1.1), 1.01(XREF 1n1.4)
    1.01(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID.02+1, ID.06+1, ID.07+1, ID.18+1, .02(XREF 2S), .02(XREF 3S), .02(XREF 4S), .02(XREF 6S), .02(XREF 6K), .02(XREF 7S)
    .02(XREF 7K), .02(XREF 8S), .04(XREF 2S), .05(XREF 1S), .06(XREF 2S), .06(XREF 4S), .06(XREF 4K), .08(XREF 1S), .1(XREF 1S), .11(XREF 2S)
    .11(XREF 2n1.4), .11(XREF 2K), .11(XREF 2n2.4), .12(XREF 2S), .12(XREF 3S), .12(XREF 3K), .12(XREF 3n2.4), .17(XREF 2S), .17(XREF 2K), .18(XREF 2S)
    .18(XREF 3S), .18(XREF 3n1.4), .18(XREF 3K), .18(XREF 4S), .18(XREF 4K), .18(XREF 5S), .18(XREF 5n1.3), .18(XREF 5n1.4), .19(XREF 2S), .19(XREF 2K)
    .19(XREF 3S), .19(XREF 3K), .19(XREF 3n2.4), .2(XREF 1S), .2(XREF 1K), .2(XREF 2S), .2(XREF 2n1.4), .2(XREF 2K), 1.01(XREF 1S), 1.01(XREF 1n1.4)
    1.01(XREF 1K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .06+1*, .17+1*, 1.01+1*, 1.03+1*
    %I ID.02+1*!, ID.18+1*!
    >> C ID.02+1*, ID.18+1*
    >> D0 .11(XREF 2S), .11(XREF 2K), .12(XREF 3S), .12(XREF 3K), .18(XREF 3S), .18(XREF 3K), .18(XREF 5S), .18(XREF 5n1.3), .19(XREF 3S), .19(XREF 3K)
    .2(XREF 2S), .2(XREF 2K), 1.01(XREF 1S), 1.01(XREF 1K)
    >> DA .01DEL1+1, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S)
    .02(XREF 4K), .02(XREF 5S), .02(XREF 5K), .02(XREF 6S), .02(XREF 6K), .02(XREF 7S), .02(XREF 7K), .02(XREF 8S), .02(XREF 8K), .03(XREF 1S)
    .03(XREF 1K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .05(XREF 1S), .05(XREF 1K), .05(XREF 2S), .05(XREF 2K), .06(XREF 1S)
    .06(XREF 1K), .06(XREF 2S), .06(XREF 2K), .06(XREF 4S), .06(XREF 4K), .08(XREF 1S), .08(XREF 1K), .09(XREF 1S), .09(XREF 1K), .1(XREF 1S)
    .1(XREF 1K), .11(XREF 1S), .11(XREF 1K), .11(XREF 2S), .11(XREF 2K), .12(XREF 1S), .12(XREF 1K), .12(XREF 2S), .12(XREF 2K), .12(XREF 3S)
    .12(XREF 3K), .17(XREF 1S), .17(XREF 1K), .17(XREF 2S), .17(XREF 2K), .18(XREF 1S), .18(XREF 1K), .18(XREF 2S), .18(XREF 2K), .18(XREF 3S)
    .18(XREF 3n1.1), .18(XREF 3K), .18(XREF 4S), .18(XREF 4K), .18(XREF 5S), .18(XREF 5n1.3), .19(XREF 1S), .19(XREF 1K), .19(XREF 2S), .19(XREF 2K)
    .19(XREF 3S), .19(XREF 3K), .2(XREF 1S), .2(XREF 1K), .2(XREF 2S), .2(XREF 2K), .24(XREF 1S), .24(XREF 1K), .32(XREF 1S), .32(XREF 1K)
    1.01(XREF 1S), 1.01(XREF 1n1.1), 1.01(XREF 1K)
    DIC ID.02+1, ID.07+1, ID.18+1, .05+1!*, .3+1!*, .32+1!*
    DIC("S" .05+1*, .05SCR+1*, .24SCR+1*, .3+1*, .3SCR+1*, .32+1*, .32SCR+1*
    >> DIE .05+1, .3+1, .32+1
    >> DIG .11(XREF 2n1.4), .11(XREF 2n2.4), .12(XREF 3S), .12(XREF 3n2.4), .18(XREF 3n1.4), .18(XREF 3K), .18(XREF 5n1.4), .19(XREF 3S), .19(XREF 3n2.4), .2(XREF 2n1.4)
    .2(XREF 2K), 1.01(XREF 1n1.4), 1.01(XREF 1K)
    >> DIH .11(XREF 2n1.4), .11(XREF 2n2.4), .12(XREF 3S), .12(XREF 3n2.4), .18(XREF 3n1.4), .18(XREF 3K), .18(XREF 5n1.4), .19(XREF 3S), .19(XREF 3n2.4), .2(XREF 2n1.4)
    .2(XREF 2K), 1.01(XREF 1n1.4), 1.01(XREF 1K)
    >> DIU .11(XREF 2S), .11(XREF 2K), .12(XREF 3S), .12(XREF 3K), .18(XREF 3S), .18(XREF 3K), .18(XREF 5S), .19(XREF 3S), .19(XREF 3K), .2(XREF 2S)
    .2(XREF 2K), 1.01(XREF 1S), 1.01(XREF 1K)
    DIV .11(XREF 2S), .11(XREF 2n1.4), .11(XREF 2K), .11(XREF 2n2.4), .12(XREF 3S), .12(XREF 3K), .12(XREF 3n2.4), .18(XREF 3S), .18(XREF 3n1.1), .18(XREF 3n1.4)
    .18(XREF 3K), .18(XREF 5S), .18(XREF 5n1.3), .18(XREF 5n1.4), .19(XREF 3S), .19(XREF 3K), .19(XREF 3n2.4), .2(XREF 2S), .2(XREF 2n1.4), .2(XREF 2K)
    1.01(XREF 1S), 1.01(XREF 1n1.1), 1.01(XREF 1n1.4), 1.01(XREF 1K)
    DIV(0 .11(XREF 2S), .11(XREF 2n1.4), .11(XREF 2K), .11(XREF 2n2.4), .12(XREF 3S), .12(XREF 3K), .12(XREF 3n2.4), .18(XREF 3S), .18(XREF 3n1.4), .18(XREF 3K)
    .18(XREF 5n1.3), .18(XREF 5n1.4), .19(XREF 3S), .19(XREF 3K), .19(XREF 3n2.4), .2(XREF 2S), .2(XREF 2n1.4), .2(XREF 2K), 1.01(XREF 1S), 1.01(XREF 1n1.4)
    1.01(XREF 1K)
    U ID.02+1, ID.06+1, ID.07+1, ID.18+1, .01DEL1+1, .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .02(XREF 6S)
    .02(XREF 6K), .02(XREF 7S), .02(XREF 7K), .02(XREF 8S), .02(XREF 8K), .04(XREF 2S), .04(XREF 2K), .06(XREF 2S), .06(XREF 2K), .06(XREF 4S)
    .06(XREF 4K), .08(XREF 1S), .08(XREF 1K), .1(XREF 1S), .1(XREF 1K), .11(XREF 2S), .11(XREF 2n1.4), .11(XREF 2K), .11(XREF 2n2.4), .12(XREF 2S)
    .12(XREF 2K), .12(XREF 3S), .12(XREF 3K), .12(XREF 3n2.4), .17(XREF 2S), .17(XREF 2K), .18(XREF 2S), .18(XREF 2K), .18(XREF 3S), .18(XREF 3n1.1)
    .18(XREF 3n1.4), .18(XREF 3K), .18(XREF 4S), .18(XREF 4K), .18(XREF 5S), .18(XREF 5n1.3), .18(XREF 5n1.4), .19(XREF 2S), .19(XREF 2K), .19(XREF 3S)
    .19(XREF 3K), .19(XREF 3n2.4), .2(XREF 1S), .2(XREF 1K), .2(XREF 2S), .2(XREF 2n1.4), .2(XREF 2K), 1.01(XREF 1S), 1.01(XREF 1n1.1), 1.01(XREF 1n1.4)
    1.01(XREF 1K)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S)
    .02(XREF 4K), .02(XREF 5S), .02(XREF 5K), .02(XREF 6S), .02(XREF 6K), .02(XREF 7S), .02(XREF 7K), .02(XREF 8S), .02(XREF 8K), .03(XREF 1S)
    .03(XREF 1K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .05+1*!, .05(XREF 1S), .05(XREF 1K), .05(XREF 2S), .05(XREF 2K)
    , .06+1*!, .06(XREF 1S), .06(XREF 1K), .06(XREF 2S), .06(XREF 2K), .06(XREF 4S), .06(XREF 4K), .08(XREF 1S), .08(XREF 1K), .09(XREF 1S)
    .09(XREF 1K), .1+1!, .1(XREF 1S), .1(XREF 1K), .11(XREF 1S), .11(XREF 1K), .11(XREF 2S), .11(XREF 2n1.4), .11(XREF 2K), .11(XREF 2n2.4)
    .12(XREF 1S), .12(XREF 1K), .12(XREF 2S), .12(XREF 2K), .12(XREF 3S), .12(XREF 3K), .12(XREF 3n2.4), .17+1*!, .17(XREF 1S), .17(XREF 1K)
    .17(XREF 2S), .17(XREF 2K), .18(XREF 1S), .18(XREF 1K), .18(XREF 2S), .18(XREF 2K), .18(XREF 3S), .18(XREF 3n1.1), .18(XREF 3n1.4), .18(XREF 3K)
    .18(XREF 4S), .18(XREF 4K), .18(XREF 5S), .18(XREF 5n1.3), .18(XREF 5n1.4), .19(XREF 1S), .19(XREF 1K), .19(XREF 2S), .19(XREF 3S), .19(XREF 3K)
    .19(XREF 3n2.4), .2(XREF 1S), .2(XREF 2S), .2(XREF 2n1.4), .2(XREF 2K), .21+1*!, .22+1*!, .23+1*!, .24(XREF 1S), .24(XREF 1K)
    , .28+1*!, .29+1*!, .3+1*!, .32+1*!, .32(XREF 1S), .32(XREF 1K), 1.01+1*!, 1.01(XREF 1S), 1.01(XREF 1n1.1), 1.01(XREF 1n1.4)
    1.01(XREF 1K), 1.03+1*!, 1.08+1!
    Y ID.02+1*, ID.18+1*, .05+1, .06+1, .11(XREF 2S), .11(XREF 2K), .12(XREF 3S), .12(XREF 3K), .17+1, .18(XREF 3S)
    .18(XREF 3K), .18(XREF 5S), .19(XREF 3S), .19(XREF 3K), .2(XREF 2S), .2(XREF 2K), .3+1, .32+1, 1.01+1, 1.01(XREF 1S)
    1.01(XREF 1K), 1.03+1
    Y(0 .18(XREF 5n1.3)
    Y(1 .11(XREF 2S), .11(XREF 2K), .12(XREF 3S), .12(XREF 3K), .18(XREF 3S), .18(XREF 3K), .18(XREF 5S), .18(XREF 5n1.3), .19(XREF 3S), .19(XREF 3K)
    .2(XREF 2S), .2(XREF 2K), 1.01(XREF 1S), 1.01(XREF 1K)
    Y(2 .18(XREF 5n1.3)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All