VistA Analysis » VistA Reference » RPCs » GMV EXTRACT REC

GMV EXTRACT REC

This remote procedure call retrieves vital records from the GMRV VitalMeasurement (#120.5) file for a selected patient within a given date span. This remote procedure call is documented in Integration Agreement 4416.

Properties

Property Value
Label GETVM
MUMPS Implementation GMVGETD
Return Type GLOBAL ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
GMRVDATA LITERAL 30 true GMRVDATA consists of 4 pieces of information: piece1^piece2^piece3^piece4 where piece1 = Patient (#2) file pointer (i.e., DFN) piece2 = End date of search (FileMan internal format) piece3 = single vital type abbreviation (File 120.51, Field 1) [optional] If not defined, the default is "T;P;R;BP;HT;WT;PN;PO2;CG;CVP" piece4 = Start date of search (FileMan internal format)

MUMPS Method Description

Property Value
Method GETVM^GMVGETD
Method Comment GMV EXTRACT REC [RPC entry point]
Input Parameters GMRVDATA
First Comment
 Returns data particular patient and date/time range in RESULT
GMRVDATA = DFN^END DATE VITAL TAKEN^VITAL TYPE (OPTIONAL)^START DATE VITAL TAKEN
Code
 N DFN,GMVEND,GMVSTART,GMVTYPE
S DFN=+$P(GMRVDATA,U,1),GMVEND=+$P(GMRVDATA,U,2),GMVSTART=$P(GMRVDATA,U,4),GMVTYPE=$P(GMRVDATA,U,3)
K ^TMP($J,"GRPC")
S:GMVEND="" GMVEND=$$NOW^XLFDT()
I $P(GMVEND,".",2)'>0 S GMVEND=$P(GMVEND,".",1)_".235959"
I GMVSTART="" S GMVSTART=0
S:GMVTYPE'="" GMVTYPE(1)=$P(^GMRD(120.51,$O(^GMRD(120.51,"C",GMVTYPE,0)),0),"^")
D EN1^GMVGETD1
I '$D(^TMP($J,"GRPC")) S ^TMP($J,"GRPC",1)="0^NO "_$S(GMVTYPE'="":GMVTYPE(1),1:"VITALS/MEASUREMENTS ")_" ENTERED WITHIN THIS PERIOD"
S RESULT=$NA(^TMP($J,"GRPC"))
K GMRDT,GMRVARY,GMRVITY,GMRVX,GMRZZ

CPRS

File Type Description
DLL File No Source Code Available (GMV_VitalsViewEnter.dll)


Document generated on August 31st 2022, 2:55:43 pm