PDEL_DOCKET_REPRINT

$SELECT    I:I\TYPE;=;01  DO(TAX)    I:I\ORGS;<>;    DO(SGS)      I:I\TDATE;<>;      S:TAX_INV2;I\DOCNO;I\ORGS;I\FDATE;I\TDATE            I:I\TDATE;=;      S:TAX_INV;I\DOCNO;I\ORGS    DOEND(SGS)      I:I\ORGS;=;      DO(SAS)      I:I\TDATE;<>;      S:TAX_INV3;I\DOCNO;I\ORGS;I\FDATE;I\TDATE            I:I\TDATE;=;      

$SELECT  I:I\ORGS;<>;      F:STK_TRANS;Y;;I\DEBTOR=ST_TAXINV;ST_DOCNO = '$I\DOCNO$' AND ST_DEBTOR='$I\BUYER$' AND ST_AGENT='$I\ORGS$' AND ST_TRTYPE = 'DP' AND ST_PSSTAT = 'D';I\DOCNO      I:I\ORGS;=;        F:STK_TRANS;Y;;I\DEBTOR=ST_TAXINV,I\ST_CONSIGN=ST_CONSIGN;ST_DOCNO = '$I\DOCNO$' AND ST_DEBTOR='$I\BUYER$'  AND S

$VALIDATE    A:CONST;;T\NAME,W\ACCTYPE,I\BYR,I\NME,I\TMP_BUYER  M:        F:DEBTOR_MAST;;;W\ACCTYPE=DM_ACCTYPE,T\NAME=DM_NAME,I\BLOCKED=DM_BLOCKED;DM_MARKET='$I\MARKET$' AND DM_DEBTOR='$I\BUYER$';I\BUYER      I:T\NAME;=;      DO(NME)        D:BUYER $I\BUYER$ DOES NOT EXIST;ERRORM;I\BUYER      DOEND(NME)      I:I\BLOCKE

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;I\RFID=CM_USE_RFID,T\MARKET=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    I:I\MARKET;<>;22   DO(LF9)    I:I\MARKET;<>;19      A:SETPWFIELD;I\BUYER   DOEND(LF9)

$DEFAULT  A:ORGS;;I\ORGS

$DEFAULT  A:USERIP;;I\IP

$DEFAULT  A:USERID;;I\USERID    'GETS CASH POINT  F:CASH_POINT;;;I\CASHPNT=CPO_CASHPT;CPO_IP='$I\IP$' AND CPO_MARKET='$I\MARKET$';

$SELECT    I:I\ORGS;<>;    DO(SGS)       I:I\TDATE;<>;      S:PDEL_TAX_INV2_PTA;I\DOCNO;I\ORGS;I\TDATE;I\BUYER      F:STK_TRANS;;;I\DEBTOR=ST_TAXINV;ST_DOCNO = '$I\DOCNO$' AND ST_DEBTOR='$I\BUYER$' AND ST_AGENT='$I\ORGS$' AND ST_TRTYPE = 'DP' AND ST_PSSTAT = 'D';I\DOCNO         DOEND(SGS)              I:I\ORGS;=;      

$DEFAULT  'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:VAR;T\DATE;I\FDATE;;YYYY/MM/DD  A:VAR;T\DATE;I\TDATE;;YYYY/MM/DD