source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNOBJ.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 3.6 KB
Line 
1SPNOBJ ;SD/CM- OBJECTS FROM SCD REGISTRY; 1-27-2003
2 ;;2.0;Spinal Cord Dysfunction;**20,23**;01/02/97
3MAR(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 ;
8RSTAT(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 ;
13VASCI(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 ;
18SCILEV(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 ;
23LOFF(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 ;
28EP(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 ;
35EXTNT(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
39ETIOL(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
43PCPROV(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
47SCDCOOR(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
51REMARKS(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
55MSSUBT(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
59LREC(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
64BCREIMB(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
68BCDC(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
73BCPROV(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
Note: See TracBrowser for help on using the repository browser.