Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 9002080.02

Package: Contract Health Management Information System

CHS FACILITY(#9002080)-->9002080.01-->9002080.02

Sub-Field: 9002080.02


Information

Parent File Name Number Package
9002080.01 TRANSACTION RECORD 9002080.02 Contract Health Management Information System

Details

Field # Name Loc Type Details
.01 TRANSACTION DATE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 27, 1990
  • HELP-PROMPT:  MUST BE A DATE
  • DESCRIPTION:  





1
TRANSACTION TYPE
0;2
SET

  • LAST EDITED:  JUL 18, 1994
  • HELP-PROMPT:  I=INITIAL, S=SUPPLEMENTAL, C=CANCELLATION, P=PAYMENT, ZA=ADJUSTMENT, IP=INTERIM PAYMENT
  • TECHNICAL DESCR:  
  • CROSS-REFERENCE:  9002080.01^TB^MUMPS
    1)= S ^ACHSF(DA(2),"TB",+$P(^ACHSF(DA(2),"D",DA(1),"T",DA,0),"^",1),$E(X,1,30),DA(1),DA)=""
    2)= K ^ACHSF(DA(2),"TB",+$P(^ACHSF(DA(2),"D",DA(1),"T",DA,0),"^",1),$E(X,1,30),DA(1),DA)
  • CROSS-REFERENCE:  9002080^PQ^MUMPS
    1)= S:((X="I")!(X="C"&($P(^ACHSF(DA(2),2),U,6)="Y"))!(X="S"&($P(^ACHSF(DA(2),2),U,7)="Y")))&('$D(^ACHS(7,"P",DA(2),DA(1),DA))) ^ACHSF("PQ",DA(2),$P(^ACHSF(DA(2),"D",DA(1),0),U,4),DA(1),DA)=""
    2)= K ^ACHSF("PQ",DA(2),$P(^ACHSF(DA(2),"D",DA(1),0),U,4),DA(1),DA)





2
PATIENT
0;3
POINTER TO PATIENT FILE (#9000001)
PATIENT(#9000001)
  • HELP-PROMPT:  ENTER THE PATIENT
  • DESCRIPTION:  
    ENTER THE PATIENT
  • CROSS-REFERENCE:  9002080^AC
    1)= S ^ACHSF("AC",$E(X,1,30),DA(2),DA(1),DA)=""
    2)= K ^ACHSF("AC",$E(X,1,30),DA(2),DA(1),DA)





3
IHS PAYMENT AMOUNT
0;4
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
  • DESCRIPTION:  





4
FULL PAYMENT
0;5
SET

  • HELP-PROMPT:  ENTER F FOR FULL PAYMENT, OR P FOR PARTIAL PAYMENT
  • DESCRIPTION:  Did IHS pay all of this bill, or only part of it?
    Enter an "F" for FULL payment of IHS of the TOTAL BILL, or "P" if IHS paid on part of the TOTAL BILL.
  • TECHNICAL DESCR:  
    This field is used for partial and full paid and also for partial and full cancellation transactions.





5
SUPPLEMENT NUMBER
0;6
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999
  • DESCRIPTION:  
    TYPE A WHOLE NUMBER BETWEEN 1 AND 999





6
CANCEL NUMBER
0;7
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999
  • DESCRIPTION:  
    TYPE A WHOLE NUMBER BETWEEN 1 AND 999





7
THIRD PARTY PAY AMT
0;8
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
  • DESCRIPTION:  





8
WORKLOAD
0;9
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
  • DESCRIPTION:  





9
DATE OF SERVICE
0;10
DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 11, 1993
  • HELP-PROMPT:  ENTER THE DATE OF SERVICE
  • DESCRIPTION:  
  • CROSS-REFERENCE:  9002080^PDOS^MUMPS
    1)= S ^ACHSF(DA(2),"PDOS",X,DA(1),DA)=""
    2)= K ^ACHSF(DA(2),"PDOS",X,DA(1),DA)





9.1
HOSPITAL OUTPATIENT
0;16
SET

  • LAST EDITED:  JAN 24, 1992
  • HELP-PROMPT:  ENTER Y IF THE PATIENT IS AN OUTPATIENT OR N IF THE PATIENT IS NOT AN OUTPATIENT
  • DESCRIPTION:  
    HOSPITAL OUTPATIENT





11
CHS CLERK
0;11
POINTER TO NEW PERSON FILE (#200) 

************************REQUIRED FIELD************************
NEW PERSON(#200)
  • LAST EDITED:  APR 17, 1996
  • HELP-PROMPT:  Who entered this transaction?
  • DESCRIPTION:  
    Select the person entering this transaction.
  • TECHNICAL DESCR:  
    This usually is handled programmatically.





12
THIRD PARTY SOURCE
0;12
POINTER TO INSURER FILE (#9999999.18)
INSURER(#9999999.18)
  • LAST EDITED:  JUL 13, 1990
  • HELP-PROMPT:  Who is the source of the 3rd party payment?
  • DESCRIPTION:  
    Enter the insurer that paid part of the amount of the cost for this purchase order.





13
EOBR DATE
0;13
DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 20, 1991
  • HELP-PROMPT:  ENTER THE DATE OF THE EOBR
  • DESCRIPTION:  
    Enter the date that appears just to the right of the 'DATE:' label on the Explanation Of Benefits Report (EOBR).
  • CROSS-REFERENCE:  9002080^EOBD^MUMPS
    1)= S ^ACHSF(DA(2),"EOBD",9999999-X,DA(1),DA)=""
    2)= K ^ACHSF(DA(2),"EOBD",9999999-X,DA(1),DA)





14
EOBR CLAIM SEQ NO.
0;14
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 12, 1991
  • HELP-PROMPT:  Type a Number between 1 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  The Claim Sequence Number appears near the upper right corner of the Explanation Of Benefits Report (EOBR), just below and to the right of "CONTRACT HEALTH SERVICES".  It is a sequential number generated by
    the FI.  It is also referred to as 'Count'.
  • CROSS-REFERENCE:  9002080.02^EB1^MUMPS
    1)= S ^ACHSF(DA(2),"D",DA(1),"EB1",$P(^ACHSF(DA(2),"D",DA(1),"T",DA,0),"^",13),X,DA)=""
    2)= K ^ACHSF(DA(2),"D",DA(1),"EB1",$P(^ACHSF(DA(2),"D",DA(1),"T",DA,0),"^",13),X,DA)





