source: FOIAVistA/trunk/r/BAR_CODE_MED_ADMIN-ALPB-PSB/PSBCHIVH.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 704 bytes
Line 
1PSBCHIVH ;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 ;
6GETORD(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.