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

Package: Prosthetics

PROSTHETICS PATIENT(#665)-->665.01

Sub-Field: 665.01


Information

Parent File Name Number Package
PROSTHETICS PATIENT(#665) PROSTHETIC DISABILITY CODE 665.01 Prosthetics

Details

Field # Name Loc Type Details
.01 PROSTHETIC DISABILITY CODE 0;1 POINTER TO PROS DISABILITY CODE FILE (#662) PROS DISABILITY CODE(#662)

  • LAST EDITED:  FEB 01, 1991
  • HELP-PROMPT:  Enter the Patient's Prosthetic Disability Code.
  • DESCRIPTION:  
    This is a pointer to the Prosthetic Disability Code file (662).
  • CROSS-REFERENCE:  665.01^B
    1)= S ^RMPR(665,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^RMPR(665,DA(1),1,"B",$E(X,1,30),DA)
1 DATE CODE ADDED 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 06, 1993
  • HELP-PROMPT:  Enter the date the Disability Code was entered.
  • DESCRIPTION:  
    This is the date the Disability Code was entered.
  • CROSS-REFERENCE:  665.01^AA^MUMPS
    1)= I $D(^RMPR(665,DA(1),1,DA)) S ZA=$P(^RMPR(665,DA(1),1,DA,0),U,1) S:+ZA ^RMPR(665,"AA",X,DA(1),DA)="" K ZA
    2)= I $D(^RMPR(665,DA(1),1,DA)) S ZA=$P(^RMPR(665,DA(1),1,DA,0),U,1) K:+ZA ^RMPR(665,"AA",X,DA(1),DA) K ZA
    This x-ref will allow sorting of Date disability code added.
2 SERVICE/NON-SERVICE 0;3 SET
************************REQUIRED FIELD************************
  • '1' FOR SERVICE CONNECTED;
  • '2' FOR NON-SERVICE CONNECTED;

  • INPUT TRANSFORM:  D:$D(RMPRDFN) CHK^RMPRDIS Q
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  Enter `1` for Service Connected or `2` for Non-Service Connected.
  • DESCRIPTION:  
    This field stores if the Disability Code is Service or Non-Service connected.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3 ELIGIBILITY CATEGORY 0;4 SET
************************REQUIRED FIELD************************
  • '1' FOR SC VIETNAM;
  • '2' FOR ALL OTHER SERVICE-CONNECTED;
  • '3' FOR NSC A&A;
  • '4' FOR OTHERS ELIGIBLE;
  • '5' FOR V.I.S.T.;
  • '6' FOR VOC REHAB;
  • '7' FOR PHC;
  • '8' FOR INPATIENT;
  • '9' FOR EMPLOYEE;
  • '10' FOR PRIMA FACIA;

  • LAST EDITED:  FEB 27, 1996
  • HELP-PROMPT:  Enter the Eligibility Category for the patient.
  • DESCRIPTION:  
    This field stores the Eligibility Category for the Patient.
  • SCREEN:  Q
  • EXPLANATION:  Select the appropriate code.
4 SPECIAL LEGISLATION 0;5 SET
  • '1' FOR PL-96-151;
  • '2' FOR PL-91-500;
  • '3' FOR PL-97-37;
  • '4' FOR PL-94-581;
  • '5' FOR HOUSEBOUND;
  • '6' FOR PL-91-102;
  • '7' FOR PL-91-666 (AUTO GRANT);
  • '8' FOR PL-104-262 (ELIG. REFORM);

  • LAST EDITED:  NOV 06, 1996
  • HELP-PROMPT:  Enter the patient's Special Legislation if applicable.
  • DESCRIPTION:  
    If Others Eligible is selected as Eligibility Category, then there must also be a Special Legislation selected.
5 ADD/DELETE 0;6 SET
************************REQUIRED FIELD************************
  • '1' FOR ADD;
  • '2' FOR DELETE;

  • LAST EDITED:  OCT 16, 1992
  • HELP-PROMPT:  Enter '1' for ADD to count on Amis, '2' for Delete
  • DESCRIPTION:  
    Flag for AMIS count of patients served.
6 AMIS DATE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 01, 1991
  • HELP-PROMPT:  Answer must be a date.
  • DESCRIPTION:  
    This field stores the AMIS date of last report that counted this Prosthetic Disability code.
7 ENTERED BY 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 01, 1991
  • HELP-PROMPT:  Enter the name of the individual who entered this disability code.
  • DESCRIPTION:  
    Pointer to the New Person file of who entered this disability code for the patient.
9 REMOVE CODE FLAG 0;9 SET
  • '1' FOR REMOVED;

  • LAST EDITED:  JUN 29, 1992
  • HELP-PROMPT:  Enter Removed to show the disability code has been removed from the patients 2319.
  • DESCRIPTION:  
    This field stores a code indicating the removal of a disibility code
10 DATE CODE DELETED 0;10 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 06, 1993
  • HELP-PROMPT:  Enter the date the code was removed from the 2319.
  • DESCRIPTION:  
    Contains the date that the Disability code was marked as deleted for this Veteran. Used for calculations on form 7306d and Amis.
  • CROSS-REFERENCE:  665.01^AD^MUMPS
    1)= I $D(^RMPR(665,DA(1),1,DA)) S ZA=+^RMPR(665,DA(1),1,DA,0) S:+ZA ^RMPR(665,"AD",X,DA(1),DA)="" K ZA
    2)= I $D(^RMPR(665,DA(1),1,DA)) S ZA=+^RMPR(665,DA(1),1,DA,0) K:+ZA ^RMPR(665,"AD",X,DA(1),DA) K ZA
    This x-ref will allow tracking of disability codes by date deleted.
Info |  Details