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: ^BARTR(2906

Package: IHS Accounts Receivable

Global: ^BARTR(2906


Information

FileMan FileNo FileMan Filename Package
90050.03 A/R TRANSACTIONS/IHS IHS Accounts Receivable

Description

Accessed By FileMan Db Calls, Total: 66

Package Total Routines
IHS Accounts Receivable 52 BAR50EP    BAR50P4A    BARBAD5    BARBAD6    BARDMAN2    BARDUTL    BARDYSPR    BARDYSUT
BARDYSV5    BARDYSV8    BARDYSVZ    BAREDEP    BAREDP4A    BAREITDN    BARMAWO3    BARMPAS
BARP1827    BARPST    BARPST3    BARPST5    BARPST6    BARPUC    BARPUCU    BARRADJ
BARRATS    BARRCHK1    BARRNBRE    BARRNEGB    BARRPPS    BARRPRP    BARRPVC    BARRTBSL
BARTRNS1    BARTRNS3    BARUFCNR    BARUFER    BARUFEX1    BARUFEX3    BARUFEX4    BARUFEX5
BARUFFN    BARUFLOG    BARUFRP2    BARUFRP3    BARUFRPT    BARUFSUP    BARUFUT    BARUFUT0
BARUFUT1    BARUFUT6    BARUP1    BARUTLST    
IHS Uniform Data System 8 BUD1RPC4    BUD2RPC4    BUDARPC4    BUDBRPC4    BUDCRPC4    BUDDRPC4    BUDERPC4    BUDHRPC4
Third Party Billing 6 ABMM2P12    ABMM2PH3    ABMMUFC3    ABMMUPV1    ABMMUPVH    ABMTALL2    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
IHS Accounts Receivable 2 A/R UFMS CASHIER SESSION LOG(#90057)[#90057.110102(.01)]    A/R TRANSACTIONS/IHS(#90050.03)[110201202302]    

Pointer To FileMan Files, Total: 13

Package Total FileMan Files
IHS Accounts Receivable 9 A/R TABLE TYPE/IHS(#90052.01)[102]    A/R PARENT/SATELLITE/IHS(#90052.05)[811]    A/R ACCOUNTS/IHS(#90050.02)[6301]    A/R EDI STND CLAIM ADJ REASONS(#90056.06)[109]    A/R BILL/IHS(#90050.01)[4303304501502]    A/R COLLECTION BATCH/IHS(#90051.01)[14]    A/R EDI REMARK CODES(#90056.23)[107]    A/R TABLE ENTRY/IHS(#90052.02)[101103]    A/R TRANSACTIONS/IHS(#90050.03)[110201202302]    
Kernel 2 SERVICE/SECTION(#49)[10]    NEW PERSON(#200)[13603#90050.31201(.05)]
IHS Patient 1 PATIENT(#9000001)[5]    
Pharmacy Point of Sale 1 ABSP NCPDP REJECT CODES(#9002313.93)[108]    

Fields, Total: 68

Field # Name Loc Type Details
.001 IEN NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 28, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999999999, 0 Decimal Digits
.01 DATE/TIME 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X S:X DINUM=X
  • LAST EDITED:  FEB 10, 1995
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90050.03^B
    1)= S ^BARTR(DUZ(2),"B",$E(X,1,30),DA)=""
    2)= K ^BARTR(DUZ(2),"B",$E(X,1,30),DA)
2 CREDIT 0;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999)!(X<0) X
  • LAST EDITED:  SEP 08, 1998
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999999, 2 Decimal Digits
3 DEBIT 0;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999)!(X<0) X
  • LAST EDITED:  SEP 08, 1998
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999999, 2 Decimal Digits
3.2 PRIME BILL AMOUNT COMPUTED

  • MUMPS CODE:  S X=$$PRMBLAMT^BARTR()
  • ALGORITHM:  S X=$$PRMBLAMT^BARTR()
3.5 CREDIT - DEBIT COMPUTED

  • MUMPS CODE:  S Y(90050.03,3.5,1)=$S($D(^BARTR(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(90050.03,3.5,1),U,2)-$P(Y(90050.03,3.5,1),U,3)
  • ALGORITHM:  #2-#3
  • LAST EDITED:  JUL 24, 2007
3.6 PAYMENT COMPUTED

  • MUMPS CODE:  S X=$$PAY^BARTR()
  • ALGORITHM:  S X=$$PAY^BARTR()
  • LAST EDITED:  SEP 05, 1995
3.61 PAY-AMT COMPUTED

  • MUMPS CODE:  S X="" I $$VALI^XBDIQ1(90050.03,D0,101)=40 S X=$$VAL^XBDIQ1(90050.03,D0,3.5)
  • ALGORITHM:  S X="" I $$VALI^XBDIQ1(90050.03,D0,101)=40 S X=$$VAL^XBDIQ1(90050.03,D0,3.5)
  • LAST EDITED:  SEP 05, 1995
3.619 REFUND COMPUTED

  • MUMPS CODE:  S X=$$VALADJ^BARTR(19)
  • ALGORITHM:  S X=$$VALADJ^BARTR(19)
  • LAST EDITED:  SEP 05, 1995
3.62 PRV-CRD COMPUTED

  • MUMPS CODE:  S X=$$VALADJ^BARTR(20)
  • ALGORITHM:  S X=$$VALADJ^BARTR(20)
  • LAST EDITED:  SEP 05, 1995
3.7 ADJUSTMENT COMPUTED

  • MUMPS CODE:  S X=$$ADJ^BARTR()
  • ALGORITHM:  S X=$$ADJ^BARTR()
  • LAST EDITED:  SEP 05, 1995
3.703 WO-OFF COMPUTED

  • MUMPS CODE:  S X=$$VALADJ^BARTR(3)
  • ALGORITHM:  S X=$$VALADJ^BARTR(3)
  • LAST EDITED:  SEP 05, 1995
3.704 NON-PAY COMPUTED

  • MUMPS CODE:  S X=$$VALADJ^BARTR(4)
  • ALGORITHM:  S X=$$VALADJ^BARTR(4)
  • LAST EDITED:  SEP 05, 1995
3.713 DEDUCT COMPUTED

  • MUMPS CODE:  S X=$$VALADJ^BARTR(13)
  • ALGORITHM:  S X=$$VALADJ^BARTR(13)
  • LAST EDITED:  SEP 05, 1995
3.714 CO-PAY COMPUTED

  • MUMPS CODE:  S X=$$VALADJ^BARTR(14)
  • ALGORITHM:  S X=$$VALADJ^BARTR(14)
  • LAST EDITED:  SEP 05, 1995
3.715 PENALTY COMPUTED

  • MUMPS CODE:  S X=$$VALADJ^BARTR(15)
  • ALGORITHM:  S X=$$VALADJ^BARTR(15)
  • LAST EDITED:  SEP 05, 1995
3.716 GRP-ALL COMPUTED

  • MUMPS CODE:  S X=$$VALADJ^BARTR(16)
  • ALGORITHM:  S X=$$VALADJ^BARTR(16)
  • LAST EDITED:  SEP 05, 1995
3.8 PAY+ADJ COMPUTED

  • MUMPS CODE:  X $P(^DD(90050.03,3.6,0),U,5,99) S Y(90050.03,3.8,1)=X X $P(^DD(90050.03,3.7,0),U,5,99) S Y(90050.03,3.8,2)=X S X=Y(90050.03,3.8,1)+Y(90050.03,3.8,2)
  • ALGORITHM:  #3.6+#3.7
3.9 P.A.R (pay.adj.ref) (1/0) COMPUTED

  • MUMPS CODE:  S X=$$PAR^BARTR()
  • ALGORITHM:  S X=$$PAR^BARTR()
  • LAST EDITED:  NOV 01, 1996
4 BILL (A/R) 0;4 POINTER TO A/R BILL/IHS FILE (#90050.01) A/R BILL/IHS(#90050.01)

  • LAST EDITED:  MAY 04, 1995
  • CROSS-REFERENCE:  90050.03^AC
    1)= S ^BARTR(DUZ(2),"AC",$E(X,1,30),DA)=""
    2)= K ^BARTR(DUZ(2),"AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90050.03^AM4^MUMPS
    1)= D SAM4^BARPSTX
    2)= D KAM4^BARPSTX
  • CROSS-REFERENCE:  ^^TRIGGER^90050.03^16
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARTR(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(90050.03,4,1,3,1.1) X ^DD(90050.03,4,1,3,1.4)
    1.1)= S X=DIV X ^DD(90050.03,4,1,3,49.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,4)_":",2),$C(59),1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^BARTR(DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,16)=DIV,DIH=90050.03,DIG=16 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(^BARBL(DUZ(2),+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(90050.01,4,0)):$P(^(0),U,3),1:""),Y(101)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"")
    CREATE VALUE)= #4:#4
    DELETE VALUE)= NO EFFECT
    FIELD)= #16
