Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
704 bytes
|
Line | |
---|
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.