[628] | 1 | SPNOBJ ;SD/CM- OBJECTS FROM SCD REGISTRY; 1-27-2003
|
---|
| 2 | ;;2.0;Spinal Cord Dysfunction;**20,23**;01/02/97
|
---|
| 3 | MAR(DFN) ;Marital Status
|
---|
| 4 | ;Populate Object Method with: S X=$$MAR^SPNOBJ(DFN)
|
---|
| 5 | S X=$P($G(^DPT(DFN,0)),U,5) S X="Marital Status: "_$S(X:$P(^DIC(11,X,0),U,1),1:"No data available") Q X
|
---|
| 6 | Q
|
---|
| 7 | ;
|
---|
| 8 | RSTAT(DFN) ;Registration Status in SCD Registry
|
---|
| 9 | ;Populate Object Method with: S X=$$RSTAT^SPNOBJ(DFN)
|
---|
| 10 | S X=$P($G(^SPNL(154,DFN,0)),U,3) S X="Registration Status: "_$S(X=0:"NOT SCD",X=1:"SCD - CURRENTLY SERVED",X=2:"SCD - NOT CURRENTLY SERVED",X="X":"EXPIRED",1:"No data available") Q X
|
---|
| 11 | Q
|
---|
| 12 | ;
|
---|
| 13 | VASCI(DFN) ;VA SCI Status
|
---|
| 14 | ;Populate Object Method with: S X=$$VASCI^SPNOBJ(DFN)
|
---|
| 15 | S X=$P($G(^SPNL(154,DFN,2)),U,6) S X="VA SCI Status: "_$S(X=1:"PARAPLEGIA-TRAUMATIC",X=2:"QUADRIPLEGIA-TRAUMATIC",X=3:"PARAPLEGIA-NONTRAUMATIC",X=4:"QUADRIPLEGIA-NONTRAUMATIC",X="X":"NOT APPLICABLE",1:"No data available") Q X
|
---|
| 16 | Q
|
---|
| 17 | ;
|
---|
| 18 | SCILEV(DFN) ;SCI Level
|
---|
| 19 | ;Populate Object Method with: S X=$$SCILEV^SPNOBJ(DFN)
|
---|
| 20 | S X=$P($G(^SPNL(154,DFN,2)),U,1) S X="SCI Level: "_$S(X:$P(^SPNL(154.01,X,0),U,1),1:"No data available") Q X
|
---|
| 21 | Q
|
---|
| 22 | ;
|
---|
| 23 | LOFF(DFN) ;Last Annual Eval Offered
|
---|
| 24 | ;Populate Object Method with: S X=$$LOFF^SPNOBJ(DFN)
|
---|
| 25 | S X=$O(^SPNL(154,DFN,"REHAB","B"," "),-1) S X="Last Annual Eval Offered: "_$S(X:$$FMTE^XLFDT(X,"5DZP"),1:"No data available") Q X
|
---|
| 26 | Q
|
---|
| 27 | ;
|
---|
| 28 | EP(DFN) ;Enrollment Priority
|
---|
| 29 | ;Populate Object Method with: S X=$$EP^SPNOBJ(DFN)
|
---|
| 30 | N SPNNRIEN
|
---|
| 31 | S SPNNRIEN=$$FINDCUR^SPNENPR($G(DFN)) I '+SPNNRIEN S X="No data available" Q "Enrollment Priority: "_X
|
---|
| 32 | S X="GROUP "_$P($G(^DGEN(27.11,SPNNRIEN,0)),U,7) Q "Enrollment Priority: "_X
|
---|
| 33 | Q
|
---|
| 34 | ;
|
---|
| 35 | EXTNT(DFN) ;Extent of SCI
|
---|
| 36 | ;Populate Object Method with: S X=$$EXTNT^SPNOBJ(DFN)
|
---|
| 37 | S X=$P($G(^SPNL(154,DFN,6)),U,9) S X="Extent of SCI: "_$S(X="C":"COMPLETE",X="I":"INCOMPLETE",1:"No data available") Q X
|
---|
| 38 | Q
|
---|
| 39 | ETIOL(DFN) ;Etiology. Returns etiologies
|
---|
| 40 | ;Populate Object Method with: S X=$$EN^SPNETOBJ(DFN)
|
---|
| 41 | S X=$$EN^SPNETOBJ(DFN) Q "Etiologies:"_X
|
---|
| 42 | Q
|
---|
| 43 | PCPROV(DFN) ;Primary Care Provider
|
---|
| 44 | ;Populate Object Method with: S X=$$PCPROV^SPNOBJ(DFN)
|
---|
| 45 | S X=$S($L($$GET1^DIQ(154,DFN,8.1))>1:$$GET1^DIQ(154,DFN,8.1),1:"No data available") Q "Primary Care Provider: "_X
|
---|
| 46 | Q
|
---|
| 47 | SCDCOOR(DFN) ;SCD Coordinator
|
---|
| 48 | ;Populate Object Method with: S X=$$SCDCOOR^SPNOBJ(DFN)
|
---|
| 49 | S X=$S($L($$GET1^DIQ(154,DFN,8.2))>1:$$GET1^DIQ(154,DFN,8.2),1:"No data available") Q "SCD Coordinator: "_X
|
---|
| 50 | Q
|
---|
| 51 | REMARKS(DFN) ;Remarks
|
---|
| 52 | ;Populate Object Method with: S X=$$REMARKS^SPNOBJ(DFN)
|
---|
| 53 | S X=$S($L($$GET1^DIQ(154,DFN,11))>1:$$GET1^DIQ(154,DFN,11),1:"No data available") Q "Remarks: "_X
|
---|
| 54 | Q
|
---|
| 55 | MSSUBT(DFN) ;Multiple Sclerosis (MS) Sub Type
|
---|
| 56 | ;Populate Object Method with: S X=$$MSSUBT^SPNOBJ(DFN)
|
---|
| 57 | S X=$S($L($$GET1^DIQ(154,DFN,2.2))>1:$$GET1^DIQ(154,DFN,2.2),1:"No data available") Q "Multiple Sclerosis Sub Type: "_X
|
---|
| 58 | Q
|
---|
| 59 | LREC(DFN) ;Last Annual Evaluation Received
|
---|
| 60 | ;Populate Object Method with: S X=$$LREC^SPNOBJ(DFN)
|
---|
| 61 | S X=$$GET1^DIQ(154,DFN,999.07) D ^%DT
|
---|
| 62 | S X=$S(Y'=-1:$$FMTE^XLFDT(Y,"5DZP"),1:"No data available") Q "Last Annual Eval Received: "_X
|
---|
| 63 | Q
|
---|
| 64 | BCREIMB(DFN) ;Bowel Care Reimbursement
|
---|
| 65 | ;Populate Object Method with: S X=$$BCREIMB^SPNOBJ(DFN)
|
---|
| 66 | S X=$S($L($$GET1^DIQ(154,DFN,10.1))>1:$$GET1^DIQ(154,DFN,10.1),1:"No data available") Q "Bowel Care Reimbursement: "_X
|
---|
| 67 | Q
|
---|
| 68 | BCDC(DFN) ;Bowel Care Date Certified
|
---|
| 69 | ;Populate Object Method with: S X=$$BCDC^SPNOBJ(DFN)
|
---|
| 70 | S X=$$GET1^DIQ(154,DFN,10.2) D ^%DT
|
---|
| 71 | S X=$S(Y'=-1:$$FMTE^XLFDT(Y,"5DZP"),1:"No data available") Q "Bowel Care Date Certified: "_X
|
---|
| 72 | Q
|
---|
| 73 | BCPROV(DFN) ;Bowel Care Provider
|
---|
| 74 | ;Populate Object Method with: S X=$$BCPROV^SPNOBJ(DFN)
|
---|
| 75 | S X=$S($L($$GET1^DIQ(154,DFN,10.3))>1:$$GET1^DIQ(154,DFN,10.3),1:"No data available") Q "Bowel Care Provider: "_X
|
---|
| 76 | Q
|
---|