- NURCVPR1 ;HIRMFO/YH-PATIENT VITALS/MEASUREMENTS REPORT UTILITY ;2/9/99
- ;;4.0;NURSING SERVICE;**23**;Apr 25, 1997
- SELECT(J) ;TYPE OF GRAPH FOR REPORT
- N X,I W !
- TRYAGN F I=1:1:5 W !,?2,I_" "_$P($T(GCHART+I),";;",2)
- W !!,?2,"Select a number between 1 and 5: 1 Vital Signs Record// " S X="" R X:DTIME I '$T!(X["^") S J=0 Q
- I X="" S J=1 Q
- I '(X?1N&(X>0&(X<6)))!(X["?") W !!,"Enter the number for the graph you wish to print.",!,"The default is Vital Signs Record.",! G TRYAGN
- W " ",$P($T(GCHART+X),";;",2) S J=X Q
- Q
- WRT1 W !!,?5,$C(7),"This report must be queued to",!!,?8,"SF 511: 132 columns printer or Kyocera or HP Laser printer,",!,?8,"B/P Plotting, Weight chart or Pulse Oximetry/Respiration",!,?10,"Graph: Kyocera or HP Laser printer.",!
- W ?5,"Pain Chart must be queued to a HP Laser printer.",!
- Q
- WRT2 I NGRAPH>1 D ^%ZISC W !,$S(NGRAPH=2:"B/P Plotting Chart",NGRAPH=3:"Weight Chart",NGRAPH=4:"Pulse Oximetry/Respiration Graph",1:"")_" must be queued to a Kyocera or HP Laser printer.",!! S NURQUIT=1
- I IOM'>130,NGRAPH=1 D ^%ZISC W !,"This report needs 132 columns",! S NURQUIT=1
- Q
- GCHART ;
- ;;Vital Signs Record
- ;;B/P Plotting Chart
- ;;Weight Chart
- ;;Pulse Oximetry/Respiratory Graph
- ;;Pain Chart
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURCVPR1 1239 printed Feb 18, 2025@23:47:27 Page 2
- NURCVPR1 ;HIRMFO/YH-PATIENT VITALS/MEASUREMENTS REPORT UTILITY ;2/9/99
- +1 ;;4.0;NURSING SERVICE;**23**;Apr 25, 1997
- SELECT(J) ;TYPE OF GRAPH FOR REPORT
- +1 NEW X,I
- WRITE !
- TRYAGN FOR I=1:1:5
- WRITE !,?2,I_" "_$PIECE($TEXT(GCHART+I),";;",2)
- +1 WRITE !!,?2,"Select a number between 1 and 5: 1 Vital Signs Record// "
- SET X=""
- READ X:DTIME
- IF '$TEST!(X["^")
- SET J=0
- QUIT
- +2 IF X=""
- SET J=1
- QUIT
- +3 IF '(X?1N&(X>0&(X<6)))!(X["?")
- WRITE !!,"Enter the number for the graph you wish to print.",!,"The default is Vital Signs Record.",!
- GOTO TRYAGN
- +4 WRITE " ",$PIECE($TEXT(GCHART+X),";;",2)
- SET J=X
- QUIT
- +5 QUIT
- WRT1 WRITE !!,?5,$CHAR(7),"This report must be queued to",!!,?8,"SF 511: 132 columns printer or Kyocera or HP Laser printer,",!,?8,"B/P Plotting, Weight chart or Pulse Oximetry/Respiration",!,?10,"Graph: Kyocera or HP Laser printer.",!
- +1 WRITE ?5,"Pain Chart must be queued to a HP Laser printer.",!
- +2 QUIT
- WRT2 IF NGRAPH>1
- DO ^%ZISC
- WRITE !,$SELECT(NGRAPH=2:"B/P Plotting Chart",NGRAPH=3:"Weight Chart",NGRAPH=4:"Pulse Oximetry/Respiration Graph",1:"")_" must be queued to a Kyocera or HP Laser printer.",!!
- SET NURQUIT=1
- +1 IF IOM'>130
- IF NGRAPH=1
- DO ^%ZISC
- WRITE !,"This report needs 132 columns",!
- SET NURQUIT=1
- +2 QUIT
- GCHART ;
- +1 ;;Vital Signs Record
- +2 ;;B/P Plotting Chart
- +3 ;;Weight Chart
- +4 ;;Pulse Oximetry/Respiratory Graph
- +5 ;;Pain Chart