5 PATIENT (A/R) 0;5 POINTER TO PATIENT FILE (#9000001) PATIENT(#9000001)

  • LAST EDITED:  MAR 05, 1996
  • CROSS-REFERENCE:  90050.03^AM5^MUMPS
    1)= D SAM5^BARPSTX
    2)= D KAM5^BARPSTX
  • CROSS-REFERENCE:  90050.03^AF
    1)= S ^BARTR(DUZ(2),"AF",$E(X,1,30),DA)=""
    2)= K ^BARTR(DUZ(2),"AF",$E(X,1,30),DA)
6 A/R ACCOUNT 0;6 POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02) A/R ACCOUNTS/IHS(#90050.02)

  • LAST EDITED:  FEB 02, 1995
  • CROSS-REFERENCE:  90050.03^AM6^MUMPS
    1)= D SAM6^BARPSTX
    2)= D KAM6^BARPSTX
  • CROSS-REFERENCE:  90050.03^AE
    1)= S ^BARTR(DUZ(2),"AE",$E(X,1,30),DA)=""
    2)= K ^BARTR(DUZ(2),"AE",$E(X,1,30),DA)
7 MESSAGE 0;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  NOV 28, 1994
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
9 PARENT ASUFAC 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 28, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
10 A/R SECTION 0;10 POINTER TO SERVICE/SECTION FILE (#49) SERVICE/SECTION(#49)

  • LAST EDITED:  NOV 28, 1994
11 VISIT LOCATION 0;11 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  NOV 28, 1994
12 DATE 0;12 DATE

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

  • LAST EDITED:  NOV 28, 1994
14 COLLECTION BATCH 0;14 POINTER TO A/R COLLECTION BATCH/IHS FILE (#90051.01) A/R COLLECTION BATCH/IHS(#90051.01)

  • LAST EDITED:  SEP 04, 1998
  • CROSS-REFERENCE:  90050.03^AD
    1)= S ^BARTR(DUZ(2),"AD",$E(X,1,30),DA)=""
    2)= K ^BARTR(DUZ(2),"AD",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90050.03^ACB14^MUMPS
    1)= D SET^BARX003(14)
    2)= D KILL^BARX003(14)
