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: ^IBT(356.2

Package: Integrated Billing

Global: ^IBT(356.2


Information

FileMan FileNo FileMan Filename Package
356.2 INSURANCE REVIEW Integrated Billing

Description

Directly Accessed By Routines, Total: 42

Package Total Routines
Integrated Billing 37 APPROVE ON APPEAL FROM    IBCD2    IBCNSP0    IBCNSP01    IBCNSP02    IBTOBI2    IBTODD    IBTODD1
IBTOSUM    IBTOSUM1    IBTOTR    IBTOUR1    IBTOUR2    IBTOUR4    IBTRC    IBTRC1
IBTRC2    IBTRC3    IBTRCD    IBTRCD0    IBTRCD1    IBTRD    IBTRD1    IBTRDD
IBTRDD1    IBTRE    IBTRE1    IBTRED01    IBTRKR    IBTRPR01    IBTRV1    IBTRVD0
IBTUTL3    IBTUTL4    ^IBT(356.2    PENALTY    REASONS FOR DENIAL    

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
Integrated Billing 10 IBCNSP01    IBCNSP02    IBTRC1    IBTRCD1    IBTRD1    IBTRDD1    IBTRE1    IBTRKR
IBTRV1    IBTUTL3    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Integrated Billing 1 INSURANCE REVIEW(#356.2)[.18]    

Pointer To FileMan Files, Total: 10

Package Total FileMan Files
Integrated Billing 7 INSURANCE COMPANY(#36)[.08]    CLAIMS TRACKING REVIEW TYPE(#356.11)[.04]    CLAIMS TRACKING DENIAL REASONS(#356.21)[#356.212(.01)]    CLAIMS TRACKING ACTION(#356.7)[.11]    CLAIMS TRACKING(#356)[.02]    HOSPITAL REVIEW(#356.1)[.03]    INSURANCE REVIEW(#356.2)[.18]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[.14]    
Kernel 1 NEW PERSON(#200)[1.021.04]    
Registration 1 VA PATIENT(#2)[.05]    

Fields, Total: 40

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

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 07, 1993
  • DESCRIPTION:  This is the date of the contact for this entry.
    It is frequently necessary to call insurance companies for insurance verification, pre-certification reviews, continued stay review, appeals, etc.  This is the date that you called the insurance company.
  • CROSS-REFERENCE:  356.2^B
    1)= S ^IBT(356.2,"B",$E(X,1,30),DA)=""
    2)= K ^IBT(356.2,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  356.2^ATIDT^MUMPS
    1)= S:$P(^IBT(356.2,DA,0),U,2) ^IBT(356.2,"ATIDT",+$P(^(0),U,2),-X,DA)=""
    2)= K ^IBT(356.2,"ATIDT",+$P(^IBT(356.2,DA,0),U,2),-X,DA)
    Cross-Reference of all entries by tracking ID and by inverse date so can list most recent first.
  • CROSS-REFERENCE:  356.2^ADFN1^MUMPS
    1)= S:$P(^IBT(356.2,DA,0),U,2) ^IBT(356.2,"ADFN"_+$P(^(0),U,2),X,DA)=""
    2)= K ^IBT(356.2,"ADFN"_+$P(^IBT(356.2,DA,0),U,2),X,DA)
    Cross-reference used for quick look up of entries for a patient.
.02 TRACKING ID 0;2 POINTER TO CLAIMS TRACKING FILE (#356) CLAIMS TRACKING(#356)

  • LAST EDITED:  JUL 29, 1993
  • DESCRIPTION:  
    This is the Claims Tracking entry that was the primary episode of care that caused this contact.  Generally contacts are associated with an episode of care but occasionally they are not.
  • CROSS-REFERENCE:  356.2^C
    1)= S ^IBT(356.2,"C",$E(X,1,30),DA)=""
    2)= K ^IBT(356.2,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  356.2^ATRP^MUMPS
    1)= S:$P(^IBT(356.2,DA,0),"^",4) ^IBT(356.2,"ATRTP",X,+$P(^(0),"^",4),DA)=""
    2)= K ^IBT(356.2,"ATRTP",X,+$P(^IBT(356.2,DA,0),"^",4),DA)
    Index of all communications by tracking id and type.
  • CROSS-REFERENCE:  356.2^ATIDT1^MUMPS
    1)= S:$P(^IBT(356.2,DA,0),U) ^IBT(356.2,"ATIDT",X,-$P(^(0),U),DA)=""
    2)= K ^IBT(356.2,"ATIDT",X,-$P(^IBT(356.2,DA,0),U),DA)
    Cross-Reference of all entries by tracking ID and by inverse date so can list most recent first.
  • CROSS-REFERENCE:  356.2^APRE^MUMPS
    1)= S:$P(^IBT(356.2,DA,0),U,28) ^IBT(356.2,"APRE",X,$P(^(0),U,28),DA)=""
    2)= K ^IBT(356.2,"APRE",X,+$P(^IBT(356.2,DA,0),U,28),DA)
    Cross-Reference of all pre-cert numbers by tracking ID.  This is used to display the Pre-cert number in the claims tracking screens and the Review edit screens.
.03 RELATED REVIEW 0;3 POINTER TO HOSPITAL REVIEW FILE (#356.1) HOSPITAL REVIEW(#356.1)

  • LAST EDITED:  JUL 15, 1993
  • DESCRIPTION:  This is the review in the Claims Tracking Reviews file that this insurance contact is associated with.
    This field will be system generated wheneve there is a utilization review entry created for a case that is also an insurance case.
  • CROSS-REFERENCE:  356.2^AD
    1)= S ^IBT(356.2,"AD",$E(X,1,30),DA)=""
    2)= K ^IBT(356.2,"AD",$E(X,1,30),DA)
