DSSO ADD/EDIT DIS CODE

TITLEVALUE
NAMEDSSO ADD/EDIT DIS CODE
DESCRIPTIONThis RPC takes in a Patient IEN, Disability Code subfile IEN, Disability
Code IEN, Service Connected flag, Eligibility, and Add/Edit/Delete flag
and then modifies the Prosthetic Patient accordingly
TAGDIS
ROUTINEDSSOPP
INPUT PARAMETERSSEQUENCE NUMBER1
INPUT PARAMETERDFN
DESCRIPTIONPatient IEN (#665)
PARAMETER TYPELITERAL
REQUIREDYES
MAXIMUM DATA LENGTH30

INPUT PARAMETERSSEQUENCE NUMBER2
INPUT PARAMETERSUB
DESCRIPTIONDisability Code subfile IEN (#665.01)
(required for edit, delete, or re-activate)
PARAMETER TYPELITERAL
REQUIREDNO
MAXIMUM DATA LENGTH30

INPUT PARAMETERSSEQUENCE NUMBER3
INPUT PARAMETERCODE
DESCRIPTIONDisability Code IEN (#662)
(Required for add or edit)
PARAMETER TYPELITERAL
REQUIREDNO
MAXIMUM DATA LENGTH30

INPUT PARAMETERSSEQUENCE NUMBER4
INPUT PARAMETERSERVICE
DESCRIPTIONService Connected Flag
1 = Service Connected
2 = Non-Service Connected

(Required for add or edit)
PARAMETER TYPELITERAL
REQUIREDNO
MAXIMUM DATA LENGTH1

INPUT PARAMETERSSEQUENCE NUMBER5
INPUT PARAMETERELIG
DESCRIPTIONEligibility Category
1 = SC Vietnam
2 = All Other Service-Connected
3 = NSC A&A
4 = Others Eligible
5 = V.I.S.T.
6 = VOC Rehab
7 = PHC
8 = Inpatient
9 = Employee

(Required for add or edit)
PARAMETER TYPELITERAL
REQUIREDNO
MAXIMUM DATA LENGTH1

INPUT PARAMETERSSEQUENCE NUMBER6
INPUT PARAMETERADD
DESCRIPTIONA flag indicating whether to process as an add, edit, or delete:
A = Add
E = Edit
D = Delete
R = Re-activate
PARAMETER TYPELITERAL
REQUIREDYES
MAXIMUM DATA LENGTH1

RETURN VALUE TYPESINGLE VALUE
RETURN PARAMETER DESCRIPTIONOutput:

Successful Completion:
DSSORET = The Disability Code sub-file (#665.01) IEN from the
Prosthetics Patient file (#665) concatenated with
a success message.
ORul
Error message: "-1^"_error message
AVAILABILITYAGREEMENT
INACTIVE
CLIENT MANAGER
WORD WRAP ONTRUE
VERSION
SUPPRESS RDV USER SETUP
APP PROXY ALLOWED