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 |  All
Print Page as PDF
Global: ^AUPNMCRC

Package: IHS Patient

Global: ^AUPNMCRC


Information

FileMan FileNo FileMan Filename Package
9000003.01 MEDICARE CLAIMS IHS Patient

Description

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
IHS Patient 2 MEDICARE ELIGIBLE(#9000003)[.02]    VISIT(#9000010)[.03]    
Utility Tables 1 LOCATION(#9999999.06)[.05]    

Fields, Total: 15

Field # Name Loc Type Details
.01 CLAIM 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 16, 1987
  • DESCRIPTION:  
    COMPUTER DATE THIS CLAIM WAS CREATED
    UNEDITABLE
  • CROSS-REFERENCE:  9000003.01^B
    1)= S ^AUPNMCRC("B",$E(X,1,30),DA)=""
    2)= K ^AUPNMCRC("B",$E(X,1,30),DA)
.02 PATIENT NAME 0;2 POINTER TO MEDICARE ELIGIBLE FILE (#9000003)
************************REQUIRED FIELD************************
MEDICARE ELIGIBLE(#9000003)

  • LAST EDITED:  JAN 16, 1987
    UNEDITABLE
  • CROSS-REFERENCE:  9000003.01^AC
    1)= S ^AUPNMCRC("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNMCRC("AC",$E(X,1,30),DA)
.03 VISIT 0;3 POINTER TO VISIT FILE (#9000010)
************************REQUIRED FIELD************************
VISIT(#9000010)

  • LAST EDITED:  JAN 16, 1987
    UNEDITABLE
  • CROSS-REFERENCE:  9000003.01^AD
    1)= S ^AUPNMCRC("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNMCRC("AD",$E(X,1,30),DA)
.04 CLAIM AMOUNT 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>99999.99)!(X<0) X
  • LAST EDITED:  JAN 26, 1987
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 99999.99
    UNEDITABLE
.05 FACILITY 0;5 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)

  • LAST EDITED:  JAN 16, 1987
    UNEDITABLE
.06 SETTLEMENT DATE 0;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
.07 SETTLEMENT AMOUNT 0;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<0) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 99999
.08 DENIAL CODE 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-2 CHARACTERS IN LENGTH
.09 BEGIN CLAIM DATE 0;9 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 16, 1987
    UNEDITABLE
.11 END CLAIM DATE 0;11 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 16, 1987
    UNEDITABLE
.12 TYPE OF CLAIM 0;12 SET
************************REQUIRED FIELD************************
  • 'H' FOR HOSPITALIZATION;
  • 'A' FOR ANCILLARY;
  • 'P' FOR PHYSICIAN SERVICES;

  • LAST EDITED:  MAY 14, 1987
    UNEDITABLE
  • CROSS-REFERENCE:  9000003.01^C
    1)= S ^AUPNMCRC("C",$E(X,1,30),DA)=""
    2)= K ^AUPNMCRC("C",$E(X,1,30),DA)
.13 DRG CODE 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 14, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 9999
.14 DRG AMOUNT 0;14 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999999)!(X<1) X
  • LAST EDITED:  MAY 14, 1987
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 1 AND 9999999
.15 TRANSMITTAL NUMBER 0;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 14, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999
.16 REBILL FLAG 0;16 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAY 15, 1987
Info |  Desc |  Pointer To FileMan Files |  Fields |  All