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: 9002066.01

Package: Contract Health Management Information System

CHS DEFERRED SERVICE DATA(#9002066)-->9002066.01

Sub-Field: 9002066.01


Information

Parent File Name Number Package
CHS DEFERRED SERVICE DATA(#9002066) CHS UNMET NEED NUMBER 9002066.01 Contract Health Management Information System

Details

Field # Name Loc Type Details
.01 CHS UNMET NEED NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  JUL 16, 2010
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • CROSS-REFERENCE:  9002066.01^B
    1)= S ^ACHSDEF(DA(1),"D","B",$E(X,1,30),DA)=""
    2)= K ^ACHSDEF(DA(1),"D","B",$E(X,1,30),DA)
2 UNMET NEED DATE ISSUED 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 16, 2010
  • HELP-PROMPT:  Enter Date Unmet Need Entered
  • CROSS-REFERENCE:  9002066.01^AISSUE
    1)= S ^ACHSDEF(DA(1),"D","AISSUE",$E(X,1,30),DA)=""
    2)= K ^ACHSDEF(DA(1),"D","AISSUE",$E(X,1,30),DA)
3 ISSUED BY 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 25, 1994
  • HELP-PROMPT:  Enter Name Of CHS User Issuing Document
4 DATE REQUEST RECEIVED 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 25, 1994
  • HELP-PROMPT:  Enter Date Request Was Received In CHS Office
5 IS PATIENT REGISTERED? 0;5 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JAN 25, 1994
  • HELP-PROMPT:  Enter 'Y' If Patient Is Registered At This Facility
6 REGISTERED PATIENT 0;6 POINTER TO PATIENT FILE (#9000001) PATIENT(#9000001)

  • LAST EDITED:  APR 12, 2002
  • HELP-PROMPT:  Enter Name or Chart # of Patient
  • CROSS-REFERENCE:  9002066.01^D
    1)= S ^ACHSDEF(DA(1),"D","D",$E(X,1,30),DA)=""
    2)= K ^ACHSDEF(DA(1),"D","D",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002066.01^C^MUMPS
    1)= I $G(^DPT(X,0))'="" S ^ACHSDEF(DA(1),"D","C",$P(^DPT(X,0),U,1),DA)=""
    2)= I $G(^DPT(X,0))'="" K ^ACHSDEF(DA(1),"D","C",$P(^DPT(X,0),U,1),DA)
    3)= HEY! You NEED this xref.
7 PATIENT NAME 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 12, 2002
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • CROSS-REFERENCE:  9002066.01^N
    1)= S ^ACHSDEF(DA(1),"D","N",$E(X,1,30),DA)=""
    2)= K ^ACHSDEF(DA(1),"D","N",$E(X,1,30),DA)
8 MAILING ADDRESS-STREET 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • OUTPUT TRANSFORM:  D L^ACHS(9002066.01,8)
  • LAST EDITED:  JUL 21, 1995
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
9 MAILING ADDRESS-CITY 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • OUTPUT TRANSFORM:  D L^ACHS(9002066.01,9)
  • LAST EDITED:  JUL 21, 1995
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
10 MAILING ADDRESS-STATE 0;10 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  JAN 25, 1994
  • HELP-PROMPT:  Enter State Patient Resides In
11 MAILING ADDRESS-ZIP 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • OUTPUT TRANSFORM:  D L^ACHS(9002066.01,11)
  • LAST EDITED:  JUL 21, 1995
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
12 CHART# (OTHER FACILITY) 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 25, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
13 PATIENT TELEPHONE 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • OUTPUT TRANSFORM:  D L^ACHS(9002066.01,13)
  • LAST EDITED:  JUL 21, 1995
  • HELP-PROMPT:  Enter Patients Telephone Number (ex 999-999-9999)
14 UNMET NEED CANCELLED 0;14 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JUL 16, 2010
  • HELP-PROMPT:  Enter Yes or No.
100 UNMET NEED CATEGORY 100;1 POINTER TO CHS DEFERRED SERVICES CATEGORY FILE (#9002066.5)
************************REQUIRED FIELD************************
CHS DEFERRED SERVICES CATEGORY(#9002066.5)

  • LAST EDITED:  JUL 16, 2010
  • HELP-PROMPT:  Enter Unmet Need Category
105 UNMET NEED SUBCATEGORY 100;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 16, 2010
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
110 UNMET NEED TYPE 100;2 SET
  • 'O' FOR OUTPATIENT;
  • 'I' FOR INPATIENT;

  • LAST EDITED:  JUL 16, 2010
  • HELP-PROMPT:  Enter Type Of Care Patient Received
120 NUMBER OF UNITS 100;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 25, 1994
  • HELP-PROMPT:  Enter Number of Units of Service Patient Received (ex. visits, hospital days, treatments, etc)
130 ESTIMATED COST 100;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  MAR 18, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
200 UNMET NEED DIAG (ICD) 200;0 POINTER Multiple #9002066.02 9002066.02

  • LAST EDITED:  MAR 03, 2014
300 UNMET NEED PROC (CPT) 300;0 POINTER Multiple #9002066.03 9002066.03

  • LAST EDITED:  JUL 16, 2010
400 UNMET NEED COMMENT 400;0 WORD-PROCESSING #9002066.04

  • LAST EDITED:  JUL 16, 2010
500 DOCUMENT CONTROL 500;1 SET

  • LAST EDITED:  DEC 14, 1993
  • HELP-PROMPT:  Enter 'Y' If Utilizing Document Control
501 RECEIPT TYPE 500;2 SET

  • LAST EDITED:  APR 12, 2002
  • HELP-PROMPT:  Enter 'I' If Person Is Receiving Deferred Services Letter In Person
502 DATE LETTER RECEIVED 500;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 14, 1993
  • HELP-PROMPT:  Enter Date Letter Received In Person or Date On Certified Mail Receipt
503 PERSON RECEIVING LETTER 500;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • OUTPUT TRANSFORM:  D L^ACHS(9002066.01,503)
  • LAST EDITED:  JUL 21, 1995
  • HELP-PROMPT:  Enter Person's Name That Received Letter In Person or From Certified Mail Receipt
504 DATE DENIAL ISSUED 500;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 14, 1993
  • HELP-PROMPT:  Enter Date Denial Issued For This Deferred Service (Patient Had Care On Their Own)
505 DENIAL NUMBER 500;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<10) X
  • LAST EDITED:  MAY 04, 1994
  • HELP-PROMPT:  Answer must be 10-15 characters in length. (e.g. NNN-AAAA-NNNNN)
506 DATE SERVICE PROVIDED 500;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 14, 1993
  • HELP-PROMPT:  Enter Date Service Provided With Deferred Service Monies
507 PURCHASE ORDER NUMBER 500;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<12)!'(X?2N1"-"1A2N1"-"5N) X Q:'$D(X) K:'$D(^ACHSF(DUZ(2),"D","B","1"_$E(X,2)_$E(X,8,12))) X Q:$D(X)!$D(ZTQUEUED) W !,"That P.O. does not exist in this system."
  • LAST EDITED:  MAY 11, 1995
  • HELP-PROMPT:  Answer must be 12 characters in length, and be in the form NN-ANN-NNNNN.
  • DESCRIPTION:  This is the number of the purchase order that was used to provide the deferred services recorded in this Deferred Service Number. The Purchase Order must be entered for this facility in the CHS system on this
    machine.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
Info |  Details |  All