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

Package: Third Party Billing

3P BILL(#9002274.4)-->9002274.4033

Sub-Field: 9002274.4033


Information

Parent File Name Number Package
3P BILL(#9002274.4) Dental 9002274.4033 Third Party Billing

Details

Field # Name Loc Type Details
.01 DENTAL (ADA CODE) 0;1 POINTER TO ADA CODE FILE (#9999999.31) ADA CODE(#9999999.31)

  • LAST EDITED:  DEC 20, 1990
  • CROSS-REFERENCE:  9002274.4033^B
    1)= S ^ABMDBILL(DUZ(2),DA(1),33,"B",$E(X,1,30),DA)=""
    2)= K ^ABMDBILL(DUZ(2),DA(1),33,"B",$E(X,1,30),DA)
.02 REVENUE CODE 0;2 POINTER TO REVENUE CODES FILE (#9999999.72) REVENUE CODES(#9999999.72)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)'=0,$E(^(0),1,2)>48,$E(^(0),1,2)<53" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 21, 1990
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=0,$E(^(0),1,2)>48,$E(^(0),1,2)<53"
  • EXPLANATION:  REVN CODES FOR O/P CLINICS
.03 DENTAL (CPT CODE) 0;3 POINTER TO CPT FILE (#81) CPT(#81)

  • INPUT TRANSFORM:  S DIC("S")="I $E(^(0),1)=""D""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 02, 1990
  • SCREEN:  S DIC("S")="I $E(^(0),1)=""D"""
  • EXPLANATION:  CPT FOR DENTAL
.04 CORRESPONDING DIAGNOSIS 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  APR 06, 1995
  • HELP-PROMPT:  Answer must be 1-7 characters in length.
.05 OPERATIVE SITE 0;5 POINTER TO DENTAL OPERATIVE SITE FILE (#9002010.03) DENTAL OPERATIVE SITE(#9002010.03)

  • LAST EDITED:  MAR 27, 1990
.06 SURFACE 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  JUN 23, 1992
  • HELP-PROMPT:  Answer must be less than 5 characters and contain only 'OMDBLFI'
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.07 DATE of SERVICE 0;7 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 05, 1990
  • CROSS-REFERENCE:  9002274.4033^C
    1)= S ^ABMDBILL(DUZ(2),DA(1),33,"C",$E(X,1,30),DA)=""
    2)= K ^ABMDBILL(DUZ(2),DA(1),33,"C",$E(X,1,30),DA)
.08 CHARGE 0;8 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=$J(Y,4,2)
  • LAST EDITED:  MAY 05, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
.09 UNITS 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 22, 1995
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
.11 AREA OF ORAL CAVITY 0;11 SET
  • '00' FOR ENTIRE ORAL CAVITY;
  • '01' FOR MAXILLARY AREA;
  • '02' FOR MANDIBULAR AREA;
  • '09' FOR OTHER AREA OF ORAL CAVITY;
  • '10' FOR UPPER RIGHT QUADRANT;
  • '20' FOR UPPER LEFT QUADRANT;
  • '30' FOR LOWER LEFT QUADRANT;
  • '40' FOR LOWER RIGHT QUADRANT;
  • 'L' FOR LEFT;
  • 'R' FOR RIGHT;

  • LAST EDITED:  AUG 18, 2004
.12 TOOTH SYSTEM 0;12 SET
  • 'JP' FOR ADA'S UNIVERSAL/NATIONAL TOOTH DESIGNATION SYSTEM;
  • 'JO' FOR ANSI/ADA/ISO SPECIFICATION NO.3950;

  • LAST EDITED:  AUG 18, 2004
.17 DATA SOURCE 0;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  DEC 13, 2005
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
.18 SERVICE LINE PROVIDER P;0 POINTER Multiple #9002274.403318 9002274.403318
.23 PRINT ORDER 0;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  SEP 05, 2017
  • HELP-PROMPT:  Type a number between 1 and 99999, 0 decimal digits.
21 LINE ITEM CONTROL NUMBER 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<18) X
  • LAST EDITED:  FEB 01, 2011
  • HELP-PROMPT:  Answer must be 18 characters in length
  • TECHNICAL DESCR:  This field will be unique for each line item on every bill. The format being used is:
    Characters 1-12  = Bill IEN
    Characters 13-14 = Multiple #
    Characters 15-18 = Line item counter
Info |  Details |  All