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

Package: Third Party Billing

3P FEE TABLE(#9002274.01)-->9002274.0111

Sub-Field: 9002274.0111


Information

Parent File Name Number Package
3P FEE TABLE(#9002274.01) SURGICAL (CPT CODE) 9002274.0111 Third Party Billing

Details

Field # Name Loc Type Details
.01 SURGICAL (CPT CODE) 0;1 POINTER TO CPT FILE (#81) CPT(#81)

  • INPUT TRANSFORM:  S DIC("S")="I $$CHKCPT^ABMDUTL(Y)'=0,Y>9999,$E(Y)'=7,$E(Y)'=8" D ^DIC K DIC S DIC=DIE,(DINUM,X)=+Y K:Y<0 X
  • LAST EDITED:  AUG 15, 2018
  • SCREEN:  S DIC("S")="I $$CHKCPT^ABMDUTL(Y)'=0,Y>9999,$E(Y)'=7,$E(Y)'=8"
  • EXPLANATION:  Only active Surgical CPT Codes
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002274.0111^B
    1)= S ^ABMDFEE(DA(1),11,"B",$E(X,1,30),DA)=""
    2)= K ^ABMDFEE(DA(1),11,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002274.0111^C^MUMPS
    1)= S ^ABMDFEE(DA(1),11,"C",DA,$E(X,1,30))=""
    2)= K ^ABMDFEE(DA(1),11,"C",DA,$E(X,1,30))
.02 *CHARGE 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  JAN 21, 2010
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • CROSS-REFERENCE:  ^^TRIGGER^9002274.0111^.03
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABMDFEE(D0,11,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(9002274.0111,.02,1,1,1.4)
    1.4)= S DIH=$S($D(^ABMDFEE(DIV(0),11,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9002274.0111,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= TODAY
    DELETE VALUE)= NO EFFECT
    FIELD)= #.03
.03 *LAST UPDATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 21, 2010
  • NOTES:  TRIGGERED by the *CHARGE field of the SURGICAL (CPT CODE) sub-field of the 3P FEE TABLE File
.04 FOLLOW UP DAYS 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 25, 1997
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
.05 P27 REVIEW DT 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  JUL 24, 2018
  • HELP-PROMPT:  (No range limit on date)
.06 P27 REVIEWED BY 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 24, 2018
1 EFFECTIVE DATE 1;0 DATE Multiple #9002274.1111 9002274.1111
11 *MODIFIERS 11;0 POINTER Multiple #9002274.011111 9002274.011111

  • LAST EDITED:  JAN 21, 2010
Info |  Details |  All