.04 TYPE OF CONTACT 0;4 POINTER TO CLAIMS TRACKING REVIEW TYPE FILE (#356.11)
************************REQUIRED FIELD************************
CLAIMS TRACKING REVIEW TYPE(#356.11)

  • INPUT TRANSFORM:  S DIC("S")="I $$CONTCT^IBTRC(DA,Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 03, 1993
  • DESCRIPTION:  This is the type of contact with a patient or insurance company that you are making. If this is a contact with a patient then select patient. If this is a contact with an insurance company then indicate if this is for
    pre-certification, urgent/emergent admission, continued stay, discharge, outpatient treatment, or an appeal.  You may also select other if this is a contact that you wish to record but does not meet one of these
    categories.
    To add an appeal it must be associated with a denial.
  • SCREEN:  S DIC("S")="I $$CONTCT^IBTRC(DA,Y)"
  • EXPLANATION:  If not associated with a tracking entry, only a patient or other type of contact may be selected.
  • CROSS-REFERENCE:  356.2^AC
    1)= S ^IBT(356.2,"AC",$E(X,1,30),DA)=""
    2)= K ^IBT(356.2,"AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  356.2^ATRTP1^MUMPS
    1)= S:$P(^IBT(356.2,DA,0),U,2) ^IBT(356.2,"ATRTP",+$P(^(0),U,2),X,DA)=""
    2)= K ^IBT(356.2,"ATRTP",+$P(^IBT(356.2,DA,0),U,2),X,DA)
    Index of all communications by tracking id and type.
.05 PATIENT 0;5 POINTER TO VA PATIENT FILE (#2) VA PATIENT(#2)

  • LAST EDITED:  NOV 09, 1993
  • DESCRIPTION:  
    Enter the patient that was contacted.
  • CROSS-REFERENCE:  356.2^D
    1)= S ^IBT(356.2,"D",$E(X,1,30),DA)=""
    2)= K ^IBT(356.2,"D",$E(X,1,30),DA)
  • CROSS-REFERENCE:  356.2^APACT^MUMPS
    1)= S:$P(^IBT(356.2,DA,0),U,11) ^IBT(356.2,"APACT",X,+$P(^(0),U,11),DA)=""
    2)= K ^IBT(356.2,"APACT",X,+$P(^IBT(356.2,DA,0),U,11),DA)
    Index of insurance contacts with actions by patient by action.  Used primarily to find denials by patient.
  • CROSS-REFERENCE:  ^^TRIGGER^356.2^1.05
    1)= X ^DD(356.2,.05,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^IBT(356.2,D0,1)):^(1),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$P($$HIP^IBTRC3(DA),"^",1) X ^DD(356.2,.05,1,3,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBT(356.2,D0,1)):^(1),1:""),Y=$P(Y(1),U,5) X:$D(^DD(356.2,1.05,2)) ^(2) S X=Y=""
    1.4)= S DIH=$S($D(^IBT(356.2,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,5)=DIV,DIH=356.2,DIG=1.05 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.2,D0,1)):^(1),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(356.2,.05,1,3,2.4)
    2.4)= S DIH=$S($D(^IBT(356.2,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,5)=DIV,DIH=356.2,DIG=1.05 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= #1.05=""
    CREATE VALUE)= S X=$P($$HIP^IBTRC3(DA),"^",1)
    DELETE VALUE)= @
    FIELD)= #1.05
    Trigger of Primary Health Insurance Policy.
  • CROSS-REFERENCE:  356.2^ADFN^MUMPS
    1)= S ^IBT(356.2,"ADFN"_X,+^IBT(356.2,DA,0),DA)=""
    2)= K ^IBT(356.2,"ADFN"_X,+^IBT(356.2,DA,0),DA)
    cross-reference used for speedy lookups.
.06 PERSON CONTACTED 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUN 10, 1993
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is the name of the person you contacted.  This is a free text name that can be entered.  It is recommended that you use the format of Firstname MI Lastname, just as they would say it to you.
.07 CONTACT PHONE # 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<7) X
  • LAST EDITED:  JUN 10, 1993
  • HELP-PROMPT:  Answer must be 7-20 characters in length.
  • DESCRIPTION:  This is the phone number of the person you contacted.
    If you contacted an insurance company and this number is not in the insurance company file, then you may want to enter it into that file as well.  The number entered here will only be seen when looking at this contact.
.08 INSURANCE COMPANY CONTACTED 0;8 POINTER TO INSURANCE COMPANY FILE (#36) INSURANCE COMPANY(#36)

  • LAST EDITED:  AUG 11, 1993
  • DESCRIPTION:  
    This is the insurance company that is being contacted.  This is generally triggered by the HEALTH INSURANCE POLICY field.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the HEALTH INSURANCE POLICY field of the INSURANCE REVIEW File
  • CROSS-REFERENCE:  356.2^AIACT^MUMPS
    1)= S:$P(^IBT(356.2,DA,0),U,11) ^IBT(356.2,"AIACT",X,+$P(^(0),U,11),DA)=""
    2)= K ^IBT(356.2,"AIACT",X,+$P(^IBT(356.2,DA,0),U,11),DA)
    Index of insurance contacts with actions by patient by action.  Used primarily to find denials by patient.
