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 |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^ABPAPBAT

Package: Third Party Tracking

Global: ^ABPAPBAT


Information

FileMan FileNo FileMan Filename Package
9002270.04 AO PVT-INS PAYMENT BATCH Third Party Tracking

Description

Directly Accessed By Routines, Total: 10

Package Total Routines
Third Party Tracking 10 ABPABAT    ABPABCL    ABPABRC0    ABPABVR    ABPACLG0    ABPACLG3    ABPACLG6    ABPACLG7
ABPACLHD    ABPAGPB    

Accessed By FileMan Db Calls, Total: 6

Package Total Routines
Third Party Tracking 6 ABPABCL    ABPABLST    ABPABVR    ABPACLHD    ABPAGPB    ABPAPDV0    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Kernel 1 USER(#3)[6, 9]    

Fields, Total: 16

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

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X
  • LAST EDITED:  FEB 21, 1990
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002270.04^B
    1)= S ^ABPAPBAT("B",$E(X,1,30),DA)=""
    2)= K ^ABPAPBAT("B",$E(X,1,30),DA)
.05 CHECK LOG TOTAL 0;10 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  MAR 12, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999, 2 Decimal Digits
1 STANDARD AMOUNT 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
2 DEDUCTIBLE/COINSURANCE AMOUNT 0;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
3 NON-COVERED SERVICE AMOUNT 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
4 BATCH TOTAL COMPUTED

  • MUMPS CODE:  S Y(9002270.04,4,1)=$S($D(^ABPAPBAT(D0,0)):^(0),1:"") S X=$P(Y(9002270.04,4,1),U,2)+$P(Y(9002270.04,4,1),U,3)+$P(Y(9002270.04,4,1),U,4) S X=$J(X,0,2)
  • ALGORITHM:  #1+#2+#3 (ALWAYS 2 DECIMAL DIGITS)
4.5 TOTAL DEDUCTIBLES COMPUTED

  • MUMPS CODE:  S Y(9002270.04,4.5,1)=$S($D(^ABPAPBAT(D0,0)):^(0),1:"") S X=$P(Y(9002270.04,4.5,1),U,3)+$P(Y(9002270.04,4.5,1),U,4) S X=$J(X,0,2)
  • ALGORITHM:  #2+#3 (ALWAYS 2 DECIMAL DIGITS)
5 STATUS 0;5 SET
************************REQUIRED FIELD************************
  • 'C' FOR CLOSED;
  • 'O' FOR OPEN;

  • LAST EDITED:  FEB 20, 1990
6 ESTABLISHING USER 0;6 POINTER TO USER FILE (#3)
************************REQUIRED FIELD************************
USER(#3)

  • LAST EDITED:  APR 30, 1990
  • CROSS-REFERENCE:  9002270.04^AD^MUMPS
    1)= S ^ABPAPBAT("AD",$E(X,1,30),9999999-DA)=""
    2)= K ^ABPAPBAT("AD",$E(X,1,30),9999999-DA)
7 DATE OPENED 0;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 27, 1990
8 DATE CLOSED 0;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 27, 1990
  • CROSS-REFERENCE:  9002270.04^AC
    1)= S ^ABPAPBAT("AC",$E(X,1,30),DA)=""
    2)= K ^ABPAPBAT("AC",$E(X,1,30),DA)
9 CLOSING USER 0;9 POINTER TO USER FILE (#3) USER(#3)

  • LAST EDITED:  MAR 01, 1990
10 PENALTY AMOUNT 0;11 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
11 ADJUSTMENTS 0;12 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • LAST EDITED:  JUL 01, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
12 INTERFUND ADDITIONS 0;13 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • LAST EDITED:  JUN 26, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
13 REFUNDS 0;14 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All