PSBOVT ;BIRMINGHAM/BSR - CUMULATIVE VITALS REPORT ;5/28/10 1:49pm
;;3.0;BAR CODE MED ADMIN;**42**;Mar 2004;Build 23
; Reference/IA
; EN3^GMRVSC0/1444
;
EN ; Print Cumulative Vitals Report
;
N PSBGBL,DFN
S PSBGBL="^TMP(""PSBO"",$J,""B"")"
S PSBGBL=$Q(@PSBGBL) Q:PSBGBL="" Q:$QS(PSBGBL,1)'="PSBO"!($QS(PSBGBL,2)'=$J)
S DFN=$QS(PSBGBL,5)
D PRNT(DFN,$P(PSBRPT(.1),U,6)_$P(PSBRPT(.1),U,7),$P(PSBRPT(.1),U,8)_$P(PSBRPT(.1),U,9))
Q
;
PRNT(DFN,PSBVSDT,PSBVFDT) ; PATIENT CUMULATIVE VITALS REPORT
; INPUT VARIABLES: DFN=PATIENT NUMBER
;
S FLGD=""
S PSBINS=$P(PSBVSDT,".")
S PSBINSA=$P(PSBVFDT,".")
D DATEADD
I IOST="P-DUMMY" D PSBIOCH
;
;IHS/MSC/PLS - Call Vitals lookup based on agency code
; and PCC Vitals package usage flag "BEHOVM USE VMSR"=1
I $G(DUZ("AG"))="I",$$GET^XPAR("ALL","BEHOVM USE VMSR") D
.D CRPT^APCDMSR1(DFN,PSBINS,PSBINSA)
E D
.D EN3^GMRVSC0(DFN,PSBINS,PSBINSA)
Q
;
DATEADD ;
S X=PSBINSA
D H^%DTC
S %H=%H+1
D YMD^%DTC
S PSBINSA=X
Q
;
PSBIOCH ;
S IOF="#"
S IOSL="66"
Q
;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSBOVT 1087 printed Dec 13, 2024@01:40:56 Page 2
PSBOVT ;BIRMINGHAM/BSR - CUMULATIVE VITALS REPORT ;5/28/10 1:49pm
+1 ;;3.0;BAR CODE MED ADMIN;**42**;Mar 2004;Build 23
+2 ; Reference/IA
+3 ; EN3^GMRVSC0/1444
+4 ;
EN ; Print Cumulative Vitals Report
+1 ;
+2 NEW PSBGBL,DFN
+3 SET PSBGBL="^TMP(""PSBO"",$J,""B"")"
+4 SET PSBGBL=$QUERY(@PSBGBL)
if PSBGBL=""
QUIT
if $QSUBSCRIPT(PSBGBL,1)'="PSBO"!($QSUBSCRIPT(PSBGBL,2)'=$JOB)
QUIT
+5 SET DFN=$QSUBSCRIPT(PSBGBL,5)
+6 DO PRNT(DFN,$PIECE(PSBRPT(.1),U,6)_$PIECE(PSBRPT(.1),U,7),$PIECE(PSBRPT(.1),U,8)_$PIECE(PSBRPT(.1),U,9))
+7 QUIT
+8 ;
PRNT(DFN,PSBVSDT,PSBVFDT) ; PATIENT CUMULATIVE VITALS REPORT
+1 ; INPUT VARIABLES: DFN=PATIENT NUMBER
+2 ;
+3 SET FLGD=""
+4 SET PSBINS=$PIECE(PSBVSDT,".")
+5 SET PSBINSA=$PIECE(PSBVFDT,".")
+6 DO DATEADD
+7 IF IOST="P-DUMMY"
DO PSBIOCH
+8 ;
+9 ;IHS/MSC/PLS - Call Vitals lookup based on agency code
+10 ; and PCC Vitals package usage flag "BEHOVM USE VMSR"=1
+11 IF $GET(DUZ("AG"))="I"
IF $$GET^XPAR("ALL","BEHOVM USE VMSR")
Begin DoDot:1
+12 DO CRPT^APCDMSR1(DFN,PSBINS,PSBINSA)
End DoDot:1
+13 IF '$TEST
Begin DoDot:1
+14 DO EN3^GMRVSC0(DFN,PSBINS,PSBINSA)
End DoDot:1
+15 QUIT
+16 ;
DATEADD ;
+1 SET X=PSBINSA
+2 DO H^%DTC
+3 SET %H=%H+1
+4 DO YMD^%DTC
+5 SET PSBINSA=X
+6 QUIT
+7 ;
PSBIOCH ;
+1 SET IOF="#"
+2 SET IOSL="66"
+3 QUIT
+4 ;
+5 ;
