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: ^IBA(364.1

Package: Integrated Billing

Global: ^IBA(364.1


Information

FileMan FileNo FileMan Filename Package
364.1 EDI TRANSMISSION BATCH Integrated Billing

Description

Directly Accessed By Routines, Total: 39

Package Total Routines
Integrated Billing 37 ^IBE(399.6    IBCE    IBCEBUL    IBCEMU2    ^IBA(364.1    IB20P407    IB20P529    IBCE837
IBCE837A    IBCE837H    IBCEDC    IBCEF11    IBCEM    IBCEM01    IBCEM02    IBCEM03
IBCEM1    IBCEMSR    IBCEPTC    IBCEPTC0    IBCEPTM    IBCEPTR    IBCEQBS    IBCERP1
IBCERP3    IBCERP5    ^IBA(364    IBCEPTC2    IBCESRV    IBCESRV1    IBCESRV2    IBCEST
IBCEXTRP    IBY196PO    IBY232PO    IBY641PO    ^IBA(364.2    
Accounts Receivable 1 RCDPENR1    

Accessed By FileMan Db Calls, Total: 13

Package Total Routines
Integrated Billing 12 IB20P529    IBCE837A    IBCEF11    IBCEM02    IBCEM03    IBCEPTC3    IBCEPTM    IBCEQBS
IBCESRV2    IBCF23A    IBY196PO    IBY641PO    
Accounts Receivable 1 RCDPENR1    

Pointed To By FileMan Files, Total: 6

Package Total FileMan Files
Integrated Billing 6 EDI TRANSMIT BILL(#364)[.02.06]    EDI TRANSMISSION BATCH(#364.1)[.15]    EDI MESSAGES(#364.2)[.04]    BILL STATUS MESSAGE(#361)[.05]    EXPLANATION OF BENEFITS(#361.1)[100.01]    EDI TEST CLAIM STATUS MESSAGE(#361.4)[#361.41(.02)]    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Integrated Billing 3 INSURANCE COMPANY(#36)[.12]    EDI TRANSMISSION BATCH(#364.1)[.15]    EDI MESSAGES(#364.2)[.11]    
Kernel 1 NEW PERSON(#200)[1.021.04]    

Fields, Total: 21

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

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  APR 07, 2020
  • HELP-PROMPT:  Type a number between 1 and 9999999999, 0 decimal digits.
  • DESCRIPTION:  
    The number of the batch for EDI transmissions.
  • CROSS-REFERENCE:  364.1^B
    1)= S ^IBA(364.1,"B",$E(X,1,30),DA)=""
    2)= K ^IBA(364.1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  364.1^C^MUMPS
    1)= S ^IBA(364.1,"C",+$E(X,4,$L(X)),DA)=""
    2)= K ^IBA(364.1,"C",+$E(X,4,$L(X)),DA)
    3)= DO NOT DELETE
    Lookup batch number without station prefix.
.02 LATEST RECEIPT STATUS 0;2 SET
  • 'P' FOR PENDING AUSTIN RECEIPT;
  • 'A0' FOR RECEIVED IN AUSTIN;

  • LAST EDITED:  SEP 13, 2001
  • HELP-PROMPT:  Enter the latest receipt status tracked for this batch
  • DESCRIPTION:  
    This field indicates where the last receipt for this batch came from. It is used in tracking how far a batch has gone in the transmission path for as long as it can be tracked with electronic receipt messages.
  • CROSS-REFERENCE:  ^^TRIGGER^364.1^1.06
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(364.1,.02,1,1,1.1) X ^DD(364.1,.02,1,1,1.4)
    1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
    1.4)= S DIH=$S($D(^IBA(364.1,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,6)=DIV,DIH=364.1,DIG=1.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= NOW
    DELETE VALUE)= NO EFFECT
    FIELD)= #1.06
  • CROSS-REFERENCE:  364.1^ASTAT
    1)= S ^IBA(364.1,"ASTAT",$E(X,1,30),DA)=""
    2)= K ^IBA(364.1,"ASTAT",$E(X,1,30),DA)
    3)= DO NOT DELETE
    Xref by status
