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

GMVDCRPC.m

Go to the documentation of this file.
  1. GMVDCRPC ;HOIFO/DAD-VITALS COMPONENT: RPCs ;8/24/99 08:28
  1. ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
  1. ;
  1. ; This routine uses the following IAs:
  1. ; <None>
  1. ;
  1. EN1(RESULT,GMVFMT,GMVITTYP) ;
  1. ; RPC: GMVDC GET VITAL CATEGORIES
  1. ; Get list of the categories
  1. ; Input:
  1. ; GMVFMT = Format of returned data (Optional)
  1. ; 1 - IENs (default), 2 - Abbreviations, 3 - Full Names
  1. ; GMVITTYP = A pointer to GMRV Vital Type file (#120.51) (Optional)
  1. ; Output:
  1. ; RESULT() = CategoryIEN ^ CategoryName ^
  1. ; VitalTypeIEN ^ DefaultQualifier
  1. N GMVCNT,GMVD0,GMVD1,GMVDATA,GMVDEFQ
  1. S GMVCNT=0
  1. S GMVFMT=$S("^1^2^3^"[(U_$G(GMVFMT)_U):GMVFMT,1:1)
  1. I $G(GMVITTYP)="" D
  1. . S GMVITTYP=0
  1. . F S GMVITTYP=$O(^GMRD(120.53,"C",GMVITTYP)) Q:GMVITTYP'>0 D EN1A
  1. . Q
  1. E D
  1. . S GMVITTYP=$$VITIEN^GMVDCUTL(GMVITTYP)
  1. . D EN1A
  1. . Q
  1. S RESULT(0)="OK"
  1. Q
  1. EN1A S GMVD0=0
  1. F S GMVD0=$O(^GMRD(120.53,"C",GMVITTYP,GMVD0)) Q:GMVD0'>0 D
  1. . S GMVD1=0
  1. . F S GMVD1=$O(^GMRD(120.53,"C",GMVITTYP,GMVD0,GMVD1)) Q:GMVD1'>0 D
  1. .. S GMVDATA=$P($G(^GMRD(120.53,GMVD0,0)),U)
  1. .. I GMVDATA]"" D
  1. ... S GMVITTYP(0)=$G(^GMRD(120.51,+GMVITTYP,0))
  1. ... S GMVITTYP(1)=GMVITTYP,GMVITTYP(2)=$P(GMVITTYP(0),U,2)
  1. ... S GMVITTYP(3)=$P(GMVITTYP(0),U)
  1. ... S GMVDEFQ=$P($G(^GMRD(120.53,GMVD0,1,GMVD1,0)),U,7)
  1. ... S GMVDEFQ(0)=$G(^GMRD(120.52,+GMVDEFQ,0))
  1. ... S GMVDEFQ(1)=GMVDEFQ,GMVDEFQ(2)=$P(GMVDEFQ(0),U,2)
  1. ... S GMVDEFQ(3)=$P(GMVDEFQ(0),U)
  1. ... S GMVCNT=GMVCNT+1
  1. ... S RESULT(GMVCNT)=GMVD0_U_GMVDATA_U_GMVITTYP(GMVFMT)_U_GMVDEFQ(GMVFMT)
  1. ... Q
  1. .. Q
  1. . Q
  1. Q
  1. ;
  1. EN2(RESULT) ;
  1. ; RPC: GMVDC GET VITAL ERROR REASONS
  1. ; Get list of the entered in error reasons
  1. ; Input:
  1. ; None
  1. ; Output:
  1. ; RESULT() = ErrorReasonInternal ^ ErrorReasonExternal
  1. N GMVD0,GMVDATA
  1. S GMVDATA=$$GET1^DID(120.506,.01,"","POINTER")
  1. F GMVD0=1:1 S GMVDATA(0)=$P(GMVDATA,";",GMVD0) Q:GMVDATA(0)="" D
  1. . S RESULT(GMVD0)=$TR(GMVDATA(0),":","^")
  1. . Q
  1. S RESULT(0)="OK"
  1. Q
  1. ;
  1. EN3(RESULT,GMVFMT,GMVITTYP,GMVITCAT) ;
  1. ; RPC: GMVDC GET VITAL QUALIFIERS
  1. ; Get list of the qualifiers
  1. ; Input:
  1. ; GMVFMT = Format of returned data (Optional)
  1. ; 1 - IENs (default), 2 - Abbreviations, 3 - Full Names
  1. ; GMVITTYP = A pointer to GMRV Vital Type file (#120.51) (Optional)
  1. ; GMVITCAT = A pointer to GMRV Vital Category file (#120.53) (Optional)
  1. ; Output:
  1. ; RESULT() = QualifierIEN ^ QualifierName ^ QualifierSynonym ^
  1. ; VitalTypeIEN ^ CategoryIEN
  1. N GMVCATD0,GMVCNT,GMVD0,GMVD1,GMVDATA
  1. S GMVCNT=0
  1. S GMVFMT=$S("^1^2^3^"[(U_$G(GMVFMT)_U):GMVFMT,1:1)
  1. S GMVITCAT=$$CATIEN^GMVDCUTL($G(GMVITCAT))
  1. I $G(GMVITTYP)="" D
  1. . S GMVITTYP=0
  1. . F S GMVITTYP=$O(^GMRD(120.52,"C",GMVITTYP)) Q:GMVITTYP'>0 D EN3A
  1. . Q
  1. E D
  1. . S GMVITTYP=$$VITIEN^GMVDCUTL(GMVITTYP)
  1. . D EN3A
  1. . Q
  1. S RESULT(0)="OK"
  1. Q
  1. EN3A S GMVD0=0
  1. F S GMVD0=$O(^GMRD(120.52,"C",GMVITTYP,GMVD0)) Q:GMVD0'>0 D
  1. . S GMVD1=0
  1. . F S GMVD1=$O(^GMRD(120.52,"C",GMVITTYP,GMVD0,GMVD1)) Q:GMVD1'>0 D
  1. .. S GMVCATD0=$P($G(^GMRD(120.52,GMVD0,1,GMVD1,0)),U,2)
  1. .. I $G(GMVITCAT)>0,GMVITCAT'=GMVCATD0 Q
  1. .. S GMVDATA=$G(^GMRD(120.52,GMVD0,0))
  1. .. I GMVDATA]"" D
  1. ... S GMVITTYP(0)=$G(^GMRD(120.51,+GMVITTYP,0))
  1. ... S GMVITTYP(1)=GMVITTYP,GMVITTYP(2)=$P(GMVITTYP(0),U,2)
  1. ... S GMVITTYP(3)=$P(GMVITTYP(0),U)
  1. ... S GMVITCAT(0)=$G(^GMRD(120.53,+GMVCATD0,0))
  1. ... S GMVITCAT(1)=GMVCATD0,(GMVITCAT(2),GMVITCAT(3))=$P(GMVITCAT(0),U)
  1. ... S GMVCNT=GMVCNT+1
  1. ... S RESULT(GMVCNT)=GMVD0_U_$P(GMVDATA,U)_U_$P(GMVDATA,U,2)_U_GMVITTYP(GMVFMT)_U_GMVITCAT(GMVFMT)
  1. ... Q
  1. .. Q
  1. . Q
  1. Q
  1. ;
  1. EN4(RESULT) ;
  1. ; RPC: GMVDC GET VITAL TYPES
  1. ; Get list of the vital types
  1. ; Input:
  1. ; None
  1. ; Output:
  1. ; RESULT() = VitalTypeIEN ^ VitalTypeName ^
  1. ; VitalTypeAbbr ^ VitalTypePCE_Abbreviation
  1. N GMVD0,GMVDATA
  1. S GMVD0=0
  1. F S GMVD0=$O(^GMRD(120.51,GMVD0)) Q:GMVD0'>0 D
  1. . S GMVDATA=$G(^GMRD(120.51,GMVD0,0))
  1. . I GMVDATA]"" S RESULT(GMVD0)=GMVD0_U_$P(GMVDATA,U)_U_$P(GMVDATA,U,2)_U_$P(GMVDATA,U,7)
  1. . Q
  1. S RESULT(0)="OK"
  1. Q
  1. ;
  1. EN5(RESULT,GMVDFN,GMVFMT,GMVABR,GMVMSYS) ;
  1. ; RPC: GMVDC GET LATEST VITALS
  1. ; Returns the latest vitals for a selected patient
  1. ; Input:
  1. ; GMVDFN = A pointer to the Patient file (#2) (Required)
  1. ; GMVFMT = Format of returned data (Optional)
  1. ; 1 - IENs (default), 2 - Abbreviations, 3 - Full Names
  1. ; GMVABR = Abbreviations of vital types to return (Optional)
  1. ; "^T^P^R^PO2^BP^HT^WT^CVP^CG^PN^" (Default)
  1. ; "~ALL~" to return all vital types
  1. ; GMVMSYS = Measurement system (Optional)
  1. ; M = Metric, C - US Customary (Default)
  1. ; Output:
  1. ; RESULT() = VitalMeasurementIEN ^ DateTimeTaken ^ PatientDFN ^
  1. ; VitalType ^ DateTimeEntered ^ HospitalLocation ^
  1. ; EnteredBy ^ Measurement ^ EnteredInError ^
  1. ; EnteredInErrorBy ^
  1. ; Qualifier1 ; Qualifier2 ; ... ^
  1. ; EnteredInErrorReason1 ; EnteredInErrorReason2 ; ... ^
  1. D EN1^GMVDCEXT("^TMP(""GMV"",$J)",GMVDFN,$G(GMVFMT),$G(GMVABR),0,"","",$G(GMVMSYS),0)
  1. S RESULT=$NA(^TMP("GMV",$J))
  1. Q
  1. ;
  1. EN6(RESULT,GMVDFN,GMVFMT,GMVABR,GMVBEG,GMVEND,GMVMSYS,GMVEE) ;
  1. ; RPC: GMVDC GET VITALS
  1. ; Returns vitals for a selected patient and date/time range
  1. ; Input:
  1. ; GMVDFN = A pointer to the Patient file (#2) (Required)
  1. ; GMVFMT = Format of returned data (Optional)
  1. ; 1 - IENs (default), 2 - Abbreviations, 3 - Full Names
  1. ; GMVABR = Abbreviations of vital types to return (Optional)
  1. ; "^T^P^R^PO2^BP^HT^WT^CVP^CG^PN^" (Default)
  1. ; "~ALL~" to return all vital types
  1. ; GMVBEG = Beginning date for all vitals (Not used for GMVALL = 0)
  1. ; GMVEND = Ending date for all vitals (Not used for GMVALL = 0)
  1. ; GMVMSYS = Measurement system (Optional)
  1. ; M = Metric, C - US Customary (Default)
  1. ; GMVEE = Include entered in error records (Optional)
  1. ; (0 - No (Default), 1 - Yes)
  1. ;
  1. ; Output:
  1. ; RESULT() = VitalMeasurementIEN ^ DateTimeTaken ^ PatientDFN ^
  1. ; VitalType ^ DateTimeEntered ^ HospitalLocation ^
  1. ; EnteredBy ^ Measurement ^ EnteredInError ^
  1. ; EnteredInErrorBy ^
  1. ; Qualifier1 ; Qualifier2 ; ... ^
  1. ; EnteredInErrorReason1 ; EnteredInErrorReason2 ; ... ^
  1. D EN1^GMVDCEXT("^TMP(""GMV"",$J)",GMVDFN,$G(GMVFMT),$G(GMVABR),1,$G(GMVBEG),$G(GMVEND),$G(GMVMSYS),$G(GMVEE))
  1. S RESULT=$NA(^TMP("GMV",$J))
  1. Q
  1. ;
  1. EN7(RESULT,GMVITTYP) ;
  1. ; RPC: GMVDC GET VITALS HELP
  1. ; Get help text for a selected vital type
  1. ; Input:
  1. ; GMVITTYP = A pointer to GMRV Vital Type file (#120.51) (Optional)
  1. ; Output:
  1. ; RESULT() = Help text
  1. S GMVITTYP=$$VITIEN^GMVDCUTL(GMVITTYP)
  1. S GMVITTYP=$P($G(^GMRD(120.51,+GMVITTYP,0)),U,2)
  1. I GMVITTYP]"" D
  1. . D HELP^GMVDCHLP(.RESULT,GMVITTYP)
  1. . S RESULT(0)="OK"
  1. . I $O(RESULT(0))'>0 S RESULT(1)="No help text available."
  1. . Q
  1. E D
  1. . S RESULT(0)="ERROR"
  1. . S RESULT(1)="ERROR: Missing or invalid Vital Type parameter"
  1. . Q
  1. Q
  1. ;
  1. EN8(RESULT,GMVPARAM) ;
  1. ; RPC: GMVDC SAVE VITALS
  1. ; Saves vitals data
  1. N GMVDFN,GMVDTDUN,GMVDTENT,GMVENTBY,GMVERRBY,GMVHOSPL,GMVMSYS K RESULT
  1. S RESULT(0)="OK"
  1. S GMVDATA="^TMP(""GMV"",$J)"
  1. D FMTPARAM^GMVDCUTL(.GMVPARAM,GMVDATA)
  1. D EN1^GMVDCVAL(.RESULT,GMVDATA)
  1. I $G(RESULT(0))="OK" D EN1^GMVDCSAV(.RESULT,GMVDATA)
  1. K RESULT(-1)
  1. Q
  1. ;
  1. EN9(RESULT,GMVPARAM) ;
  1. ; RPC: GMVDC VALIDATE VITALS
  1. ; Validates vitals data
  1. N GMVDFN,GMVDTDUN,GMVDTENT,GMVENTBY,GMVERRBY,GMVHOSPL,GMVMSYS K RESULT
  1. S RESULT(0)="OK"
  1. S GMVDATA="^TMP(""GMV"",$J)"
  1. D FMTPARAM^GMVDCUTL(.GMVPARAM,GMVDATA)
  1. D EN1^GMVDCVAL(.RESULT,GMVDATA)
  1. K RESULT(-1)
  1. Q
  1. ;
  1. EN10(RESULT,GMVMSYS) ;
  1. ; RPC: GMVDC GET ABNORMAL RANGES
  1. ; Returns the abnormal ranges for the vital types
  1. ; Input:
  1. ; GMVMSYS = Measurement system (Optional)
  1. ; M = Metric, C - US Customary (Default)
  1. ; Output:
  1. ; RESULT(1) = TEMP-HIGH ^ TEMP-LOW ^ PULSE-HIGH ^ PULSE-LOW ^
  1. ; RESP-HIGH ^ RESP-LOW ^ SYSTOLIC-HIGH ^ DIASTOLIC-HIGH ^
  1. ; SYSTOLIC-LOW ^ DIASTOLIC-LOW ^ CVP-HIGH ^ CVP-LOW ^
  1. ; O2SAT-LOW
  1. N GMVABBR,GMVALUE,GMVPIECE K RESULT
  1. S GMVMSYS=$$MEASYS^GMVDCUTL($G(GMVMSYS))
  1. S RESULT(0)="OK"
  1. S RESULT(1)=$P($G(^GMRD(120.57,1,1)),U,1,13)
  1. F GMVPIECE=1,2,11,12 D
  1. . S GMVABBR=$P("T^T^^^^^^^^^CVP^CVP",U,GMVPIECE)
  1. . S GMVALUE=$P(RESULT(1),U,GMVPIECE)
  1. . S GMVALUE=$$CNV^GMVDCCNV(GMVALUE,GMVMSYS,"G",GMVABBR)
  1. . S $P(RESULT(1),U,GMVPIECE)=GMVALUE
  1. . Q
  1. Q