Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^ABMEXLM

Package: Third Party Billing

Global: ^ABMEXLM


Information

FileMan FileNo FileMan Filename Package
9002274.2 3P EXP LOCAL MOD Third Party Billing

Description

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Third Party Billing 1 3P EXPORT MODE(#9002274.08)[.03]    
Utility Tables 1 INSURER(#9999999.18)[.02]    

Fields, Total: 7

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

  • INPUT TRANSFORM:  K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • CROSS-REFERENCE:  9002274.2^B
    1)= S ^ABMEXLM("B",$E(X,1,30),DA)=""
    2)= K ^ABMEXLM("B",$E(X,1,30),DA)
.02 INSURER 0;2 POINTER TO INSURER FILE (#9999999.18) INSURER(#9999999.18)

  • LAST EDITED:  FEB 06, 2002
.03 EXPORT MODE 0;3 POINTER TO 3P EXPORT MODE FILE (#9002274.08) 3P EXPORT MODE(#9002274.08)

  • LAST EDITED:  FEB 06, 2002
.04 RECORD 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  AUG 06, 2003
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
.05 FIELD 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 06, 2002
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
.06 LINE LABEL 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1) X
  • LAST EDITED:  FEB 07, 2002
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
  • CROSS-REFERENCE:  9002274.2^AC^MUMPS
    1)= S ABM0=^ABMEXLM(DA,0),^ABMEXLM("AA",$P(ABM0,"^",2),$P(ABM0,"^",3),$P(ABM0,"^",4),$P(ABM0,"^",5))=$P(ABM0,"^",6,7) K ABM0
    2)= S ABM0=^ABMEXLM(DA,0) K ^ABMEXLM("AA",$P(ABM0,"^",2),$P(ABM0,"^",3),$P(ABM0,"^",4),$P(ABM0,"^",5)),ABM0
.07 ROUTINE 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1) X
  • LAST EDITED:  FEB 07, 2002
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
  • CROSS-REFERENCE:  9002274.2^AD^MUMPS
    1)= S ABM0=^ABMEXLM(DA,0),^ABMEXLM("AA",$P(ABM0,"^",2),$P(ABM0,"^",3),$P(ABM0,"^",4),$P(ABM0,"^",5))=$P(ABM0,"^",6,7) K ABM0
    2)= S ABM0=^ABMEXLM(DA,0) K ^ABMEXLM("AA",$P(ABM0,"^",2),$P(ABM0,"^",3),$P(ABM0,"^",4),$P(ABM0,"^",5)),ABM0
Info |  Desc |  Pointer To FileMan Files |  Fields |  Found Entries |  All