15 COLLECTION ITEM 0;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 04, 1998
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • CROSS-REFERENCE:  90050.03^ACB15^MUMPS
    1)= D SET^BARX003(15)
    2)= D KILL^BARX003(15)
16 BILL TYPE 0;16 SET
  • 'P' FOR PRIMARY;
  • 'R' FOR ROLLOVER;

  • LAST EDITED:  JAN 11, 1995
  • NOTES:  TRIGGERED by the BILL (A/R) field of the A/R TRANSACTIONS/IHS File
17 TREASURY DEPOSIT NUMBER 0;17 FREE TEXT

  • INPUT TRANSFORM:  K:'$$GOODIPAC^BARUFEX3(X) X
  • LAST EDITED:  APR 07, 2008
  • HELP-PROMPT:  Enter a 6-20 character Treasury Deposit Number/IPAC, PRE-UFMS COLLECTIONS, or NONPAYMENT
  • TECHNICAL DESCR:  
    Multiple 1201 tracks history of this field.  This field will override whatever is entered in collection batch/item TDN but populating this field won't trigger transaction to transmit to UFMS again if it has already gone.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
101 TRANSACTION TYPE 1;1 POINTER TO A/R TABLE ENTRY/IHS FILE (#90052.02) A/R TABLE ENTRY/IHS(#90052.02)

  • LAST EDITED:  SEP 04, 1998
  • CROSS-REFERENCE:  90050.03^ACB101^MUMPS
    1)= D SET^BARX003(101)
    2)= D KILL^BARX003(101)
