Guardian Programmer's Guide

Table Of Contents
Writing a Requester Program
Guardian Programmer’s Guide 421922-014
21 - 28
Coding the Requester Program
! Print the supplier's name:
PRINT^STR("Supplier Name: " &
PART^REC.SUPPLIER FOR 24);
! Print date when last order placed with supplier:
CALL CONTIME(DATE^AND^TIME,PART^REC.ORDER^PLACED[0],
PART^REC.ORDER^PLACED[1],PART^REC.ORDER^PLACED[2]);
START^LINE;
PUT^STR("Order Placed: ");
PUT^INT(DATE^AND^TIME[1]);
PUT^STR("-");
PUT^INT(DATE^AND^TIME[2]);
PUT^STR("-");
PUT^INT(DATE^AND^TIME[0]);
PRINT^LINE;
! Print date when next shipment is due from the supplier:
START^LINE;
PUT^STR("Shipment Due: ");
CALL CONTIME(DATE^AND^TIME,PART^REC.SHIPMENT^DUE[0],
PART^REC.SHIPMENT^DUE[1],PART^REC.SHIPMENT^DUE[2]);
PUT^INT(DATE^AND^TIME[1]);
PUT^STR("-");
PUT^INT(DATE^AND^TIME[2]);
PUT^STR("-");
PUT^INT(DATE^AND^TIME[0]);
PRINT^LINE;
! Print quantity ordered from supplier:
START^LINE;
PUT^STR("Quantity Ordered: ");
PUT^INT(PART^REC.QUANTITY^ORDERED);
PRINT^LINE;
PRINT^BLANK;
PRINT^BLANK;
END;