@@ -45,25 +45,25 @@ let make = (
45
45
~limbResponseLowerExtremityRight ,
46
46
~limbResponseLowerExtremityLeft ,
47
47
) => {
48
- inPronePosition : inPronePosition ,
49
- consciousnessLevel : consciousnessLevel ,
50
- consciousnessLevelDetails : consciousnessLevelDetails ,
51
- leftPupilSize : leftPupilSize ,
52
- leftPupilSizeDetails : leftPupilSizeDetails ,
53
- leftPupilLightReaction : leftPupilLightReaction ,
54
- leftPupilLightReactionDetails : leftPupilLightReactionDetails ,
55
- rightPupilSize : rightPupilSize ,
56
- rightPupilSizeDetails : rightPupilSizeDetails ,
57
- rightPupilLightReaction : rightPupilLightReaction ,
58
- rightPupilLightReactionDetails : rightPupilLightReactionDetails ,
59
- glasgowEyeOpen : glasgowEyeOpen ,
60
- glasgowVerbalResponse : glasgowVerbalResponse ,
61
- glasgowMotorResponse : glasgowMotorResponse ,
62
- glasgowTotalCalculated : glasgowTotalCalculated ,
63
- limbResponseUpperExtremityRight : limbResponseUpperExtremityRight ,
64
- limbResponseUpperExtremityLeft : limbResponseUpperExtremityLeft ,
65
- limbResponseLowerExtremityRight : limbResponseLowerExtremityRight ,
66
- limbResponseLowerExtremityLeft : limbResponseLowerExtremityLeft ,
48
+ inPronePosition ,
49
+ consciousnessLevel ,
50
+ consciousnessLevelDetails ,
51
+ leftPupilSize ,
52
+ leftPupilSizeDetails ,
53
+ leftPupilLightReaction ,
54
+ leftPupilLightReactionDetails ,
55
+ rightPupilSize ,
56
+ rightPupilSizeDetails ,
57
+ rightPupilLightReaction ,
58
+ rightPupilLightReactionDetails ,
59
+ glasgowEyeOpen ,
60
+ glasgowVerbalResponse ,
61
+ glasgowMotorResponse ,
62
+ glasgowTotalCalculated ,
63
+ limbResponseUpperExtremityRight ,
64
+ limbResponseUpperExtremityLeft ,
65
+ limbResponseLowerExtremityRight ,
66
+ limbResponseLowerExtremityLeft ,
67
67
}
68
68
69
69
let makeConsciousnessLevel = consciousnessLevel => {
@@ -173,8 +173,8 @@ let limpResponseToString = limpResponse => {
173
173
174
174
let eyeOpenToString = eyeOpen => {
175
175
switch eyeOpen {
176
- | 1 => "1 - None "
177
- | 2 => "2 - Pain"
176
+ | 1 => "1 - No Response "
177
+ | 2 => "2 - To Pain"
178
178
| 3 => "3 - To Speech"
179
179
| 4 => "4 - Spontaneous"
180
180
| _ => "Unknown"
@@ -183,23 +183,23 @@ let eyeOpenToString = eyeOpen => {
183
183
184
184
let motorResposneToString = eyeOpen => {
185
185
switch eyeOpen {
186
- | 1 => "1 - None "
187
- | 2 => "2 - Incomprehensible words/Moans to pain "
186
+ | 1 => "1 - No Response "
187
+ | 2 => "2 - Abnormal Extension "
188
188
| 3 => "3 - Abnormal Flexion"
189
- | 4 => "4 - Withdrawing "
190
- | 5 => "5 - Localizing/Withdrawl to touch "
191
- | 6 => "6 - Obeying /Normal Activity"
189
+ | 4 => "4 - Flexion/Withdrawal to pain "
190
+ | 5 => "5 - Moves to localized pain "
191
+ | 6 => "6 - Obeys commands /Normal Activity"
192
192
| _ => "Unknown"
193
193
}
194
194
}
195
195
196
196
let verbalResposneToString = eyeOpen => {
197
197
switch eyeOpen {
198
- | 1 => "1 - None "
198
+ | 1 => "1 - No Response "
199
199
| 2 => "2 - Incomprehensible words/Moans to pain"
200
200
| 3 => "3 - Inappropriate words/Cry to pain"
201
201
| 4 => "4 - Confused/Irritable"
202
- | 5 => "5 - Oriented/Coos/Babbies "
202
+ | 5 => "5 - Oriented to Time, Place and Person "
203
203
| _ => "Unknown"
204
204
}
205
205
}
0 commit comments