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 |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Global: ^ACHSEOBE

Package: Contract Health Management Information System

Global: ^ACHSEOBE


Information

FileMan FileNo FileMan Filename Package
9002065 CHS NON-PROCESSED EOBRS Contract Health Management Information System

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Contract Health Management Information System 4 ACHSEDOC    ACHSEOBD    ACHSEOBE    CPT PROCEDURES    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Contract Health Management Information System 1 ACHSEOBD    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Utility Tables 2 SERVICE UNIT(#9999999.22)[2]    VENDOR(#9999999.11)[24]    

Fields, Total: 44

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

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Answer must be 3-10 characters in length.
  • DESCRIPTION:  
    Answer with name 3 to 10 characters in length.
  • TECHNICAL DESCR:  
    Alpha 3-10 char
  • CROSS-REFERENCE:  9002065^B
    1)= S ^ACHSEOBE("B",$E(X,1,30),DA)=""
    2)= K ^ACHSEOBE("B",$E(X,1,30),DA)
1 AREA OFFICE 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    Answer with Area Office number - between 0 and 99
  • TECHNICAL DESCR:  
    Numeric 0-99
2 SERVICE UNIT 0;3 POINTER TO SERVICE UNIT FILE (#9999999.22) SERVICE UNIT(#9999999.22)

  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  ENTER SERVICE UNIT
  • DESCRIPTION:  
    SERVICE UNIT
3 CLAIM NUMBER 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    Answer with claim number between 0 and 999999999
  • TECHNICAL DESCR:  
    Numeric between 0-999999999
4 CLAIM SEQUENCE COUNT 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    Answer with Claim Sequence Number between 0 and 999999999
  • TECHNICAL DESCR:  
    Numeric between 0-999999999
5 CHECK NUMBER 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Answer with Check Number between 0 and 9999999
  • TECHNICAL DESCR:  
    Numeric between 0-9999999
6 REMITTANCE NUMBER 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Answer with Remittance Number between 0 and 9999999
  • TECHNICAL DESCR:  
    Numeric between 0-9999999
7 PAID DATE 0;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 16, 1992
  • HELP-PROMPT:  Enter Date of payment
  • DESCRIPTION:  
    Answer with Date of Payment
  • TECHNICAL DESCR:  
    Date format
  • CROSS-REFERENCE:  9002065^EOBD
    1)= S ^ACHSEOBE("EOBD",$E(X,1,30),DA)=""
    2)= K ^ACHSEOBE("EOBD",$E(X,1,30),DA)
8 CERTIFICATE NUMBER 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Answer with Certificate Number between 0 and 9999999
  • TECHNICAL DESCR:  
    Numeric between 0-9999999
9 FACILITY CODE 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    Answer with Facility Code between 0 and 999999
  • TECHNICAL DESCR:  
    Numeric between 0-999999
10 DOCUMENTATION TYPE 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>64)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Number between 0 and 64, 0 Decimal Digits
  • DESCRIPTION:  
    Answer with Type of Document - Numeric 0-64
  • TECHNICAL DESCR:  
    Numeric 0-64
11 PATIENT NAME 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUN 24, 1992
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Answer with name of patient - 1-30 characters in length
  • TECHNICAL DESCR:  
    1 to 30 characters
  • CROSS-REFERENCE:  9002065^EOBP
    1)= S ^ACHSEOBE("EOBP",$E(X,1,30),DA)=""
    2)= K ^ACHSEOBE("EOBP",$E(X,1,30),DA)
12 HEALTH RECORD NUMBER 1;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    Answer with Health Record Number of Patient - Numeric between 0 and 999999
  • TECHNICAL DESCR:  
    Numeric between 0-999999
13 AUTHORIZATION DATE 1;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Answer must be in date format
  • DESCRIPTION:  
    Enter Date of Authorization
  • TECHNICAL DESCR:  
    Date format
14 ACTUAL DAYS 1;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Enter number of Actual Days 0 to 999
  • TECHNICAL DESCR:  
    Numeric between 0-999
15 DRG 1;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  
    Enter DRG number 1 to 3 characters in length
  • TECHNICAL DESCR:  
    1-3 characters
