| 1 | GMRVPCE0 ;HIOFO/RM,FT-Data Event Driver for Vitals ;3/7/05 10:34
|
|---|
| 2 | ;;5.0;GEN. MED. REC. - VITALS;**8**;Oct 31, 2002
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine uses the following IAs:
|
|---|
| 5 | ; <None>
|
|---|
| 6 | ;
|
|---|
| 7 | VALIDATE(GMRVDAT) ; Given the array GMRVDAT passed in by PCE Device
|
|---|
| 8 | ; Interface (by reference, i.e., D VALIDATE^GMRVPCE0(.ARRAY)), whose
|
|---|
| 9 | ; format is described in the PCE Device Interface documentation, this
|
|---|
| 10 | ; procedure will validate the Vitals data. If the data is invalid,
|
|---|
| 11 | ; the procedure will return GMRVDAT("ERROR") as described in the PCE
|
|---|
| 12 | ; Device Interface documentation.
|
|---|
| 13 | ;
|
|---|
| 14 | Q:$D(GMRVDAT("ERROR"))
|
|---|
| 15 | D PCE^GMRVPCE1(0)
|
|---|
| 16 | Q
|
|---|
| 17 | STORE(GMRVDAT) ; Given vitals data passed in the GMRVDAT array, this
|
|---|
| 18 | ; procedure will store that data in the GMRV Patient Measurements
|
|---|
| 19 | ; (120.5) file.
|
|---|
| 20 | ;
|
|---|
| 21 | Q:$D(GMRVDAT("ERROR"))
|
|---|
| 22 | D PCE^GMRVPCE1(1)
|
|---|
| 23 | Q
|
|---|
| 24 | HELP(GMRVTYP,GMRVARRY) ; This procedure will return help for a particular
|
|---|
| 25 | ; measurement type in an array.
|
|---|
| 26 | ; Input
|
|---|
| 27 | ; Variables: GMRVTYP=Type of measurement (abbreviation
|
|---|
| 28 | ; (req.) from PCE Device Interface Specification).
|
|---|
| 29 | ; GMRVARR=Closed array reference of array to return
|
|---|
| 30 | ; (opt.) help in. If this variable is not specified,
|
|---|
| 31 | ; help is returned in ^TMP($J,"GMRVHELP").
|
|---|
| 32 | ;
|
|---|
| 33 | Q:'$$VMTYPES(GMRVTYP)
|
|---|
| 34 | I $G(GMRVARRY)="" S GMRVARRY="^TMP($J,""GMRVHELP"")"
|
|---|
| 35 | D HELP^GMRVPCE2(GMRVTYP,GMRVARRY)
|
|---|
| 36 | Q
|
|---|
| 37 | RATECHK(GMRVTYP,GMRVRATE,GMRVUNIT) ; Extrinsic function to validate the
|
|---|
| 38 | ; rate for a particular measurement
|
|---|
| 39 | ; Input
|
|---|
| 40 | ; Variables: GMRVTYP=Type of measurement (abbreviation
|
|---|
| 41 | ; (req.) from PCE Device Interface Specification).
|
|---|
| 42 | ; GMRVRATE=Measurement rate to be validated.
|
|---|
| 43 | ; (req.)
|
|---|
| 44 | ; GMRVUNIT=Unit of measurement for rate, if specified.
|
|---|
| 45 | ; (opt.)
|
|---|
| 46 | ; Function value: 1 if rate is valid.
|
|---|
| 47 | ; 0 if rate is invalid.
|
|---|
| 48 | ;
|
|---|
| 49 | N GMRVFXN S GMRVFXN=0
|
|---|
| 50 | I $$VMTYPES(GMRVTYP),$G(GMRVRATE)]"" D
|
|---|
| 51 | . I $G(GMRVUNIT)]"" S GMRVRATE=$$UNITRATE^GMRVPCE3(GMRVTYP,GMRVRATE,GMRVUNIT)
|
|---|
| 52 | . I $G(GMRVRATE)]"" S GMRVFXN=$$VALID^GMRVPCE3(GMRVTYP,GMRVRATE)
|
|---|
| 53 | . Q
|
|---|
| 54 | Q GMRVFXN
|
|---|
| 55 | VMTYPES(TYPE) ; This function returns one if TYPE is a valid selection.
|
|---|
| 56 | ; from the PCE Device Interface Specification.
|
|---|
| 57 | Q "^AUD^BP^HT^TMP^WT^FT^FH^HE^PU^RS^TON^VC^VU^PN^"[(U_TYPE_U)
|
|---|
| 58 | ;
|
|---|
