|
Last change
on this file since 703 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
704 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | PSBCHIVH ;BIRMINGHAM/BSR-BCMA CHECK IV ROUTINE ;Mar 2004
|
|---|
| 2 | ;;3.0;BAR CODE MED ADMIN;;Mar 2004
|
|---|
| 3 | ;
|
|---|
| 4 | ;This routine will retrievehistory order numbers.
|
|---|
| 5 | ;
|
|---|
| 6 | GETORD(PSBORD) ;
|
|---|
| 7 | S PSBONXS=PSBORD_"^"
|
|---|
| 8 | F PSBC1=1:1 Q:$P(PSBONXS,U,PSBC1)="" D ; process all orders
|
|---|
| 9 | .D CLEAN^PSBVT,PSJ1^PSBVT(DFN,$P(PSBONXS,U,PSBC1))
|
|---|
| 10 | .I $G(PSBPONX)]"",$G(PSBPONX)["P" S PSBPONX2=PSBPONX D ; Must compare
|
|---|
| 11 | ..F D CLEAN^PSBVT,PSJ1^PSBVT(DFN,PSBPONX2) S PSBPONX2=PSBPONX Q:(PSBPONX2="")!(PSBPONX2'["P") ;
|
|---|
| 12 | ..D CLEAN^PSBVT,PSJ1^PSBVT(DFN,$P(PSBONXS,U,PSBC1)) ; Refresh data
|
|---|
| 13 | ..S:$D(PSBPONX2) PSBPONX=PSBPONX2 K PSBPONX2
|
|---|
| 14 | .Q:($L(U_PSBONXS,U_PSBPONX_U)-1)>0
|
|---|
| 15 | .I $G(PSBPONX)]"" S PSBONXS=PSBONXS_PSBPONX_U
|
|---|
| 16 | S PSBONXSB=PSBONXS
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
