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

Package: Third Party Billing

3P CLAIM DATA(#9002274.3)-->9002274.3039

Sub-Field: 9002274.3039


Information

Parent File Name Number Package
3P CLAIM DATA(#9002274.3) Anesthesia 9002274.3039 Third Party Billing

Details

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

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",1)<70000,$$CHKCPT^ABMDUTL(Y)'=0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 04, 2007
  • HELP-PROMPT:  Anesthesia Code can only be for Medical/Surgical Procedures entered for this claim.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",1)<70000,$$CHKCPT^ABMDUTL(Y)'=0"
  • EXPLANATION:  ANESTHESIA CODES ONLY
  • EXECUTABLE HELP:  W !!,"Anesthesia Code must be for a Medical/Surgical Procedure already",!,"entered in this claim"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002274.3039^B
    1)= S ^ABMDCLM(DUZ(2),DA(1),39,"B",$E(X,1,30),DA)=""
    2)= K ^ABMDCLM(DUZ(2),DA(1),39,"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),($E(^(0),1,2)=37!(+^(0)=963)!(+^(0)=964))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 24, 1991
  • SCREEN:  S DIC("S")="I '$P(^(0),U,3),($E(^(0),1,2)=37!(+^(0)=963)!(+^(0)=964))"
  • EXPLANATION:  REVENUE CODE MUST RELATE TO ANESTHESIA
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.03 TIME CHARGE 0;3 NUMBER

  • INPUT TRANSFORM:  S X=$TR(X,"$") K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  NOV 10, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999, 2 Decimal Digits
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the START DATE/TIME field of the Anesthesia sub-field of the 3P CLAIM DATA File
    TRIGGERED by the STOP DATE/TIME field of the Anesthesia sub-field of the 3P CLAIM DATA File
.04 BASE CHARGE 0;4 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
.06 MODIFIER 0;6 FREE TEXT

  • INPUT TRANSFORM:  D EN^ABMANSIT
  • LAST EDITED:  JUL 26, 2007
  • HELP-PROMPT:  Select entry from ASA-PS file or CPT Modifiers file
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.07 START DATE/TIME 0;7 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 10, 1994
  • CROSS-REFERENCE:  ^^TRIGGER^9002274.3039^.03
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,39,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$$C^ABMDANTC(D0,D1) X ^DD(9002274.3039,.07,1,1,1.4)
    1.4)= S DIH=$S($D(^ABMDCLM(DUZ(2),DIV(0),39,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9002274.3039,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,39,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(9002274.3039,.07,1,1,2.4)
    2.4)= S DIH=$S($D(^ABMDCLM(DUZ(2),DIV(0),39,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9002274.3039,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$$C^ABMDANTC(D0,D1)
    DELETE VALUE)= @
    FIELD)= #.03
.08 STOP DATE/TIME 0;8 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 10, 1994
  • CROSS-REFERENCE:  ^^TRIGGER^9002274.3039^.03
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,39,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$$C^ABMDANTC(D0,D1) X ^DD(9002274.3039,.08,1,1,1.4)
    1.4)= S DIH=$S($D(^ABMDCLM(DUZ(2),DIV(0),39,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9002274.3039,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABMDCLM(DUZ(2),D0,39,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(9002274.3039,.08,1,1,2.4)
    2.4)= S DIH=$S($D(^ABMDCLM(DUZ(2),DIV(0),39,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9002274.3039,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$$C^ABMDANTC(D0,D1)
    DELETE VALUE)= @
    FIELD)= #.03
.09 OBSTETRICAL? 0;9 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 09, 1994
.1 CORRESPONDING DIAGNOSIS 0;10 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.
.11 *PROVIDER 0;11 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 10, 2006
.12 UNITS 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 16, 1998
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
.13 UNIT CHARGE 0;13 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  DEC 16, 1998
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999, 2 Decimal Digits
.14 SECOND MODIFIER 0;14 FREE TEXT

  • INPUT TRANSFORM:  D EN^ABMANSIT
  • LAST EDITED:  JUL 30, 2007
  • HELP-PROMPT:  Answer must be 2 characters in length
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.15 HCFA POS 0;15 POINTER TO 3P CODES FILE (#9002274.03) 3P CODES(#9002274.03)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""H""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 17, 2004
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""H"""
  • EXPLANATION:  HCFA POS entries only
.16 HCFA TOS 0;16 POINTER TO 3P CODES FILE (#9002274.03) 3P CODES(#9002274.03)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""K""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 18, 2004
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=""K"""
  • EXPLANATION:  HCFA TOS entries only
.17 DATA SOURCE 0;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  JUL 20, 1998
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
  • CROSS-REFERENCE:  9002274.3^ASRC39^MUMPS
    1)= S ^ABMDCLM(DUZ(2),DA(1),"ASRC",$E(X,1,30),DA)=""
    2)= K:$G(DC)'="M" ^ABMDCLM(DUZ(2),DA(1),"ASRC",$E(X,1,30),DA)
    3)= Used by background checker
  • CROSS-REFERENCE:  9002274.3039^ASRCA
    1)= S ^ABMDCLM(DUZ(2),DA(1),39,"ASRCA",$E(X,1,30),DA)=""
    2)= K ^ABMDCLM(DUZ(2),DA(1),39,"ASRCA",$E(X,1,30),DA)
    3)= Used by bacground checker
.18 SERVICE LINE PROVIDER P;0 POINTER Multiple #9002274.303918 9002274.303918

  • IDENTIFIED BY:  TYPE(#.02)
.19 THIRD MODIFIER 0;19 FREE TEXT

  • INPUT TRANSFORM:  D EN^ABMANSIT
  • LAST EDITED:  JUL 30, 2007
  • HELP-PROMPT:  Answer must be 2 characters in length
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.23 PRINT ORDER 0;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  SEP 15, 2017
  • HELP-PROMPT:  Type a number between 1 and 99999, 0 decimal digits.
  • CROSS-REFERENCE:  9002274.3^J^MUMPS
    1)= S ^ABMDCLM(DUZ(2),DA(1),"PO",X,39,DA)=""
    2)= K ^ABMDCLM(DUZ(2),DA(1),"PO",X,39,DA)
22 CPT NARRATIVE 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
  • LAST EDITED:  FEB 22, 2012
  • HELP-PROMPT:  Answer must be 3-80 characters in length
Info |  Details |  All