PSBOVT.m

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

 ;

 ;

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       ;