| 1 | SPNGFIMM ;WDE/SD OUTCOME GRID FOR FIM'S 9/19/2002
|
|---|
| 2 | ;;2.0;Spinal Cord Dysfunction;**19**;01/02/1997
|
|---|
| 3 | CALC ; Create the values
|
|---|
| 4 | ;called from spngfimh gets the scores to plug into the grids
|
|---|
| 5 | ; da = the current fim with a score of 4,5,9 or 10
|
|---|
| 6 | ; now get the START fim
|
|---|
| 7 | S SPNGFIS=""
|
|---|
| 8 | S SPNXX=0 F S SPNXX=$O(^TMP($J,SPNXX)) Q:SPNXX="" S SPNYY=0 F S SPNYY=$O(^TMP($J,SPNXX,SPNYY)) Q:SPNYY="" S SPNZZ=0 F S SPNZZ=$O(^TMP($J,SPNXX,SPNYY,SPNZZ)) Q:SPNZZ="" D Q:+SPNGFIS
|
|---|
| 9 | .I $P(^SPNL(154.1,SPNZZ,0),U,2)=2 I 16[$P(^SPNL(154.1,SPNZZ,2),U,17) S SPNGFIS=SPNZZ
|
|---|
| 10 | ;SPNGFIS IS THE FIM START RECORD
|
|---|
| 11 | Q:$D(SPNGFIS)=0
|
|---|
| 12 | Q:SPNGFIS=""
|
|---|
| 13 | ;total gain
|
|---|
| 14 | S SPNR1C1A=$$GET1^DIQ(154.1,DA_",",999.05)
|
|---|
| 15 | S SPNR1C1B=$$GET1^DIQ(154.1,SPNGFIS_",",999.05)
|
|---|
| 16 | S SPNR1C1=SPNR1C1A-SPNR1C1B
|
|---|
| 17 | ;Total efficiency
|
|---|
| 18 | S SPNR1C2A=$$GET1^DIQ(154.1,DA_",",999.08)
|
|---|
| 19 | I $G(SPNR1C2A)>0 S SPNR1C2=SPNR1C1/SPNR1C2A S SPNR1C2=$E(SPNR1C2,1,4)
|
|---|
| 20 | I $G(SPNR1C2A)=0 S SPNR1C2="N/A"
|
|---|
| 21 | ;Motor Gain
|
|---|
| 22 | S SPNR1C3A=$$GET1^DIQ(154.1,DA_",",999.03)
|
|---|
| 23 | S SPNR1C3B=$$GET1^DIQ(154.1,SPNGFIS_",",999.03)
|
|---|
| 24 | S SPNR1C3=SPNR1C3A-SPNR1C3B
|
|---|
| 25 | ;Motor efficiency
|
|---|
| 26 | S SPNR1C4A=$$GET1^DIQ(154.1,DA_",",999.08)
|
|---|
| 27 | I $G(SPNR1C4A)>0 S SPNR1C4=SPNR1C3/SPNR1C4A S SPNR1C4=$E(SPNR1C4,1,4)
|
|---|
| 28 | I $G(SPNR1C4A)=0 S SPNR1C4="N/A"
|
|---|
| 29 | ;Cognitive Gain
|
|---|
| 30 | S SPNR1C5A=$$GET1^DIQ(154.1,DA_",",999.04)
|
|---|
| 31 | S SPNR1C5B=$$GET1^DIQ(154.1,SPNGFIS_",",999.04)
|
|---|
| 32 | S SPNR1C5=SPNR1C5A-SPNR1C5B
|
|---|
| 33 | ;Cognitive Efficiency
|
|---|
| 34 | S SPNR1C6A=$$GET1^DIQ(154.1,DA_",",999.08)
|
|---|
| 35 | I $G(SPNR1C6A)>0 S SPNR1C6=SPNR1C5/SPNR1C6A S SPNR1C6=$E(SPNR1C6,1,4)
|
|---|
| 36 | I $G(SPNR1C6A)=0 S SPNR1C6="N/A"
|
|---|
