Its not a SQL Program , it is a Progress Program.

DEFINE INPUT PARAMETER IpModule AS CHAR NO-UNDO.

DEFINE INPUT PARAMETER IpKeyValue AS CHAR NO-UNDO.

IF IpModule = "Order" then

do :

/* Create an TempTable Record */

Run GetOrder (IpKeyValue).

end.

Procedure getOrder :

Define input parameter IpOrder as char .

/* Insert into #temp (Parent, Child, Decription) */

for each OrderLine where Order = IpOrder :

Run GetOrderLine (inpur Order, Input Line) .

end.

end procedure.

Procedure getOrderLine :

Define input parameter IpOrder as char .

Define input parameter IpLine as int .

/* Insert into #temp (Parent, Child, Decription) */

end.

end procedure.

Procedure getShipments :

Define input parameter IpOrder as char .

Define input parameter IpLine as int .

/* Insert into #temp (Parent, Child, Decription) */

end.

end procedure.

Procedure getInvoices:

Define input parameter IpOrder as char .

Define input parameter IpLine as int .

/* Insert into #temp (Parent, Child, Decription) */

end procedure.