.03 NUMBER OF BILLS 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 05, 1999
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the total number of bills currently under the control of this batch.
.04 MAIL MESSAGE 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 23, 2002
  • HELP-PROMPT:  Type a Number between 0 and 999999999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the number of the mail message that was generated for this batch.
  • CROSS-REFERENCE:  364.1^MSG
    1)= S ^IBA(364.1,"MSG",$E(X,1,30),DA)=""
    2)= K ^IBA(364.1,"MSG",$E(X,1,30),DA)
    3)= DO NOT DELETE
.05 BATCH REJECTED 0;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  APR 11, 1996
  • HELP-PROMPT:  Enter 0 (NO) if batch has not been rejected, 1 (YES) if it has
  • DESCRIPTION:  
    This field indicates whether or not a batch has been rejected at any point in the transmission path.
  • NOTES:  TRIGGERED by the REJECT MESSAGE field of the EDI TRANSMISSION BATCH File
.06 BILL TYPE 0;6 SET
  • '2' FOR CMS-1500 (PROF);
  • '3' FOR UB-04 (INST);
  • '7' FOR J430D (DENT);

  • LAST EDITED:  MAR 09, 2017
  • HELP-PROMPT:  ENTER THE TYPE OF BILL CONTAINED IN THIS BATCH
  • DESCRIPTION:  
    THIS IS THE TYPE OF BILL THAT IS CONTAINED IN THIS BATCH
.07 BATCH TYPE 0;7 SET
  • '1' FOR EDI 837 BILL SUBMISSION;

  • LAST EDITED:  OCT 02, 1996
  • HELP-PROMPT:  Enter the code that corresponds to the type of data in the batch.
  • DESCRIPTION:  
    This identifies the type of ANSI X12 data contained in the batch.
  • CROSS-REFERENCE:  364.1^ATYP
    1)= S ^IBA(364.1,"ATYP",$E(X,1,30),DA)=""
    2)= K ^IBA(364.1,"ATYP",$E(X,1,30),DA)
    3)= DO NOT DELETE
    Xref by batch type
.08 DESCRIPTION 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  SEP 05, 1996
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  
    This is a free text description to identify the contents of the batch.
.09 BATCH RESUBMIT TASK 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  SEP 16, 1996
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    If the batch is being resubmitted, this is the task # of the task that is doing the resubmission if the job is queued. No entry is made here if the task is not queued.
.1 BATCH RESUBMIT INCOMPLETE 0;10 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  SEP 26, 1996
  • HELP-PROMPT:  Enter YES if batch resubmit was incomplete.
  • DESCRIPTION:  
    This field is 0 or null if batch either was not resubmitted or if all bills in the batch have been resubmitted. It is a 1 (YES) if any bills in the batch were not resubmitted, but the batch itself was.
  • CROSS-REFERENCE:  364.1^AINC^MUMPS
    1)= S:X=1 ^IBA(364.1,"AINC",1,DA)=""
    2)= K:X=1 ^IBA(364.1,"AINC",1,DA)
    3)= DO NOT DELETE
    Xref used to track batches not completely resubmitted.
