Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSBCHIVH

PSBCHIVH.m

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