Guardian Programmer's Guide

Table Of Contents
Writing a Requester Program
Guardian Programmer’s Guide 421922-014
21 - 27
Coding the Requester Program
! Print two blank lines on the terminal:
PRINT^BLANK;
PRINT^BLANK;
! Print returned information on the terminal:
PART^REC ':=' SBUFFER FOR ($LEN(PART^REC));
PRINT^STR("INVENTORY PROFILE: ");
! Print the part number:
PRINT^STR("Part number: " &
PART^REC.PART^NUMBER FOR 10);
! Print the part description:
PRINT^STR("Part description: " &
PART^REC.PART^DESC FOR 48);
! Print the quantity on hand:
START^LINE;
PUT^STR("Quantity on Hand: ");
PUT^INT(PART^REC.QUANTITY^ON^HAND);
PRINT^LINE;
! Print the unit price:
START^LINE;
PUT^STR("Unit Price: $");
PUT^INT(PART^REC.UNIT^PRICE);
PRINT^LINE;
PRINT^BLANK;
! Print out any reorder information:
PRINT^STR("REORDER INFORMATION:");