.11 REJECT MESSAGE 0;11 POINTER TO EDI MESSAGES FILE (#364.2) EDI MESSAGES(#364.2)

  • LAST EDITED:  SEP 19, 1996
  • HELP-PROMPT:  Enter the number of the reject message for this batch
  • DESCRIPTION:  
    Pointer to the reject message received for this batch.
  • CROSS-REFERENCE:  ^^TRIGGER^364.1^.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S('$D(^IBA(364.2,+Y(0),0)):"",1:$P(^(0),U,1))'="" I X S X=DIV S Y(1)=$S($D(^IBA(364.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(364.1,.11,1,1,1.4
    )
    1.4)= S DIH=$S($D(^IBA(364.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=364.1,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= REJECT MESSAGE'=""
    CREATE VALUE)= S X=1
    DELETE VALUE)= NO EFFECT
    FIELD)= BATCH REJECTED
.12 INSURANCE COMPANY 0;12 POINTER TO INSURANCE COMPANY FILE (#36) INSURANCE COMPANY(#36)

  • LAST EDITED:  NOV 13, 1998
  • HELP-PROMPT:  ENTER THE NAME OF THE INSURANCE COMPANY WHOSE BILLS ARE CONTAINED IN THIS BATCH
  • DESCRIPTION:  
    This is the insurance company associated with this batch.
.13 BATCH RESUBMIT DATE 0;13 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)
  • LAST EDITED:  OCT 03, 1996
  • HELP-PROMPT:  Enter the date/time the batch was last resubmitted.
  • DESCRIPTION:  
    This is the last date/time the batch was resubmitted. It is set when the resubmit process is done.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.14 TEST BATCH 0;14 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUN 02, 1997
  • HELP-PROMPT:  Enter YES (1) indicate a test batch in a production environment
  • DESCRIPTION:  
    This field indicates the batch is a test batch in a production environment. All bills in this batch will have also been printed.
.15 PREVIOUS BATCH 0;15 POINTER TO EDI TRANSMISSION BATCH FILE (#364.1) EDI TRANSMISSION BATCH(#364.1)

  • INPUT TRANSFORM:  S DIC("S")="I +Y'=DA" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 05, 1999
  • HELP-PROMPT:  Enter the number of the batch that was resubmitted in this batch
  • DESCRIPTION:  
    If this data exists, this batch was created as a result of another batch being resubmitted. This data references the original batch that contained the bills that are now contained in this batch.
  • SCREEN:  S DIC("S")="I +Y'=DA"
  • EXPLANATION:  Cannot point to itself
1.01 DATE FIRST SENT 1;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)
  • LAST EDITED:  JUL 14, 2015
  • HELP-PROMPT:  Enter the first date/time that the batch was transmitted.
  • DESCRIPTION:  
    This is the date/time that this batch was first transmitted.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^364.1^1.03
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"") S X=$P(Y(1),U,3)="" I X S X=DIV S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(364.1,1.
    01,1,1,1.4)
    1.4)= S DIH=$S($D(^IBA(364.1,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=364.1,DIG=1.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(364.1,1.01,1,1,2.4)
    2.4)= S DIH=$S($D(^IBA(364.1,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=364.1,DIG=1.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= DATE LAST SENT=""
    CREATE VALUE)= DATE FIRST SENT
    DELETE VALUE)= @
    FIELD)= DATE LAST SENT
  • CROSS-REFERENCE:  364.1^FDATE
    1)= S ^IBA(364.1,"FDATE",$E(X,1,30),DA)=""
    2)= K ^IBA(364.1,"FDATE",$E(X,1,30),DA)
    This index allows for the searching of batches by the date that they were first sent to FMS.
1.02 FIRST SENT BY 1;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 03, 1999
  • HELP-PROMPT:  Enter the name of the user responsible for the first transmission of this batch.
  • DESCRIPTION:  
    The name of the user who was responsible for the first transmission of this batch.
  • CROSS-REFERENCE:  ^^TRIGGER^364.1^1.04
    1)= X ^DD(364.1,1.02,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(364.1,1.02,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,4),0)):"",1:$P(^(0),U,1))=""
    1.4)= S DIH=$S($D(^IBA(364.1,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,4)=DIV,DIH=364.1,DIG=1.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(364.1,1.02,1,1,2.4)
    2.4)= S DIH=$S($D(^IBA(364.1,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,4)=DIV,DIH=364.1,DIG=1.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= LAST SENT BY=""
    CREATE VALUE)= INTERNAL(FIRST SENT BY)
    DELETE VALUE)= @
    FIELD)= LAST SENT BY
1.03 DATE LAST SENT 1;3 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)
  • LAST EDITED:  OCT 02, 1996
  • HELP-PROMPT:  Enter the last date/time that the batch was transmitted.
  • DESCRIPTION:  
    This is the date/time that the batch was last transmitted.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the DATE FIRST SENT field of the EDI TRANSMISSION BATCH File
  • CROSS-REFERENCE:  364.1^ALT
    1)= S ^IBA(364.1,"ALT",$E(X,1,30),DA)=""
    2)= K ^IBA(364.1,"ALT",$E(X,1,30),DA)
    3)= DO NOT DELETE
    Xref by last transmit date