16 COMMON ACCOUNTING NUMBER 1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>16!($L(X)<1) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Answer must be 1-16 characters in length.
  • DESCRIPTION:  
    Enter Common Accounting Number 1 to 16 characters in length
  • TECHNICAL DESCR:  
    1-16 characters
17 OBJECT CLASS CODE 1;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  
    Enter Object Class Code 1 to 4 characters in length
  • TECHNICAL DESCR:  
    Free text 1-4 characters
18 SERVICES BILLED 1;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Answer with 1 character code for Services Billed
  • TECHNICAL DESCR:  
    Free text
19 BLANKET INDICATOR 1;9 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  ENTER Y FOR YES OR N FOR NO
  • DESCRIPTION:  
    BLANKET INDICATOR
20 CONTRACT NUMBER 1;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    Enter Contract Number 1 to 10 characters in length
  • TECHNICAL DESCR:  
    Free Text 1-10 characters
20.5 INTERIM/FINAL IND 1;14 SET
  • 'I' FOR INTERIM;
  • 'F' FOR FINAL;

  • LAST EDITED:  JUN 16, 1992
  • HELP-PROMPT:  ENTER I FOR INTERIM OR F FOR FINAL
  • DESCRIPTION:  
    INTERIM/FINAL INDICATOR
21 SERVICE START DATE 1;11 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Answer must be a date
  • DESCRIPTION:  
    Enter Date of Service Start Date
  • TECHNICAL DESCR:  
    Date format
22 SERVICE END DATE 1;12 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Answer must be a date
  • DESCRIPTION:  
    Enter Service End date
23 VENDOR NUMBER 1;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<1) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Answer must be 1-13 characters in length.
  • DESCRIPTION:  
    VENDOR NUMBER
24 VENDOR NAME 2;1 POINTER TO VENDOR FILE (#9999999.11) VENDOR(#9999999.11)

  • LAST EDITED:  JUN 16, 1992
  • HELP-PROMPT:  ENTER THE NAME OF THE VENDOR
  • DESCRIPTION:  
    NAME OF VENDOR
  • CROSS-REFERENCE:  9002065^EOBV
    1)= S ^ACHSEOBE("EOBV",$E(X,1,30),DA)=""
    2)= K ^ACHSEOBE("EOBV",$E(X,1,30),DA)
25 BILLED BY PROVIDER 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Answer must be 1-7 characters in length.
  • DESCRIPTION:  
    Enter 1-7 characters
26 ALLOWABLE AMOUNT 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Answer must be 1-7 characters in length.
  • DESCRIPTION:  
    Enter Allowable amount 1 to 7 characters
  • TECHNICAL DESCR:  
    Free text 1-7 char
27 PAID BY 3RD PARTY 2;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Enter Dollar Amount paid by 3rd party between 0 and 9999999 2 decimal digits
  • TECHNICAL DESCR:  
    Dollar amount 2 decimal digits
28 IHS COST 2;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Enter dollar amount of cost to IHS 0 to 9999999 2 decimal digits
  • TECHNICAL DESCR:  
    Numeric dollar amount 0-9999999 2 decimal digits
29 OBLIGATION INDICATOR 2;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Type a Number between 0 and 2, 0 Decimal Digits
  • DESCRIPTION:  
    Enter Type of Obligation Indicator - Numeric between 0 and 2
  • TECHNICAL DESCR:  
    Numeric between 0-2 0 decimal digits
30 OBLIGATION AMOUNT 2;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Answer must be 1-7 characters in length.
  • DESCRIPTION:  
    Enter amount of Obligation 1-7 characters in length
  • TECHNICAL DESCR:  
    Free text 1-7 char
31 ADJUSTMENT AMOUNT 2;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  MAY 08, 1992
  • HELP-PROMPT:  Answer must be 1-7 characters in length.
  • DESCRIPTION:  
    Enter amount of adjustment 1to 7 characters in length
  • TECHNICAL DESCR:  
    Free text 1-7 char
