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.22

Package: Third Party Tracking

AO PVT-INS ACCOUNT(#9002270.02)-->9002270.22

Sub-Field: 9002270.22


Information

Parent File Name Number Package
AO PVT-INS ACCOUNT(#9002270.02) INSURER PAYMENT 9002270.22 Third Party Tracking

Details

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

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 15, 1991
  • CROSS-REFERENCE:  9002270.02^BD^MUMPS
    1)= S ^ABPVAO("BD",X,DA(1),DA)=""
    2)= K ^ABPVAO("BD",X,DA(1),DA)
  • CROSS-REFERENCE:  9002270.22^B
    1)= S ^ABPVAO(DA(1),"P","B",$E(X,1,30),DA)=""
    2)= K ^ABPVAO(DA(1),"P","B",$E(X,1,30),DA)
.03 *FIELD RECEIPT NO. 0;5 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
.05 CHECK NO. 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<3) X
  • LAST EDITED:  MAR 25, 1991
  • HELP-PROMPT:  ANSWER MUST BE 3-12 CHARACTERS IN LENGTH
  • CROSS-REFERENCE:  9002270.02^CK^MUMPS
    1)= S ^ABPVAO("CK",$E(X,1,30),DA(1),DA)=""
    2)= K ^ABPVAO("CK",$E(X,1,30),DA(1),DA)
.1 DHS REFUND CHECK NO. 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<3) X
  • LAST EDITED:  JUL 14, 1991
  • HELP-PROMPT:  ANSWER MUST BE 3-12 CHARACTERS IN LENGTH
1 DATE PAYMENT WAS ENTERED 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 23, 1991
  • CROSS-REFERENCE:  9002270.02^DP^MUMPS
    1)= S ^ABPVAO("DP",X,DA(1),DA)=""
    2)= K ^ABPVAO("DP",X,DA(1),DA)
1.01 ENTERED BY 0;7 POINTER TO USER FILE (#3)
************************REQUIRED FIELD************************
USER(#3)

  • LAST EDITED:  APR 27, 1990
1.03 DATE PAYMENT LAST MODIFIED 0;8 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 02, 1991
  • CROSS-REFERENCE:  9002270.02^ED^MUMPS
    1)= S ^ABPVAO("ED",X,DA(1),DA)=""
    2)= K ^ABPVAO("ED",X,DA(1),DA)
1.05 LAST MODIFIED BY 0;9 POINTER TO USER FILE (#3)
************************REQUIRED FIELD************************
USER(#3)

  • LAST EDITED:  APR 27, 1990
2 DATES OF SERVICE COVERED D;0 DATE Multiple #9002270.222 9002270.222
3 PAYMENT AMOUNT A;0 Multiple #9002270.223 9002270.223
4 POSTED TO A/R? 0;3 SET
************************REQUIRED FIELD************************

  • LAST EDITED:  MAR 05, 1990
  • CROSS-REFERENCE:  9002270.02^AR^MUMPS
    1)= S ^ABPVAO("AR",$P(^ABPVAO(DA(1),0),"^",2),DA(1),DA,X)=""
    2)= K ^ABPVAO("AR",$P(^ABPVAO(DA(1),0),"^",2),DA(1),DA,X)
5 DATE POSTED TO A/R'S 0;4 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 23, 1991
Info |  Details |  All