1.04 LAST SENT BY 1;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 21, 1997
  • HELP-PROMPT:  Enter the name of the user responsible for the last transmission of this batch.
  • DESCRIPTION:  
    The name of the user who was responsible for the last transmission of this batch.
  • NOTES:  TRIGGERED by the FIRST SENT BY field of the EDI TRANSMISSION BATCH File
1.05 LATEST STATUS DATE 1;5 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)
  • LAST EDITED:  OCT 02, 1996
  • HELP-PROMPT:  Enter the date and time associated with the latest status.
  • DESCRIPTION:  
    This is the date and time contained on the latest receipt message for this batch.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1.06 DATE LATEST STATUS RECORDED 1;6 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)
  • LAST EDITED:  OCT 02, 1996
  • HELP-PROMPT:  Enter the date and time that the latest status was recorded in this file
  • DESCRIPTION:  
    This is the date and time the latest status was recorded in this file.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the LATEST RECEIPT STATUS field of the EDI TRANSMISSION BATCH File

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #6209
  • Accounts Receivable
  • BATCH NUMBER (.01).
    Access: Read w/Fileman

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

    DATE FIRST SENT (1.01).
    Access: Read w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT .13+1, 1.01+1, 1.03+1, 1.05+1, 1.06+1
    NOW^%DTC .02(XREF 1n1.1)
    ^DIC .15+1
    ^DICR .02(XREF 1n1.4), .11(XREF 1n1.4), 1.01(XREF 1n1.4), 1.01(XREF 1n2.4), 1.02(XREF 1n1.4), 1.02(XREF 1n2.4)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( .02(XREF 1n1.4), .11(XREF 1n1.4), 1.01(XREF 1n1.4), 1.01(XREF 1n2.4), 1.02(XREF 1n1.4), 1.02(XREF 1n2.4)
    ^DD(364.1 .02(XREF 1S), .11(XREF 1S), 1.01(XREF 1S), 1.01(XREF 1K), 1.02(XREF 1S), 1.02(XREF 1K)
    ^IBA(364.1 - [#364.1] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1n1.4), .02(XREF 2S), .02(XREF 2K), .04(XREF 1S), .04(XREF 1K)
    .07(XREF 1S), .07(XREF 1K), .1(XREF 1S), .1(XREF 1K), .11(XREF 1S), .11(XREF 1n1.4), 1.01(XREF 1S), 1.01(XREF 1n1.4), 1.01(XREF 1K), 1.01(XREF 1n2.4)
    1.01(XREF 2S), 1.01(XREF 2K), 1.02(XREF 1S), 1.02(XREF 1n1.3), 1.02(XREF 1n1.4), 1.02(XREF 1K), 1.02(XREF 1n2.4), 1.03(XREF 1S), 1.03(XREF 1K)
    ^IBA(364.2 - [#364.2] .11(XREF 1S)
    ^VA(200 - [#200] 1.02(XREF 1n1.3)

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID.08+1, .11(XREF 1S), .11(XREF 1n1.4), 1.02(XREF 1n1.3)
    ^(1 .02(XREF 1S), .02(XREF 1n1.4), 1.01(XREF 1S), 1.01(XREF 1n1.4), 1.01(XREF 1K), 1.01(XREF 1n2.4), 1.02(XREF 1S), 1.02(XREF 1n1.3), 1.02(XREF 1n1.4), 1.02(XREF 1K)
    1.02(XREF 1n2.4)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % .02(XREF 1n1.1)
    >> %DT .13+1*, 1.01+1*, 1.03+1*, 1.05+1*, 1.06+1*
    %H .02(XREF 1n1.1)
    %I .02(XREF 1n1.1)
    >> D0 .02(XREF 1S), .11(XREF 1S), 1.01(XREF 1S), 1.01(XREF 1K), 1.02(XREF 1S), 1.02(XREF 1n1.3), 1.02(XREF 1K)
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 2S), .02(XREF 2K), .04(XREF 1S), .04(XREF 1K), .07(XREF 1S)
    .07(XREF 1K), .1(XREF 1S), .1(XREF 1K), .11(XREF 1S), 1.01(XREF 1S), 1.01(XREF 1K), 1.01(XREF 2S), 1.01(XREF 2K), 1.02(XREF 1n1.3), 1.02(XREF 1K)
    1.03(XREF 1S), 1.03(XREF 1K)
    DIC .15+1!*
    DIC("S" .15+1*, .15SCR+1*
    >> DIE .15+1
    >> DIG .02(XREF 1n1.4), .11(XREF 1n1.4), 1.01(XREF 1n1.4), 1.01(XREF 1n2.4), 1.02(XREF 1n1.4), 1.02(XREF 1n2.4)
    >> DIH .02(XREF 1n1.4), .11(XREF 1n1.4), 1.01(XREF 1n1.4), 1.01(XREF 1n2.4), 1.02(XREF 1n1.4), 1.02(XREF 1n2.4)
    >> DIU .02(XREF 1S), .11(XREF 1S), 1.01(XREF 1S), 1.01(XREF 1K), 1.02(XREF 1S), 1.02(XREF 1K)
    DIV .02(XREF 1S), .02(XREF 1n1.1), .02(XREF 1n1.4), .11(XREF 1S), .11(XREF 1n1.4), 1.01(XREF 1S), 1.01(XREF 1n1.4), 1.01(XREF 1K), 1.01(XREF 1n2.4), 1.02(XREF 1S)
    1.02(XREF 1n1.3), 1.02(XREF 1n1.4), 1.02(XREF 1K), 1.02(XREF 1n2.4)
    DIV(0 .02(XREF 1S), .02(XREF 1n1.4), .11(XREF 1S), .11(XREF 1n1.4), 1.01(XREF 1S), 1.01(XREF 1n1.4), 1.01(XREF 1K), 1.01(XREF 1n2.4), 1.02(XREF 1n1.3), 1.02(XREF 1n1.4)
    1.02(XREF 1K), 1.02(XREF 1n2.4)
    U ID.08+1, .02(XREF 1S), .02(XREF 1n1.4), .11(XREF 1S), .11(XREF 1n1.4), 1.01(XREF 1S), 1.01(XREF 1n1.4), 1.01(XREF 1K), 1.01(XREF 1n2.4), 1.02(XREF 1S)
    1.02(XREF 1n1.3), 1.02(XREF 1n1.4), 1.02(XREF 1K), 1.02(XREF 1n2.4)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1n1.1), .02(XREF 1n1.4), .02(XREF 2S), .02(XREF 2K)
    , .03+1!, .04+1!, .04(XREF 1S), .04(XREF 1K), .07(XREF 1S), .07(XREF 1K), .08+1!, .09+1!, .1(XREF 1S), .1(XREF 1K)
    .11(XREF 1S), .11(XREF 1n1.4), .13+1*!, .15+1*!, 1.01+1*!, 1.01(XREF 1S), 1.01(XREF 1n1.4), 1.01(XREF 1K), 1.01(XREF 1n2.4), 1.01(XREF 2S)
    1.01(XREF 2K), 1.02(XREF 1S), 1.02(XREF 1n1.3), 1.02(XREF 1n1.4), 1.02(XREF 1K), 1.02(XREF 1n2.4), 1.03+1*!, 1.03(XREF 1S), 1.03(XREF 1K), 1.05+1*!
    , 1.06+1*!
    Y .02(XREF 1S), .11(XREF 1S), .13+1, .15+1, 1.01+1, 1.01(XREF 1S), 1.01(XREF 1K), 1.02(XREF 1S), 1.02(XREF 1K), 1.03+1
    , 1.05+1, 1.06+1
    Y(0 .11(XREF 1S), 1.01(XREF 1S), 1.02(XREF 1n1.3)
    Y(1 .02(XREF 1S), .11(XREF 1S), 1.01(XREF 1S), 1.01(XREF 1K), 1.02(XREF 1S), 1.02(XREF 1n1.3), 1.02(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