Guardian Programmer's Guide

Table Of Contents
Writing a Requester Program
Guardian Programmer’s Guide 421922-014
21 - 43
Coding the Requester Program
! Print the part number:
PRINT^BLANK;
PRINT^STR("Part Number: " &
ORDER^REC.PART^NUMBER FOR 10);
! Print the part description:
PRINT^STR("Part description: " &
ORDER^REC.PART^DESC FOR 48);
! Print the quantity ordered:
START^LINE;
PUT^STR("Quantity Ordered: ");
PUT^INT(ORDER^REC.QTY^ORDERED);
PRINT^LINE;
! Print date ordered:
CALL CONTIME(DATE^AND^TIME,ORDER^REC.DATE^ORDERED[0],
ORDER^REC.DATE^ORDERED[1],
ORDER^REC.DATE^ORDERED[2]);
START^LINE;
PUT^STR("Date Ordered: ");
PUT^INT(DATE^AND^TIME[1]);
PUT^STR("-");
PUT^INT(DATE^AND^TIME[2]);
PUT^STR("-");
PUT^INT(DATE^AND^TIME[0]);
PRINT^LINE;