.09 CALL REFERENCE NUMBER 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  JUN 10, 1993
  • HELP-PROMPT:  Answer must be 3-15 characters in length.
  • DESCRIPTION:  If the company you called gave you a reference number for the call then enter that reference number here. Many companies will issue reference numbers so that they can track their calls and allow reference back to them by
    others.
.1 APPEAL STATUS 0;10 SET
  • '1' FOR OPEN;
  • '2' FOR PENDING;
  • '3' FOR CLOSED;
  • '4' FOR REFERED TO DISTRICT COUNSEL;

  • LAST EDITED:  FEB 07, 1994
  • DESCRIPTION:  
    If this Insurance Action is an appeal, this is the status of the appeal.  Appeals that are OPEN will continue to be on the list of pending work based on the next review date.
  • CROSS-REFERENCE:  ^^TRIGGER^356.2^.24
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^IBT(356.2,DA,0),U,10)=3 I X S X=DIV S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X="" X ^DD(356.2,.1,1,1,1.4)
    1.4)= S DIH=$S($D(^IBT(356.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=356.2,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= I $P(^IBT(356.2,DA,0),U,10)=3
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= #.24
.11 ACTION 0;11 POINTER TO CLAIMS TRACKING ACTION FILE (#356.7) CLAIMS TRACKING ACTION(#356.7)

  • INPUT TRANSFORM:  S DIC("S")="N ACODE,CTYPE S ACODE=$P(^(0),U,3),CTYPE=$P(^IBT(356.2,DA,0),U,4) I $$SCREEN^IBTRC1(ACODE,CTYPE)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 07, 1993
  • HELP-PROMPT:  Select the action taken by the insurance company on this call.
  • DESCRIPTION:  Enter the action that the insurance company took on this call. Each contact can only have one action. If you need to enter more than one action, enter another contact. If you change the action, previously entered
    information will be deleted.
    If this contact was with an insurance company as part of an admission or continued stay review then you should enter the action that the insurance company took on thecall.  Based upon the answer to this question along with
    the type of contact, you will be prompted for varying information.
  • SCREEN:  S DIC("S")="N ACODE,CTYPE S ACODE=$P(^(0),U,3),CTYPE=$P(^IBT(356.2,DA,0),U,4) I $$SCREEN^IBTRC1(ACODE,CTYPE)"
  • EXPLANATION:  Only actions appropriate for the type of contact may be selected!
  • CROSS-REFERENCE:  356.2^ACT
    1)= S ^IBT(356.2,"ACT",$E(X,1,30),DA)=""
    2)= K ^IBT(356.2,"ACT",$E(X,1,30),DA)
    Regular cross refence of actions
  • CROSS-REFERENCE:  356.2^APACT1^MUMPS
    1)= S:$P(^IBT(356.2,DA,0),U,5) ^IBT(356.2,"APACT",+$P(^(0),U,5),X,DA)=""
    2)= K ^IBT(356.2,"APACT",+$P(^IBT(356.2,DA,0),U,5),X,DA)
    Index of insurance contacts with actions by patient by action.  Used primarily to find denials by patient.
  • CROSS-REFERENCE:  356.2^AIACT1^MUMPS
    1)= S:$P(^IBT(356.2,DA,0),U,8) ^IBT(356.2,"AIACT",+$P(^(0),U,8),X,DA)=""
    2)= K ^IBT(356.2,"AIACT",+$P(^IBT(356.2,DA,0),U,8),X,DA)
    Index of insurance contacts with actions by insurance co. by type of action.  Used primarily to find denials by insurance company.
  • CROSS-REFERENCE:  ^^TRIGGER^356.2^.19
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^IBT(356.2,DA,0),"^",19)=1 I X S X=DIV S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV S X=2 X ^DD(356.2,.11,1,4,1.4)
    1.4)= S DIH=$S($D(^IBT(356.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,19)=DIV,DIH=356.2,DIG=.19 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= I $P(^IBT(356.2,DA,0),"^",19)=1
    CREATE VALUE)= S X=2
    DELETE VALUE)= NO EFFECT
    FIELD)= #.19
    Trigger Review Status from entered to Pending when an action is entered.
.12 CARE AUTHORIZED FROM 0;12 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) K:'$$AFDT^IBTUTL4(DA,X) X
  • LAST EDITED:  JAN 27, 1994
  • DESCRIPTION:  
    If the insurance company pre-approved the admission for this patient, this is the beginning date that they approved care from.
  • EXECUTABLE HELP:  D HELP^IBTUTL3(DA)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.13 CARE AUTHORIZED TO 0;13 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) K:'$$ATDT^IBTUTL4(DA,X) X
  • LAST EDITED:  JAN 27, 1994
  • DESCRIPTION:  If the insurance company pre-approved the admission for this patient, this is the ending date of the care approved.
    Typically insurance companies will approve only a certain number of days of care for reimbursement.  This is the ending date of the number of days that they approved for reimbursement.
  • EXECUTABLE HELP:  D HELP^IBTUTL3(DA)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^356.2^.24
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X=DIV S X=$P(^IBT(356.2,DA,0),U,13) X ^DD(356.2,.13,1,1,1.4)
    1.4)= S DIH=$S($D(^IBT(356.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=356.2,DIG=.24 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=$P(^IBT(356.2,DA,0),U,13)
    DELETE VALUE)= NO EFFECT
    FIELD)= #.24
.14 DIAGNOSIS AUTHORIZED 0;14 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,9)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 28, 1993
  • DESCRIPTION:  If the insurance company approved the care for this patient for reimbursement this is the diagnosis that they approved.
    Typically when an insurance company approves care for reimbursement they approve it for a specific diagnosis.  This is the diagnosis that they approved.
  • TECHNICAL DESCR:  
  • SCREEN:  S DIC("S")="I '$P(^(0),U,9)"
  • EXPLANATION:  Only Active Diagnosis may be selected