15
EOBR PAY TYPE
0;15
SET

  • LAST EDITED:  JAN 08, 1993
  • HELP-PROMPT:  ENTER I FOR INTERIM OR F FOR FINAL
  • DESCRIPTION:  
    Is this an Interim or Final payment?  This information appears on the Explanation Of Benefits Report (EOBR), left column, 10th item, after the "INTERIM/FINAL IND:" label.





16
EOBR CONTROL NUMBER
0;17
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  APR 21, 1992
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  Enter the characters that appear on the Explanation of Benefits Report (EOBR), after the "CONTROL NO:" label, located in the right column, third item down.  This number is generated at the FI.  The number can
    be 7 characters, followed by a "-", followed by 10 digits.





17
EOBR CHECK NUMBER
0;18
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 21, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the number from the EOBR that appears to the right of the "CHECK NUMB:" label, located in the right column, first item.





18
EOBR REMITTANCE NUMBER
0;19
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 21, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the number that appears on the EOBR just after the "REMITTANCE:" label, in the right column, second item.





19
EOBR SERVICES BILLED
0;20
SET

  • LAST EDITED:  FEB 09, 1994
  • HELP-PROMPT:  Enter the letter code which indicates Services Billed.
  • DESCRIPTION:  
    Enter a letter code that corresponds to the value of the "SERV BILLED:" field on the EOBR.  That field is in the right column of the EOBR, eight item.





20
EOBR OBLIGATION TYPE
0;21
SET

  • LAST EDITED:  JUN 12, 1992
  • HELP-PROMPT:  ENTER 1 FOR P.O., OR 2 FOR SHR 424
  • DESCRIPTION:  Enter a number which indicates the obligation type.  This information is found on the EOBR, and will be a label preceeding one of the dollar amounts near the middle of the EOBR. The label appears just above
    the "INTEREST AMOUNT" label.





22
INTEREST CAN
0;22
POINTER TO CHS COMMON ACCOUNTING NUMBER FILE (#9002062)
CHS COMMON ACCOUNTING NUMBER(#9002062)
  • LAST EDITED:  JUN 28, 1996
  • HELP-PROMPT:  Select the Interest CAN listed on the EOBR.





23
INTEREST OBJECT CLASS CODE
0;23
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X Q:'$D(X)  K:X'?2AN1"."2AN X Q:'$D(X)  S X=$P(X,".")_$P(X,".",2) K:'$D(^ACHS(3,D0,1,"B",X)) X Q:'$D(X)  S X=$O(^ACHS(3,D0,1,"B",X,0))
  • OUTPUT TRANSFORM:  S:Y Y=$P(^ACHS(3,$S($D(DIC)["1":+$P($P(DIC,","),"(",2),1:D0),1,Y,0),U),Y=$E(Y,1,2)_"."_$E(Y,3,4)
  • LAST EDITED:  JUN 28, 1996
  • HELP-PROMPT:  Enter the Interest OCC from the EOBR.





24
INTEREST RATE
0;24
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<-99)!(X?.E1"."4N.N) X
  • LAST EDITED:  JUL 01, 1996
  • HELP-PROMPT:  Enter the Interest Rate from the EOBR.





25
INTEREST DAYS ELIGIBLE
0;25
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>366)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 28, 1996
  • HELP-PROMPT:  Type a Number between 0 and 366, 0 Decimal Digits





26
INTEREST PAID
0;26
NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999)!(X<-999999) X
  • LAST EDITED:  JUN 28, 1996
  • HELP-PROMPT:  Type a Dollar Amount between -999999 and 999999, 2 Decimal Digits





27
INTEREST ADDTNL PENALTY PAID
0;27
NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999)!(X<-999999) X
  • LAST EDITED:  JUN 28, 1996
  • HELP-PROMPT:  Type a Dollar Amount between -999999 and 999999, 2 Decimal Digits





28
INTEREST TOTAL PAID THIS TRANS
0;28
NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999)!(X<-999999) X
  • LAST EDITED:  JUN 28, 1996
  • HELP-PROMPT:  Type a Dollar Amount between -999999 and 999999, 2 Decimal Digits





29
CANCEL/ADJUSTMENT REASON
0;29
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 26, 1996
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits





30
PAYMENT SCHEDULE NUMBER
0;30
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 26, 1996
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits





31
278O ID
0;31
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 01, 2002
  • HELP-PROMPT:  Type a Number between 1 and 99999999, 0 Decimal Digits
  • TECHNICAL DESCR:  
    Added by ACHS*3.1*5.







    



Info | 
Details | 
All