32 DIAGNOSIS CODE 1 2;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<3) X
  • LAST EDITED:  MAR 14, 2014
  • HELP-PROMPT:  Answer must be 3-8 characters in length.
  • DESCRIPTION:  
    Enter Diagnosis code - numeric between 0-99999
33 DIAGNOSIS CODE 2 2;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<3) X
  • LAST EDITED:  MAR 14, 2014
  • HELP-PROMPT:  Answer must be 3-8 characters in length.
  • DESCRIPTION:  
    ENTER DIAGNOSIS CODE
34 DIAGNOSIS CODE 3 2;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<3) X
  • LAST EDITED:  MAR 14, 2014
  • HELP-PROMPT:  Answer must be 3-8 characters in length.
  • DESCRIPTION:  
    Answer with Diagnosis code from 0-99999
35 DIAGNOSIS CODE 4 2;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<3) X
  • LAST EDITED:  MAR 14, 2014
  • HELP-PROMPT:  Answer must be 3-8 characters in length.
  • DESCRIPTION:  
    Answer with Diagnosis code from 0-99999
36 DIAGNOSIS CODE 5 2;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<3) X
  • LAST EDITED:  MAR 14, 2014
  • HELP-PROMPT:  Answer must be 3-8 characters in length.
  • DESCRIPTION:  
    Answer with Diagnosis code from 0-99999
37 CPT PROCEDURES 3;0 Multiple #9002065.037 9002065.037

  • DESCRIPTION:  
    Enter CPT Procedure Code
38 PROCEDURE CODE 1 4;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<3) X
  • LAST EDITED:  MAR 14, 2014
  • HELP-PROMPT:  Answer must be 3-7 characters in length.
  • DESCRIPTION:  
    Enter a number from 1-9999 for Procedure Code
39 PROCEDURE CODE 2 4;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<3) X
  • LAST EDITED:  MAR 14, 2014
  • HELP-PROMPT:  Answer must be 3-7 characters in length.
  • DESCRIPTION:  
    Enter a number from 0-9999 for Procedure code
40 PROCEDURE CODE 3 4;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<3) X
  • LAST EDITED:  MAR 14, 2014
  • HELP-PROMPT:  Answer must be 3-7 characters in length.
  • DESCRIPTION:  
    Enter a number between 0-9999 for Procedure Code
44 PROCEDURE CODE 4 4;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<3) X
  • LAST EDITED:  MAR 14, 2014
  • HELP-PROMPT:  Answer must be 3-7 characters in length.
45 PROCEDURE CODE 5 4;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<3) X
  • LAST EDITED:  MAR 14, 2014
  • HELP-PROMPT:  Answer must be 3-7 characters in length.

External References

Name Field # of Occurrence
^%DT 7+1, 13+1, 21+1, 22+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSEOBE("B" .01(XREF 1S), .01(XREF 1K)
^ACHSEOBE("EOBD" 7(XREF 1S), 7(XREF 1K)
^ACHSEOBE("EOBP" 11(XREF 1S), 11(XREF 1K)
^ACHSEOBE("EOBV" 24(XREF 1S), 24(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 7+1*, 13+1*, 21+1*, 22+1*
>> DA .01(XREF 1S), .01(XREF 1K), 7(XREF 1S), 7(XREF 1K), 11(XREF 1S), 11(XREF 1K), 24(XREF 1S), 24(XREF 1K)
X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 3+1!, 4+1!, 5+1!, 6+1!, 7+1*!, 7(XREF 1S)
, 7(XREF 1K), 8+1!, 9+1!, 10+1!, 11+1!, 11(XREF 1S), 11(XREF 1K), 12+1!, 13+1*!, 14+1!
, 15+1!, 16+1!, 17+1!, 18+1!, 20+1!, 21+1*!, 22+1*!, 23+1!, 24(XREF 1S), 24(XREF 1K)
, 25+1!, 26+1!, 27+1*!, 28+1*!, 29+1!, 30+1!, 31+1!, 32+1!, 33+1!, 34+1!
, 35+1!, 36+1!, 38+1!, 39+1!, 40+1!, 44+1!, 45+1!
>> Y 7+1, 13+1, 21+1, 22+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All