|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
799 bytes
|
| Line | |
|---|
| 1 | PSBOVT ;BIRMINGHAM/BSR-CUMULATIVE VITALS REPORT ;Mar 2004
|
|---|
| 2 | ;;3.0;BAR CODE MED ADMIN;;Mar 2004;
|
|---|
| 3 | ; Reference/IA
|
|---|
| 4 | ; EN3^GMRVSC0/1444
|
|---|
| 5 | ;
|
|---|
| 6 | EN ; 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 | ;
|
|---|
| 15 | PRNT(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 | ;
|
|---|
| 26 | DATEADD ;
|
|---|
| 27 | S X=PSBINSA
|
|---|
| 28 | D H^%DTC
|
|---|
| 29 | S %H=%H+1
|
|---|
| 30 | D YMD^%DTC
|
|---|
| 31 | S PSBINSA=X
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | PSBIOCH ;
|
|---|
| 35 | S IOF="#"
|
|---|
| 36 | S IOSL="66"
|
|---|
| 37 | Q
|
|---|
| 38 | ;
|
|---|
| 39 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
