69: loginid NUMBER;
70: temp NUMBER;
71: BEGIN
72:
73: userid := FND_GLOBAL.USER_ID;
74: loginid := FND_GLOBAL.LOGIN_ID;
75:
76: IF (X_Batch_Id is NULL) THEN
77: OPEN NEXTID;
70: temp NUMBER;
71: BEGIN
72:
73: userid := FND_GLOBAL.USER_ID;
74: loginid := FND_GLOBAL.LOGIN_ID;
75:
76: IF (X_Batch_Id is NULL) THEN
77: OPEN NEXTID;
78: FETCH NEXTID INTO X_Batch_Id;
506: userid NUMBER;
507: loginid NUMBER;
508: BEGIN
509:
510: userid := FND_GLOBAL.USER_ID;
511: loginid := FND_GLOBAL.LOGIN_ID;
512: UPDATE SO_PICKING_BATCHES
513: SET
514: batch_id = X_Batch_Id,
507: loginid NUMBER;
508: BEGIN
509:
510: userid := FND_GLOBAL.USER_ID;
511: loginid := FND_GLOBAL.LOGIN_ID;
512: UPDATE SO_PICKING_BATCHES
513: SET
514: batch_id = X_Batch_Id,
515: last_update_date = SYSDATE,
608: userid NUMBER;
609: printer varchar2(32);
610: BEGIN
611: -- get the applications, responsibility, and user ID
612: app_id := FND_GLOBAL.RESP_APPL_ID;
613: respid := FND_GLOBAL.RESP_ID;
614: userid := FND_GLOBAL.USER_ID;
615:
616: -- get pick slip printer
609: printer varchar2(32);
610: BEGIN
611: -- get the applications, responsibility, and user ID
612: app_id := FND_GLOBAL.RESP_APPL_ID;
613: respid := FND_GLOBAL.RESP_ID;
614: userid := FND_GLOBAL.USER_ID;
615:
616: -- get pick slip printer
617: SELECT MAX(P.LEVEL_TYPE_ID)
610: BEGIN
611: -- get the applications, responsibility, and user ID
612: app_id := FND_GLOBAL.RESP_APPL_ID;
613: respid := FND_GLOBAL.RESP_ID;
614: userid := FND_GLOBAL.USER_ID;
615:
616: -- get pick slip printer
617: SELECT MAX(P.LEVEL_TYPE_ID)
618: INTO level_type_id