102 ADJUSTMENT CATEGORY 1;2 POINTER TO A/R TABLE TYPE/IHS FILE (#90052.01) A/R TABLE TYPE/IHS(#90052.01)

  • LAST EDITED:  NOV 28, 1994
103 ADJUSTMENT TYPE 1;3 POINTER TO A/R TABLE ENTRY/IHS FILE (#90052.02) A/R TABLE ENTRY/IHS(#90052.02)

  • LAST EDITED:  NOV 28, 1994
104 FILING STATUS 1;4 SET
  • '1' FOR COMPLETED;
  • '0' FOR NOT COMPLETED;

  • LAST EDITED:  JAN 11, 1995
105 GL STATUS 1;5 SET
  • 'O' FOR OPEN;
  • 'R' FOR RESOLVED;

  • LAST EDITED:  JAN 17, 1995
  • CROSS-REFERENCE:  90050.03^AGL
    1)= S ^BARTR(DUZ(2),"AGL",$E(X,1,30),DA)=""
    2)= K ^BARTR(DUZ(2),"AGL",$E(X,1,30),DA)
106 DATA SOURCE 1;6 SET
  • 'e' FOR ERA Posted;

  • LAST EDITED:  DEC 17, 2007
  • TECHNICAL DESCR:  
    Field created in A/R V1.7 Patch 4.  Used to mark transactions that are posted through ERA Posting with an "e".  This field will be displayed when viewing the bill's transaction history.
