GMRVED5.m

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

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