source: WorldVistAEHR/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNAGGU.m@ 1076

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

initial load of WorldVistAEHR

File size: 7.4 KB
Line 
1SPNAGGU ;SD/CM- AGGREGATE OUTCOME REPORT UTILITIES; 2-21-2003
2 ;;2.0;Spinal Cord Dysfunction;**20,21**;01/02/97
3 ;
4INPT ;SPNLSTDT=Last date of ASIA HIGHEST NEURO LEVEL (most recent)
5 ;SPNSEVC =Count of unique pts in diag category of 'severe'
6 ;SPNMODC = " " " " " " " " 'moderate'
7 ;SPNPARC = " " " " " " " " 'para'
8 ;SPNLOWC = " " " " " " " " 'low'
9 ;SPNDIAGC=Total count of unique pts over all diag categories
10 ;SPNDCS =Set to 1 if diag category criteria for 'severe' are met
11 ;SPNDCM =Set to 1 if diag category criteria for 'moderate' are met
12 ;SPNDCP =Set to 1 if diag category criteria for 'para' are met
13 ;SPNDCL =Set to 1 if diag category criteria for 'low' are met
14 ;SPNAGES =Cumulative Age in Severe, SPNAGEM=Cum. Age in Moderate, etc
15 ;BMAS =Base Minimum Age Severe, BMAM=Base Minimum Age Moderate, etc
16 ;AGESC =Age Range Severe Count, AGEMC=Age Range Moderate Count, etc
17 ;MINAGES =Minimum Age Severe, MINAGEM=Minimum Age Moderate, etc
18 ;BHAS =Base Maximum Age Severe, BHAM=Base Maximum Age Moderate, etc
19 ;MAXAGES =Maximum Age Severe, MAXAGEM=Maximum Age Moderate, etc
20 ;AGEL =Low value of Age range, AGEH=High value of Age range
21 ;SPNSEXS =No. of Male pts in Severe, SPNSEXM=No. Male in Moderate, etc
22 ;SPNLORS =Cumulative Length of Rehab Severe, SPNLORM=Cum. LOR Mod, etc
23 ;BMLS =Base Minimum LOR Severe, BMLM=Base Minimum LOR Moderate, etc
24 ;LORSC =Length of Rehab Severe Count, LORMC=LOR Moderate Count, etc
25 ;MINLORS =Minimum LOR Severe, MINLORM=Minimum LOR Moderate, etc
26 ;BHLS =Base Maximum LOR Severe, BHLM=Base Maximum LOR Moderate, etc
27 ;MAXLORS =Maximum LOR Severe, MAXLORM=Maximum LOR Moderate, etc
28 ;LORRN =Length of Rehab record number (node w/ Rehab Finish data)
29 ;LORL =Low value of LOR range, LORH=High value of LOR range
30 ;TFSRN =Total FIM Start record number
31 ;TFS =Total FIM Start score, TFF=Total FIM Finish score
32 ;TFCUMS =Total FIM cumulative change Severe, TFCUMM=Tot FIM ch Mod,etc
33 ;TFCS =Total FIM Count Severe, TFCM=Total FIM Count Moderate, etc
34 ;TFGRN =Total FIM Goal record number
35 ;TFG =Total FIM Goal score
36 ;TFGCUMS =Total FIM Goal cumul change Severe,TFGCUMM=TF Goal ch Mod,etc
37 ;TFGCS =Total FIM Goal Count Severe,TFGCM=Tot FIM Goal Count Mod, etc
38 ;COMDISS =No. of Severe pts w/ DISPOSITION<5, COMDISM=No. Mod pts, etc
39 ;TFURN =Total FIM Follow-Up record number
40 ;TFU =Total FIM Follow-Up score
41 ;TFUCUMS =Total FIM F/U cumul change Severe,TFUCUMM=TF F/U ch Mod, etc
42 ;TFUCS =Total FIM F/U Count Severe,TFUCM=Tot FIM F/U Count Mod, etc
43 ;SLSRN =SWLS Start record number, SLFRN=SWLS Finish record number
44 ;SLS =SWLS Start score
45 ;SLF =SWLS Finish score
46 ;SLCUMS =SWLS cumul change Severe,SLCUMM=SWLS cumul change Mod, etc
47 ;SLCS =SWLS Count Severe,SLCM=Count Moderate, etc
48 ;SLURN =SWLS Follow-Up record number
49 ;SLU =SWLS Follow-Up score
50 ;SLUCUMS =SWLS F/U cumul change Severe,SLUCUMM=SWLS F/U Chng Mod, etc
51 ;SLUCS =SWLS F/U Count Severe,SLUCM=SWLS F/U Count Mod, etc
52 S U="^"
53 S SPNDIAGC=0,SPNSEVC=0,SPNMODC=0,SPNPARC=0,SPNLOWC=0
54 S SPNLSTDT="",SPNNODUP=""
55 S SPNSDATE=0,SPNMDATE=0,SPNPDATE=0,SPNLDATE=0
56 S SPNSEXS=0,SPNSEXM=0,SPNSEXP=0,SPNSEXL=0
57 S SPNAGES=0,SPNAGEM=0,SPNAGEP=0,SPNAGEL=0
58 S SPNT1=30,SPNT2=40,SPNT3=50,SPNT4=60,SPNT5=70
59 S BMAS=0,BMAM=0,BMAP=0,BMAL=0,AGESC=0,AGEMC=0,AGEPC=0,AGELC=0
60 S MINAGES=0,MINAGEM=0,MINAGEP=0,MINAGEL=0
61 S MAXAGES=0,MAXAGEM=0,MAXAGEP=0,MAXAGEL=0
62 S BHAS=0,BHAM=0,BHAP=0,BHAL=0
63 S SPNLORS=0,SPNLORM=0,SPNLORP=0,SPNLORL=0
64 S BMLS=0,BMLM=0,BMLP=0,BMLL=0,LORSC=0,LORMC=0,LORPC=0,LORLC=0
65 S MINLORS=0,MINLORM=0,MINLORP=0,MINLORL=0
66 S MAXLORS=0,MAXLORM=0,MAXLORP=0,MAXLORL=0
67 S BHLS=0,BHLM=0,BHLP=0,BHLL=0,LORRN=0,V=0,LORL=0,LORH=0,AGEL=0,AGEH=0
68 S TFSRN=0,TFS=0,TFF=0,TFCUMS=0,TFCUMM=0,TFCUMP=0,TFCUML=0
69 S TFCS=0,TFCM=0,TFCP=0,TFCL=0
70 S TFGRN=0,TFG=0,TFGCUMS=0,TFGCUMM=0,TFGCUMP=0,TFGCUML=0
71 S TFGCS=0,TFGCM=0,TFGCP=0,TFGCL=0
72 S COMDISS=0,COMDISM=0,COMDISP=0,COMDISL=0
73 S TFURN=0,TFU=0,TFUCUMS=0,TFUCUMM=0,TFUCUMP=0,TFUCUML=0
74 S TFUCS=0,TFUCM=0,TFUCP=0,TFUCL=0
75 S SLSRN=0,SLFRN=0,SLS=0,SLF=0,SLCUMS=0,SLCUMM=0,SLCUMP=0,SLCUML=0
76 S SLCS=0,SLCM=0,SLCP=0,SLCL=0
77 S SLU=0,SLURN=0,SLUCUMS=0,SLUCUMM=0,SLUCUMP=0,SLUCUML=0
78 S SLUCS=0,SLUCM=0,SLUCP=0,SLUCL=0
79 Q
80PARAMS ;
81CT ;Care Type
82CED ;date range for Care End Date
83OIEN ;
84DIAGCAT ;
85 ;
86MINLORS(SPNPD1) ;
87 S MAX1=LORCALL
88 S X=0 F S X=$O(^TMP($J,"SPNLRNS",X)) Q:'+X D
89 .Q:'$D(^TMP($J,"SPNLRNS",X))
90 .S MAX2=$P(^TMP($J,"SPNLRNS",X),U,1)
91 .I MAX2<MAX1 S MAX1=MAX2
92 .Q
93 Q MAX1
94MAXLORS(SPNPD1) ;
95 S MAX1=0
96 S X=0 F S X=$O(^TMP($J,"SPNLRXS",X)) Q:'+X D
97 .Q:'$D(^TMP($J,"SPNLRXS",X))
98 .S MAX2=$P(^TMP($J,"SPNLRXS",X),U,1)
99 .I MAX2>MAX1 S MAX1=MAX2
100 .Q
101 Q MAX1
102MINLORM(SPNPD1) ;
103 S MAX1=LORCALL
104 S X=0 F S X=$O(^TMP($J,"SPNLRNM",X)) Q:'+X D
105 .Q:'$D(^TMP($J,"SPNLRNM",X))
106 .S MAX2=$P(^TMP($J,"SPNLRNM",X),U,1)
107 .I MAX2<MAX1 S MAX1=MAX2
108 .Q
109 Q MAX1
110MAXLORM(SPNPD1) ;
111 S MAX1=0
112 S X=0 F S X=$O(^TMP($J,"SPNLRXM",X)) Q:'+X D
113 .Q:'$D(^TMP($J,"SPNLRXM",X))
114 .S MAX2=$P(^TMP($J,"SPNLRXM",X),U,1)
115 .I MAX2>MAX1 S MAX1=MAX2
116 .Q
117 Q MAX1
118MINLORP(SPNPD1) ;
119 S MAX1=LORCALL
120 S X=0 F S X=$O(^TMP($J,"SPNLRNP",X)) Q:'+X D
121 .Q:'$D(^TMP($J,"SPNLRNP",X))
122 .S MAX2=$P(^TMP($J,"SPNLRNP",X),U,1)
123 .I MAX2<MAX1 S MAX1=MAX2
124 .Q
125 Q MAX1
126MAXLORP(SPNPD1) ;
127 S MAX1=0
128 S X=0 F S X=$O(^TMP($J,"SPNLRXP",X)) Q:'+X D
129 .Q:'$D(^TMP($J,"SPNLRXP",X))
130 .S MAX2=$P(^TMP($J,"SPNLRXP",X),U,1)
131 .I MAX2>MAX1 S MAX1=MAX2
132 .Q
133 Q MAX1
134MINLORL(SPNPD1) ;
135 S MAX1=LORCALL
136 S X=0 F S X=$O(^TMP($J,"SPNLRNL",X)) Q:'+X D
137 .Q:'$D(^TMP($J,"SPNLRNL",X))
138 .S MAX2=$P(^TMP($J,"SPNLRNL",X),U,1)
139 .I MAX2<MAX1 S MAX1=MAX2
140 .Q
141 Q MAX1
142MAXLORL(SPNPD1) ;
143 S MAX1=0
144 S X=0 F S X=$O(^TMP($J,"SPNLRXL",X)) Q:'+X D
145 .Q:'$D(^TMP($J,"SPNLRXL",X))
146 .S MAX2=$P(^TMP($J,"SPNLRXL",X),U,1)
147 .I MAX2>MAX1 S MAX1=MAX2
148 .Q
149 Q MAX1
150STATS ;finds record with Rehab Finish, so Length of Rehab can be obtained
151 S LORRN=0,TFSRN=0,TFGRN=0
152 S V=SPNPD1 F S V=$O(^SPNL(154.1,"B",SPNPD0,V)) Q:'+V D GETLOR
153 Q
154GETLOR ;gets Rec No. for LOR, TFS (TFF is same rec no. as LOR), and TFG
155 Q:'$D(^SPNL(154.1,V,0))
156 Q:'+$P(^SPNL(154.1,V,2),U,17)
157 Q:$P($G(^SPNL(154.1,V,8)),U,3)'=CARETYP
158 ;Q:$P($G(^SPNL(154.1,V,8)),U,2)<BDATE!($P($G(^SPNL(154.1,V,8)),U,2)>EDATE)
159 I $P(^SPNL(154.1,V,2),U,17)=1,($P(^SPNL(154.1,V,0),U,2)=2) S TFSRN=V
160 I $P(^SPNL(154.1,V,2),U,17)=2,($P(^SPNL(154.1,V,0),U,2)=2) S TFGRN=V
161 I $P($G(^SPNL(154.1,V,8)),U,4)'="" S LORRN=V
162 Q
163EXIT ;
164 K BDATE,EDATE,I,SPNLEXIT,SPNPD0,SPNPD1,SPNLSTDT,SPNDIAGC,SPNSEVC,SPNMODC,SPNPARC,SPNLOWC,SPNSDATE,SPNMDATE,SPNPDATE,SPNLDATE,SPNNODUP,SPNSEXS,SPNSEXM,SPNSEXP,SPNSEXL
165 K SPNT1,SPNT2,SPNT3,SPNT4,SPNT5,SPNDCS,SPNDCM,SPNDCP,SPNDCL,SPNAGROU
166 K SPNAGES,SPNAGEM,SPNAGEP,SPNAGEL
167 K BMAS,BMAM,BMAP,BMAL,BHAS,BHAM,BHAP,BHAL
168 K AGESC,AGEMC,AGEPC,AGELC,MINAGES,MINAGEM,MINAGEP,MINAGEL
169 K MAXAGES,MAXAGEM,MAXAGEP,MAXAGEL,CARETYP,LINE
170 K SPNLORS,SPNLORM,SPNLORP,SPNLORL
171 K BMLS,BMLM,BMLP,BMLL,BHLS,BHLM,BHLP,BHLL
172 K LORSC,LORMC,LORPC,LORLC,MINLORS,MINLORM,MINLORP,MINLORL
173 K MAXLORS,MAXLORM,MAXLORP,MAXLORL,LORRN,V,LORL,LORH,AGEL,AGEH
174 K TFSRN,TFS,TFF,TFCUMS,TFCUMM,TFCUMP,TFCUML,TFCS,TFCM,TFCP,TFCL
175 K TFGRN,TFG,TFGCUMS,TFGCUMM,TFGCUMP,TFGCUML,TFGCS,TFGCM,TFGCP,TFGCL
176 K COMDISS,COMDISM,COMDISP,COMDISL,ZTSAVE
177 K TFURN,TFU,TFUCUMS,TFUCUMM,TFUCUMP,TFUCUML,TFUCS,TFUCM,TFUCP,TFUCL
178 K SLSRN,SLFRN,SLS,SLF,SLCUMS,SLCUMM,SLCUMP,SLCUML,SLCS,SLCM,SLCP,SLCL
179 K SLURN,SLU,SLUCUMS,SLUCUMM,SLUCUMP,SLUCUML,SLUCS,SLUCM,SLUCP,SLUCL
180 K AGECALL,ASIAONE,ASIAFRTN,SEXCALL,LORCALL,LOR5CALL
181 K TFSCALL,TFGCALL,TFUCALL,SLSCALL,SLFCALL,SLUCALL
182 Q
Note: See TracBrowser for help on using the repository browser.