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.01

Package: Contract Health Management Information System

CHS FACILITY(#9002080)-->9002080.01

Sub-Field: 9002080.01


Information

Parent File Name Number Package
CHS FACILITY(#9002080) DOCUMENT 9002080.01 Contract Health Management Information System

Details

Field # Name Loc Type Details
.01 ORDER NUMBER 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X K:$D(X)&(X["""")!$D(X)&($A(X)=45) X
  • OUTPUT TRANSFORM:  S:Y>0&($D(D0))&($D(D1)) Y=$P(^ACHSF(D0,"D",D1,0),U,14)_"-"_$P(^AUTTAREA($P(^AUTTLOC(D0,0),U,4),0),U,3)_$E($P(^AUTTLOC(D0,0),U,17),2,3)_"-"_Y
  • LAST EDITED:  MAR 04, 1993
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 00001 AND 99999
  • DESCRIPTION:  
    lvn = ACHSORDN
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1 ORDER DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 11, 2010
  • HELP-PROMPT:  DATE DOCUMENT ENTERED
  • DESCRIPTION:  
    DATE DOCUMENT ENTERED
2 BLANKET ORDER 0;3 SET
  • '1' FOR YES;
  • '0' FOR NO;
  • '2' FOR SPECIAL TRANS;

  • HELP-PROMPT:  ENTER 1 FOR YES 0 FOR NO OR 2 FOR SPECIAL TRANSACTION
  • DESCRIPTION:  
    lvn = ACHSBORD
3 TYPE OF SERVICE 0;4 SET
  • '1' FOR 43 (HOSPITAL SERVICE);
  • '2' FOR 57 (DENTAL SERVICE);
  • '3' FOR 64 (OUTPATIENT SERVICE);

  • HELP-PROMPT:  ENTER 1 FOR HOSPITAL SERVICE, 2 FOR DENTAL SERVICE, OR 3 FOR OUTPATIENT SERVICE
  • DESCRIPTION:  
    lvn = ACHSTOS
4 CONTRACT POINTER 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  S:Y Y=$P(^AUTTVNDR($P(^ACHSF($S($D(DIC):+$P($P(DIC,","),"(",2),1:D0),"D",$S($D(DIC):DA,1:D1),0),U,8),"CN",Y,0),U)
  • LAST EDITED:  SEP 18, 1992
  • HELP-PROMPT:  Type a Number between 1 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  
    lvn = ACHSCN
5 COMMON ACCOUNTING NUMBER 0;6 POINTER TO CHS COMMON ACCOUNTING NUMBER FILE (#9002062) CHS COMMON ACCOUNTING NUMBER(#9002062)

  • LAST EDITED:  MAY 17, 1990
  • HELP-PROMPT:  ENTER CHS COMMON ACCOUNTING NUMBER
  • DESCRIPTION:  
    lvn = ACHSCAN
6 OBJECT CLASSIFICATION 0;7 POINTER TO CHS SERVICE CLASS CODES FILE (#9002063) CHS SERVICE CLASS CODES(#9002063)

  • OUTPUT TRANSFORM:  S:Y Y=$P(^ACHS(3,$S($D(DIC):+$P($P(DIC,","),"(",2),1:D0),1,Y,0),U),Y=$E(Y,1,2)_"."_$E(Y,3,4)
  • LAST EDITED:  JUL 10, 1990
  • HELP-PROMPT:  ENTER CHS OBJECT CLASSIFICATION NUMBER
  • DESCRIPTION:  
    lvn = ACHSOBJC
7 PROVIDER (VENDOR) 0;8 POINTER TO VENDOR FILE (#9999999.11)
************************REQUIRED FIELD************************
VENDOR(#9999999.11)

  • HELP-PROMPT:  ENTER THE PROVIDER
  • DESCRIPTION:  
    lvn = ACHSPROV
  • CROSS-REFERENCE:  9002080.01^VB^MUMPS
    1)= S ^ACHSF(DA(1),"VB",+X,DA,"1")=""
    2)= K ^ACHSF(DA(1),"VB",+X,DA,"1")
8 TOTAL AMOUNT OBLIGATED 0;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    lvn = ACHSTAO
9 OBJECT CLASS CODE 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 08, 2001
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    ENTER $ AMOUNT OF ESTIMATED VENDOR CHARGES
10 IHS ADJUSTMENT 0;11 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  JAN 14, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999, 2 Decimal Digits
  • DESCRIPTION:  
    ENTER $ AMOUNT OF IHS ADJUSTMENT
11 STATUS 0;12 SET
  • '0' FOR OPEN;
  • '1' FOR SUPPLEMENTAL;
  • '2' FOR PARTIAL CANCEL;
  • '3' FOR PAID;
  • '4' FOR CANCELED;

  • HELP-PROMPT:  ENTER 0 FOR OPEN, 1 FOR SUPPLEMENTAL, 2 FOR PARTIAL CANCEL, 3 FOR PAID OR 4 FOR CANCEL
  • DESCRIPTION:  
    lvn = ACHSSTS
12 COMMENTS (OPTIONAL) 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    lvn = ACHSCOPT
13 FISCAL YEAR 0;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 02, 1990
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 9
  • DESCRIPTION:  
    TYPE A WHOLE NUMBER BETWEEN 0 AND 9
  • CROSS-REFERENCE:  9002080.01^B^MUMPS
    1)= S ^ACHSF(DA(1),"D","B",1000000+(X_$P(^ACHSF(DA(1),"D",DA,0),"^",1)),DA)=""
    2)= K ^ACHSF(DA(1),"D","B",1000000+(X_$P(^ACHSF(DA(1),"D",DA,0),"^",1)),DA)
13.1 FY 4 DIGIT 0;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1111)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 13, 2002
  • HELP-PROMPT:  PROGRAMATICALLY CONTROLLED.
  • TECHNICAL DESCR:  This field added with ACHS*3.1*5.
    The code that actually sets the 4-digit FY into the Document record was in ACHS*3.1*1.
13.2 LAST SUPPLEMENT NUMBER 0;15 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
13.4 LAST CANCEL NUMBER 0;16 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
13.5 DOCUMENT DESTINATION 0;17 SET
  • 'I' FOR IHS;
  • 'F' FOR FISCAL AGENT;

  • HELP-PROMPT:  ENTER I FOR IHS OR F FOR FISCAL AGENT
  • DESCRIPTION:  
    lvn = ACHSDEST
13.6 CHS CLERK 0;18 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • HELP-PROMPT:  Enter the name of the clerk entering this document.
  • DESCRIPTION:  
    ENTER THE CHS CLERK ENTERING THIS DOCUMENT
13.61 DCR ACCOUNT NUMBER 0;19 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
  • DESCRIPTION:  
    lvn = ACHSDCR
  • TECHNICAL DESCR:  
    lvn = ACHSDCR
13.62 PATIENT FACILITY 0;20 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • HELP-PROMPT:  ENTER THE PATIENT FACILITY
  • DESCRIPTION:  
    lvn = ACHSPATF
13.63 CHART NUMBER 0;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    ENTER PATIENTS CHART NUMBER
13.64 PATIENT 0;22 POINTER TO PATIENT FILE (#9000001) PATIENT(#9000001)

  • HELP-PROMPT:  ENTER THE PATIENT
  • DESCRIPTION:  
    ENTER THE PATIENT
  • CROSS-REFERENCE:  9002080.01^PB^MUMPS
    1)= S ^ACHSF(DA(1),"PB",+X,DA,"1")=""
    2)= K ^ACHSF(DA(1),"PB",+X,DA,"1")
13.65 VENDOR AGREEMENTS POINTER 0;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 18, 1992
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    ENTER A NUMBER BETWEEN 1 AND 999
13.67 DRG RATE 0;25 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JUL 29, 1992
  • HELP-PROMPT:  Enter Y if vendor is to be paid at DRG rate
  • DESCRIPTION:  
    ENTER Y IF VENDOR IS TO BE PAID AT DRG RATE
13.68 TRIBAL PURCHASE REQUEST NO. 0;26 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X K:$L($G(X))>10 X K:$L($G(X))<6 X
  • LAST EDITED:  NOV 19, 1993
  • HELP-PROMPT:  Answer must be 6-10 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002080.01^TPR^MUMPS
    1)= S ^ACHSF(DA(1),"TPR",$E(X,1,30),DA)=""
    2)= K ^ACHSF(DA(1),"TPR",$E(X,1,30),DA)
13.69 E-SIG ORDERING OFFICIAL 0;24 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 28, 2003
  • HELP-PROMPT:  Enter your electronic signature code.
13.7 E-SIG ORDERING OFFICIAL DATE 0;28 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 28, 2003
  • CROSS-REFERENCE:  9002080^ESIG^MUMPS
    1)= S ^ACHSF(DA(1),"ESIG",+X,DA)=""
    2)= K ^ACHSF(DA(1),"ESIG",+X,DA)
13.71 E-SIG AUTHORIZING OFC. 0;29 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 28, 2003
13.72 E-SIG AUTHORIZING OFC. DATE 0;30 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 28, 2003
14 BLANKET COMMENTS BT;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>150!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-150 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    ENTER COMMENTS REGARDING THIS BLANKET ORDER
15 TOTAL PAYMENT AMOUNT PA;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  JUN 10, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999, 2 Decimal Digits
  • DESCRIPTION:  
    ENTER PAYMENT AMOUNT
15.05 PAYMENT OBLIG ADJUST PA;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  JAN 14, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999, 2 Decimal Digits
  • DESCRIPTION:  
    ENTER PAYMENT OBLIGATION ADJUSTMENT
  • TECHNICAL DESCR:  
    AMOUNT OF PAYMENT OBLIGATION ADJUSTMENT
15.06 FINAL PAYMENT DATE PA;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 10, 1993
  • HELP-PROMPT:  MUST BE IN DATE FORMAT
  • DESCRIPTION:  
    ENTER DATE OF PAYMENT
15.07 LAST PAYMENT TYPE PA;4 SET
************************REQUIRED FIELD************************
  • 'I' FOR INTERIM;
  • 'F' FOR FINAL;

  • LAST EDITED:  MAY 29, 1991
  • HELP-PROMPT:  ENTER I FOR INTERIM PAYMENT OR F FOR FINAL PAYMENT
  • DESCRIPTION:  
    ENTER THE TYPE OF THE LAST PAYMENT
15.2 PAYMENT AMOUNT 3RD PARTY PA;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JAN 15, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
  • DESCRIPTION:  
    ENTER 3RD PARTY PAYMENT AMOUNT
15.21 FINAL PAYMENT AMOUNT PA;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999999)!(X<0) X
  • LAST EDITED:  JUN 10, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits
16 INTERIM PAYMENT TOTAL IP;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  MAY 29, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
  • DESCRIPTION:  
    ENTER INTERIM PAYMENT
16.05 NUMBER OF INTERIM PAYMENTS IP;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 29, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    ENTER NUMBER OF INTERIM PAYMENT
16.06 LAST INTERIM PAYMENT DATE IP;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 29, 1991
  • HELP-PROMPT:  ENTRY MUST BE A DATE
  • DESCRIPTION:  
    ENTER DATE OF LAST INTERIM PAYMENT
17 ADJUSTED PAYMENT AMT ZA;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  JUL 23, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999, 2 Decimal Digits
  • DESCRIPTION:  
    lvn = ACHSAPA
17.05 TOTAL ADJUSTMENTS AMT ZA;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999)!(X<-99999) X
  • LAST EDITED:  JAN 14, 1993
  • HELP-PROMPT:  Type a Dollar Amount between -99999 and 99999, 2 Decimal Digits
  • DESCRIPTION:  
    ENTER TOTAL ADJUSTMENT AMOUNT
17.1 NUMBER OF ADJUSTMENTS ZA;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99999
  • DESCRIPTION:  
    ENTER NUMBER OF ADJUSTMENT
17.2 ADJUSTED 3RD PARTY PAYMENT AMT ZA;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JAN 15, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
  • DESCRIPTION:  
    ENTER ADJUSTED 3RD PARTY PAYMENT AMOUNT
25 ESTIMATED INPATIENT DAYS 1;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  How long is the patient estimated to be Hospitalized (Forms 43 only)?
  • DESCRIPTION:  This field is only used for Hospitalization forms (43).
    Please enter the number of days the patient is estimated to be hospitalized from block 17, ESTIMATED DAYS.
26 DESCRIPTION OF SERVICE 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAY 30, 1990
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Enter a brief description of the treatment to be provided.  lvn = ACHSDES
26.01 PATIENT ACCOUNT NUMBER 1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  JUN 17, 1997
  • HELP-PROMPT:  Enter the Patient Account Number issued by the provider.
  • DESCRIPTION:  The patient account number is usually provided by a Provider from the Notification report, associated with High-Volume Provider procedures.
    The account number is issued by the Provider.
  • TECHNICAL DESCR:  
    The Patient Account Number is taken from the Notification Report, and printed on the Master Delivery Order List (MDOL).
26.02 MEDICARE PROVIDER POINTER 1;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 15, 2004
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
50 HOSPITAL ORDER NUMBER 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    ENTER HOSPITAL ORDER NUMBER
51 CHECK # 2;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 05, 1999
  • HELP-PROMPT:  Enter the number of the check used to pay this document.
  • DESCRIPTION:  
    ENTER CHECK NUMBER
  • CROSS-REFERENCE:  9002080.01^TCHK^MUMPS
    1)= S ^ACHSF(DUZ(2),"TCHK",999999999-X,DA)=""
    2)= K ^ACHSF(DUZ(2),"TCHK",999999999-X,DA)
    3)= PREVENTS DUPLICATE CHECK NUMBERS!!
    This x-ref is set and checked in the 638 check writting routines.
52 CHECK PRINT DATE 2;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 20, 1990
  • HELP-PROMPT:  Enter the date the check used to pay this document was printed.
  • DESCRIPTION:  
    ENTER CHECK PRINT DATE
53 CHECK CLEARED DATE 2;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 20, 1990
  • HELP-PROMPT:  Enter the date the canceled check used to pay this document was returned to your facility.
  • DESCRIPTION:  
    ENTER THE DATE THE CHECK CLEARED
60 VISIT 2;5 POINTER TO VISIT FILE (#9000010) VISIT(#9000010)

  • LAST EDITED:  FEB 22, 2001
  • HELP-PROMPT:  For which VISIT is this document?
  • DESCRIPTION:  
    Select the VISIT, in the Patient Care Component (PCC), that is associated with this document.
  • TECHNICAL DESCR:  This field is handled programmatically. When medical information is entered when the document is paid, the medical information is transferred to the Patient Care Component, if the link from CHS to PCC is established.
    If medical data associated with the document is edited, any existing VISIT is deleted, first, by setting the value of this field to APCDVDLT and calling routine ^APCDVDLT, which also deletes any Purposes of visit in the
    V POV file that point to the VISIT.
61 V CHS 2;6 POINTER TO V CHS FILE (#9000010.03) V CHS(#9000010.03)

  • LAST EDITED:  FEB 22, 2001
  • HELP-PROMPT:  For which V CHS is this document?
  • DESCRIPTION:  
    Select the V CHS, in the Patient Care Component (PCC), that is associated with this document.
  • TECHNICAL DESCR:  This field is handled programmatically. When medical information is entered when the document is paid, the medical information is transferred to the Patient Care Component, if the link from CHS to PCC is established.
    If medical data associated with the document is edited, any existing V CHS is deactivated, by deleting the associated VISIT (see VISIT field).
62 REFERRAL 2;7 POINTER TO RCIS REFERRAL FILE (#90001) RCIS REFERRAL(#90001)

  • LAST EDITED:  FEB 22, 2001
  • HELP-PROMPT:  Select the Referral that is the basis for this P.O.
  • DESCRIPTION:  
    Enter the Referral from the MCIS system that is the authorization basis for this purchase order.
  • TECHNICAL DESCR:  
    This is handled programmatically.
63 CANCELLATION REASON 2;8 SET
  • 'D' FOR DUPLICATE;
  • 'N' FOR NO SHOW;
  • 'R' FOR RE-ISSUED;
  • 'Z' FOR 0 BALANCE;
  • 'O' FOR OTHER;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  FEB 22, 2001
  • HELP-PROMPT:  Why was this document canceled?
64 CONTRACT TYPE 2;9 POINTER TO CHS CONTRACT ACTION TYPE FILE (#9002068.1) CHS CONTRACT ACTION TYPE(#9002068.1)

  • LAST EDITED:  MAR 23, 2005
  • HELP-PROMPT:  ENTER THE ONE DIGIT CODE DESCRIBING THE TYPE OF ACTION
75 AUTH BEGINNING DATE 3;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 08, 1993
  • HELP-PROMPT:  ENTER THE AUTHORIZED BEGINNING DATE
  • DESCRIPTION:  
    ENTER THE AUTHORIZED BEGINNING DATE
76 AUTH ENDING DATE 3;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  ENTER THE AUTHORIZED ENDING DATE
  • DESCRIPTION:  
    ENTER THE AUTHORIZED ENDING DATE
78 REFERRAL DRG 3;3 POINTER TO DRG FILE (#80.2) DRG(#80.2)

  • LAST EDITED:  JUL 19, 1990
  • HELP-PROMPT:  Enter the Referral DRG, which may be obtained from the SuperGrouper based on AGE, SEX, Referral DX, and Referral PX.
  • DESCRIPTION:  
    This field is calculated whenever referral data fields are entered or edited from CHS Kernel options.  It can be directly edited using FM.
79 REFERRAL ESTIMATED COST 3;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  JUL 09, 1990
  • HELP-PROMPT:  Enter the Estimated Cost based on AGE, SEX, Referral DX, and Referral PX.
  • DESCRIPTION:  
    ENTER ESTIMATED REFERRAL COST
80 REFERRAL PHYSICIAN 3;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 09, 1990
  • HELP-PROMPT:  What provider referred the patient to Contract Health?
  • DESCRIPTION:  
    Provider that referred the patient to CONTRACT HEALTH
81 IHS REFERRAL MEDICAL PRIORITY 3;6 SET
************************REQUIRED FIELD************************
  • 'I' FOR I - EMERGENT/ACUTELY URGENT CARE;
  • 'II' FOR II - PREVENTIVE CARE;
  • 'III' FOR III - PRIMARY AND SECONDARY CARE;
  • 'IV' FOR IV - CHRONIC TERTIARY AND EXTENDED CARE;

  • LAST EDITED:  DEC 13, 1993
  • HELP-PROMPT:  What is the Medical Priority from the Referral Form?
  • DESCRIPTION:  I - EMERGENT/ACUTELY URGENT CARE: Diagnostic or therapeutic services which are necessary to prevent the immediate death or serious impairment of the health of the individual, and which, because of the threat to the life
    or health of the individual, necessitate the use of the most accessible health care available and capable of furnishing such services.  Diagnosis and treatment of injuries or medical conditions that, if left untreated,
    would result in uncertain but potentially grave outcomes.
    II - PREVENTIVE CARE:  Primary health care that is aimed at the prevention of long term disability.  This includes services proven effective in avoiding the occurrence of a disease (primary prevention) and services
    proven effective in mitigating the consequences of an illness or condition (secondary prevention).  Level II services are available at most IHS facilities.
    III - PRIMARY AND SECONDARY CARE:  Inpatient and outpatient care services that involve the treatment of prevalent illnesses or conditions that have a significant impact on morbidity and mortality.  This involves
    treatment for conditions that may be delayed without progressive loss of function or risk of life, limb or senses.  It includes services that may not be available at many IHS facilities and/or may require specialty
    consultation.  Level III referrals should be approved by the local CHS committee or clinical director before the services are rendered.
    IV - CHRONIC TERTIARY AND EXTENDED CARE:  Inpatient and outpatient care services
    (1) that require sophisticated specialists or equipment and tertiary care facilities,
    (2) that are not essential for initial/emergent diagnosis or therapy, or
    (3) that are high cost, are elective, and have less impact on mortality than morbidity.
    These services are not readily available from direct care IHS facilities.  Careful case management by the service unit CHS committee is a requirement, as is monitoring by the Area Chief Medical Officer, or his/her
    designee.  Depending on cost, the referral may require concurrence by the Chief Medical Officer.
  • TECHNICAL DESCR:  
    lvn = ACHSRMPC
82 REFERRAL CAUSE OF INJURY 3;7 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  FEB 20, 2014
  • HELP-PROMPT:  Enter the cause of injury from the referral form.
  • DESCRIPTION:  
    CAUSE OF INJURY FROM THE REFERRAL FORM
  • SCREEN:  S DIC("S")="I $E($P(^(0),U))=""E"""
  • EXPLANATION:  CAUSE OF INJURY codes are a subset of ICD DIAGNOSIS codes. They must begin with an "E".
83 REFERRAL ALCOHOL RELATED? 3;8 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  JUL 09, 1990
  • HELP-PROMPT:  Is this Contract Health Referral related to alcohol?
  • DESCRIPTION:  
    IS THIS REFERRAL ALCOHOL RELATED?
83.11 ESTIMATED DATE OF SERVICE 3;9 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 08, 1993
  • HELP-PROMPT:  ENTER THE ESTIMATED DATE OF SERVICE FOR THIS PATIENT
  • DESCRIPTION:  
    ENTER ESTIMATED DATE OF SERVICE
  • CROSS-REFERENCE:  9002080^ES^MUMPS
    1)= S ^ACHSF(DA(1),"ES",X,DA)=""
    2)= K ^ACHSF(DA(1),"ES",X,DA)
83.12 REFERRAL TYPE (DENTAL ONLY) 3;10 SET
  • 'G' FOR GENERAL;
  • 'E' FOR SPECIFIC, TYPE E;
  • 'B' FOR SPECIFIC, TYPE B;
  • 'S' FOR SPECIFIC, TYPE S;
  • 'L' FOR SPECIFIC, TYPE L;

  • LAST EDITED:  NOV 30, 1992
  • HELP-PROMPT:  ENTER G FOR GENERAL REFERRAL, E FOR TYPE E SPECIFIC, B FOR TYPE B, S FOR TYPE S AND L FOR TYPE L SPECIFICS
  • DESCRIPTION:  GENERAL REFERRAL: Before providing services other than examinations, radiographs, or emergency services, this claim must returned for predetermination.
    SPECIFIC REFERRAL, TYPE E:  Emergency examination and treatment not to exceed obligation amount.  Services limited to Levels I-III of the IHS Schedule of Oral Health Services.
    SPECIFIC REFERRAL, TYPE B:  Examination and treatment limited to Levels I-III of the IHS Schedule of Oral Healthy Services.  Treatment plans exceeding $200 must be returned for predetermination.
    SPECIFIC REFERRAL, TYPE S:  Specialty services limited to specifically listed services, not to exceed obligated amount.  ADA code(s) should be listed.
    SPECIFIC REFERRAL, TYPE L:  Authorization for dental laboratory services for a removeable or fixed appliance.
84 REFERRAL DX 4;0 POINTER Multiple #9002080.184 9002080.184

  • DESCRIPTION:  
    ENTER THE REFERRAL DIAGNOSIS
85 REFERRAL DX NARRATIVE 5;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  JUL 11, 1990
  • HELP-PROMPT:  Enter the Diagnosis narrative from the referral form (max 245 characters).
  • DESCRIPTION:  
    ENTER THE NARRATIVE
86 REFERRAL PX 6;0 VARIABLE POINTER Multiple #9002080.186 9002080.186

  • DESCRIPTION:  
    ENTER THE REFERRAL PX
87 REFERRAL PX NARRATIVE 7;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  JUL 11, 1990
  • HELP-PROMPT:  Enter the Procedure narrative from the referral form (max 245 characters).
  • DESCRIPTION:  
    ENTER THE NARRATIVE FOR THIS REFERRAL PX
90 DRG 8;1 POINTER TO DRG FILE (#80.2) DRG(#80.2)

  • LAST EDITED:  JUL 13, 1990
  • HELP-PROMPT:  Enter the DRG (Diagnosis Related Group) from treatment information.
  • DESCRIPTION:  
    ENTER THE DIAGNOSIS RELATED GROUP FROM TREATMENT INFORMATION
91 ADMISSION DATE 8;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X S ACHSXXXZ=X
  • LAST EDITED:  JAN 21, 1993
  • HELP-PROMPT:  Enter the admission date (Inpatient only).
  • DESCRIPTION:  
    ENTER THE DATE THE PATIENT WAS ADMITTED TO THE FACILITY
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
92 DISCHARGE DATE 8;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X D:$D(X) CHKDT^ACHSPAM
  • LAST EDITED:  JAN 21, 1993
  • HELP-PROMPT:  Enter the discharge date (Inpatient only).
  • DESCRIPTION:  
    ENTER THE DATE THIS PATIENT WAS DISCHARGED FROM THE FACILITY
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
93 LENGTH OF STAY COMPUTED

  • MUMPS CODE:  X ^DD(9002080.01,93,9.3) S X=$S(Y(9002080.01,93,2):Y(9002080.01,93,3),Y(9002080.01,93,4):X) S X=$J(X,0,0)
    9.2 = S Y(9002080.01,93,1)=$S($D(^ACHSF(D0,"D",D1,8)):^(8),1:"") S X=$P(Y(9002080.01,93,1),U,3),X1=X,X2=$P(Y(9002080.01,93,1),U,2),X="" D:X2 ^%DTC:X1 S X=X=0
    9.3 = X ^DD(9002080.01,93,9.2) S Y(9002080.01,93,2)=X S X=1,Y(9002080.01,93,3)=X S X=1,Y(9002080.01,93,4)=X S X=$P(Y(9002080.01,93,1),U,3),X1=X,X2=$P(Y(9002080.01,93,1),U,2),X="" D:X2 ^%DTC:X1 S X=X
  • ALGORITHM:  $S(DISCHARGE DATE-ADMISSION DATE=0:1,1:DISCHARGE DATE-ADMISSION DATE) (ALWAYS 0 DECIMAL DIGITS)
  • LAST EDITED:  JAN 28, 1992
  • DESCRIPTION:  
    COMPUTED FIELD
94 DISCHARGE TYPE 8;4 POINTER TO *DISCHARGE TYPE FILE (#42.2)
************************REQUIRED FIELD************************
*DISCHARGE TYPE(#42.2)

  • LAST EDITED:  JUL 14, 1992
  • HELP-PROMPT:  Enter the type of discharge the patient received (Inpatient only).
  • DESCRIPTION:  
    ENTER TYPE OF DISCHARGE THE PATIENT RECEIVED (INPATIENT ONLY)
95 DIAGNOSIS 9;0 POINTER Multiple #9002080.195 9002080.195

  • DESCRIPTION:  
    ENTER DIAGNOSIS
96 PROCEDURE 10;0 POINTER Multiple #9002080.196 9002080.196

  • DESCRIPTION:  
    ENTER THE PROCEDURE
97 CPT,ADA, OR REV INFORMATION 11;0 VARIABLE POINTER Multiple #9002080.197 9002080.197

  • LAST EDITED:  AUG 04, 2003
  • DESCRIPTION:  
    ENTER THE CPT, ADA OR REV INFORMATION
100 TRANSACTION RECORD T;0 DATE Multiple #9002080.02 9002080.02

  • DESCRIPTION:  
    lvn = ACHSTRAN
101 ACTIONS A;0 DATE Multiple #9002080.1101 9002080.1101
102 CHS-FI MESSAGES 102;0 SET Multiple #9002080.1102 9002080.1102
Info |  Details |  All