Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 162.04

Package: Fee Basis

FEE BASIS PAYMENT(#162)-->162.04

Sub-Field: 162.04


Information

Parent File Name Number Package
FEE BASIS PAYMENT(#162) TRAVEL PAYMENT DATE 162.04 Fee Basis

Details

Field # Name Loc Type Details
.01 TRAVEL PAYMENT DATE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="EX",%DT(0)=-DT D ^%DT K %DT(0) S X=Y K:Y<1 X
  • LAST EDITED:  MAR 20, 1987
  • DESCRIPTION:  
    The date the travel being paid was performed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  162.04^AB
    1)= S ^FBAAC(DA(1),3,"AB",$E(X,1,30),DA)=""
    2)= K ^FBAAC(DA(1),3,"AB",$E(X,1,30),DA)
1 TRAVEL BATCH NUMBER 0;2 POINTER TO FEE BASIS BATCH FILE (#161.7)
************************REQUIRED FIELD************************
FEE BASIS BATCH(#161.7)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=""B2""&($P(^(0),U,5)=DUZ)&($P($G(^(""ST"")),U)=""O"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 04, 2012
  • HELP-PROMPT:  Select the batch number associated with this travel payment.
  • DESCRIPTION:  
    The batch number that this travel payment will be associated with.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=""B2""&($P(^(0),U,5)=DUZ)&($P($G(^(""ST"")),U)=""O"")"
  • EXPLANATION:  Allows selection of travel batches in open status, which were opened by this specific user.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  162^AD
    1)= S ^FBAAC("AD",$E(X,1,30),DA(1),DA)=""
    2)= K ^FBAAC("AD",$E(X,1,30),DA(1),DA)
