- GMVHB3 ;HIOFO/YH,FT-HP LASER B/P GRAPH - ID ;11/8/02 13:35
- ;;5.0;GEN. MED. REC. - VITALS;**1**;Oct 31, 2002
- ;
- ; This routine uses the following IAs:
- ; <None>
- ;
- EN1 ;PRINT B/P
- S J=-1.4,J(1)=130 D WRTLN^GMVHG3
- S J=-1.9,J(1)=1241 D WRTLN^GMVHG3
- ;PRINT B/P QUALIFIERS
- S J=-2.4,J(1)=451 D WRTLN^GMVHG3
- ;PRINT MEAN ARTERIAL PRESSURE
- S J=-2.9,J(1)=1221 D WRTLN^GMVHG3
- PTID ;PRINT PATIENT ID
- W !,"SD1,277,2,1,4,9,5,1,6,5,7,4;SS;PA-1,-4.6;LB"_GMVNM_"#;PA-1,-4.9;LB"_GMVDOB_" "_GMVGEN_"#;"
- W !,"PA-1,-5.2;LB"_GMVWRD_"#;PA7,-5.2;LB"_GMVRMBD_"#;PA7,-5.5;LB"_^TMP($J,"GMRK","G199")_"#;"
- W !,"PA-1,-5.5;LB"_GMRDIV_"#;PA-1,-5.8;LB"_GSTRFIN_"#;"
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMVHB3 668 printed Jan 18, 2025@03:00:18 Page 2
- GMVHB3 ;HIOFO/YH,FT-HP LASER B/P GRAPH - ID ;11/8/02 13:35
- +1 ;;5.0;GEN. MED. REC. - VITALS;**1**;Oct 31, 2002
- +2 ;
- +3 ; This routine uses the following IAs:
- +4 ; <None>
- +5 ;
- EN1 ;PRINT B/P
- +1 SET J=-1.4
- SET J(1)=130
- DO WRTLN^GMVHG3
- +2 SET J=-1.9
- SET J(1)=1241
- DO WRTLN^GMVHG3
- +3 ;PRINT B/P QUALIFIERS
- +4 SET J=-2.4
- SET J(1)=451
- DO WRTLN^GMVHG3
- +5 ;PRINT MEAN ARTERIAL PRESSURE
- +6 SET J=-2.9
- SET J(1)=1221
- DO WRTLN^GMVHG3
- PTID ;PRINT PATIENT ID
- +1 WRITE !,"SD1,277,2,1,4,9,5,1,6,5,7,4;SS;PA-1,-4.6;LB"_GMVNM_"#;PA-1,-4.9;LB"_GMVDOB_" "_GMVGEN_"#;"
- +2 WRITE !,"PA-1,-5.2;LB"_GMVWRD_"#;PA7,-5.2;LB"_GMVRMBD_"#;PA7,-5.5;LB"_^TMP($JOB,"GMRK","G199")_"#;"
- +3 WRITE !,"PA-1,-5.5;LB"_GMRDIV_"#;PA-1,-5.8;LB"_GSTRFIN_"#;"
- +4 QUIT