.15 DATES OF DENIAL FROM 0;15 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) K:'$$DFDT^IBTUTL4(DA,X) X
  • LAST EDITED:  JAN 27, 1994
  • DESCRIPTION:  
    If the insurance company disapproved or denied pre-approving the care for this patient, this is the beginning date of care that they denied.  For some patients there may be both a number of approved and denied days.
  • EXECUTABLE HELP:  D HELP^IBTUTL3(DA)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.16 DATES OF DENIAL TO 0;16 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) K:'$$DTDT^IBTUTL4(DA,X) X
  • LAST EDITED:  JAN 27, 1994
  • DESCRIPTION:  
    If the insurance company disapproved or denied pre-approving  the care for this patient, this is the ending date of care that they denied.  For some patients there may be both a number of approved and denied days.
  • EXECUTABLE HELP:  D HELP^IBTUTL3(DA)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^356.2^.24
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X=DIV S X=$P(^IBT(356.2,DA,0),U,16) X ^DD(356.2,.16,1,1,1.4)
    1.4)= S DIH=$S($D(^IBT(356.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=356.2,DIG=.24 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=$P(^IBT(356.2,DA,0),U,16)
    DELETE VALUE)= NO EFFECT
    FIELD)= #.24
.17 METHOD OF CONTACT 0;17 SET
  • '1' FOR PHONE;
  • '2' FOR MAIL;
  • '3' FOR OVERNIGHT MAIL;
  • '4' FOR PERSONAL;
  • '5' FOR VOICE MAIL;
  • '6' FOR OTHER;

  • LAST EDITED:  SEP 15, 1993
  • DESCRIPTION:  
    This is the method that you used to contact the person contacted in this entry.  Most contacts will be by phone but many others will be by mail.
.18 PARENT REVIEW 0;18 POINTER TO INSURANCE REVIEW FILE (#356.2) INSURANCE REVIEW(#356.2)

  • INPUT TRANSFORM:  S DIC("S")="N TYPE S TYPE=$P(^IBE(356.7,+$P(^(0),U,11),0),U,3) I TYPE=20!(TYPE=30)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 07, 1993
  • DESCRIPTION:  
    This is the first contact in a series of contacts.  This field will generally be system generated.  When adding an appeal to a denied claim, this will be the denial contact that is being appealed.
  • SCREEN:  S DIC("S")="N TYPE S TYPE=$P(^IBE(356.7,+$P(^(0),U,11),0),U,3) I TYPE=20!(TYPE=30)"
  • EXPLANATION:  Only penalties and denials can be appealed.
  • CROSS-REFERENCE:  356.2^AP
    1)= S ^IBT(356.2,"AP",$E(X,1,30),DA)=""
    2)= K ^IBT(356.2,"AP",$E(X,1,30),DA)
.19 REVIEW STATUS 0;19 SET
  • '0' FOR INACTIVE;
  • '1' FOR ENTERED;
  • '2' FOR PENDING;
  • '10' FOR COMPLETE;

  • LAST EDITED:  FEB 07, 1994
  • DESCRIPTION:  
    Enter whether or not this entry is active or not.  Inactivating an entry has the same effect as deleting the entry.
  • NOTES:  TRIGGERED by the ACTION field of the INSURANCE REVIEW File
  • CROSS-REFERENCE:  356.2^AE
    1)= S ^IBT(356.2,"AE",$E(X,1,30),DA)=""
    2)= K ^IBT(356.2,"AE",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^356.2^.24
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^IBT(356.2,DA,0),U,19)'=10 I X S X=DIV S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(356.2,.19,1,2,1.4)
    1.4)= S DIH=$S($D(^IBT(356.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=356.2,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^IBT(356.2,DA,0),U,19)=10 I X S X=DIV S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X="" X ^DD(356.2,.19,1,2,2.4)
    2.4)= S DIH=$S($D(^IBT(356.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=356.2,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= I $P(^IBT(356.2,DA,0),U,19)'=10
    CREATE VALUE)= S X=DT
    DELETE CONDITION)= I $P(^IBT(356.2,DA,0),U,19)=10
    DELETE VALUE)= @
    FIELD)= #.24
    This trigger deletes the NEXT REVIEW DATE when completing a review.
.2 CASE PENDING 0;20 SET
  • '1' FOR UR/CLINICAL INFORMATION;
  • '2' FOR PENDING MEDICAL REVIEW;
  • '3' FOR OTHER;

  • LAST EDITED:  JUN 10, 1993
  • DESCRIPTION:  If the action by the insurance company on this contact is pending, then this is what the case is pending for. Generally cases are pending further UR/Clinical information from the site or Medical Review at the insurance
    company.
.21 NO COVERAGE 0;21 SET
  • '1' FOR PATIENT NOT ELIGIBLE;
  • '2' FOR SERVICE NOT PROGRAM BENEFIT;
  • '3' FOR COVERAGE CANCELED BEFORE TREATMENT;
  • '4' FOR OTHER;

  • LAST EDITED:  JUN 10, 1993
  • DESCRIPTION:  
    If the action by the insurance company on this contact was that the patient was not covered by this carrier for this care then this is the reason that they claim no coverge.
