ikutiazza / slims Goto Github PK

:DECLARE mUSRINFO,mLABLIST,mLAB_NAME;
:PUBLIC mLAB_CODE;

mUSRINFO:=Lselect("select LAB_CODE,LABLIST from USERS where USRNAM='"+GetUserData("NAME")+"'");
:IF Len(mUSRINFO)=0;
Labort();
:ENDIF;
mLAB_CODE:=mUSRINFO[1,1];
mLABLIST:=mUSRINFO[1,2];
:IF mLAB_CODE=="*";
:IF GetUserData("AUTH")$'2';
mLAB_NAME:=PickItem(380,210,250,380," Units Library","select LAB_NAME from LAB_MASTER where TEST_OWNER='Y' and RES_FMT not in ('< NONE >','TEMPLATE','WORD')");
:ELSE;
mLAB_NAME:=PickItem(380,210,250,380," Units Library","select LAB_NAME from LAB_MASTER where STATUS in ('ACTIVE','NEW') and TEST_OWNER='Y' and RES_FMT not in ('< NONE >','TEMPLATE','WORD')");
:ENDIF;
:IF Empty(mLAB_NAME);
Labort();
:ELSE;
mLAB_CODE:=Lsearch("select LAB_CODE from LAB_MASTER where LAB_NAME='"+mLAB_NAME+"'");
:ENDIF;
:ELSE;
:IF Empty(mLABLIST);

      mLAB_NAME:=Lsearch("select LAB_NAME from LAB_MASTER where LAB_CODE='"+mLAB_CODE+"' and STATUS in ('ACTIVE','NEW') and TEST_ITEM='Y' and RES_FMT not in ('< NONE >','TEMPLATE','WORD')");
 :ELSE;
      mLAB_NAME:=PickItem(380,210,250,380," Units Library","select LAB_NAME from LAB_MASTER where instr('"+AllTrim(mLABLIST)+"',LAB_CODE)>0 and STATUS in ('ACTIVE','NEW') and TEST_OWNER='Y' and RES_FMT not in ('< NONE >','TEMPLATE','WORD')");
 :ENDIF;
 :IF Empty(mLAB_NAME);
      Labort();
 :ELSE;
      mLAB_CODE:=Lsearch("select LAB_CODE from LAB_MASTER where LAB_NAME='"+mLAB_NAME+"'");
 :ENDIF;

:ENDIF;

SetTitle(GetAppId(),"("+GetAppId()+") Units of "+AllTrim(mLAB_NAME)+" [ All Units ]");
"SELECT * FROM UNITS WHERE UNITS.LAB_CODE='"+mLAB_CODE+"' ORDER BY UNITS.UNITABBR"