source: WorldVistAEHR/trunk/r/BAR_CODE_MED_ADMIN-ALPB-PSB/PSBOVT.m@ 1608

Last change on this file since 1608 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 799 bytes
Line 
1PSBOVT ;BIRMINGHAM/BSR-CUMULATIVE VITALS REPORT ;Mar 2004
2 ;;3.0;BAR CODE MED ADMIN;;Mar 2004;
3 ; Reference/IA
4 ; EN3^GMRVSC0/1444
5 ;
6EN ; Print Cumulative Vitals Report
7 ;
8 N PSBGBL,DFN
9 S PSBGBL="^TMP(""PSBO"",$J,""B"")"
10 S PSBGBL=$Q(@PSBGBL) Q:PSBGBL="" Q:$QS(PSBGBL,1)'="PSBO"!($QS(PSBGBL,2)'=$J)
11 S DFN=$QS(PSBGBL,5)
12 D PRNT(DFN,$P(PSBRPT(.1),U,6)_$P(PSBRPT(.1),U,7),$P(PSBRPT(.1),U,8)_$P(PSBRPT(.1),U,9))
13 Q
14 ;
15PRNT(DFN,PSBVSDT,PSBVFDT) ; PATIENT CUMULATIVE VITALS REPORT
16 ; INPUT VARIABLES: DFN=PATIENT NUMBER
17 ;
18 S FLGD=""
19 S PSBINS=$P(PSBVSDT,".")
20 S PSBINSA=$P(PSBVFDT,".")
21 D DATEADD
22 I IOST="P-DUMMY" D PSBIOCH
23 D EN3^GMRVSC0(DFN,PSBINS,PSBINSA)
24 Q
25 ;
26DATEADD ;
27 S X=PSBINSA
28 D H^%DTC
29 S %H=%H+1
30 D YMD^%DTC
31 S PSBINSA=X
32 Q
33 ;
34PSBIOCH ;
35 S IOF="#"
36 S IOSL="66"
37 Q
38 ;
39 ;
Note: See TracBrowser for help on using the repository browser.