Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
879 bytes
|
Rev | Line | |
---|
[613] | 1 | GMRVLWT2 ;HIRMFO/YH-DOT MATRIX WEIGHT GRAPH - 3 ;5/27/97
|
---|
| 2 | ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
|
---|
| 3 | SETHD ;
|
---|
| 4 | ;GMRWT = WEIGHT VALUE WHEN $Y=1
|
---|
| 5 | ;GMRWT(1) = $Y
|
---|
| 6 | ;GMRWT(2) = GWT LOCAL GLOBAL COUNT
|
---|
| 7 | S GMRWHI=GMRWT-(($Y-1)*1.666),GMRWLO=GMRWHI-1.666
|
---|
| 8 | S GMR3=(($Y/3)=($Y\3))
|
---|
| 9 | S GMRHDR10=$S($Y>5&GMR3&($Y<57)&($Y'=GMRWT(1)):" 5",$Y=GMRWT(1)&(GMRWT(2)<9):GWT(GMRWT(2)),1:"")
|
---|
| 10 | I $Y=GMRWT(1) S GMRWT(1)=GMRWT(1)+6,GMRWT(2)=GMRWT(2)+1
|
---|
| 11 | Q
|
---|
| 12 | DATAPRT ;
|
---|
| 13 | S GMRLINE=GMRX1
|
---|
| 14 | S GMRNM=0 F GMRDT=0:0 S GMRDT=$O(^TMP($J,"GMRDT",GMRDT)) Q:GMRDT'>0 D SETLINE Q:GMRNM=10
|
---|
| 15 | W GMRLINE
|
---|
| 16 | Q
|
---|
| 17 | SETLINE ;
|
---|
| 18 | S GMRNM=GMRNM+1,GMROLD=$P(GMRLINE,"|",GMRNM),GMRW=$O(^TMP($J,"GMRVG","W",GMRDT,""))
|
---|
| 19 | S GMRWOFF=($Y=6&(+GMRW>(GWT(1)+5)))!($Y=56&(+GMRW<(GWT(8)-7)))
|
---|
| 20 | S GMROLD=$E($S(+GMRW>0&(+GMRW'<GMRWLO&(+GMRW'>GMRWHI)!GMRWOFF):"W"_$S('GMRWOFF:" ",1:"**"),1:"")_" ",1,10)
|
---|
| 21 | S $P(GMRLINE,"|",GMRNM)=GMROLD
|
---|
| 22 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.