Guardian Programmer's Guide

Table Of Contents
Writing a Requester Program
Guardian Programmer’s Guide 421922-014
21 - 44
Coding the Requester Program
! Print date shipped to customer:
START^LINE;
PUT^STR("Date Shipped: ");
IF ORDER^REC.DATE^SHIPPED = 0 THEN
PUT^STR("Order Not Yet Shipped ")
ELSE
BEGIN
CALL CONTIME(DATE^AND^TIME,PART^REC.SHIPMENT^DUE[0],
PART^REC.SHIPMENT^DUE[1],
PART^REC.SHIPMENT^DUE[2]);
START^LINE;
PUT^INT(DATE^AND^TIME[1]);
PUT^STR("-");
PUT^INT(DATE^AND^TIME[2]);
PUT^STR("-");
PUT^INT(DATE^AND^TIME[0]);
END;
PRINT^LINE;
! Print shipping status:
PRINT^STR("Shipping Status: " &
ORDER^REC.SHIPPING^STATUS FOR 2);
PRINT^BLANK;
PRINT^BLANK;
END;
!------------------------------------------------------------
! Procedure closes all servers opened by this process and
! then exits. This procedure is called from the main
! procedure when the user selects "x" from the main menu.
!------------------------------------------------------------
PROC EXIT^PROGRAM;
BEGIN
CALL FILE_CLOSE_(SERV1^NUM);
CALL FILE_CLOSE_(SERV2^NUM);
CALL FILE_CLOSE_(SERV3^NUM);
CALL PROCESS_STOP_;
END;