PACKAGE BODY: APPS.PO_RELEASES_SV3

Source

1 PACKAGE BODY PO_RELEASES_SV3 as
2 /* $Header: POXPOR3B.pls 115.1 2003/11/01 00:11:20 dxie ship $ */
3 
4 
5 /*===========================================================================
6 
7   PROCEDURE NAME:	test_get_release_num
8 
9 ===========================================================================*/
10    PROCEDURE test_get_release_num (X_po_header_id IN NUMBER) IS
11 
12    X_release_numa     NUMBER;
13 
14    BEGIN
15 
16    dbms_output.put_line('before call');
17 
18    po_releases_sv4.get_release_num(X_po_header_id, X_release_numa);
19 
20    dbms_output.put_line('after call');
21    dbms_output.put_line(X_release_numa);
22 
23    END test_get_release_num;
24 
25 
26 /*===========================================================================
27 
28   PROCEDURE NAME:	test_val_doc_num_unique
29 
30 ===========================================================================*/
31    PROCEDURE test_val_doc_num_unique (X_po_header_id   IN NUMBER,
32 				      X_release_num    IN NUMBER,
33 			              X_rowid IN VARCHAR2) IS
34 
35       BEGIN
36 
37          dbms_output.put_line('before call');
38 
39          IF po_releases_sv4.val_doc_num_unique(X_po_header_id,
40 					      X_release_num,
41 					      X_rowid) THEN
42 	    dbms_output.put_line('returned TRUE');
43 	 ELSE
44 	    dbms_output.put_line('returned FALSE');
45 
46 	 END IF;
47 
48       END test_val_doc_num_unique;
49 
50 
51 /*===========================================================================
52 
53   PROCEDURE NAME:	test_val_approval_status
54 
55 ===========================================================================*/
56    PROCEDURE test_val_approval_status(
57 		       X_po_release_id            IN NUMBER,
58 		       X_release_num              IN NUMBER,
59 		       X_agent_id                 IN NUMBER,
60 		       X_release_date             IN DATE,
61 	 	       X_acceptance_required_flag IN VARCHAR2,
62 		       X_acceptance_due_date      IN VARCHAR2) IS
63 
64 
65       BEGIN
66 
67          dbms_output.put_line('before call');
68 
69 	 IF po_releases_sv4.val_approval_status(
70 		       X_po_release_id,
71 		       X_release_num,
72 		       X_agent_id,
73 		       X_release_date,
74 	 	       X_acceptance_required_flag,
75 		       X_acceptance_due_date,
76                        NULL) -- <INBOUND LOGISTICS FPJ>
77          THEN
78 	    dbms_output.put_line('TRUE');
79          ELSE
80             dbms_output.put_line('FALSE');
81          END IF;
82 
83       END test_val_approval_status;
84 
85 
86 END PO_RELEASES_SV3;