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: ^ABPVFAC

Package: Third Party Tracking

Global: ^ABPVFAC


Information

FileMan FileNo FileMan Filename Package
9002273.02 PRIVATE INS FACILITY BILLING Third Party Tracking

Description

Directly Accessed By Routines, Total: 11

Package Total Routines
Third Party Tracking 9 ABPVCK0    ABPVCK1    ABPVEEC0    ABPVEEC1    ABPVEEC2    ABPVEEC3    ABPVPI01    ABPVTX0
ABPVTX2    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 8

Package Total Routines
Third Party Tracking 4 ABPVEEC1    ABPVEEC2    ABPVEEC3    ABPVPI01    
Third Party Billing 3 ABMDECAN    ABMDRSET    ABMDTIMR    
IHS Patient Registration 1 AGTMIMRG    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Utility Tables 2 INSURER(#9999999.18)[7]    LOCATION(#9999999.06)[3]    
IHS Patient 1 PATIENT(#9000001)[1]    

Fields, Total: 21

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

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  JUN 28, 1990
  • HELP-PROMPT:  Answer must be 1-7 characters in length.
  • CROSS-REFERENCE:  9002273.02^B
    1)= S ^ABPVFAC("B",$E(X,1,30),DA)=""
    2)= K ^ABPVFAC("B",$E(X,1,30),DA)
1 PATIENT'S NAME 0;2 POINTER TO PATIENT FILE (#9000001) PATIENT(#9000001)
2 DATE OF SERVICE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • CROSS-REFERENCE:  9002273.02^PC^MUMPS
    1)= S ^ABPVFAC("PC",$P(^ABPVFAC(DA,0),"^",2),$E(X,1,30),DA)=""
    2)= K ^ABPVFAC("PC",$P(^ABPVFAC(DA,0),"^",2),$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002273.02^C
    1)= S ^ABPVFAC("C",$E(X,1,30),DA)=""
    2)= K ^ABPVFAC("C",$E(X,1,30),DA)
3 FACILITY 0;4 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)
4 HEALTH RECORD NUMBER 0;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
  • CROSS-REFERENCE:  9002273.02^G^MUMPS
    1)= S ^ABPVFAC("G",$P(^ABPVFAC(DA,0),"^",4),$E(X,1,6),DA)=""
    2)= K ^ABPVFAC("G",$P(^ABPVFAC(DA,0),"^",4),$E(X,1,6),DA)
4.03 SOCIAL SECURITY NUMBER 0;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<9) X I $D(X) I $L(X)=11 S X=$E(X,1,3)_$E(X,5,6)_$E(X,8,11)
  • LAST EDITED:  JUN 03, 1991
  • HELP-PROMPT:  Answer must be 9-11 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5 VISIT TYPE 0;6 SET
************************REQUIRED FIELD************************
  • 'O' FOR OUTPATIENT;
  • 'I' FOR INPATIENT (HOSPITAL ONLY);
  • 'D' FOR DENTAL;
  • 'P' FOR INPATIENT (PHYSICIAN ONLY);

  • LAST EDITED:  JUN 03, 1991
6 DAYS OR VISITS 0;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>50)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 17, 1989
  • HELP-PROMPT:  Type a Number between 0 and 50, 0 Decimal Digits
7 INSURANCE COMPANY 0;8 POINTER TO INSURER FILE (#9999999.18)
************************REQUIRED FIELD************************
INSURER(#9999999.18)

  • LAST EDITED:  JUN 03, 1991
  • CROSS-REFERENCE:  9002273.02^I
    1)= S ^ABPVFAC("I",$E(X,1,30),DA)=""
    2)= K ^ABPVFAC("I",$E(X,1,30),DA)
7.03 POLICY HOLDER'S NAME 0;16 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUN 03, 1991
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
7.05 POLICY NUMBER 0;17 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  JUN 03, 1991
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
8 BILLED AMOUNT 0;9 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<1) X
  • LAST EDITED:  NOV 17, 1989
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 99999, 2 Decimal Digits
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9 PAID AMOUNT 0;10 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  NOV 21, 1989
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999, 2 Decimal Digits
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
10 WRITE OFF COMPUTED

  • MUMPS CODE:  X ^DD(9002273.02,10,9.2) S Y(9002273.02,10,3)=X S X=1,Y(9002273.02,10,4)=X S X="",X=$S(Y(9002273.02,10,2):Y(9002273.02,10,3),Y(9002273.02,10,4):X) S X=$J(X,0,2)
    9.2 = S Y(9002273.02,10,1)=$S($D(^ABPVFAC(D0,0)):^(0),1:"") S X=$P(Y(9002273.02,10,1),U,10)'="",Y(9002273.02,10,2)=X S X=$P(Y(9002273.02,10,1),U,9)-$P(Y(9002273.02,10,1),U,10)
  • ALGORITHM:  $S(PAID AMOUNT'="":CLAIM AMOUNT-PAID AMOUNT,1:"") (ALWAYS 2 DECIMAL DIGITS)
11 DATE CLAIM ENTERED 0;11 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 14, 1989
  • CROSS-REFERENCE:  9002273.02^H
    1)= S ^ABPVFAC("H",$E(X,1,30),DA)=""
    2)= K ^ABPVFAC("H",$E(X,1,30),DA)
12 AGE OF CLAIM (ENTRY) COMPUTED

  • MUMPS CODE:  S Y(9002273.02,12,1)=$S($D(^ABPVFAC(D0,0)):^(0),1:""),X=DT S X=X,X1=X,X2=$P(Y(9002273.02,12,1),U,11),X="" D:X2 ^%DTC:X1 S X=$J(X,0,0)
  • ALGORITHM:  TODAY-DATE CLAIM ENTERED (ALWAYS 0 DECIMAL DIGITS)
13 DATE PAYMENT RECEIVED 0;12 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
14 DATE PAYMENT ENTERED 0;13 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • CROSS-REFERENCE:  9002273.02^D
    1)= S ^ABPVFAC("D",$E(X,1,30),DA)=""
    2)= K ^ABPVFAC("D",$E(X,1,30),DA)
15 AGE OF CLAIM (VISIT) COMPUTED

  • MUMPS CODE:  S Y(9002273.02,15,1)=$S($D(^ABPVFAC(D0,0)):^(0),1:""),X=DT S X=X,X1=X,X2=$P(Y(9002273.02,15,1),U,3),X="" D:X2 ^%DTC:X1
  • ALGORITHM:  TODAY-DATE OF SERVICE
  • LAST EDITED:  SEP 14, 1989
16 CLAIM EXTRACTED FOR AREA? 0;14 SET
  • 'N' FOR NO;
  • 'Y' FOR YES;

  • CROSS-REFERENCE:  9002273.02^E
    1)= S ^ABPVFAC("E",$E(X,1,30),DA)=""
    2)= K ^ABPVFAC("E",$E(X,1,30),DA)
17 DATE CLAIM EXTRACTED FOR AREA 0;15 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • CROSS-REFERENCE:  9002273.02^F
    1)= S ^ABPVFAC("F",$E(X,1,30),DA)=""
    2)= K ^ABPVFAC("F",$E(X,1,30),DA)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All