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

Package: IHS Accounts Receivable

Global: ^BARBL(2906


Information

FileMan FileNo FileMan Filename Package
90050.01 A/R BILL/IHS IHS Accounts Receivable

Description

Accessed By FileMan Db Calls, Total: 102

Package Total Routines
IHS Accounts Receivable 83 BAR276    BAR50EB    BAR50P04    BAR50P06    BAR50P08    BAR50P4A    BARACSI    BARBAD3
BARBAD4    BARBAD5    BARBAD6    BARBADU    BARBLOS    BARCLU01    BARDINQ    BARDMAN2
BARDMAN3    BARDMLP    BARDMLPR    BARDYSUT    BARDYSV1    BARDYSV3    BARDYSV5    BARDYSVZ
BAREDEB    BAREDP04    BAREDP06    BAREDP08    BAREDP4A    BARFPST5    BARFRAPI    BARMAWO2
BARMAWO3    BARMPAS    BARMPAS2    BARMPAS4    BARNCPDP    BARPNP3    BARPNPU    BARPPY01
BARPPY02    BARPPY1A    BARPRF3    BARPRFU    BARPRMKP    BARPST5    BARPST6    BARPSTU
BARPUC3    BARPUCU    BARRADJ    BARRADJ2    BARRAOI    BARRASM    BARRATS    BARRCHK
BARRCHK1    BARRIDR    BARRLBL    BARRNBRE    BARRNEGB    BARROLL    BARRPPS    BARRPRAC
BARRPRP    BARRPSRA    BARRPVC    BARRSYNC    BARRTRAN    BARSYNC    BARTDO    BARTR
BARUFCNR    BARUFER    BARUFEX1    BARUFFN    BARUFRP3    BARUFRPT    BARUFUT    BARUFUT0
BARUFUT1    BARUP1    BARUTL    
Third Party Billing 9 ABMDREEX    ABMEXLIP    ABMM2P11    ABMM2P12    ABMM2PVH    ABMMUPV1    ABMMUPVH    ABMPSAPI
ABMTALL2    
IHS Uniform Data System 8 BUD1RPC4    BUD2RPC4    BUDARPC4    BUDBRPC4    BUDCRPC4    BUDDRPC4    BUDERPC4    BUDHRPC4
IHS Support HL7 Interfaces 1 BHLX835    
Tucson 1 BZSMAWO3    

Pointed To By FileMan Files, Total: 10

Package Total FileMan Files
IHS Accounts Receivable 10 A/R EDI 835 HOLDING(#90056.07)[.08]    A/R BILL ERROR(#90050.04)[.01]    A/R COLLECTION BATCH/IHS(#90051.01)[#90051.1101(6)]    A/R DEBT COLLECTION LOG(#90050.05)[.02]    A/R DEBT MANAGEMENT BILLS(#90053.05)[.01]    A/R EDI CLAIM STATUS(#90056.08)[.02]    A/R EDI IMPORT(#90056.02)[#90056.0205(1.01)#90056.0205(601)#90056.0205(602)]
A/R FLAT RATE POSTING(#90054.01)[#90054.0103(.01)]    A/R PREPAYMENT(#90050.06)[.09]    A/R TRANSACTIONS/IHS(#90050.03)[4303304501502]    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
IHS Accounts Receivable 3 A/R PARENT/SATELLITE/IHS(#90052.05)[8108]    A/R ACCOUNTS/IHS(#90050.02)[3104201202205206207212213]    A/R TABLE ENTRY/IHS(#90052.02)[16#90050.1301(6)]    
Kernel 2 SERVICE/SECTION(#49)[10110]    NEW PERSON(#200)[6113214215405]    
IHS Patient 1 PATIENT(#9000001)[101]    
Scheduling 1 CLINIC STOP(#40.7)[112]    
Third Party Billing 1 3P VISIT TYPE(#9002274.8)[114]    

Fields, Total: 87

Field # Name Loc Type Details
.001 IEN NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 29, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999999999999, 0 Decimal Digits
.01 BILL NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  MAY 04, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • CROSS-REFERENCE:  90050.01^B
    1)= S ^BARBL(DUZ(2),"B",$E(X,1,30),DA)=""
    2)= K ^BARBL(DUZ(2),"B",$E(X,1,30),DA)
.02 ASUFAC-IEN 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  SEP 30, 1994
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • NOTES:  TRIGGERED by the PARENT LOCATION field of the A/R BILL/IHS File
3 A/R ACCOUNT 0;3 POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02) A/R ACCOUNTS/IHS(#90050.02)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,10)=BARUSR(29,""I""),$$VAL^XBDIQ1(90050.02,+Y,2)[""BILL""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 02, 1995
  • SCREEN:  S DIC("S")="I $P(^(0),U,10)=BARUSR(29,""I""),$$VAL^XBDIQ1(90050.02,+Y,2)[""BILL"""
  • EXPLANATION:  limit to Service/Section & BILLABLE
  • CROSS-REFERENCE:  90050.01^D
    1)= S ^BARBL(DUZ(2),"D",$E(X,1,30),DA)=""
    2)= K ^BARBL(DUZ(2),"D",$E(X,1,30),DA)
4 BILL TYPE 0;4 SET
  • 'P' FOR PRIMARY;
  • 'R' FOR ROLLOVER;

  • LAST EDITED:  JAN 11, 1995
5 ENTRY DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 10, 1994
6 ENTRY USER 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 10, 1994
7 BILLED DATE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 13, 1995
  • NOTES:  TRIGGERED by the 3P APPROVE DATE field of the A/R BILL/IHS File
    TRIGGERED by the 3P PRINT DATE field of the A/R BILL/IHS File
  • CROSS-REFERENCE:  90050.01^F
    1)= S ^BARBL(DUZ(2),"F",$E(X,1,30),DA)=""
    2)= K ^BARBL(DUZ(2),"F",$E(X,1,30),DA)
7.2 AGE COMPUTED

  • MUMPS CODE:  S X=$$FMDIFF^XLFDT(DT,$P(^BARBL(DUZ(2),DA,0),"^",7))
  • ALGORITHM:  S X=$$FMDIFF^XLFDT(DT,$P(^BARBL(DUZ(2),DA,0),"^",7))
7.3 0-30 COMPUTED

  • MUMPS CODE:  S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y<31 S X=$$VAL^XBDIQ1(90050.01,D0,15)
  • ALGORITHM:  S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y<31 S X=$$VAL^XBDIQ1(90050.01,D0,15)
  • LAST EDITED:  MAR 16, 1995
7.4 31-60 COMPUTED

  • MUMPS CODE:  S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y>30,Y<61 S X=$$VAL^XBDIQ1(90050.01,D0,15)
  • ALGORITHM:  S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y>30,Y<61 S X=$$VAL^XBDIQ1(90050.01,D0,15)
7.5 61-90 COMPUTED

  • MUMPS CODE:  S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y>60,Y<91 S X=$$VAL^XBDIQ1(90050.01,D0,15)
  • ALGORITHM:  S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y>60,Y<91 S X=$$VAL^XBDIQ1(90050.01,D0,15)
7.6 91-120 COMPUTED

  • MUMPS CODE:  S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y>90,Y<121 S X=$$VAL^XBDIQ1(90050.01,D0,15)
  • ALGORITHM:  S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y>90,Y<121 S X=$$VAL^XBDIQ1(90050.01,D0,15)
  • LAST EDITED:  MAR 13, 1995
7.7 120+ COMPUTED

  • MUMPS CODE:  S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y>120 S X=$$VAL^XBDIQ1(90050.01,D0,15)
  • ALGORITHM:  S X=0 N Y S Y=$$VAL^XBDIQ1(90050.01,D0,7.2) I Y>120 S X=$$VAL^XBDIQ1(90050.01,D0,15)
  • LAST EDITED:  MAR 13, 1995
8 PARENT LOCATION 0;8 POINTER ** TO AN UNDEFINED FILE **

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=Y" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 06, 1994
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=Y"
  • EXPLANATION:  Insure Selection is a Parent
  • CROSS-REFERENCE:  ^^TRIGGER^90050.01^9
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(90050.01,8,1,1,1.1) X ^DD(90050.01,8,1,1,1.4)
    1.1)= S X=DIV X ^DD(90050.01,8,1,1,49.2) S D0=$P(Y(101),U,1) S:'$D(^DIC(4,+D0,0)) D0=-1 S X=$P(Y(101),U,10) S D0=I(0,0)
    1.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=90050.01,DIG=9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTLOC(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^AUTTLOC(D0,0)):^(0),1:"")
    CREATE VALUE)= #8:#.01:ASUFAC INDEX
    DELETE VALUE)= NO EFFECT
    FIELD)= #9
  • CROSS-REFERENCE:  ^^TRIGGER^90050.01^.02
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(90050.01,8,1,2,1.1) X ^DD(90050.01,8,1,2,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,9)_"-"_$S('$D(D0):"",D0<0:"",1:D0)
    1.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=90050.01,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #9_"-"_#.001
    DELETE VALUE)= NO EFFECT
    FIELD)= #.02
