GMVDCSAV	;HOIFO/DAD-VITALS COMPONENT: SAVE DATA ;11/15/07  11:11
	;;5.0;GEN. MED. REC. - VITALS;**9,3**;Oct 31, 2002;Build 15
	;
	; This routine uses the following IAs:
	; #10103 - ^XLFDT calls           (supported)
	;
	; This routine supports the following IAs:
	; #3996 - GMV ADD VM RPC called at EN1  (private)
	; 
	; 01/28/2005 KAM GMRV*5*9 Record midnight with 1 second added
	;                         Stop adding second on multiple patent entry
	;
EN1(RESULT,GMVDATA)	; GMV ADD VM [RPC entry point]
	; Saves vitals data
	N GMVCNT,GMVD0,GMVFDA,GMVINUM,GMVQNUM,GMVRNUM,GMVIEN,GMVDUN
	N GMVVNUM,GMVVMEAS,GMVVQUAL,GMVVREAS
	D QUALTWO
	Q
	;I $O(@GMVDATA@("V",0))>0 D VITMEA
	;I $O(@GMVDATA@("I",0))>0 D ENTERR
	;I $G(RESULT(0))="OK" D MSG("OK: Data saved")
	;Q
	;
VITMEA	; *** Save vital measurement data ***
	S GMVVNUM=0 K GMVFDA
	S GMVCNT=+$O(@GMVDATA@("V",1E25),-1)
	F  S GMVVNUM=$O(@GMVDATA@("V",GMVVNUM)) Q:GMVVNUM'>0  D
	. S GMVVMEAS=$G(@GMVDATA@("V",GMVVNUM))
	. S GMVFDA(120.5,"+"_GMVVNUM_",",.01)=GMVDTDUN ; Date time taken
	. S GMVFDA(120.5,"+"_GMVVNUM_",",.02)=GMVDFN   ; Patient
	. S GMVFDA(120.5,"+"_GMVVNUM_",",.03)=$P(GMVVMEAS,U) ;
	. S GMVFDA(120.5,"+"_GMVVNUM_",",.04)=GMVDTENT  ; Date Time entered
	. S GMVFDA(120.5,"+"_GMVVNUM_",",.05)=GMVHOSPL  ; Hospital
	. S GMVFDA(120.5,"+"_GMVVNUM_",",.06)=GMVENTBY  ; Entered by (DUZ)
	. S GMVFDA(120.5,"+"_GMVVNUM_",",1.2)=$P($P(GMVVMEAS,U,2),";",1) ; Rate
	. S GMVFDA(120.5,"+"_GMVVNUM_",",1.4)=$P($P(GMVVMEAS,U,2),";",2) ; Sup 02
	. S GMVQNUM=0
	. F  S GMVQNUM=$O(@GMVDATA@("Q",GMVVNUM,GMVQNUM)) Q:GMVQNUM'>0  D
	.. S GMVVQUAL=$G(@GMVDATA@("Q",GMVVNUM,GMVQNUM))
	.. S GMVCNT=GMVCNT+1
	.. S GMVFDA(120.505,"+"_GMVCNT_",","+"_GMVVNUM_",",.01)=GMVVQUAL
	.. Q
	. Q
	D UPDATE^DIE("","GMVFDA"),FMERROR
	S RESULT(0)="OK"
	Q
	;
ENTERR	; *** Save entered in error data ***
	S GMVINUM=0 K GMVFDA
	S GMVCNT=+$O(@GMVDATA@("I",1E25),-1)
	F  S GMVINUM=$O(@GMVDATA@("I",GMVINUM)) Q:GMVINUM'>0  D
	. S GMVD0=$G(@GMVDATA@("I",GMVINUM))
	. S GMVFDA(120.5,GMVD0_",",2)=1
	. S GMVFDA(120.5,GMVD0_",",3)=GMVERRBY
	. S GMVRNUM=0
	. F  S GMVRNUM=$O(@GMVDATA@("R",GMVINUM,GMVRNUM)) Q:GMVRNUM'>0  D
	.. S GMVVREAS=$G(@GMVDATA@("R",GMVINUM,GMVRNUM))
	.. S GMVCNT=GMVCNT+1
	.. S GMVFDA(120.506,"+"_GMVCNT_","_GMVD0_",",.01)=GMVVREAS
	.. Q
	. Q
	D UPDATE^DIE("","GMVFDA"),FMERROR
	S RESULT(0)="OK"
	Q