2 TRAVEL AMOUNT 0;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999)!(X<.01) X
  • LAST EDITED:  MAR 01, 1988
  • HELP-PROMPT:  Type a Dollar Amount between .01 and 999, 2 Decimal Digits
  • DESCRIPTION:  
    The amount to be paid for the travel.
  • CROSS-REFERENCE:  ^^TRIGGER^161.7^8
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(162.04,2,1,1,1.2) S X=DIV S X=DIU+DIV X ^DD(162.04,2,1,1,1.4)
    1.2)= X ^DD(162.04,2,1,1,89.2) K DIC S DIC="^FBAA(161.7,",DIC(0)="NMF" D ^DIC S (D,D0,DIV(0))=+Y S Y(101)=$S($D(^FBAA(161.7,D0,0)):^(0),1:"") S X=$P(Y(101),U,9) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y
    1.4)= S DIH=$S($D(^FBAA(161.7,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) X "F %=0:0 Q:$L($P(DIH,U,8,99)) S DIH=DIH_U" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(0)=$P(DIH,U,1,8)_U_DIV_$S(%]"":U_%,1:""),DIH=161.7,DIG=8 D ^DICR:$N(
    ^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(162.04,2,1,1,2.2) S X=DIV S X=DIU-X X ^DD(162.04,2,1,1,2.4)
    2.2)= X ^DD(162.04,2,1,1,89.2) K DIC S DIC="^FBAA(161.7,",DIC(0)="NMF" D ^DIC S (D,D0,DIV(0))=+Y S Y(101)=$S($D(^FBAA(161.7,D0,0)):^(0),1:"") S X=$P(Y(101),U,9) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y
    2.4)= S DIH=$S($D(^FBAA(161.7,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) X "F %=0:0 Q:$L($P(DIH,U,8,99)) S DIH=DIH_U" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(0)=$P(DIH,U,1,8)_U_DIV_$S(%]"":U_%,1:""),DIH=161.7,DIG=8 D ^DICR:$N(
    ^DD(DIH,DIG,1,0))>0
    89.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^FBAAC(D0,3,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S X=X
    CREATE VALUE)= TOTAL DOLLARS+TRAVEL AMOUNT
    DELETE VALUE)= TOTAL DOLLARS-OLD TRAVEL AMOUNT
    DIC)= LOOKUP
    FIELD)= TRAVEL BATCH NUMBER:FEE BASIS BATCH:TOTAL DOLLARS
  • CROSS-REFERENCE:  ^^TRIGGER^161.7^10
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(162.04,2,1,2,1.2) S X=DIV S X=DIU+1 X ^DD(162.04,2,1,2,1.4)
    1.2)= X ^DD(162.04,2,1,2,89.2) K DIC S DIC="^FBAA(161.7,",DIC(0)="NMF" D ^DIC S (D,D0,DIV(0))=+Y S Y(101)=$S($D(^FBAA(161.7,D0,0)):^(0),1:"") S X=$P(Y(101),U,11) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y
    1.4)= S DIH=$S($D(^FBAA(161.7,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) X "F %=0:0 Q:$L($P(DIH,U,10,99)) S DIH=DIH_U" S %=$P(DIH,U,12,999),DIU=$P(DIH,U,11),^(0)=$P(DIH,U,1,10)_U_DIV_$S(%]"":U_%,1:""),DIH=161.7,DIG=10 D ^DICR
    :$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(162.04,2,1,2,2.2) S X=DIV S X=DIU-1 X ^DD(162.04,2,1,2,2.4)
    2.2)= X ^DD(162.04,2,1,2,89.2) K DIC S DIC="^FBAA(161.7,",DIC(0)="NMF" D ^DIC S (D,D0,DIV(0))=+Y S Y(101)=$S($D(^FBAA(161.7,D0,0)):^(0),1:"") S X=$P(Y(101),U,11) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y
    2.4)= S DIH=$S($D(^FBAA(161.7,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) X "F %=0:0 Q:$L($P(DIH,U,10,99)) S DIH=DIH_U" S %=$P(DIH,U,12,999),DIU=$P(DIH,U,11),^(0)=$P(DIH,U,1,10)_U_DIV_$S(%]"":U_%,1:""),DIH=161.7,DIG=10 D ^DICR
    :$N(^DD(DIH,DIG,1,0))>0
    89.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^FBAAC(D0,3,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S X=X S:X]"" X="`"_X
    CREATE VALUE)= PAYMENT LINE COUNT+1
    DELETE VALUE)= PAYMENT LINE COUNT-1
    DIC)= LOOKUP
    FIELD)= TRAVEL BATCH NUMBER:FEE BASIS BATCH:PAYMENT LINE COUNT
  • CROSS-REFERENCE:  ^^TRIGGER^161.7^10
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(162.04,2,1,3,1.2) S X=DIV S X=DIU+1 X ^DD(162.04,2,1,3,1.4)
    1.2)= X ^DD(162.04,2,1,3,89.2) K DIC S DIC="^FBAA(161.7,",DIC(0)="NMF" D ^DIC S (D,D0,DIV(0))=+Y S Y(101)=$S($D(^FBAA(161.7,D0,0)):^(0),1:"") S X=$P(Y(101),U,11) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y
    1.4)= S DIH=$S($D(^FBAA(161.7,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) X "F %=0:0 Q:$L($P(DIH,U,10,99)) S DIH=DIH_U" S %=$P(DIH,U,12,999),DIU=$P(DIH,U,11),^(0)=$P(DIH,U,1,10)_U_DIV_$S(%]"":U_%,1:""),DIH=161.7,DIG=10 D ^DICR
    :$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(162.04,2,1,3,2.2) S X=DIV S X=DIU-1 X ^DD(162.04,2,1,3,2.4)
    2.2)= X ^DD(162.04,2,1,3,89.2) K DIC S DIC="^FBAA(161.7,",DIC(0)="NMF" D ^DIC S (D,D0,DIV(0))=+Y S Y(101)=$S($D(^FBAA(161.7,D0,0)):^(0),1:"") S X=$P(Y(101),U,11) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y
    2.4)= S DIH=$S($D(^FBAA(161.7,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) X "F %=0:0 Q:$L($P(DIH,U,10,99)) S DIH=DIH_U" S %=$P(DIH,U,12,999),DIU=$P(DIH,U,11),^(0)=$P(DIH,U,1,10)_U_DIV_$S(%]"":U_%,1:""),DIH=161.7,DIG=10 D ^DICR
    :$N(^DD(DIH,DIG,1,0))>0
    89.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^FBAAC(D0,3,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S X=X
    CREATE VALUE)= PAYMENT LINE COUNT+1
    DELETE VALUE)= PAYMENT LINE COUNT-1
    DIC)= LOOKUP
    FIELD)= TRAVEL BATCH NUMBER:FEE BASIS BATCH:PAYMENT LINE COUNT
3 TRAVEL OBLIGATION NUMBER 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6) X
  • LAST EDITED:  AUG 05, 1986
  • HELP-PROMPT:  ANSWER MUST BE 6 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The obligation number identifying the funds from which this travel payment will be paid.
3.5 PAYMENT TYPE CODE 0;13 SET
  • 'R' FOR REIMBURSEMENT;
  • 'S' FOR STATISTICAL;
  • 'SR' FOR STAT-REIMBURSEMENT;
  • 'V' FOR VENDOR;

  • LAST EDITED:  SEP 26, 1994
  • DESCRIPTION:  An entry of 'R' will indicate the travel is for a reimbursement to the veteran. An entry of 'S' will indicate the travel was paid "out of system" to a vendor and allows the update of the payment history files. An entry
    of 'SR' will indicate a statistical reimbursement to a party other than the vendor. An entry of 'V' or 'S' is not used currently. Travel is only paid to a veteran.
4 REJECT STATUS FBREJ;1 SET
  • 'P' FOR REJECTED, PENDING;
  • 'C' FOR REJECTED, COMPLETED;

  • LAST EDITED:  AUG 11, 1986
  • DESCRIPTION:  
    Identifies whether this line item is in a reject status pending assignment to another batch.
5 REJECT REASON FBREJ;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X
  • LAST EDITED:  AUG 11, 1986
  • HELP-PROMPT:  ANSWER MUST BE 2-40 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The reason this line item was rejected for payment. Usually, the error code identified by the Austin Central Fee system is entered.
