source: PGC/trunk/p/GMVDCSAV.m@ 1163

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