107 REMARK CODE 1;7 POINTER TO A/R EDI REMARK CODES FILE (#90056.23) A/R EDI REMARK CODES(#90056.23)

  • LAST EDITED:  FEB 13, 2004
  • DESCRIPTION:  Created A/R V1.7 Patch 5 - This field is used to capture remark codes that may be passed via electronic remittance advices. Currently, remark codes are not accessible via the manual posting process. This field should
    only be populated if the Transaction Type is remark code.
108 NCPDP REJ/PAY CODE 1;8 POINTER TO ABSP NCPDP REJECT CODES FILE (#9002313.93) ABSP NCPDP REJECT CODES(#9002313.93)

  • LAST EDITED:  MAR 03, 2004
  • TECHNICAL DESCR:  
    Added A/R V1.7 Patch 5 to assist in posting 835's.  These codes may come in on Pharmacy remits in the LQ segment.  We are accomodating that possibility.
109 STND CLAIM ADJ REASON 1;9 POINTER TO A/R EDI STND CLAIM ADJ REASONS FILE (#90056.06) A/R EDI STND CLAIM ADJ REASONS(#90056.06)

  • LAST EDITED:  MAR 15, 2007
  • HELP-PROMPT:  ENTER A STANDARD CLAIM ADJUSTMENT REASON
110 DATE OF TRANSACTION REVERSED 1;10 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  JUL 08, 2008
  • HELP-PROMPT:  Enter date and time of the transaction you are reversing.
111 REV TREASURY DEP NUMBER/IPAC 1;11 FREE TEXT

  • INPUT TRANSFORM:  K:'$$GOODIPAC^BARUFEX3(X) X
  • OUTPUT TRANSFORM:  S:Y'="" Y=$$TRANS^BARUFTDN(Y,D0)
  • LAST EDITED:  JUL 01, 2008
  • HELP-PROMPT:  Answer must be 6-20 characters in length
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
112 IGNORE TRANSACTION 1;12 SET
  • 'I' FOR TRANSACTION IGNORED;

  • LAST EDITED:  MAR 26, 2008
  • DESCRIPTION:  
    Ignore the transaction pair by not sending them to UFMS and not putting them in the Not Sent bucket.
  • TECHNICAL DESCR:  This field is populated during the export error checking process when:
    the first payment is a reversal and precedes the payment are the same dollar amount have the same TDN/IPAC and both transactions are in the same collection batch item
201 FROM TRANSACTION 2;1 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  NOV 28, 1994
202 TO TRANSACTION 2;2 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  NOV 28, 1994
203 ARCHIVE STATUS 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  NOV 28, 1994
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
204 ARCHIVE ID 2;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  NOV 28, 1994
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
205 PAYOR 2;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  DEC 27, 1994
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
301 FROM A/R ACCOUNT 3;1 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)=BARUSER(29,""I"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 27, 1994
  • SCREEN:  S DIC("S")="I $P(^(0),U,10)=BARUSER(29,""I"")"
  • EXPLANATION:  LIMIT TO SAME SERVICE/SECTION
302 TO A/R ACCOUNT 3;2 POINTER ** TO AN UNDEFINED FILE **

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,10)=BARUSR(29,""I"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 27, 1994
  • SCREEN:  S DIC("S")="I $P(^(0),U,10)=BARUSR(29,""I"")"
  • EXPLANATION:  LIMIT TO SAME SERVICE/SECTION
303 FROM BILL 3;3 POINTER TO A/R BILL/IHS FILE (#90050.01) A/R BILL/IHS(#90050.01)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,10)=BARUSER(29,""I"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 27, 1994
  • SCREEN:  S DIC("S")="I $P(^(0),U,10)=BARUSER(29,""I"")"
  • EXPLANATION:  LIMIT TO SAME SERVICE/SECTION
304 TO BILL 3;4 POINTER TO A/R BILL/IHS FILE (#90050.01) A/R BILL/IHS(#90050.01)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,10)=BARUSER(29,""I"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 27, 1994
  • SCREEN:  S DIC("S")="I $P(^(0),U,10)=BARUSER(29,""I"")"
  • EXPLANATION:  LIMIT TO SAME SERVICE/SECTION
305 REFUND CHECK NUMBER 3;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  FEB 01, 1995
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
306 REFUND CHECK DATE 3;6 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 01, 1995
401 IDENTIFICATION CODE QUALIFIER 4;1 SET
  • 'XX' FOR NATIONAL PROVIDE IDENTIFIER;
  • 'FI' FOR TAX IDENTIFICATION NUMBER;
  • 'NP' FOR NOT POPULATED;

  • LAST EDITED:  MAR 29, 2007
  • HELP-PROMPT:  ENTER AN 835 IDENTIFICATION CODE QUALIFIER
402 NPI 4;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<10) X
  • LAST EDITED:  MAR 16, 2007
  • HELP-PROMPT:  ENTER A 10 DIGIT NATIONAL PROVIDER INDENTIFIER
  • CROSS-REFERENCE:  90050.03^NPI
    1)= S ^BARTR(DUZ(2),"NPI",$E(X,1,30),DA)=""
    2)= K ^BARTR(DUZ(2),"NPI",$E(X,1,30),DA)
    THIS CROSS REFERENCE WAS CREATED (AR*1.8*1) AT REQUEST OF FEDERAL BUSINESS STAFF TO BE USED FOR REPORTS NPI = NATIONAL PROVIDER IDENTIFIER
403 TAXPAYER IDENTIFICATION NUMBER 4;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<2) X
  • LAST EDITED:  MAR 16, 2007
  • HELP-PROMPT:  ENTER A TAXPAYER IDENTIFICATION NUMBER (2-80)
  • CROSS-REFERENCE:  90050.03^TIN
    1)= S ^BARTR(DUZ(2),"TIN",$E(X,1,30),DA)=""
    2)= K ^BARTR(DUZ(2),"TIN",$E(X,1,30),DA)
    THIS CROSS REFERENCE WAS CREATED (AR*1.8*1) AT REQUEST OF FEDERAL BUSINESS STAFF TO BE USED FOR REPORTS TIN = TAXPAYER IDENTIFICATION NUMBER
