Program drill-down
CS_CONFIRM_SINGLE
COLD STORAGE DELIVERY CONFIRMATION. Type DSP, base table LOC_TRANS.
Field inventory
66
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | CMD 6 | C | -1 | 491, 349 | $SELECT I:I\ORGS;=; DO(AJA) I:I\OWN_CR;=;Y S:LOCATION_CS_CODES1;I\ROOM_NO I:I\OWN_CR;=;N S:LOCATION_CS_CODES;I\ROOM_NO DOEND(AJA) I:I\ORGS;<>; DO(ALA) I:I\OWN_CR;=;Y S:LOCATION_CS_CODES2;I\ROOM_NO;I\ORGS I:I\OWN_CR;=;N S:LOCATION_CS_CODES;I\ROOM_NO DOEND(AL |
|
| 1 | 0.0 | CMD 7 | C | -1 | 491, 373 | $SELECT 'DISPLAY A SELECTION WINDOW S:ROOM_SECTION;I\SECT;I\ROOM_NO |
|
| 1 | 0.0 | Work 8 | I | 0 | 631, 133 | ||
| 1 | 0.0 | Work 9 | I | 0 | 631, 169 | ||
| 1 | 0.0 | Work 2 | I | 0 | 501, 97 | ||
| 1 | 0.0 | MARKET | T | -1 | 1, 25 | ||
| 1 | 0.0 | FRESH | T | -1 | 291, 25 | ||
| 1 | 0.0 | SCREEN | T | -1 | 241, 49 | ||
| 1 | 0.0 | Label 4 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 7 | T | -1 | 671, 49 | ||
| 1 | 0.0 | USERID | I | 0 | 61, 61 | $DEFAULT A:USERID;;I\USERID |
|
| 1 | 0.0 | IP | I | 0 | 41, 61 | $DEFAULT A:USERIP;;I\IP |
|
| 1 | 0.0 | AGENT | I | 0 | 21, 61 | $DEFAULT A:ORGS;;I\ORGS |
|
| 1 | 0.0 | MARKET | I | 0 | 1, 61 | $DEFAULT A:ORG;;I\MARKET 'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS A:DATE;DD MMM YYYY;T\DATE A:DATE;DD MMM YYYY;I\CONF_DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 F:CLIENT_MAST;;CM_CODE;I\OWN_CR=CM_OWN_ROOMS,T\MARKET=CM_NAME,I\CM_DEL_LEN=CM_DEL_LEN,D\CM_CSTARIFF=CM_CSTARIFF;; 'LOAD MARK |
|
| 1 | 0.0 | CMD 12 | C | -1 | 651, 544 | $SELECT I:K\CONFIRM;=;0 D:PLEASE CONFIRM THIS DELIVERY NUMBER;ERRORM;K\CONFIRM I:I\ORGS;=; DO(AJA) I:I\OWN_CR;=;Y F:LOCATION_MAST;Y;;;LM_CODE='$I\ROOM_NO$' AND LM_TYPE IN('CS','RR','WR','VR') AND (LM_AGENT = '' OR ISNULL(LM_AGENT));I\ROOM_NO I:I\OWN_CR;=;N F:LOCATION_MAST;Y;;;LM_CODE='$I\ROOM_NO$ |
|
| 1 | 0.0 | Label 1 | T | -1 | 211, 493 | ||
| 1 | 0.0 | Label 3 | T | -1 | 441, 493 | ||
| 1 | 0.0 | Work 4 | I | -1 | 571, 493 | $VALIDATE I:I\NUMB_LABELS;=;0 D:ENTER A VALID NUMBER OF COPIES TO PRINT;ERRORM;I\NUMB_LABELS I:I\NUMB_LABELS;=; D:ENTER NUMBER OF COPIES TO PRINT;ERRORM;I\NUMB_LABELS O:SETFOCUS;C\PRT_LABEL O:BACKCOLOR;C\PRT_LABEL;YELLOW |
|
| 1 | 0.0 | DEP_DATE | I | 0 | 611, 97 | ||
| 1 | 0.0 | Work 1 | I | -1 | 381, 325 | ||
| 1 | 0.0 | Work 1 | I | 0 | 21, 481 | ||
| 1 | 0.0 | DEPLEN | I | 0 | 631, 229 | ||
| 1 | 0.0 | Label 1 | T | -1 | 211, 373 | ||
| 1 | 0.0 | Label 2 | T | -1 | 211, 397 | ||
| 1 | 0.0 | Work 3 | I | -1 | 381, 349 | $SELECT I:I\ORGS;=; DO(AJA) I:I\OWN_CR;=;Y S:LOCATION_CS_CODES1;I\ROOM_NO I:I\OWN_CR;=;N S:LOCATION_CS_CODES;I\ROOM_NO DOEND(AJA) I:I\ORGS;<>; DO(ALA) I:I\OWN_CR;=;Y S:LOCATION_CS_CODES2;I\ROOM_NO;I\ORGS I:I\OWN_CR;=;N S:LOCATION_CS_CODES;I\ROOM_NO DOEND(ALA) $CALCULATE '$VALID |
|
| 1 | 0.0 | Work 4 | I | -1 | 381, 373 | $SELECT 'DISPLAY A SELECTION WINDOW S:ROOM_SECTION;I\SECT;I\ROOM_NO $VALIDATE 'MANDATORY M: 'CONVERT TO UPPERCASE C:UCASE 'CHECK IF A VALID SECTION IS ENTERED F:ROOM_DET;Y;;;RD_ROOM='$I\ROOM_NO$' AND RD_SECTION = '$I\SECT$' F:ROOM_DET;;;I\TMP=RD_SHELVES;RD_ROOM='$I\ROOM_NO$' ' >> RK200905 ========= |
|
| 1 | 0.0 | DEPNO | T | -1 | 211, 97 | ||
| 1 | 0.0 | DEPNO | I | -1 | 381, 97 | $SELECT S:DEPOSIT_NO2;I\DEPNO $CALCULATE A:CONST;;W\DELETED,I\PRT_LABEL O:ENABLEINPUT;T\AGN,T\ROOMNO,T\COMMOD,T\SUPPL,T\SUPPL_NAME,T\CONS,T\FLOOR,I\SHELF,T\OLD_QTY2,T\OLD_PALL_QTY2,I\QTY,I\PALL_QTY,I\VAL,I\DELDATE,I\DEPNO,K\CONFIRM,I\ROOM_NO,I\SECT,I\REMARKS;I\SHELF,I\TARIFF,I\DEPDATE,C\UPDATE M: F:LOC_TRAN |
|
| 1 | 0.0 | CMD 4 | C | -1 | 491, 97 | $SELECT S:DEPOSIT_NO2;I\DEPNO |
|
| 1 | 0.0 | CONSIGND | T | -1 | 211, 205 | ||
| 1 | 0.0 | CONS | T | -1 | 381, 205 | ||
| 1 | 0.0 | ROOM | T | -1 | 211, 349 | ||
| 1 | 0.0 | QTY | T | -1 | 211, 433 | ||
| 1 | 0.0 | OLD_QTY1 | T | -1 | 211, 265 | ||
| 1 | 0.0 | OLD_QTY2 | T | -1 | 381, 265 | ||
| 1 | 0.0 | OLD_PALL_QTY1 | T | -1 | 211, 289 | ||
| 1 | 0.0 | OLD_PALL_QTY2 | T | -1 | 381, 289 | ||
| 1 | 0.0 | SUPPL _NAME | T | -1 | 491, 181 | ||
| 1 | 0.0 | FLOOR | T | -1 | 381, 241 | ||
| 1 | 0.0 | SUPPL1 | T | -1 | 211, 181 | ||
| 1 | 0.0 | SUPPL | T | -1 | 381, 181 | ||
| 1 | 0.0 | AGN1 | T | -1 | 211, 133 | ||
| 1 | 0.0 | AGN | T | -1 | 381, 133 | ||
| 1 | 0.0 | FQTY | T | -1 | 211, 241 | ||
| 1 | 0.0 | COMM | T | -1 | 211, 157 | ||
| 1 | 0.0 | COMMOD | T | -1 | 381, 157 | ||
| 1 | 0.0 | Work 28 | I | -1 | 41, 553 | ||
| 1 | 0.0 | Check 1 | K | -1 | 381, 433 | $CALCULATE 'O:SETFOCUS;C\UPDATE 'O:BACKCOLOR;C\UPDATE;YELLOW A:CONST;;I\REMARKS |
|
| 1 | 0.0 | Work 5 | I | -1 | 381, 397 | '$CALCULATE $VALIDATE 'MANDATORY M: 'CHECK IF A VALID SHELF IS ENTERED 'F:ROOM_DET;;;I\TMP=RD_SHELVES;RD_ROOM='$I\ROOM_NO$' I:I\SHELF;>;I\TMP D:THIS IS GREATER THAN THE NUMBER OF SHELVES AVAILABLE;ERRORM ' >> RK200905 ==================================================================== $SVAR_FOCUS I:I |
|
| 1 | 0.0 | Label 1 | T | -1 | 211, 457 | ||
| 1 | 0.0 | Work 2 | I | -1 | 381, 457 | $VALIDATE C:UCASE O:DISABLEINPUT;T\PRT_LABELS,I\PRT_LABELS,T\NUMB_LABELS,I\NUMB_LABELS O:ENABLEINPUT;C\UPDATE O:SETFOCUS;C\UPDATE O:BACKCOLOR;C\UPDATE;YELLOW |
|
| 1 | 0.0 | Work 2 | I | 0 | 571, 373 | ||
| 1 | 0.0 | Work 5 | I | -1 | 381, 493 | $VALIDATE C:UCASE V:Y;N I:I\PRT_LABELS;=;Y DO(Y) O:ENABLEINPUT;T\NUMB_LABELS,I\NUMB_LABELS O:SETFOCUS;I\NUMB_LABELS DOEND(Y) I:I\PRT_LABELS;=;N DO(MKD) A:CONST;;T\AGN,T\ROOMNO,T\COMMOD,T\SUPPL,T\SUPPL_NAME,T\CONS,T\FLOOR,T\OLD_QTY2,T\OLD_PALL_QTY2,I\QTY,I\PALL_QTY,I\VAL,I\DELDATE A:CONST;;I\DEP |
|
| 1 | 0.0 | CMD 1 | C | -1 | 563, 548 | $SELECT I:I\PRT_LABELS;=;Y DO(L) A:CONST;PRINTING LABEL ...;T\PROG U:CS_DEPOSIT_LABELS;SINGLE_DEP_PRT_LABELS A:CONST;LABEL PRINTED !!!;T\PROG DOEND(L) A:CONST;;T\AGN,T\ROOMNO,T\COMMOD,T\SUPPL,T\SUPPL_NAME,T\CONS,T\FLOOR,T\OLD_QTY2,T\OLD_PALL_QTY2,I\QTY,I\PALL_QTY,I\VAL,I\DELDATE A:CONST;;I\DEPNO,K\CONFI |
|
| 1 | 0.0 | Label 2 | T | -1 | 211, 325 | ||
| 1 | 0.0 | Work 3 | I | 0 | 571, 409 | ||
| 1 | 0.0 | BLANK | I | 0 | 571, 313 | ||
| 1 | 0.0 | Work 1 | I | 0 | 591, 265 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 |