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: 2001060.31

Package: Portland Private Insurance package

AZP PRV AREA TRACKING(#2001060.03)-->2001060.31

Sub-Field: 2001060.31


Information

Parent File Name Number Package
AZP PRV AREA TRACKING(#2001060.03) CLAIM NUMBER 2001060.31 Portland Private Insurance package

Details

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

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8) X
  • HELP-PROMPT:  Enter patients bill number.
  • CROSS-REFERENCE:  2001060.31^B
    1)= S ^AZPPI(3,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^AZPPI(3,DA(1),1,"B",$E(X,1,30),DA)
.02 BEGINNING DOS 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the beginning date of service for the claim
.03 ENDING DOS 0;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the ending date of service for the claim
.04 CLAIM AMOUNT 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>100000)!(X<0)!(X?.E1"."3N.N) X
  • HELP-PROMPT:  Enter the claim amount to be billed
.05 AMOUNT COLLECTED 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100000)!(X<0)!(X?.E1"."3N.N) X
  • HELP-PROMPT:  Enter the total amount collected
.06 AMOUNT OF DEDUCTIBLE 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Enter the amount of deductible for claim
.07 DATE SENT TO INS 0;7 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter date sent to insurance
.08 DATE COLLECTED 0;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter date collection was sent to area from insurance co.
.09 FACILITY COMPUTED

  • MUMPS CODE:  S X=DUZ(2)
  • ALGORITHM:  S X=DUZ(2)
  • LAST EDITED:  SEP 05, 1990
Info |  Details |  All