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

Package: Third Party Tracking

AO PVT-INS CHECK LOG(#9002270.03)-->9002270.31-->9002270.311

Sub-Field: 9002270.311


Information

Parent File Name Number Package
9002270.31 CHECK 9002270.311 Third Party Tracking

Details

Field # Name Loc Type Details
.01 CHECK NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3) X I $D(X) K:$A($E(X,1))=34 X
  • LAST EDITED:  APR 08, 1991
  • HELP-PROMPT:  Answer must be 3-15 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002270.311^B
    1)= S ^ABPACHKS(DA(2),"I",DA(1),"C","B",$E(X,1,30),DA)=""
    2)= K ^ABPACHKS(DA(2),"I",DA(1),"C","B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002270.03^AB
    1)= S ^ABPACHKS("AB",$E(X,1,30),DA(2),DA(1),DA)=""
    2)= K ^ABPACHKS("AB",$E(X,1,30),DA(2),DA(1),DA)
1 DATE/TIME LOGGED 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETR" D ^%DT S X=Y K:Y<1 X
2 LOGGED BY 0;3 POINTER TO USER FILE (#3)
************************REQUIRED FIELD************************
USER(#3)
3 AMOUNT 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<.01)!(X?.E1"."3N.N) X
  • HELP-PROMPT:  Type a Number between .01 and 99999, 2 Decimal Digits
4 LAST MODIFIED BY 0;5 POINTER TO USER FILE (#3)
************************REQUIRED FIELD************************
USER(#3)
5 LAST MODIFY DATE/TIME 0;6 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
6 LAST PROCESS FLAG 0;7 SET
************************REQUIRED FIELD************************
  • 'N' FOR NOT PROCESSED;
  • 'P' FOR PROCESSED;
  • 'R' FOR RETURNED;
  • 'I' FOR IMPROPERLY LOGGED;

  • LAST EDITED:  MAR 29, 1991
7 AMOUNT PROCESSED 0;8 NUMBER
************************REQUIRED FIELD************************

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

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  MAR 02, 1991
  • HELP-PROMPT:  Type a Number between 0 and 99999, 2 Decimal Digits
  • CROSS-REFERENCE:  9002270.03^RB^MUMPS
    1)= I +X>0 S ^ABPACHKS("RB",DA(2),DA(1),DA)=X
    2)= I +X=0 K ^ABPACHKS("RB",DA(2),DA(1),DA)
9 LAST PROCESSED BY 0;10 POINTER TO USER FILE (#3)
************************REQUIRED FIELD************************
USER(#3)
10 LAST DATE/TIME PROCESSED 0;11 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
11 REPORTED ON A TRANSMITTAL 0;12 SET
************************REQUIRED FIELD************************
  • 'N' FOR NO;
  • 'Y' FOR YES;

  • LAST EDITED:  AUG 07, 1991
  • CROSS-REFERENCE:  9002270.03^TR^MUMPS
    1)= S ^ABPACHKS("TR",$P($P(^ABPACHKS(DA(2),"I",DA(1),"C",DA,0),"^",2),"."),$E(X,1,30),DA(2),DA(1),DA)=""
    2)= K ^ABPACHKS("TR",$P($P(^ABPACHKS(DA(2),"I",DA(1),"C",DA,0),"^",2),"."),$E(X,1,30),DA(2),DA(1),DA)
12 EXPLANATION 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>79!($L(X)<1) X
  • LAST EDITED:  MAR 02, 1991
  • HELP-PROMPT:  Answer must be 1-79 characters in length.
13 SPECIAL PROCESSES PERFORMED SP;0 DATE Multiple #9002270.31113 9002270.31113
14 FIELD RECEIPT NO. 0;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 09, 1991
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
Info |  Details |  All