9 A/R BILLING SITE/ASUFAC 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 19, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • NOTES:  TRIGGERED by the PARENT LOCATION field of the A/R BILL/IHS File
10 PARENT A/R SERVICE SECTION 0;10 POINTER TO SERVICE/SECTION FILE (#49) SERVICE/SECTION(#49)

  • LAST EDITED:  DEC 06, 1994
11 ENTRY TYPE 0;11 SET
  • '3PU' FOR 3P UPLOAD;
  • '3PM' FOR 3P MANUAL;
  • 'OT' FOR OTHER;

  • LAST EDITED:  MAR 16, 1995
12 A/R ACCOUNT REFERENCE # 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  OCT 19, 1994
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
13 AMOUNT BILLED 0;13 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JAN 04, 1995
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
14 TOTAL BILL AMOUNT 0;14 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  SEP 29, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • NOTES:  TRIGGERED by the TOTAL ITEM COST field of the ITEM sub-field of the A/R BILL/IHS File
15 CURRENT BILL AMOUNT 0;15 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999)!(X<-9999999) X
  • LAST EDITED:  DEC 29, 2008
  • HELP-PROMPT:  Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits
  • CROSS-REFERENCE:  90050.01^ABAL^MUMPS
    1)= S:+X>0 ^BARBL(DUZ(2),"ABAL",$P(^BARBL(DUZ(2),DA,0),"^",3),DA)=""
    2)= K ^BARBL(DUZ(2),"ABAL",$P(^BARBL(DUZ(2),DA,0),"^",3),DA)
  • CROSS-REFERENCE:  90050.01^OBAL^MUMPS
    1)= S X=$FN(X,"-") S:+X'<.01 ^BARBL(DUZ(2),"OBAL",DA)=""
    2)= S X=$FN($P(^BARBL(DUZ(2),DA,0),U,15),"-") I +X<.01 K ^BARBL(DUZ(2),"OBAL",DA)
    This cross-reference is designed to contain those bills that have an open balance be it debit or credit.  Created for ASM report V1.6 Patch 2.
  • CROSS-REFERENCE:  90050.01^APBAL^MUMPS
    1)= N DFN S DFN=+$G(^BARBL(DUZ(2),DA,1)) I DFN,X>0 S ^BARBL(DUZ(2),"APBAL",DFN,DA)=""
    2)= N DFN S DFN=+$G(^BARBL(DUZ(2),DA,1)) K:DFN ^BARBL(DUZ(2),"APBAL",DFN,DA)
    This cross-reference is designed to contain those bills with a positive balance that have a patient name defined.  This cross-reference is used when generating Patient Account Statements.  It was created for AR V1.7 Patch
    2.
