PSBCHIVH ;BIRMINGHAM/BSR-BCMA CHECK IV ROUTINE ;Mar 2004
 ;;3.0;BAR CODE MED ADMIN;;Mar 2004
 ;
 ;This routine will retrievehistory order numbers. 
 ;
GETORD(PSBORD)    ;
 S PSBONXS=PSBORD_"^"
 F PSBC1=1:1 Q:$P(PSBONXS,U,PSBC1)=""  D  ; process all orders
 .D CLEAN^PSBVT,PSJ1^PSBVT(DFN,$P(PSBONXS,U,PSBC1))
 .I $G(PSBPONX)]"",$G(PSBPONX)["P" S PSBPONX2=PSBPONX D  ; Must compare
 ..F  D CLEAN^PSBVT,PSJ1^PSBVT(DFN,PSBPONX2) S PSBPONX2=PSBPONX  Q:(PSBPONX2="")!(PSBPONX2'["P")  ;
 ..D CLEAN^PSBVT,PSJ1^PSBVT(DFN,$P(PSBONXS,U,PSBC1))  ; Refresh data
 ..S:$D(PSBPONX2) PSBPONX=PSBPONX2 K PSBPONX2
 .Q:($L(U_PSBONXS,U_PSBPONX_U)-1)>0
 .I $G(PSBPONX)]"" S PSBONXS=PSBONXS_PSBPONX_U
 S PSBONXSB=PSBONXS
 Q
 ;