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

PSBOVT.m

Go to the documentation of this file.
  1. PSBOVT ;BIRMINGHAM/BSR - CUMULATIVE VITALS REPORT ;5/28/10 1:49pm
  1. ;;3.0;BAR CODE MED ADMIN;**42**;Mar 2004;Build 23
  1. ; Reference/IA
  1. ; EN3^GMRVSC0/1444
  1. ;
  1. EN ; Print Cumulative Vitals Report
  1. ;
  1. N PSBGBL,DFN
  1. S PSBGBL="^TMP(""PSBO"",$J,""B"")"
  1. S PSBGBL=$Q(@PSBGBL) Q:PSBGBL="" Q:$QS(PSBGBL,1)'="PSBO"!($QS(PSBGBL,2)'=$J)
  1. S DFN=$QS(PSBGBL,5)
  1. D PRNT(DFN,$P(PSBRPT(.1),U,6)_$P(PSBRPT(.1),U,7),$P(PSBRPT(.1),U,8)_$P(PSBRPT(.1),U,9))
  1. Q
  1. ;
  1. PRNT(DFN,PSBVSDT,PSBVFDT) ; PATIENT CUMULATIVE VITALS REPORT
  1. ; INPUT VARIABLES: DFN=PATIENT NUMBER
  1. ;
  1. S FLGD=""
  1. S PSBINS=$P(PSBVSDT,".")
  1. S PSBINSA=$P(PSBVFDT,".")
  1. D DATEADD
  1. I IOST="P-DUMMY" D PSBIOCH
  1. ;
  1. ;IHS/MSC/PLS - Call Vitals lookup based on agency code
  1. ; and PCC Vitals package usage flag "BEHOVM USE VMSR"=1
  1. I $G(DUZ("AG"))="I",$$GET^XPAR("ALL","BEHOVM USE VMSR") D
  1. .D CRPT^APCDMSR1(DFN,PSBINS,PSBINSA)
  1. E D
  1. .D EN3^GMRVSC0(DFN,PSBINS,PSBINSA)
  1. Q
  1. ;
  1. DATEADD ;
  1. S X=PSBINSA
  1. D H^%DTC
  1. S %H=%H+1
  1. D YMD^%DTC
  1. S PSBINSA=X
  1. Q
  1. ;
  1. PSBIOCH ;
  1. S IOF="#"
  1. S IOSL="66"
  1. Q
  1. ;
  1. ;