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: ^AUPNRREC

Package: IHS Patient

Global: ^AUPNRREC


Information

FileMan FileNo FileMan Filename Package
9000005.01 RAILROAD CLAIMS IHS Patient

Description

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
IHS Patient 2 RAILROAD ELIGIBLE(#9000005)[.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
    UNEDITABLE
  • CROSS-REFERENCE:  9000005.01^B
    1)= S ^AUPNRREC("B",$E(X,1,30),DA)=""
    2)= K ^AUPNRREC("B",$E(X,1,30),DA)
.02 PATIENT NAME 0;2 POINTER TO RAILROAD ELIGIBLE FILE (#9000005)
************************REQUIRED FIELD************************
RAILROAD ELIGIBLE(#9000005)

  • LAST EDITED:  JAN 16, 1987
    UNEDITABLE
  • CROSS-REFERENCE:  9000005.01^AC
    1)= S ^AUPNRREC("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNRREC("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:  9000005.01^AD
    1)= S ^AUPNRREC("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNRREC("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
  • LAST EDITED:  DEC 02, 1986
  • 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:  JAN 16, 1987
    UNEDITABLE
.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