- 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 Jan 18, 2025@02:42:10 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 ;