- GMRVED5 ;HIRMFO/YH-VITALS MEASUREMENTS APPLICATION PROGRAM INTERFACE EDIT TMP ;1/17/97
- ;;4.0;Vitals/Measurements;;Apr 25, 1997
- EN2(DFN,GMRVDATE) ;V/M CORRECTION FOR A GIVEN DATE/TIME AND A GIVEN DFN
- G:DFN'>0!(GMRVDATE'>0) Q2 S GMROUT=0 D DATACK^GMRVEE0 I GMROUT W !,$C(7),"NO DATA FOR THIS DATE",! G Q2
- D EN3^GMRVEE0
- Q2 K DFN,GMRVDATE,GMRVDT,GMRVITY,GMROUT Q
- EN3(DFN,GMRVIDT) ;V/M DISPLAY FOR A GIVEN PATIENT AND A GIVEN TIME
- ;INPUT VARIABLES:
- ; DFN = PATIENT FILE POINTER
- ; GMRVIDT = DATE/TIME OF VITAL MEASUREMENTS FOR A PATIENT IN THE VA FILEMAN'S CONVENTIONAL INTERNAL FORMAT
- Q:DFN'>0!(GMRVIDT'>0)
- S GMROUT=0,GMRSTR="T;P;R;BP;HT;WT;" D DSPOV^GMRVED4
- I $E(GMRSTR(0),1,20)[$E(GMRSTR,1,20) W !,"No Vital Measurement data for this patient at this date/time",!
- K GDA,GDATA,GCT,GDT,GLAST,GMROUT,GMROV,GMRP,GMRSTR,GMRTYPE,GMRVIDT,GMRX,GTYPE Q
- EN4(DFN,GMRVHLOC,GMRVIDT) ;ENTER/EDIT SINGLE PATIENT VITAL/MEASUREMENT
- ;INPUT VARIABLES
- ;DFN - PATIENT FILE POINTER
- ;GMRVHLOC - HOSPITAL LOCATION (44) POINTER
- ;GMRVIDT - VA FILEMAN'S CONVENTIONAL INTERNAL DATE/TIME FORMAT
- S GMROUT=0,GMRENTY=10,GMRSTR="T;P;R;BP;HT;WT;",GMREDB="P1" D EN3^GMRVED0
- K GMRVIEN,GMRSTR,GMROUT Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRVED5 1202 printed Feb 18, 2025@23:22:39 Page 2
- GMRVED5 ;HIRMFO/YH-VITALS MEASUREMENTS APPLICATION PROGRAM INTERFACE EDIT TMP ;1/17/97
- +1 ;;4.0;Vitals/Measurements;;Apr 25, 1997
- EN2(DFN,GMRVDATE) ;V/M CORRECTION FOR A GIVEN DATE/TIME AND A GIVEN DFN
- +1 if DFN'>0!(GMRVDATE'>0)
- GOTO Q2
- SET GMROUT=0
- DO DATACK^GMRVEE0
- IF GMROUT
- WRITE !,$CHAR(7),"NO DATA FOR THIS DATE",!
- GOTO Q2
- +2 DO EN3^GMRVEE0
- Q2 KILL DFN,GMRVDATE,GMRVDT,GMRVITY,GMROUT
- QUIT
- EN3(DFN,GMRVIDT) ;V/M DISPLAY FOR A GIVEN PATIENT AND A GIVEN TIME
- +1 ;INPUT VARIABLES:
- +2 ; DFN = PATIENT FILE POINTER
- +3 ; GMRVIDT = DATE/TIME OF VITAL MEASUREMENTS FOR A PATIENT IN THE VA FILEMAN'S CONVENTIONAL INTERNAL FORMAT
- +4 if DFN'>0!(GMRVIDT'>0)
- QUIT
- +5 SET GMROUT=0
- SET GMRSTR="T;P;R;BP;HT;WT;"
- DO DSPOV^GMRVED4
- +6 IF $EXTRACT(GMRSTR(0),1,20)[$EXTRACT(GMRSTR,1,20)
- WRITE !,"No Vital Measurement data for this patient at this date/time",!
- +7 KILL GDA,GDATA,GCT,GDT,GLAST,GMROUT,GMROV,GMRP,GMRSTR,GMRTYPE,GMRVIDT,GMRX,GTYPE
- QUIT
- EN4(DFN,GMRVHLOC,GMRVIDT) ;ENTER/EDIT SINGLE PATIENT VITAL/MEASUREMENT
- +1 ;INPUT VARIABLES
- +2 ;DFN - PATIENT FILE POINTER
- +3 ;GMRVHLOC - HOSPITAL LOCATION (44) POINTER
- +4 ;GMRVIDT - VA FILEMAN'S CONVENTIONAL INTERNAL DATE/TIME FORMAT
- +5 SET GMROUT=0
- SET GMRENTY=10
- SET GMRSTR="T;P;R;BP;HT;WT;"
- SET GMREDB="P1"
- DO EN3^GMRVED0
- +6 KILL GMRVIEN,GMRSTR,GMROUT
- QUIT