- GMRVLWT2 ;HIRMFO/YH-DOT MATRIX WEIGHT GRAPH - 3 ;5/27/97
- ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
- SETHD ;
- ;GMRWT = WEIGHT VALUE WHEN $Y=1
- ;GMRWT(1) = $Y
- ;GMRWT(2) = GWT LOCAL GLOBAL COUNT
- S GMRWHI=GMRWT-(($Y-1)*1.666),GMRWLO=GMRWHI-1.666
- S GMR3=(($Y/3)=($Y\3))
- S GMRHDR10=$S($Y>5&GMR3&($Y<57)&($Y'=GMRWT(1)):" 5",$Y=GMRWT(1)&(GMRWT(2)<9):GWT(GMRWT(2)),1:"")
- I $Y=GMRWT(1) S GMRWT(1)=GMRWT(1)+6,GMRWT(2)=GMRWT(2)+1
- Q
- DATAPRT ;
- S GMRLINE=GMRX1
- S GMRNM=0 F GMRDT=0:0 S GMRDT=$O(^TMP($J,"GMRDT",GMRDT)) Q:GMRDT'>0 D SETLINE Q:GMRNM=10
- W GMRLINE
- Q
- SETLINE ;
- S GMRNM=GMRNM+1,GMROLD=$P(GMRLINE,"|",GMRNM),GMRW=$O(^TMP($J,"GMRVG","W",GMRDT,""))
- S GMRWOFF=($Y=6&(+GMRW>(GWT(1)+5)))!($Y=56&(+GMRW<(GWT(8)-7)))
- S GMROLD=$E($S(+GMRW>0&(+GMRW'<GMRWLO&(+GMRW'>GMRWHI)!GMRWOFF):"W"_$S('GMRWOFF:" ",1:"**"),1:"")_" ",1,10)
- S $P(GMRLINE,"|",GMRNM)=GMROLD
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRVLWT2 901 printed Feb 18, 2025@23:23:34 Page 2
- GMRVLWT2 ;HIRMFO/YH-DOT MATRIX WEIGHT GRAPH - 3 ;5/27/97
- +1 ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
- SETHD ;
- +1 ;GMRWT = WEIGHT VALUE WHEN $Y=1
- +2 ;GMRWT(1) = $Y
- +3 ;GMRWT(2) = GWT LOCAL GLOBAL COUNT
- +4 SET GMRWHI=GMRWT-(($Y-1)*1.666)
- SET GMRWLO=GMRWHI-1.666
- +5 SET GMR3=(($Y/3)=($Y\3))
- +6 SET GMRHDR10=$SELECT($Y>5&GMR3&($Y<57)&($Y'=GMRWT(1)):" 5",$Y=GMRWT(1)&(GMRWT(2)<9):GWT(GMRWT(2)),1:"")
- +7 IF $Y=GMRWT(1)
- SET GMRWT(1)=GMRWT(1)+6
- SET GMRWT(2)=GMRWT(2)+1
- +8 QUIT
- DATAPRT ;
- +1 SET GMRLINE=GMRX1
- +2 SET GMRNM=0
- FOR GMRDT=0:0
- SET GMRDT=$ORDER(^TMP($JOB,"GMRDT",GMRDT))
- if GMRDT'>0
- QUIT
- DO SETLINE
- if GMRNM=10
- QUIT
- +3 WRITE GMRLINE
- +4 QUIT
- SETLINE ;
- +1 SET GMRNM=GMRNM+1
- SET GMROLD=$PIECE(GMRLINE,"|",GMRNM)
- SET GMRW=$ORDER(^TMP($JOB,"GMRVG","W",GMRDT,""))
- +2 SET GMRWOFF=($Y=6&(+GMRW>(GWT(1)+5)))!($Y=56&(+GMRW<(GWT(8)-7)))
- +3 SET GMROLD=$EXTRACT($SELECT(+GMRW>0&(+GMRW'<GMRWLO&(+GMRW'>GMRWHI)!GMRWOFF):"W"_$SELECT('GMRWOFF:" ",1:"**"),1:"")_" ",1,10)
- +4 SET $PIECE(GMRLINE,"|",GMRNM)=GMROLD
- +5 QUIT