.22 FOLLOW-UP WITH APPEAL 0;22 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 10, 1993
  • DESCRIPTION:  
    If the action by the insurance company on this contact was a denial, then enter whether you wish to follow up with an appeal.  If you answer 'YES' then this will be included on your Pending Work.
.23 TYPE OF APPEAL 0;23 SET
  • '1' FOR CLINICAL;
  • '2' FOR ADMINISTRATIVE;

  • LAST EDITED:  JUN 10, 1993
  • DESCRIPTION:  
    If you are appealing the decision of an insurance company enter whether this is a clinical or administrative appeal.
.24 NEXT REVIEW DATE 0;24 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 04, 1993
  • DESCRIPTION:  This is the date that this should show up on your Pending Work list. If you have entered an admission review with a next review date in three days, you will, in three days, have either a continued stay review or a
    discharge review to do depending on the patient's status.  If this is a denial contact an the next review date is in three days, in three days you will show and appeal that needs to be done.  Etc.
    If no entry is in this field then you will not be reminded of pending work.
  • NOTES:  TRIGGERED by the CARE AUTHORIZED TO field of the INSURANCE REVIEW File
    TRIGGERED by the DATES OF DENIAL TO field of the INSURANCE REVIEW File
    TRIGGERED by the REVIEW STATUS field of the INSURANCE REVIEW File
    TRIGGERED by the APPEAL STATUS field of the INSURANCE REVIEW File
  • CROSS-REFERENCE:  356.2^APEND
    1)= S ^IBT(356.2,"APEND",$E(X,1,30),DA)=""
    2)= K ^IBT(356.2,"APEND",$E(X,1,30),DA)
    This cross-refence is used to find contacts that need futher action.
.25 NUMBER OF DAYS PENDING APPEAL 0;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 12, 1993
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    If the insurance company denied reimbursement for days of care, either in part or in total, and you are appealing that denial, then enter the number of days being appealed.
.26 OUTPATIENT TREATMENT 0;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  JUN 10, 1993
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    If this contact is to determine if a particular outpatient treatment will be authorized for reimbursement, this is the outpatient treatment that is authorized.  Enter the free-text description of the outpatient treatment.
.27 TREATMENT AUTHORIZED 0;27 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 10, 1993
  • DESCRIPTION:  Entry 'YES' if this was authorized or 'NO' if it was not authorized.
    If this contact is to determine if a particular outpatient treatment is authorized for reimbursement, then this is whether or not the treatment was authorized.
.28 AUTHORIZATION NUMBER 0;28 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>18!($L(X)<3) X
  • LAST EDITED:  DEC 20, 1993
  • HELP-PROMPT:  Answer must be 3-18 characters in length.
  • DESCRIPTION:  Enter the treatment authorization number that the insurance company gave you during this contact.
    The data in this field if it exists will be considered the Treatment Authorization code for this care and will automatically used by the billing module.
  • CROSS-REFERENCE:  356.2^APRE1^MUMPS
    1)= S:$P(^IBT(356.2,DA,0),U,2) ^IBT(356.2,"APRE",+$P(^(0),U,2),X,DA)=""
    2)= K ^IBT(356.2,"APRE",+$P(^IBT(356.2,DA,0),U,2),X,DA)
    Cross-reference of pre-cert numbers by tracking id.
.29 FINAL OUTCOME OF APPEAL 0;29 SET
  • '1' FOR APPROVED;
  • '2' FOR DENIED;
  • '3' FOR PARITIAL APPROVAL;

  • LAST EDITED:  AUG 25, 1993
  • DESCRIPTION:  Enter the final outcome of this appeal. Did the insurance company approve, partially approve or deny this appeal?
    If the appeal was approved or partially approved you may enter the dates that it was approved for.
1.01 DATE ENTERED 1;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 10, 1993
  • DESCRIPTION:  
    This is the date this contact was entered into the computer.  It is generated when the contact is entered and is not editable by the user.
1.02 ENTERED BY 1;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 10, 1993
  • DESCRIPTION:  This is the user who was signed on to the computer system when this contact was created. If this contact was created automatically by the computer from an admission or discharge, then this might be a user from IRM, MAS,
    or other service.
1.03 DATE LAST EDITED 1;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 10, 1993
  • DESCRIPTION:  
    This is the date that this contact was last edited by a user using the input options.  After every editing sequence the files are checked for changes.  If any are noted then this field is updated.
1.04 LAST EDITED BY 1;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 10, 1993
  • DESCRIPTION:  
    This is the user that last edited this contact using the input screens.