501 PAYMENT CREDIT APPLIED TO 5;1 POINTER TO A/R BILL/IHS FILE (#90050.01) A/R BILL/IHS(#90050.01)

  • LAST EDITED:  JUN 18, 2008
  • DESCRIPTION:  
    WHEN A REVERSAL IS MATCHED TO A PAYMENT THIS FIELD WILL HOLD THE A/R BILL THE REVERSAL IS MATCHED TO.
502 PAYMENT CREDIT APPLIED FROM 5;2 POINTER TO A/R BILL/IHS FILE (#90050.01) A/R BILL/IHS(#90050.01)

  • LAST EDITED:  JUN 18, 2008
  • DESCRIPTION:  
    WHEN A REVERSAL IS MATCHED TO A PAYMENT THIS WILL HOLD THE A/R BILL OF THE REVERSAL IT WAS MATCHED TO.
601 UFMS EXPORT FILE 6;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
  • LAST EDITED:  OCT 17, 2008
  • HELP-PROMPT:  Answer must be 3-80 characters in length
602 SESSION ID 6;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  OCT 17, 2008
  • HELP-PROMPT:  Answer must be 3-30 characters in length
  • TECHNICAL DESCR:  
    This is the Session Date/Time identifier.
603 UFMS FILE EXPORTED BY 6;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 19, 2008
604 UNIQUEID 6;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  OCT 20, 2008
  • HELP-PROMPT:  Answer must be 3-40 characters in length
  • TECHNICAL DESCR:  
    Modified to change length of field from 35 to 40 characters.  This accommodates those satellites that use the parent asufac number and prevents duplicate invoice numbers in 3PB. mrs 10/20/2008
1001 TEXT 10;0 WORD-PROCESSING #90050.31001
1101 PAYEE ADD IDENTIFICATION 11;0 Multiple #90050.31101 90050.31101
1201 TDN CHANGE DATE 12;0 DATE Multiple #90050.31201 90050.31201

  • LAST EDITED:  APR 07, 2008

External References

Name Field # of Occurrence
^%DT .01+1, 12+1, 306+1
KAM4^BARPSTX 4(XREF 2K)
KAM5^BARPSTX 5(XREF 1K)
KAM6^BARPSTX 6(XREF 1K)
SAM4^BARPSTX 4(XREF 2S)
SAM5^BARPSTX 5(XREF 1S)
SAM6^BARPSTX 6(XREF 1S)
$$ADJ^BARTR 3.7+1
$$PAR^BARTR 3.9+1
$$PAY^BARTR 3.6+1
$$PRMBLAMT^BARTR 3.2+1
$$VALADJ^BARTR 3.619+1, 3.62+1, 3.703+1, 3.704+1, 3.713+1, 3.714+1, 3.715+1, 3.716+1
$$GOODIPAC^BARUFEX3 17+1, 111+1
$$TRANS^BARUFTDN 111OT+1
KILL^BARX003 14(XREF 2K), 15(XREF 1K), 101(XREF 1K)
SET^BARX003 14(XREF 2S), 15(XREF 1S), 101(XREF 1S)
^DIC 8+1, 301+1, 302+1, 303+1, 304+1
^DICR 4(XREF 3n1.4)
Y^DIQ ID4+1, ID5+1, ID101+1
$$VAL^XBDIQ1 3.61+1
$$VALI^XBDIQ1 3.61+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] ID5+1
^BARBL( ID4+1, 4(XREF 3n49.2)
^BARTBL - [#90052.02] ID101+1
^BARTR( .01(XREF 1S), .01(XREF 1K), 3.5+1, 4(XREF 1S), 4(XREF 1K), 4(XREF 3S), 4(XREF 3n1.4), 5(XREF 2S), 5(XREF 2K), 6(XREF 2S)
6(XREF 2K), 14(XREF 1S), 14(XREF 1K), 105(XREF 1S), 105(XREF 1K), 402(XREF 1S), 402(XREF 1K), 403(XREF 1S), 403(XREF 1K)
^DD( 4(XREF 3n1.4)
^DD(9000001 ID5+1
^DD(90050.01 ID4+1, 4(XREF 3n49.2)
^DD(90050.03 3.8+1, 4(XREF 3S), 4(XREF 3n1.1)
^DD(90052.02 ID101+1

Naked Globals

Name Field # of Occurrence
^(0 ID4+1, ID5+1, ID101+1, 3.5+1, 4(XREF 3S), 4(XREF 3n1.4), 4(XREF 3n49.2)
^(1 ID101+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, 12+1*, 306+1*
%I ID4+1*!, ID5+1*!, ID101+1*!
>> C ID4+1*, ID5+1*, ID101+1*
>> D0 3.5+1, 3.61+1, 4(XREF 3S), 4(XREF 3n1.1), 4(XREF 3n49.2), 111OT+1
>> DA .01(XREF 1S), .01(XREF 1K), 4(XREF 1S), 4(XREF 1K), 4(XREF 3S), 5(XREF 2S), 5(XREF 2K), 6(XREF 2S), 6(XREF 2K), 14(XREF 1S)
14(XREF 1K), 105(XREF 1S), 105(XREF 1K), 402(XREF 1S), 402(XREF 1K), 403(XREF 1S), 403(XREF 1K)
DIC ID4+1, ID5+1, ID101+1, 8+1!*, 301+1!*, 302+1!*, 303+1!*, 304+1!*
DIC("S" 8+1*, 8SCR+1*, 301+1*, 301SCR+1*, 302+1*, 302SCR+1*, 303+1*, 303SCR+1*, 304+1*, 304SCR+1*
>> DIE 8+1, 301+1, 302+1, 303+1, 304+1
>> DIG 4(XREF 3n1.4)
>> DIH 4(XREF 3n1.4)
>> DINUM .01+1*
>> DIU 4(XREF 3S)
DIV 4(XREF 3S), 4(XREF 3n1.1), 4(XREF 3n1.4), 4(XREF 3n49.2)
DIV(0 4(XREF 3S), 4(XREF 3n1.4)
DUZ(2 ID4+1, .01(XREF 1S), .01(XREF 1K), 3.5+1, 4(XREF 1S), 4(XREF 1K), 4(XREF 3S), 4(XREF 3n1.4), 4(XREF 3n49.2), 5(XREF 2S)
5(XREF 2K), 6(XREF 2S), 6(XREF 2K), 14(XREF 1S), 14(XREF 1K), 105(XREF 1S), 105(XREF 1K), 402(XREF 1S), 402(XREF 1K), 403(XREF 1S)
403(XREF 1K)
>> I(0 4(XREF 3n1.1), 4(XREF 3n49.2)
U ID4+1, ID5+1, ID101+1, 3.5+1, 3.8+1, 4(XREF 3S), 4(XREF 3n1.1), 4(XREF 3n1.4), 4(XREF 3n49.2)
X .001+1!, .01+1*!, .01(XREF 1S), .01(XREF 1K), 2+1*!, 3+1*!, 3.2+1*, 3.5+1*, 3.6+1*, 3.61+1*
, 3.619+1*, 3.62+1*, 3.7+1*, 3.703+1*, 3.704+1*, 3.713+1*, 3.714+1*, 3.715+1*, 3.716+1*, 3.8+1*
, 3.9+1*, 4(XREF 1S), 4(XREF 1K), 4(XREF 3S), 4(XREF 3n1.1), 4(XREF 3n1.4), 5(XREF 2S), 5(XREF 2K), 6(XREF 2S), 6(XREF 2K)
, 8+1*!, 9+1!, 12+1*!, 14(XREF 1S), 14(XREF 1K), 15+1!, 17+1!, 105(XREF 1S), 105(XREF 1K), 111+1!
, 203+1!, 204+1!, 205+1!, 301+1*!, 302+1*!, 303+1*!, 304+1*!, 305+1!, 306+1*!, 402+1!
402(XREF 1S), 402(XREF 1K), 403+1!, 403(XREF 1S), 403(XREF 1K), 601+1!, 602+1!, 604+1!
Y ID4+1*, ID5+1*, ID101+1*, .01+1, 4(XREF 3S), 8+1, 12+1, 111OT+1*, 301+1, 302+1
, 303+1, 304+1, 306+1
Y( 3.5+1*, 3.8+1*
Y(0 111OT+1*
Y(1 4(XREF 3S)
Y(101 4(XREF 3n1.1), 4(XREF 3n49.2)
Y(102 4(XREF 3n1.1), 4(XREF 3n49.2)
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