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

Package: Contract Health Management Information System

CHS NON-PROCESSED EOBRS(#9002065)-->9002065.037

Sub-Field: 9002065.037


Information

Parent File Name Number Package
CHS NON-PROCESSED EOBRS(#9002065) CPT PROCEDURES 9002065.037 Contract Health Management Information System

Details

Field # Name Loc Type Details
.01 CPT PROCEDURES 0;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    Answer with CPT code from 0-99999
  • CROSS-REFERENCE:  9002065.037^B
    1)= S ^ACHSEOBE(DA(1),3,"B",$E(X,1,30),DA)=""
    2)= K ^ACHSEOBE(DA(1),3,"B",$E(X,1,30),DA)
1 FROM DATE OF SERVICE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Answer must be in date format
  • DESCRIPTION:  
    Answer with Beginning Date of Service
2 TO DATE OF SERVICE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Answer must be in date format
  • DESCRIPTION:  
    Answer with Ending Date of Service
3 UNITS BILLED 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Enter a number for units billed 0-999
4 BILLED CHARGES 0;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Enter a dollar amount for Billed Charges 0-9999999
5 ALLOWABLE CHARGES 0;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Enter a dollar amount of Allowable Charges
6 MESSAGE 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  
    Enter a message form 1-4 characters in length
7 TOOTH NUMBER 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the number of the tooth 0-99
8 TOOTH SURFACE 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • DESCRIPTION:  
    Enter 1-5 characters for Tooth Surface
Info |  Details |  All