1.05 HEALTH INSURANCE POLICY 1;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X D:$D(X) DD^IBTRC2(X,DA)
  • OUTPUT TRANSFORM:  S Y=$$TRANS^IBTRC2(DA,Y)
  • LAST EDITED:  NOV 08, 1993
  • HELP-PROMPT:  Select the policy for the insurance company that you contacted.
  • DESCRIPTION:  
    Select the policy for this patient that you are contacting the insurance company for.
  • TECHNICAL DESCR:  This field points to the patient insurance type field in the patient file. It is used to do look-ups on the ins. type multiple and to display help. It is needed because a patient may have more than one entry with the
    same ins. co. and same policy except for different effective dates.
  • EXECUTABLE HELP:  D DDHELP^IBTRC2(DA)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the PATIENT field of the INSURANCE REVIEW File
  • CROSS-REFERENCE:  ^^TRIGGER^356.2^.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(356.2,1.05,1,1,1.1) X ^DD(356.2,1.05,1,1,1.4)
    1.1)= S X=DIV S X=+$$INSCO^IBTRC2(DA,$P(^IBT(356.2,DA,1),U,5))
    1.4)= S DIH=$S($D(^IBT(356.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=356.2,DIG=.08 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.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" X ^DD(356.2,1.05,1,1,2.4)
    2.4)= S DIH=$S($D(^IBT(356.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=356.2,DIG=.08 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=+$$INSCO^IBTRC2(DA,$P(^IBT(356.2,DA,1),U,5))
    DELETE VALUE)= @
    FIELD)= #.08
1.07 DENY ENTIRE ADMISSION 1;7 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JAN 27, 1994
  • DESCRIPTION:  If the insurance company denies the entire admission for reimbursement then enter YES. You will then not asked to enter the Care Denied From and Care Denied To questions for this admission. If you want to enter the dates
    care was denied from and to, then answer NO.
    If this question is answered YES, then the days denied for this episode will be the admission to discharge date and any report will use the portion of the episode that falls within the date range of the report.
  • SCREEN:  S DIC("S")="I $S(Y:$$DEA^IBTUTL4(DA,Y),1:1)"
  • EXPLANATION:  An entire admission can only be authorized or denied once.
  • EXECUTABLE HELP:  D HELP^IBTUTL3(DA)
1.08 AUTHORIZE ENTIRE ADMISSION 1;8 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JAN 27, 1994
  • DESCRIPTION:  If the insurance company authorizes the entire admission for reimbursement then enter YES. You will then not asked to enter the Care Authorized From and Care Authorized To questions for this admission. If you want to
    enter the dates care was authorized from and to, then answer NO.
    If this question is answered YES, then the days authorized for this episode will be the admission to discharge date and any report will use the portion of the episode that falls within the date range of the report.
  • SCREEN:  S DIC("S")="I $S(Y:$$AEA^IBTUTL4(DA,Y),1:1)"
  • EXPLANATION:  An entire admission can only be authorized or denied once.
  • EXECUTABLE HELP:  D HELP^IBTUTL3(DA)
11 COMMENTS 11;0 WORD-PROCESSING #356.211

  • DESCRIPTION:  
    This field is used to store long textual information about the contact.  This may be used to document specific information that is not captured in other fields or to pass along pertinent information to other users.
12 REASONS FOR DENIAL 12;0 POINTER Multiple #356.212 356.212

  • DESCRIPTION:  
    If this contact was a denial, this is the reason(s) for denial.  More than one reason may be selected from the available choices.
13 PENALTY 13;0 SET Multiple #356.213 356.213

  • DESCRIPTION:  
    If the action taken by an insurance company was to assess a penalty, then this is the reason for the penalty.
14 APPROVE ON APPEAL FROM 14;0 DATE Multiple #356.214 356.214

  • DESCRIPTION:  
    Enter the dates that were approved for payment after an appeal.  If the appeal was partially or fully approved enter the dates that this appeal was approved from.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #5340
  • INSURANCE CAPTURE BUFFER
  • External References

    Name Field # of Occurrence
    ^%DT .01+1, .12+1, .13+1, .15+1, .16+1, .24+1, 1.01+1, 1.03+1
    ^DIC .04+1, .11+1, .14+1, .18+1
    ^DICR .05(XREF 3n1.4), .05(XREF 3n2.4), .1(XREF 1n1.4), .11(XREF 4n1.4), .13(XREF 1n1.4), .16(XREF 1n1.4), .19(XREF 2n1.4), .19(XREF 2n2.4), 1.05(XREF 1n1.4), 1.05(XREF 1n2.4)
    Y^DIQ ID.02+1, ID.04+1, ID.05+1, ID.08+1
    $$INSCO^IBTRC2 1.05(XREF 1n1.1)
    $$TRANS^IBTRC2 1.05OT+1
    DD^IBTRC2 1.05+1
    DDHELP^IBTRC2 1.05(HELP )
    $$HIP^IBTRC3 .05(XREF 3S)
    HELP^IBTUTL3 .12(HELP ), .13(HELP ), .15(HELP ), .16(HELP ), 1.07(HELP ), 1.08(HELP )
    $$AFDT^IBTUTL4 .12+1
    $$ATDT^IBTUTL4 .13+1
    $$DFDT^IBTUTL4 .15+1
    $$DTDT^IBTUTL4 .16+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( .05(XREF 3n1.4), .05(XREF 3n2.4), .1(XREF 1n1.4), .11(XREF 4n1.4), .13(XREF 1n1.4), .16(XREF 1n1.4), .19(XREF 2n1.4), .19(XREF 2n2.4), 1.05(XREF 1n1.4), 1.05(XREF 1n2.4)
    ^DD(2 ID.05+1
    ^DD(356 ID.02+1
    ^DD(356.11 ID.04+1
    ^DD(356.2 .05(XREF 3S), .05(XREF 3n1.3), .05(XREF 3K), .1(XREF 1S), .11(XREF 4S), .13(XREF 1S), .16(XREF 1S), .19(XREF 2S), .19(XREF 2K), 1.05(XREF 1S)
    1.05(XREF 1K)
    ^DD(36 ID.08+1
    ^DIC(36 - [#36] ID.08+1
    ^DPT - [#2] ID.05+1
    ^IBE(356.11 - [#356.11] ID.04+1
    ^IBT(356 - [#356] ID.02+1
    ^IBT(356.2 - [#356.2] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
    .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .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), .05(XREF 3S), .05(XREF 3n1.3), .05(XREF 3n1.4), .05(XREF 3K), .05(XREF 3n2.4), .05(XREF 4S)
    .05(XREF 4K), .08(XREF 1S), .08(XREF 1K), .1(XREF 1S), .1(XREF 1n1.4), .11(XREF 1S), .11(XREF 1K), .11(XREF 2S), .11(XREF 2K), .11(XREF 3S)
    .11(XREF 3K), .11(XREF 4S), .11(XREF 4n1.4), .13(XREF 1S), .13(XREF 1n1.4), .16(XREF 1S), .16(XREF 1n1.4), .18(XREF 1S), .18(XREF 1K), .19(XREF 1S)
    .19(XREF 1K), .19(XREF 2S), .19(XREF 2n1.4), .19(XREF 2K), .19(XREF 2n2.4), .24(XREF 1S), .24(XREF 1K), .28(XREF 1S), .28(XREF 1K), 1.05(XREF 1S)
    1.05(XREF 1n1.1), 1.05(XREF 1n1.4), 1.05(XREF 1K), 1.05(XREF 1n2.4)

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID.02+1, ID.04+1, ID.05+1, ID.08+1, .01(XREF 2S), .01(XREF 3S), .02(XREF 2S), .02(XREF 3S), .02(XREF 4S), .04(XREF 2S)
    .05(XREF 2S), .08(XREF 1S), .1(XREF 1S), .1(XREF 1n1.4), .11(XREF 2S), .11(XREF 3S), .11(XREF 4S), .11(XREF 4n1.4), .13(XREF 1S), .13(XREF 1n1.4)
    .16(XREF 1S), .16(XREF 1n1.4), .19(XREF 2S), .19(XREF 2n1.4), .19(XREF 2K), .19(XREF 2n2.4), .28(XREF 1S), 1.05(XREF 1S), 1.05(XREF 1n1.4), 1.05(XREF 1K)
    1.05(XREF 1n2.4)
    ^(1 .05(XREF 3S), .05(XREF 3n1.3), .05(XREF 3n1.4), .05(XREF 3K), .05(XREF 3n2.4)
    ^(2 .05(XREF 3n1.3)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .01+1*, .12+1*, .13+1*, .15+1*, .16+1*, .24+1*, 1.01+1*, 1.03+1*
    %I ID.02+1*!, ID.04+1*!, ID.05+1*!, ID.08+1*!
    >> C ID.02+1*, ID.04+1*, ID.05+1*, ID.08+1*
    >> D0 .05(XREF 3S), .05(XREF 3n1.3), .05(XREF 3K), .1(XREF 1S), .11(XREF 4S), .13(XREF 1S), .16(XREF 1S), .19(XREF 2S), .19(XREF 2K), 1.05(XREF 1S)
    1.05(XREF 1K)
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
    .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .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), .05(XREF 3S), .05(XREF 3n1.3), .05(XREF 3K), .05(XREF 4S), .05(XREF 4K), .08(XREF 1S)
    .08(XREF 1K), .1(XREF 1S), .11(XREF 1S), .11(XREF 1K), .11(XREF 2S), .11(XREF 2K), .11(XREF 3S), .11(XREF 3K), .11(XREF 4S), .12+1
    .12(HELP ), .13+1, .13(HELP ), .13(XREF 1S), .15+1, .15(HELP ), .16+1, .16(HELP ), .16(XREF 1S), .18(XREF 1S)
    .18(XREF 1K), .19(XREF 1S), .19(XREF 1K), .19(XREF 2S), .19(XREF 2K), .24(XREF 1S), .24(XREF 1K), .28(XREF 1S), .28(XREF 1K), 1.05+1
    , 1.05OT+1, 1.05(HELP ), 1.05(XREF 1S), 1.05(XREF 1n1.1), 1.05(XREF 1K), 1.07(HELP ), 1.08(HELP )
    DIC ID.02+1, ID.04+1, ID.05+1, ID.08+1, .04+1!*, .11+1!*, .14+1!*, .18+1!*
    DIC("S" .04+1*, .04SCR+1*, .11+1*, .11SCR+1*, .14+1*, .14SCR+1*, .18+1*, .18SCR+1*, 1.07SCR+1*, 1.08SCR+1*
    >> DIE .04+1, .11+1, .14+1, .18+1
    >> DIG .05(XREF 3n1.4), .05(XREF 3n2.4), .1(XREF 1n1.4), .11(XREF 4n1.4), .13(XREF 1n1.4), .16(XREF 1n1.4), .19(XREF 2n1.4), .19(XREF 2n2.4), 1.05(XREF 1n1.4), 1.05(XREF 1n2.4)
    >> DIH .05(XREF 3n1.4), .05(XREF 3n2.4), .1(XREF 1n1.4), .11(XREF 4n1.4), .13(XREF 1n1.4), .16(XREF 1n1.4), .19(XREF 2n1.4), .19(XREF 2n2.4), 1.05(XREF 1n1.4), 1.05(XREF 1n2.4)
    >> DIU .05(XREF 3S), .05(XREF 3K), .1(XREF 1S), .11(XREF 4S), .13(XREF 1S), .16(XREF 1S), .19(XREF 2S), .19(XREF 2K), 1.05(XREF 1S), 1.05(XREF 1K)
    DIV .05(XREF 3S), .05(XREF 3n1.3), .05(XREF 3n1.4), .05(XREF 3K), .05(XREF 3n2.4), .1(XREF 1S), .1(XREF 1n1.4), .11(XREF 4S), .11(XREF 4n1.4), .13(XREF 1S)
    .13(XREF 1n1.4), .16(XREF 1S), .16(XREF 1n1.4), .19(XREF 2S), .19(XREF 2n1.4), .19(XREF 2K), .19(XREF 2n2.4), 1.05(XREF 1S), 1.05(XREF 1n1.1), 1.05(XREF 1n1.4)
    1.05(XREF 1K), 1.05(XREF 1n2.4)
    DIV(0 .05(XREF 3n1.3), .05(XREF 3n1.4), .05(XREF 3K), .05(XREF 3n2.4), .1(XREF 1S), .1(XREF 1n1.4), .11(XREF 4S), .11(XREF 4n1.4), .13(XREF 1S), .13(XREF 1n1.4)
    .16(XREF 1S), .16(XREF 1n1.4), .19(XREF 2S), .19(XREF 2n1.4), .19(XREF 2K), .19(XREF 2n2.4), 1.05(XREF 1S), 1.05(XREF 1n1.4), 1.05(XREF 1K), 1.05(XREF 1n2.4)
    DT .19(XREF 2S)
    U ID.02+1, ID.04+1, ID.05+1, ID.08+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 3S), .02(XREF 3K)
    .02(XREF 4S), .02(XREF 4K), .04(XREF 2S), .04(XREF 2K), .05(XREF 2S), .05(XREF 2K), .05(XREF 3S), .05(XREF 3n1.3), .05(XREF 3n1.4), .05(XREF 3K)
    .05(XREF 3n2.4), .08(XREF 1S), .08(XREF 1K), .1(XREF 1S), .1(XREF 1n1.4), .11(XREF 2S), .11(XREF 2K), .11(XREF 3S), .11(XREF 3K), .11(XREF 4S)
    .11(XREF 4n1.4), .13(XREF 1S), .13(XREF 1n1.4), .16(XREF 1S), .16(XREF 1n1.4), .19(XREF 2S), .19(XREF 2n1.4), .19(XREF 2K), .19(XREF 2n2.4), .28(XREF 1S)
    .28(XREF 1K), 1.05(XREF 1S), 1.05(XREF 1n1.1), 1.05(XREF 1n1.4), 1.05(XREF 1K), 1.05(XREF 1n2.4)
    X .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S)
    .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .03(XREF 1S), .03(XREF 1K), .04+1*!, .04(XREF 1S), .04(XREF 1K)
    .04(XREF 2S), .04(XREF 2K), .05(XREF 1S), .05(XREF 1K), .05(XREF 2S), .05(XREF 2K), .05(XREF 3S), .05(XREF 3n1.3), .05(XREF 3n1.4), .05(XREF 3K)
    .05(XREF 3n2.4), .05(XREF 4S), .05(XREF 4K), .06+1!, .07+1!, .08(XREF 1S), .08(XREF 1K), .09+1!, .1(XREF 1S), .1(XREF 1n1.4)
    , .11+1*!, .11(XREF 1S), .11(XREF 1K), .11(XREF 2S), .11(XREF 2K), .11(XREF 3S), .11(XREF 3K), .11(XREF 4S), .11(XREF 4n1.4), .12+1*!
    , .13+1*!, .13(XREF 1S), .13(XREF 1n1.4), .14+1*!, .15+1*!, .16+1*!, .16(XREF 1S), .16(XREF 1n1.4), .18+1*!, .18(XREF 1S)
    .18(XREF 1K), .19(XREF 1S), .19(XREF 1K), .19(XREF 2S), .19(XREF 2n1.4), .19(XREF 2K), .19(XREF 2n2.4), .24+1*!, .24(XREF 1S), .24(XREF 1K)
    , .25+1!, .26+1!, .28+1!, .28(XREF 1S), .28(XREF 1K), 1.01+1*!, 1.03+1*!, 1.05+1!, 1.05(XREF 1S), 1.05(XREF 1n1.1)
    1.05(XREF 1n1.4), 1.05(XREF 1K), 1.05(XREF 1n2.4)
    Y ID.02+1*, ID.04+1*, ID.05+1*, ID.08+1*, .01+1, .04+1, .05(XREF 3S), .05(XREF 3n1.3), .05(XREF 3K), .1(XREF 1S)
    , .11+1, .11(XREF 4S), .12+1, .13+1, .13(XREF 1S), .14+1, .15+1, .16+1, .16(XREF 1S), .18+1
    .19(XREF 2S), .19(XREF 2K), .24+1, 1.01+1, 1.03+1, 1.05OT+1*, 1.05(XREF 1S), 1.05(XREF 1K)
    Y(0 .05(XREF 3n1.3), .1(XREF 1S), .11(XREF 4S), .19(XREF 2S), .19(XREF 2K), 1.05OT+1*
    Y(1 .05(XREF 3S), .05(XREF 3n1.3), .05(XREF 3K), .1(XREF 1S), .11(XREF 4S), .13(XREF 1S), .16(XREF 1S), .19(XREF 2S), .19(XREF 2K), 1.05(XREF 1S)
    1.05(XREF 1K)
    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