Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^ABMDCODE

Package: Third Party Billing

Global: ^ABMDCODE


Information

FileMan FileNo FileMan Filename Package
9002274.03 3P CODES Third Party Billing

Description

Directly Accessed By Routines, Total: 56

Package Total Routines
Third Party Billing 56 ABMDE0X    ABMDE2P    ABMDE30    ABMDE301    ABMDE3B    ABMDE3X    ABMDE7A    ABMDE9A
ABMDE9B    ABMDE9C    ABMDE9X    ABMDEMLC    ABMDEMRG    ABMDESM1    ABMDESMB    ABMDESMH
ABMDESMM    ABMDESMU    ABMDESMX    ABMDEVAR    ABMDF1    ABMDF14E    ABMDF1A    ABMDF1B
ABMDF27E    ABMDF28X    ABMDF2B    ABMDF35E    ABMDF3E    ABMDF51X    ABMDTCD    ABMDTDC
ABME540    ABME540A    ABME5CL1    ABME5CLM    ABME5L4    ABME5PWK    ABME5SV1    ABME8CL1
ABME8CLM    ABME8PWK    ABME8SV1    ABMER40    ABMER40A    ABMER41    ABMER41A    ABMERUT2
ABMERUTL    ABMMUFC1    ABMP2611    ABMP2621    ABMP2623    ABMPT266    ABMUTL8    ABMUTL8A

Accessed By FileMan Db Calls, Total: 22

Package Total Routines
Third Party Billing 22 ABMDE3B    ABMDEVAR    ABMDF28Y    ABMDF35B    ABMDTCD    ABMDTDCD    ABMMUFC1    ABMMUFC3
ABMMUFC5    ABMP2510    ABMP2511    ABMP2514    ABMP2611    ABMP2621    ABMP2623    ABMPT255
ABMPT256    ABMPT258    ABMPT259    ABMPT261    ABMPT266    ABMUB92    

Pointed To By FileMan Files, Total: 5

Package Total FileMan Files
Third Party Billing 4 3P BILL(#9002274.4)[.51, .52, .53, .54, .916, #9002274.4021(.15), #9002274.4021(.16), #9002274.4027(.15), #9002274.4027(.16), #9002274.4035(.15), #9002274.4035(.16), #9002274.4037(.15), #9002274.4037(.16), #9002274.4039(.15), #9002274.4039(.16), #9002274.4043(.15), #9002274.4043(.16), #9002274.4047(.15), #9002274.4047(.16), #9002274.4051(.01), #9002274.4053(.01), #9002274.4055(.01), #9002274.4057(.01), #9002274.4059(.01), #9002274.4071(.01)]    3P CLAIM DATA(#9002274.3)[.51, .52, .53, .54, .916, #9002274.3021(.15), #9002274.3021(.16), #9002274.3027(.15), #9002274.3027(.16), #9002274.3035(.15), #9002274.3035(.16), #9002274.3037(.15), #9002274.3037(.16), #9002274.3039(.15), #9002274.3039(.16), #9002274.3043(.15), #9002274.3043(.16), #9002274.3047(.15), #9002274.3047(.16), #9002274.3051(.01), #9002274.3053(.01), #9002274.3055(.01), #9002274.3057(.01), #9002274.3059(.01), #9002274.3071(.01)]    3P PARAMETERS(#9002274.5)[.36]    3P INSURER(#9002274.09)[#9002274.091(.11)]    
Utility Tables 1 INSURER(#9999999.18)[#9999999.183901(.11)]    

Fields, Total: 4

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

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X Q:'$D(X) K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  JUN 23, 1992
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DELETE TEST:  .01,0)= I 0
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002274.03^B
    1)= S ^ABMDCODE("B",$E(X,1,30),DA)=""
    2)= K ^ABMDCODE("B",$E(X,1,30),DA)
.02 CODE TYPE 0;2 SET
************************REQUIRED FIELD************************
  • 'O' FOR OCCUR.;
  • 'C' FOR COND;
  • 'B' FOR BILL TYPE;
  • 'V' FOR VALUE;
  • 'S' FOR OCCUR. SPAN;
  • 'A' FOR ADMIT SRCE;
  • 'N' FOR NEWBORN;
  • 'D' FOR DENIAL REASON;
  • 'P' FOR DISCH. STATUS;
  • 'R' FOR REL/INSURED;
  • 'I' FOR SPEC. PRGM;
  • 'T' FOR ADMIT TYPE;
  • 'X' FOR PSRO APPROVAL;
  • 'H' FOR HCFA POS;
  • 'K' FOR HCFA TOS;
  • 'Z' FOR COND. INDIC.;
  • 'U' FOR DEL. REASON;
  • 'W' FOR PWK;

  • LAST EDITED:  DEC 08, 2009
  • CROSS-REFERENCE:  9002274.03^AC^MUMPS
    1)= S ^ABMDCODE("AC",X,$P(^ABMDCODE(DA,0),U),DA)=""
    2)= K ^ABMDCODE("AC",X,$P(^ABMDCODE(DA,0),U),DA)
    Cross reference which includes code type and code.  Used in claim generator and claim editor.
.03 DESCRIPTION 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45)!($L(X)>70)!($L(X)<3) X
  • LAST EDITED:  JUN 23, 1992
  • HELP-PROMPT:  Answer must be 3-70 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002274.03^C
    1)= S ^ABMDCODE("C",$E(X,1,30),DA)=""
    2)= K ^ABMDCODE("C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002274.03^D^KWIC
    1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^ABMDCODE("D",I,DA)=""
    2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^ABMDCODE("D",I,DA)
.04 INACTIVE FLAG 0;4 SET
  • '1' FOR INACTIVE FLAG;
  • '0' FOR ACTIVE FLAG;

  • LAST EDITED:  JUL 21, 1990
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  Found Entries |  All