6 OLD BATCH NUMBER FBREJ;3 POINTER TO FEE BASIS BATCH FILE (#161.7) FEE BASIS BATCH(#161.7)

  • LAST EDITED:  AUG 11, 1986
  • DESCRIPTION:  
    The batch number this line item was associated with prior to being rejected.
  • CROSS-REFERENCE:  162^AG
    1)= S ^FBAAC("AG",$E(X,1,30),DA(1),DA)=""
    2)= K ^FBAAC("AG",$E(X,1,30),DA(1),DA)
6.3 INTERFACE REJECT FBREJ;4 SET
  • '1' FOR YES;

  • LAST EDITED:  DEC 13, 2011
  • HELP-PROMPT:  Enter YES if the line item was rejected by Central Fee.
  • DESCRIPTION:  This field is populated by the FBAA BATCH SERVER and FBAA REJECT SERVER server options when a payment line item is rejected via the interface with Central Fee. This field is used to distinguish line items that were
    locally rejected from those that were rejected by a downstream system. This field is not populated for a local reject.
6.6 REJECT CODE FBREJC;0 Multiple #162.041 162.041

  • DESCRIPTION:  The REJECT CODE multiple is populated with one to four reject codes by the FBAA BATCH SERVER and FBAA REJECT SERVER server options when a line item is rejected via the interface with Central Fee. The REJECT CODE multiple
    is not used for local rejects. The reason for a local reject is entered into the REJECT REASON (#5) field.
7 DATE FINALIZED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 21, 1988
  • DESCRIPTION:  
    Indicates the date and time the travel payment was vouchered by Fiscal.
  • CROSS-REFERENCE:  162^AL
    1)= S ^FBAAC("AL",$E(X,1,30),DA(1),DA)=""
    2)= K ^FBAAC("AL",$E(X,1,30),DA(1),DA)
8 DATE PAID 0;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 24, 1994
  • HELP-PROMPT:  This is the date of the check, as issued by the treasury.
  • DESCRIPTION:  This is the date of the check, as issued by the treasury. This information will be passed back to DHCP from the Financial Management System (FMS) when the check is issued to the vendor. This field will be populated
    beginning in version 3.5 of Fee Basis.
9 CHECK NUMBER 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1)!'(X?.NA) X
  • LAST EDITED:  APR 25, 1994
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
  • DESCRIPTION:  
    Contains the check number as issued by the treasury. This field is updated after the check is issued, through a server option that records actual payment information for each Fee payment made.
  • CROSS-REFERENCE:  162^ACKT^MUMPS
    1)= S ^FBAAC("ACKT",X,DA(1),DA)=""
    2)= K ^FBAAC("ACKT",X,DA(1),DA)
    This cross-reference is used to located payment items for a specific check number.
10 CANCELLATION DATE 0;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 24, 1994
  • HELP-PROMPT:  The date the check was cancelled by the treasury.
  • DESCRIPTION:  
    This is the date the treasury cancelled the check. This field is updated through a server option that records cancellations of previously recorded payment data.
11 REASON CODE 0;9 POINTER TO FEE BASIS CHECK CANCELLATION REASON FILE (#162.95) FEE BASIS CHECK CANCELLATION REASON(#162.95)

  • LAST EDITED:  MAR 24, 1994
  • HELP-PROMPT:  Enter the reason the check was cancelled.
  • DESCRIPTION:  
    This field contains a pointer to the Fee Basis Check Cancellation Reason file. It is populated through a server option that updates the payment record when the treasury cancels a check that was previously payed.
12 CANCELLATION ACTIVITY 0;10 SET
  • 'R' FOR WILL BE REPLACED;
  • 'C' FOR WIL BE REISSUED;
  • 'X' FOR WILL NOT BE REISSUED;

  • LAST EDITED:  APR 26, 1994
  • HELP-PROMPT:  Field will contain the cancellation code if there has been cancellation activity on this payment.
  • DESCRIPTION:  This field is populated when a cancellation is recorded for the payment referenced. This field will always remain populated, to indicate that there was cancellation activity on this payment at one time. New payments
    will replace the cancellation date and reason code fields, but the cancellation activity flag will not be overwritten. This flag will allow the user to know that previous cancellation activity existed, and to review the
    cancellation history output for further information.
13 DISBURSED AMOUNT 0;11 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the dollar amount paid by the treasury, less any interest paid.
14 INTEREST AMOUNT 0;12 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
  • DESCRIPTION:  
    The interest amount paid on this line item by the treasury.
15 AUTHORIZATION POINTER 1;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  MAR 04, 2014
  • HELP-PROMPT:  Enter the internal entry number of the authorization in the FEE BASIS PATIENT file.
  • DESCRIPTION:  
    Type a number between 1 and 9999999, 0 decimal digits. This field is automatically populated with the internal entry number of the patient's authorization in the Fee Basis Patient file.
  • TECHNICAL DESCR:  
    This field was added by patch FB*3.5*154. It will not be populated for travel payments created prior to the installation of the patch.
Info |  Details