QUALTWO	; Add a new entry to FILE 120.5
	S GMVVNUM=0 K GMVFDA
	S GMVVMEAS=$P(GMVDATA,"*",1) ; 
	S GMVDTDUN=$P(GMVVMEAS,"^",1) ; Date time
	;01/28/2005 KAM GMRV*5*9 Added next Line PAL-0105-60940 
	I +$P(GMVDTDUN,".",2)'>0 S GMVDTDUN=$$FMADD^XLFDT(GMVDTDUN,"","","",1)
	S GMVDFN=$P(GMVVMEAS,"^",2) ; Patient DFN
	S GMVVTYP=$P(GMVVMEAS,"^",3) ; Vital type
	S GMVDTDUN=$$CHKDT(GMVDTDUN,$P(GMVVTYP,";",1))
	S GMVDTENT=$$NOW^XLFDT ; Current date time
	S GMVHOSPL=$P(GMVVMEAS,"^",4) ; Hospital
	S GMVENTBY=$P(GMVVMEAS,"^",5) ; DUZ
	S GMVFDA(120.5,"+1,",.01)=GMVDTDUN ; Date time taken
	S GMVFDA(120.5,"+1,",.02)=GMVDFN   ; Patient
	S GMVFDA(120.5,"+1,",.03)=$P(GMVVTYP,";",1)   ; Vital Type
	S GMVFDA(120.5,"+1,",.04)=GMVDTENT  ; Date Time entered
	S GMVFDA(120.5,"+1,",.05)=GMVHOSPL  ; Hospital
	S GMVFDA(120.5,"+1,",.06)=GMVENTBY  ; Entered by (DUZ)
	S GMVFDA(120.5,"+1,",1.2)=$P(GMVVTYP,";",2) ; Rate
	S GMVFDA(120.5,"+1,",1.4)=$P(GMVVTYP,";",3) ; Sup 02
	S GMVIEN=""
	D UPDATE^DIE("","GMVFDA","GMVIEN"),FMERROR
	S GMVCNT=1
	S GMVQUALS=$P(GMVDATA,"*",2)
	F GMVLOOP=1:1:$L(GMVQUALS,":")+1 D
	. S GMVVQUAL=$P(GMVQUALS,":",GMVLOOP)
	. Q:GMVVQUAL=""
	. S GMVCNT=GMVCNT+1
	. D ADDQUAL^GMVGETQ(.GMVRES,GMVIEN(1)_"^"_GMVVQUAL)
	. Q
	I "^HT^WT^CG^"[$P($G(^GMRD(120.51,+GMVVTYP,0)),U,2) D EN^GMRVPGC(GMVDFN)
	Q 
	;
CHKDT(GMVDT,GMVSAV)	;Check id there ios a vital entered for that date and time
	N GMVA,GMVQ
	S GMVQ=0
	S GMVA=""
	F  S GMVA=$O(^GMR(120.5,"B",GMVDT,GMVA)) Q:GMVA=""  D
	. ;01/28/2005 KAM GMRV*5*9 Added next Line BHS-0504-10643 
	. I GMVDFN'=$P($G(^GMR(120.5,GMVA,0)),U,2) Q
	. S GMVTY=$P($G(^GMR(120.5,GMVA,0)),"^",3)
	. I GMVTY=GMVSAV D
	. . S GMVDT=$$FMADD^XLFDT(GMVDT,"","","",1)
	. . Q
	. Q
	Q GMVDT
MSG(X)	; *** Add a line to the message array ***
	S (GMVMSG,RESULT(-1))=1+$G(RESULT(-1),0)
	S RESULT(GMVMSG)=X
	I $P(X,":")="ERROR" S RESULT(0)="ERROR"
	Q
	;
FMERROR	;
	I $O(^TMP("DIERR",$J,0))>0 D
	. N GMVER1,GMVER2
	. S GMVER1=0
	. F  S GMVER1=$O(^TMP("DIERR",$J,GMVER1)) Q:GMVER1'>0  D
	.. S GMVER2=0
	.. F  S GMVER2=$O(^TMP("DIERR",$J,GMVER1,"TEXT",GMVER2)) Q:GMVER2'>0  D
	... D MSG("ERROR: "_$G(^TMP("DIERR",$J,GMVER1,"TEXT",GMVER2)))
	... Q
	.. Q
	. Q
	D CLEAN^DILF
	Q