Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMVGETQ

GMVGETQ.m

Go to the documentation of this file.
  1. GMVGETQ ;HOIFO/YH,FT-UTILITIES TO OBTAIN DATE/TIME, HOSPITAL, DUZ, VITAL CATEGORY AND EDIT V/M ;9/6/02 09:35
  1. ;;5.0;GEN. MED. REC. - VITALS;**3**;Oct 31, 2002
  1. ;
  1. ; This routine uses the following IAs:
  1. ; #10103 - ^XLFDT calls (supported)
  1. ;
  1. ; This routine supports the following IAs:
  1. ; #4353 - GMV CONVERT DATE RPC is called at GETDT (private)
  1. ;
  1. GETDT(RESULT,GMRDATE) ;GMV CONVERT DATE [RPC entry point]
  1. ;INPUT VARIABLE:
  1. ;GMRDATE - DATE/TIME FROM EDIT.TEXT ENTERED BY USER
  1. ;OUTPUT VARIABLE:
  1. ;RESULT - CONTAINS INTERNAL AND EXTERNAL DATE/TIME
  1. N GDATE D DT^DILF("ETS",GMRDATE,.GDATE)
  1. I $G(GDATE)'>0 S RESULT="" Q
  1. I $G(GDATE)>$$NOW^XLFDT S RESULT="" Q
  1. S RESULT=$G(GDATE)_"^"_$G(GDATE(0))
  1. Q
  1. ;
  1. ADDQUAL(RESULT,GMRVDATA) ; Add qualifiers to FILE 120.5 entry
  1. ; ADD QUALIFIER TO 120.505 SUBFILE
  1. ; Input:
  1. ; GMRVDATA=120.5 IEN^QUALIFIER (120.52) IEN
  1. ; Output:
  1. ; RESULT = "" or the IEN of the subfile entry
  1. ;
  1. N GMVCNT,GMVERR,GMVFDA,GMVOKAY,GMRVIEN,GMRVQUAL
  1. S GMRVIEN=+$P(GMRVDATA,"^",1) ;File 120.5 ien
  1. S GMRVQUAL=+$P(GMRVDATA,"^",2) ;File 120.52 ien
  1. ; Does File 120.5 entry exist?
  1. I '$D(^GMR(120.5,GMRVIEN,0)) D Q
  1. .S RESULT=""
  1. .;or S RESULT="-1^Vitals entry not found."
  1. .Q
  1. ; Is the qualifier already stored?
  1. I $O(^GMR(120.5,GMRVIEN,5,"B",GMRVQUAL,0))>0 D Q
  1. .S RESULT=""
  1. .;or S RESULT="-1^Qualifier already filed. No change made."
  1. .Q
  1. ; Legitimate Qualifier?
  1. I '$D(^GMRD(120.52,GMRVQUAL,0)) D Q
  1. .S RESULT=""
  1. .; or S RESULT="-1^"_$P(GMRVDATA,U,2)_" is not a legitimate qualifier"
  1. .Q
  1. S GMVCNT=0 ;counter for number of tries to lock an entry
  1. B2 ; Lock the entry
  1. I GMVCNT>3 D Q ;4 strikes and you're out
  1. .S RESULT=""
  1. .;or S RESULT="-1^Could not lock entry to file qualifiers."
  1. .L -^GMR(120.5,GMRVIEN,0)
  1. .Q
  1. L +^GMR(120.5,GMRVIEN,0):1
  1. S GMVCNT=GMVCNT+1
  1. I '$T L -^GMR(120.5,GMRVIEN,0) G B2
  1. ; Store the qualifier
  1. S GMVFDA(120.505,"+1,"_GMRVIEN_",",.01)=GMRVQUAL
  1. D UPDATE^DIE("","GMVFDA","GMVOKAY","GMVERR")
  1. L -^GMR(120.5,GMRVIEN,0)
  1. I $D(GMVERR) S RESULT="" ; or S RESULT="-1^*fileman error message*"
  1. E S RESULT=+$G(GMVOKAY(1))
  1. Q