VistA Analysis » VistA Reference » RPCs » ORWPCE SCDIS

ORWPCE SCDIS

Returns service connected percentage and rated disabilities for a patient.

Properties

Property Value
Label SCDIS
MUMPS Implementation ORWPCE
Return Type ARRAY

MUMPS Method Description

Property Value
Method SCDIS^ORWPCE
Method Comment Return service connected % and rated disabilities
Input Parameters DFN
Code 
 N VAEL,VAERR,I,ILST,DIS,SC,X
 D ELIG^VADPT
 S LST(1)="Service Connected: "_$S(+VAEL(3):$P(VAEL(3),U,2)_"%",1:"NO")
 I 'VAEL(4),'$P($G(^DG(391,+VAEL(6),0)),U,2) S LST(2)="NOT A VETERAN." Q
 S I=0,ILST=1 F  S I=$O(^DPT(DFN,.372,I)) Q:'I  S X=^(I,0) D
 . S DIS=$P($G(^DIC(31,+X,0)),U) Q:DIS=""
 . S SC=$S($P(X,U,3):"SC",$P(X,U,3)']"":"not specified",1:"NSC")
 . S ILST=ILST+1,LST(ILST)=DIS_" ("_$P(X,U,2)_"% "_SC_")"
 I ILST=1 S LST(2)="Rated Disabilities: NONE STATED"

CPRS

File Type Description
Pascal File Encounter/rPCE.pas
Pascal File Orders/rODBase.pas


Document generated on August 31st 2022, 2:55:43 pm