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

Package: Prosthetics

PROSTHETICS PATIENT(#665)-->665.02

Sub-Field: 665.02


Information

Parent File Name Number Package
PROSTHETICS PATIENT(#665) DATE OF CLOTHING ALLOWANCE 665.02 Prosthetics

Details

Field # Name Loc Type Details
.01 DATE OF CLOTHING ALLOWANCE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 31, 1992
  • HELP-PROMPT:  Enter the date of the Patient's Cloting Allowance Eligibility determination
  • DESCRIPTION:  
    Date of Clothing Allowance eligibility determination.
  • CROSS-REFERENCE:  665.02^B
    1)= S ^RMPR(665,DA(1),6,"B",$E(X,1,30),DA)=""
    2)= K ^RMPR(665,DA(1),6,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  665.02^AC^MUMPS
    1)= S ^RMPR(665,"AC",X,DA(1),DA)=""
    2)= K ^RMPR(665,"AC",X,DA(1),DA)
    This x-ref is used to count the number of Clothing Allowance eligibility determinations during quarterly time periods.
1 ELIGIBLE/NOT ELIGIBLE 0;2 SET
************************REQUIRED FIELD************************
  • 'E' FOR ELIGIBLE;
  • 'N' FOR NOT-ELIGIBLE;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  APR 27, 1993
  • HELP-PROMPT:  Enter 'E' for Eligible, 'N' for NOT-ELIGIBLE, 'U' for Unknown
  • DESCRIPTION:  
    Field that contains code which designates patients as eligible for clothing allowance.
2 STATIC/NON-STATIC 0;3 SET
************************REQUIRED FIELD************************
  • 'S' FOR STATIC;
  • 'N' FOR NON-STATIC;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  OCT 30, 1992
  • HELP-PROMPT:  Enter 'S' for STATIC, 'N' for NON-STATIC, 'U' for UNKNOWN
  • DESCRIPTION:  
    Field that contains code that determines if patients is Static or Non-Static.
3 CLOTHING ALLOWANCE DESCRIPTION 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  JUL 31, 1992
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • DESCRIPTION:  
    Description of reason for clothing allowance.
4 CLOTHING ALLOWANCE EXAM 0;4 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  AUG 18, 1992
  • HELP-PROMPT:  Enter 'Y' if Patient had an Examination, 'N' if Patient has not had an Examination
  • DESCRIPTION:  
    Indicates if veteran has had a clothing allowance exam.
5 DATE OF EXAM 0;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!($P(X,".")>DT) X
  • LAST EDITED:  JUN 02, 1993
  • HELP-PROMPT:  Enter the date the Examination took place. Future dates are not allowed.
  • DESCRIPTION:  
    Date of clothing allowance exam.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6 EXAMINER 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 06, 1993
  • HELP-PROMPT:  Enter the Name of the Person who performed the exam
  • DESCRIPTION:  
    Pointer to the New Person file. Contains the name of the Examiner who determined the Clothing Allowance eligibility.
Info |  Details