16 CURRENT BILL STATUS 0;16 POINTER TO A/R TABLE ENTRY/IHS FILE (#90052.02) A/R TABLE ENTRY/IHS(#90052.02)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=""BLST""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 19, 1994
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=""BLST"""
  • EXPLANATION:  SCREEN SELECTION TO BILL STATUS TYPE ENTRIES
17 3P IEN (DA) 0;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 02, 1995
  • HELP-PROMPT:  Type a Number between 0 and 999999999999, 0 Decimal Digits
17.2 3P BILL STATUS COMPUTED

  • MUMPS CODE:  S X=$$VAL^BAR3PINQ(D0,"B",.04)
  • ALGORITHM:  S X=$$VAL^BAR3PINQ(D0,"B",.04)
17.4 3P CLAIM STATUS COMPUTED

  • MUMPS CODE:  S X=$$VAL^BAR3PINQ(D0,"C",.04)
  • ALGORITHM:  S X=$$VAL^BAR3PINQ(D0,"C",.04)
18 3P APPROVE DATE 0;18 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 01, 1996
  • CROSS-REFERENCE:  ^^TRIGGER^90050.01^7
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$VALI^XBDIQ1(90050.01,D0,19)'>0 I X S X=DIV S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(90050.01,18,1,1,1.4)
    1.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=90050.01,DIG=7 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 $$VALI^XBDIQ1(90050.01,D0,19)'>0 I X S X=DIV S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(90050.01,18,1,1,2.1) X ^DD(90050.01,18,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,18)
    2.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=90050.01,DIG=7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= I $$VALI^XBDIQ1(90050.01,D0,19)'>0
    CREATE VALUE)= #18
    DELETE CONDITION)= I $$VALI^XBDIQ1(90050.01,D0,19)'>0
    DELETE VALUE)= #18
    FIELD)= #7
  • CROSS-REFERENCE:  90050.01^AG
    1)= S ^BARBL(DUZ(2),"AG",$E(X,1,30),DA)=""
    2)= K ^BARBL(DUZ(2),"AG",$E(X,1,30),DA)
19 3P PRINT DATE 0;19 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 30, 2000
  • CROSS-REFERENCE:  ^^TRIGGER^90050.01^7
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(90050.01,19,1,1,1.4)
    1.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=90050.01,DIG=7 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(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(90050.01,19,1,1,2.1) X ^DD(90050.01,19,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,19)
    2.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=90050.01,DIG=7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= #19
    DELETE VALUE)= #19
    FIELD)= #7
  • CROSS-REFERENCE:  90050.01^H
    1)= S ^BARBL(DUZ(2),"H",$E(X,1,30),DA)=""
    2)= K ^BARBL(DUZ(2),"H",$E(X,1,30),DA)
20 3P UPLOAD CREDIT 0;20 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  FEB 01, 1995
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
21 DOL PAYMENT 0;21 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 13, 1995
22 3P DUZ(2) 0;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 23, 2000
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
23 DISCHARGE SERVICE COMPUTED

  • MUMPS CODE:  S X=$$DSCHSVC^BARCFLD
  • ALGORITHM:  S X=$$DSCHSVC^BARCFLD
  • TECHNICAL DESCR:  Field added in V1.8 of Accounts Receivable. Needed to sort financial reports such as ASM and PSR. Finds Primary visit from 3P Bill file PCC Visit multiple. Uses that visit to cross to V Hospitalization file and pick up
    Discharge Service.  The value stored here is the internal value to Discharge Service in V Hospitalization File which is pointer to Facility Treating Specialty File.
24 PRIMARY DIAGNOSIS COMPUTED

  • MUMPS CODE:  S X=$$PRIMDIAG^BARCFLD
  • ALGORITHM:  S X=$$PRIMDIAG^BARCFLD
  • LAST EDITED:  JUL 18, 2013
  • TECHNICAL DESCR:  Field added in V1.8 of Accounts Receivable. Needed to sort financial reports such as the Inpatient Primary Diagnosis Report. Finds Primary Diagnosis by finding the corresponding bill in the 3P Bill File and looping the
    Diagnosis multiple for the diagnosis marked as priority one.  The value returned will actually be the .01 value of the ICD DIAGNOSIS file (ICD9 or ICD10 Diagnosis Code).
25 ALLOWABLE AMOUNT COMPUTED

  • MUMPS CODE:  S X=$$CALC^BARBLCLC(D0)
  • ALGORITHM:  S X=$$CALC^BARBLCLC(D0)
  • LAST EDITED:  MAR 05, 2010
  • DESCRIPTION:  
    ALLOWABLE AMOUNT = AMOUNT BILLED MINUS ADJUSTMENTS
  • TECHNICAL DESCR:  
    ^BARBL(DUZ(2),"AC",D0,TRANSACTION.IEN   points to ^BARTR(DUZ(2),IEN where D0 is the BILL IEN
26 ICD CODE INDICATOR COMPUTED

  • MUMPS CODE:  S X=$$ICDVER^BARCFLD()
  • ALGORITHM:  S X=$$ICDVER^BARCFLD()
  • LAST EDITED:  JUL 22, 2013
  • TECHNICAL DESCR:  Field added in V1.8 of Accounts Receivable. The value returned will depend on the infrastructure supporting the ICD-10 coding system. If the infrastructure is not currently installed (pre - ICD-10 systems) the value will
    be nil (empty string) implying the ICD-9 coding.  On systems with fully installed the ICD-10 infrastructure the value will be ICD-9 or ICD-10 (the coding systems in which the Primary diagnoses was entered.)
27 3P BILL TYPE COMPUTED

  • MUMPS CODE:  S X=$$VAL^BAR3PINQ(D0,"B",.02)
  • ALGORITHM:  S X=$$VAL^BAR3PINQ(D0,"B",.02)
  • LAST EDITED:  MAR 13, 2018
101 PATIENT 1;1 POINTER TO PATIENT FILE (#9000001) PATIENT(#9000001)

  • LAST EDITED:  JAN 04, 1995
  • CROSS-REFERENCE:  90050.01^C
    1)= S ^BARBL(DUZ(2),"C",$E(X,1,30),DA)=""
    2)= K ^BARBL(DUZ(2),"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^90050.01^116
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARBL(DUZ(2),D0,1)):^(1),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(90050.01,101,1,2,1.1) X ^DD(90050.01,101,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0)
    1.4)= S DIH=$S($D(^BARBL(DUZ(2),DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,16)=DIV,DIH=90050.01,DIG=116 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #101
    DELETE VALUE)= NO EFFECT
    FIELD)= #116
  • CROSS-REFERENCE:  90050.01^AC^MUMPS
    1)= I $P($G(^BARBL(DUZ(2),DA,1)),U,2) S ^BARBL(DUZ(2),"ABC",X,$P(^BARBL(DUZ(2),DA,1),U,2),DA)=""
    2)= I $P($G(^BARBL(DUZ(2),DA,1)),U,2) K ^BARBL(DUZ(2),"ABC",X,$P(^BARBL(DUZ(2),DA,1),U,2),DA)
102 DOS BEGIN 1;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 14, 1994
  • CROSS-REFERENCE:  90050.01^AD^MUMPS
    1)= I $P($G(^BARBL(DUZ(2),DA,1)),U,1) S ^BARBL(DUZ(2),"ABC",$P(^BARBL(DUZ(2),DA,1),U,1),X,DA)=""
    2)= I $P($G(^BARBL(DUZ(2),DA,1)),U,1) K ^BARBL(DUZ(2),"ABC",$P(^BARBL(DUZ(2),DA,1),U,1),X,DA)
  • CROSS-REFERENCE:  90050.01^E
    1)= S ^BARBL(DUZ(2),"E",$E(X,1,30),DA)=""
    2)= K ^BARBL(DUZ(2),"E",$E(X,1,30),DA)
103 DOS END 1;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 04, 1994
104 GUARANTOR 1;4 POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02) A/R ACCOUNTS/IHS(#90050.02)

  • LAST EDITED:  DEC 10, 1994
105 PATIENT SSN 1;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<9) X
  • OUTPUT TRANSFORM:  F I=1:1:$L(Y)-4 S $E(Y,I)="X"
  • LAST EDITED:  AUG 22, 2013
  • HELP-PROMPT:  Answer must be 9-11 characters in length.
106 PATIENT TYPE 1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  OCT 06, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
107 PATIENT SUFAC/HRN 1;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  OCT 06, 1994
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
108 VISIT LOCATION 1;8 POINTER ** TO AN UNDEFINED FILE **
************************REQUIRED FIELD************************

  • LAST EDITED:  DEC 06, 1994
109 BILLING LOC/ASUFAC 1;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  OCT 05, 1994
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
110 BILLING LOC/SERVICE/SECTION 1;10 POINTER TO SERVICE/SECTION FILE (#49) SERVICE/SECTION(#49)

  • LAST EDITED:  OCT 05, 1994
111 3P CLAIM # 1;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  OCT 06, 1994
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
112 CLINIC TYPE 1;12 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#40.7)

  • LAST EDITED:  JAN 17, 1995
113 PRIMARY PROVIDER 1;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 10, 1996
114 VISIT TYPE 1;14 POINTER TO 3P VISIT TYPE FILE (#9002274.8) 3P VISIT TYPE(#9002274.8)

  • LAST EDITED:  MAY 08, 1995
115 BEN/NON-BEN 1;15 SET
  • '0' FOR NON-BENEFICIARY;
  • '1' FOR BENEFICIARY;

  • LAST EDITED:  OCT 19, 1994
116 PATIENT NAME (FT) 1;16 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 30, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • NOTES:  TRIGGERED by the PATIENT field of the A/R BILL/IHS File
  • CROSS-REFERENCE:  90050.01^PTNM
    1)= S ^BARBL(DUZ(2),"PTNM",$E(X,1,30),DA)=""
    2)= K ^BARBL(DUZ(2),"PTNM",$E(X,1,30),DA)
117 ICD9 VISIT CODE 1;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAY 08, 1995
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
201 POLICY HOLDER 2;1 POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02) A/R ACCOUNTS/IHS(#90050.02)

  • LAST EDITED:  OCT 19, 1994
202 CURRENT POLICY HOLDER 2;2 POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02) A/R ACCOUNTS/IHS(#90050.02)

  • LAST EDITED:  OCT 19, 1994
203 POLICY NUMBER 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<2) X
  • LAST EDITED:  OCT 19, 1994
  • HELP-PROMPT:  Answer must be 2-20 characters in length.
204 POLICY RELATIONSHIP 2;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<2) X
  • LAST EDITED:  OCT 19, 1994
  • HELP-PROMPT:  Answer must be 2-15 characters in length.
205 PRIMARY DEBTOR 2;5 POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02) A/R ACCOUNTS/IHS(#90050.02)

  • LAST EDITED:  OCT 19, 1994
206 SECONDARY DEBTOR 2;6 POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02) A/R ACCOUNTS/IHS(#90050.02)

  • LAST EDITED:  OCT 19, 1994
207 TERTIARY DEBTOR 2;7 POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02) A/R ACCOUNTS/IHS(#90050.02)

  • LAST EDITED:  OCT 19, 1994
208 ROLLOVER STATUS 2;8 SET
  • 'P' FOR PENDING;
  • 'R' FOR ROLLED;

  • LAST EDITED:  FEB 22, 1999
  • CROSS-REFERENCE:  90050.01^AF^MUMPS
    1)= S:X="P" ^BARBL(DUZ(2),"AF",X,DA)=""
    2)= K ^BARBL(DUZ(2),"AF",X,DA)
209 ROLLOVER AMOUNT 2;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
  • LAST EDITED:  MAY 08, 1995
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
210 ROLLOVER DATE 2;10 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 08, 1995
  • CROSS-REFERENCE:  90050.01^AE
    1)= S ^BARBL(DUZ(2),"AE",$E(X,1,30),DA)=""
    2)= K ^BARBL(DUZ(2),"AE",$E(X,1,30),DA)
211 ROLLOVER TO BILL AMOUNT 2;11 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  OCT 19, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
212 ROLLOVER DEBTOR FROM 2;12 POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02) A/R ACCOUNTS/IHS(#90050.02)

  • LAST EDITED:  OCT 19, 1994
213 ROLLOVER DEBTOR TO 2;13 POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02) A/R ACCOUNTS/IHS(#90050.02)

  • LAST EDITED:  OCT 19, 1994
214 ROLLOVER USER 2;14 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 19, 1994
215 APPROVING OFFICIAL 2;15 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 19, 1994
216 APPROVING OFFICIAL ELEC SIG 2;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<6) X
  • LAST EDITED:  OCT 19, 1994
  • HELP-PROMPT:  Answer must be 6-20 characters in length.
217 APPROVING OFFICIAL TITLE 2;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<2) X
  • LAST EDITED:  SEP 02, 1998
  • HELP-PROMPT:  Answer must be 2-20 characters in length.
218 APPROVAL DATE 2;18 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 19, 1994
301 ITEM 3;0 Multiple #90050.1301 90050.1301
401 ARCHIVE STATUS 4;1 SET
  • 'A' FOR ARCHIVED;
  • 'NA' FOR NOT ARCHIVED;

  • LAST EDITED:  OCT 06, 1994
402 ARCHIVE DATE 4;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 06, 1994
403 ARCHIVE IDENTIFIER 4;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  OCT 06, 1994
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
404 EDIT/ERROR TYPE 4;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  OCT 06, 1994
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
405 EDIT USER 4;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 06, 1994
406 EDIT DATE 4;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 06, 1994
501 EDIT COMMENT 5;0 WORD-PROCESSING #90050.1501
601 COMMENTS FOR BILL 6;0 WORD-PROCESSING #90050.1601
701 POLICY HOLDER (FT) 7;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 03, 1995
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
702 POLICY NUMBER (FT) 7;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 03, 1995
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
801 OTHER BILL IDENTIFIER 8;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  SEP 27, 2011
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90050.01^G
    1)= S ^BARBL(DUZ(2),"G",$E(X,1,30),DA)=""
    2)= K ^BARBL(DUZ(2),"G",$E(X,1,30),DA)
802 BAD DEBT AMOUNT 8;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999999)!(X<.01)!(X?.E1"."3.N) X
  • LAST EDITED:  APR 14, 2010
  • HELP-PROMPT:  Type a Dollar amount between .01 and 9999999999, 2 Decimal Digits
803 BAD DEBT CHANGE DATE 8;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  APR 14, 2010
  • HELP-PROMPT:  (No range limit on date)
901 COLLECTIONS STATUS DATE 9;0 DATE Multiple #90050.1901 90050.1901
1001 LINE ITEM CONTROL NUMBER 10;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<18) X
  • LAST EDITED:  SEP 22, 2011
  • HELP-PROMPT:  Answer must be 18 characters in length
  • TECHNICAL DESCR:  This field will be unique for each line item on a bill. It will also be placed on the 'header' level for a bills flat rate posting. The format being used is: Characters 1-12 = Bill IEN Characters 13-14 = Multiple #
    Characters 15-18  = Line Item counter
    E.G.  000000007887270001

External References

Name Field # of Occurrence
^%DT 5+1, 7+1, 18+1, 19+1, 21+1, 102+1, 103+1, 210+1, 218+1, 402+1
, 406+1, 803+1
$$VAL^BAR3PINQ 17.2+1, 17.4+1, 27+1
$$CALC^BARBLCLC 25+1
$$DSCHSVC^BARCFLD 23+1
$$ICDVER^BARCFLD 26+1
$$PRIMDIAG^BARCFLD 24+1
^DIC 3+1, 8+1, 16+1
^DICR 8(XREF 1n1.4), 8(XREF 2n1.4), 18(XREF 1n1.4), 18(XREF 1n2.4), 19(XREF 1n1.4), 19(XREF 1n2.4), 101(XREF 2n1.4)
Y^DIQ ID16+1
$$VAL^XBDIQ1 7.3+1, 7.4+1, 7.5+1, 7.6+1, 7.7+1
$$VALI^XBDIQ1 18(XREF 1S), 18(XREF 1K)
$$FMDIFF^XLFDT 7.2+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] 101(XREF 2n1.1)
^AUTTLOC - [#9999999.06] 8(XREF 1n49.2)
^BARBL( .01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K), 7(XREF 1S), 7(XREF 1K), 7.2+1, 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 2S)
8(XREF 2n1.1), 8(XREF 2n1.4), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 15(XREF 2K), 15(XREF 3S), 15(XREF 3K), 18(XREF 1S), 18(XREF 1n1.4)
18(XREF 1K), 18(XREF 1n2.1), 18(XREF 1n2.4), 18(XREF 2S), 18(XREF 2K), 19(XREF 1S), 19(XREF 1n1.4), 19(XREF 1K), 19(XREF 1n2.1), 19(XREF 1n2.4)
19(XREF 2S), 19(XREF 2K), 101(XREF 1S), 101(XREF 1K), 101(XREF 2S), 101(XREF 2n1.4), 101(XREF 3S), 101(XREF 3K), 102(XREF 1S), 102(XREF 1K)
102(XREF 2S), 102(XREF 2K), 116(XREF 1S), 116(XREF 1K), 208(XREF 1S), 208(XREF 1K), 210(XREF 1S), 210(XREF 1K), 801(XREF 1S), 801(XREF 1K)
^BARTBL - [#90052.02] ID16+1
^DD( 8(XREF 1n1.4), 8(XREF 2n1.4), 18(XREF 1n1.4), 18(XREF 1n2.4), 19(XREF 1n1.4), 19(XREF 1n2.4), 101(XREF 2n1.4)
^DD(90050.01 8(XREF 1S), 8(XREF 1n1.1), 8(XREF 2S), 18(XREF 1S), 18(XREF 1K), 19(XREF 1S), 19(XREF 1K), 101(XREF 2S)
^DD(90052.02 ID16+1
^DIC(4 - [#4] 8(XREF 1n1.1)
^DPT - [#2] 101(XREF 2n1.1)

Naked Globals

Name Field # of Occurrence
^(0 ID16+1, 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 1n49.2), 8(XREF 2S), 8(XREF 2n1.1), 8(XREF 2n1.4), 18(XREF 1S), 18(XREF 1n1.4), 18(XREF 1K)
18(XREF 1n2.1), 18(XREF 1n2.4), 19(XREF 1S), 19(XREF 1n1.4), 19(XREF 1K), 19(XREF 1n2.1), 19(XREF 1n2.4), 101(XREF 2n1.1)
^(1 ID116+1, 101(XREF 2S), 101(XREF 2n1.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 5+1*, 7+1*, 18+1*, 19+1*, 21+1*, 102+1*, 103+1*, 210+1*, 218+1*, 402+1*
, 406+1*, 803+1*
%I ID16+1*!
>> C ID16+1*
>> D0 7.3+1, 7.4+1, 7.5+1, 7.6+1, 7.7+1, 8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1n49.2), 8(XREF 2S), 8(XREF 2n1.1)
, 17.2+1, 17.4+1, 18(XREF 1S), 18(XREF 1K), 18(XREF 1n2.1), 19(XREF 1S), 19(XREF 1K), 19(XREF 1n2.1), 25+1, 27+1
101(XREF 2S), 101(XREF 2n1.1)
>> DA .01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K), 7(XREF 1S), 7(XREF 1K), 7.2+1, 8(XREF 1S), 8(XREF 2S), 15(XREF 1S)
15(XREF 1K), 15(XREF 2S), 15(XREF 2K), 15(XREF 3S), 15(XREF 3K), 18(XREF 1S), 18(XREF 1K), 18(XREF 2S), 18(XREF 2K), 19(XREF 1S)
19(XREF 1K), 19(XREF 2S), 19(XREF 2K), 101(XREF 1S), 101(XREF 1K), 101(XREF 2S), 101(XREF 3S), 101(XREF 3K), 102(XREF 1S), 102(XREF 1K)
102(XREF 2S), 102(XREF 2K), 116(XREF 1S), 116(XREF 1K), 208(XREF 1S), 208(XREF 1K), 210(XREF 1S), 210(XREF 1K), 801(XREF 1S), 801(XREF 1K)
DFN 15(XREF 3S), 15(XREF 3K)
DIC ID16+1, 3+1!*, 8+1!*, 16+1!*
DIC("S" 3+1*, 3SCR+1*, 8+1*, 8SCR+1*, 16+1*, 16SCR+1*
>> DIE 3+1, 8+1, 16+1
>> DIG 8(XREF 1n1.4), 8(XREF 2n1.4), 18(XREF 1n1.4), 18(XREF 1n2.4), 19(XREF 1n1.4), 19(XREF 1n2.4), 101(XREF 2n1.4)
>> DIH 8(XREF 1n1.4), 8(XREF 2n1.4), 18(XREF 1n1.4), 18(XREF 1n2.4), 19(XREF 1n1.4), 19(XREF 1n2.4), 101(XREF 2n1.4)
>> DIU 8(XREF 1S), 8(XREF 2S), 18(XREF 1S), 18(XREF 1K), 19(XREF 1S), 19(XREF 1K), 101(XREF 2S)
DIV 8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1n1.4), 8(XREF 1n49.2), 8(XREF 2S), 8(XREF 2n1.1), 8(XREF 2n1.4), 18(XREF 1S), 18(XREF 1n1.4), 18(XREF 1K)
18(XREF 1n2.1), 18(XREF 1n2.4), 19(XREF 1S), 19(XREF 1n1.4), 19(XREF 1K), 19(XREF 1n2.1), 19(XREF 1n2.4), 101(XREF 2S), 101(XREF 2n1.1), 101(XREF 2n1.4)
DIV(0 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 2S), 8(XREF 2n1.4), 18(XREF 1S), 18(XREF 1n1.4), 18(XREF 1K), 18(XREF 1n2.4), 19(XREF 1S), 19(XREF 1n1.4)
19(XREF 1K), 19(XREF 1n2.4), 101(XREF 2S), 101(XREF 2n1.4)
DT 7.2+1
DUZ(2 .01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K), 7(XREF 1S), 7(XREF 1K), 7.2+1, 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 2S)
8(XREF 2n1.1), 8(XREF 2n1.4), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 15(XREF 2K), 15(XREF 3S), 15(XREF 3K), 18(XREF 1S), 18(XREF 1n1.4)
18(XREF 1K), 18(XREF 1n2.1), 18(XREF 1n2.4), 18(XREF 2S), 18(XREF 2K), 19(XREF 1S), 19(XREF 1n1.4), 19(XREF 1K), 19(XREF 1n2.1), 19(XREF 1n2.4)
19(XREF 2S), 19(XREF 2K), 101(XREF 1S), 101(XREF 1K), 101(XREF 2S), 101(XREF 2n1.4), 101(XREF 3S), 101(XREF 3K), 102(XREF 1S), 102(XREF 1K)
102(XREF 2S), 102(XREF 2K), 116(XREF 1S), 116(XREF 1K), 208(XREF 1S), 208(XREF 1K), 210(XREF 1S), 210(XREF 1K), 801(XREF 1S), 801(XREF 1K)
>> I 105OT+1*
>> I(0 8(XREF 1n1.1), 8(XREF 1n49.2), 101(XREF 2n1.1)
>> I(100 8(XREF 1n49.2)
U ID16+1, ID116+1, 8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1n1.4), 8(XREF 2S), 8(XREF 2n1.1), 8(XREF 2n1.4), 15(XREF 2K), 18(XREF 1S)
18(XREF 1n1.4), 18(XREF 1K), 18(XREF 1n2.1), 18(XREF 1n2.4), 19(XREF 1S), 19(XREF 1n1.4), 19(XREF 1K), 19(XREF 1n2.1), 19(XREF 1n2.4), 101(XREF 2S)
101(XREF 2n1.1), 101(XREF 2n1.4), 101(XREF 3S), 101(XREF 3K), 102(XREF 1S), 102(XREF 1K)
X .001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, 3+1*!, 3(XREF 1S), 3(XREF 1K), 5+1*!, 7+1*!
7(XREF 1S), 7(XREF 1K), 7.2+1*, 7.3+1*, 7.4+1*, 7.5+1*, 7.6+1*, 7.7+1*, 8+1*!, 8(XREF 1S)
8(XREF 1n1.1), 8(XREF 1n1.4), 8(XREF 2S), 8(XREF 2n1.1), 8(XREF 2n1.4), 9+1!, 12+1!, 13+1*!, 14+1*!, 15+1*!
15(XREF 1S), 15(XREF 2S), 15(XREF 2K), 15(XREF 3S), 16+1*!, 17+1!, 17.2+1*, 17.4+1*, 18+1*!, 18(XREF 1S)
18(XREF 1n1.4), 18(XREF 1K), 18(XREF 1n2.1), 18(XREF 1n2.4), 18(XREF 2S), 18(XREF 2K), 19+1*!, 19(XREF 1S), 19(XREF 1n1.4), 19(XREF 1K)
19(XREF 1n2.1), 19(XREF 1n2.4), 19(XREF 2S), 19(XREF 2K), 20+1*!, 21+1*!, 22+1!, 23+1*, 24+1*, 25+1*
, 26+1*, 27+1*, 101(XREF 1S), 101(XREF 1K), 101(XREF 2S), 101(XREF 2n1.1), 101(XREF 2n1.4), 101(XREF 3S), 101(XREF 3K), 102+1*!
102(XREF 1S), 102(XREF 1K), 102(XREF 2S), 102(XREF 2K), 103+1*!, 105+1!, 106+1!, 107+1!, 109+1!, 111+1!
, 116+1!, 116(XREF 1S), 116(XREF 1K), 117+1!, 203+1!, 204+1!, 208(XREF 1S), 208(XREF 1K), 209+1*!, 210+1*!
210(XREF 1S), 210(XREF 1K), 211+1*!, 216+1!, 217+1!, 218+1*!, 402+1*!, 403+1!, 404+1!, 406+1*!
, 701+1!, 702+1!, 801+1!, 801(XREF 1S), 801(XREF 1K), 802+1*!, 803+1*!, 1001+1!
Y ID16+1*, 3+1, 5+1, 7+1, 7.3+1~*, 7.4+1~*, 7.5+1~*, 7.6+1~*, 7.7+1~*, 8+1
8(XREF 1S), 8(XREF 2S), 16+1, 18+1, 18(XREF 1S), 18(XREF 1K), 19+1, 19(XREF 1S), 19(XREF 1K), 21+1
101(XREF 2S), 102+1, 103+1, 105OT+1*, 210+1, 218+1, 402+1, 406+1, 803+1
Y(0 18(XREF 1S), 18(XREF 1K), 105OT+1*
Y(1 8(XREF 1S), 8(XREF 2S), 8(XREF 2n1.1), 18(XREF 1S), 18(XREF 1K), 18(XREF 1n2.1), 19(XREF 1S), 19(XREF 1K), 19(XREF 1n2.1), 101(XREF 2S)
Y(101 8(XREF 1n1.1), 8(XREF 1n49.2), 101(XREF 2n1.1)
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All