| [613] | 1 | GMVLBP1 ;HIOFO/YH,FT-SYSTOLIC/DIASTOLIC GRAPH ;12/17/01 09:30
|
|---|
| 2 | ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine uses the following IAs:
|
|---|
| 5 | ; <None>
|
|---|
| 6 | ;
|
|---|
| 7 | SETHD ;
|
|---|
| 8 | S GMR3=(($Y/3)=($Y\3)),(GMRSHI,GMRDHI)=GMRSLO,(GMRSLO,GMRDLO)=$Y*(-10)/3+248.335,(GMRSDIF,GMRDDIF)=GMRSHI-GMRSLO
|
|---|
| 9 | S GMRHDR10=$S($Y>8&GMR3&($Y<62):GMRSLO+1.665,1:"")
|
|---|
| 10 | Q
|
|---|
| 11 | DATAPRT ;
|
|---|
| 12 | S GMRLINE=GMRX1
|
|---|
| 13 | S GMRNM=0 F GMRDT=0:0 S GMRDT=$O(^TMP($J,"GMRDT",GMRDT)) Q:GMRDT'>0 D SETLINE Q:GMRNM=10
|
|---|
| 14 | W GMRLINE
|
|---|
| 15 | Q
|
|---|
| 16 | SETLINE ;
|
|---|
| 17 | S GMRNM=GMRNM+1,GMROLD=$P(GMRLINE,"|",GMRNM),GMRS=$O(^TMP($J,"GMRVG","S",GMRDT,""))
|
|---|
| 18 | S GMRD=$O(^TMP($J,"GMRVG","D",GMRDT,""))
|
|---|
| 19 | S GMRSOFF=($Y=7&(+GMRS>225))!($Y=61&(+GMRS<48)),GMRDOFF=($Y=7&(+GMRD>226))!($Y=61&(+GMRD<48))
|
|---|
| 20 | S GMROLD=$S(+GMRS>0&(+GMRS'<GMRSLO&(+GMRS'>GMRSHI)!GMRSOFF):"S"_$S('$P(^TMP($J,"GMRVG","S",GMRDT,GMRS),"^",2):" ",1:"*")_$S('GMRSOFF:" ",1:"*")_$E(GMROLD,4,10),1:GMROLD)
|
|---|
| 21 | S GMROLD=$E(GMROLD,1,5)_$S(GMRD>0&(+GMRD'<GMRDLO&(+GMRD'>GMRDHI)!GMRDOFF):"D"_$S('$P(^TMP($J,"GMRVG","D",GMRDT,GMRD),"^",2):" ",1:"*")_$S('GMRDOFF:" ",1:"*")_$E(GMROLD,9,10),1:$E(GMROLD,6,10))
|
|---|
| 22 | S $P(GMRLINE,"|",GMRNM)=GMROLD
|
|---|
| 23 | Q
|
|---|
