Guardian Programmer's Guide

Writing a Requester Program
Guardian Programmer’s Guide — 421922-014
21 - 38
Coding the Requester Program
! Check that credit-card number is all numeric:
I := 0;
WHILE I < 16 DO
BEGIN
IF SBUFFER[I] < "0" OR SBUFFER[I] > "9" THEN
BEGIN
PRINT^BLANK;
PRINT^STR("Credit Card Number Must Be All Numeric");
PRINT^STR("Please Enter Valid Credit-Card Number");
GOTO REPEAT^CCN;
END;
I := I + 1;
END;
! Put credit-card number in order-request message:
ORDER^REQUEST.CCN ':=' SBUFFER[0] FOR COUNT^READ;
!---------------------------
! Prepare part of order
! request that does not
! need user input
!---------------------------
! Copy part number from PART^REC:
ORDER^REQUEST.PART^NUMBER ':=' PART^REC.PART^NUMBER
FOR 10;
! Copy part description from PART^REC:
ORDER^REQUEST.PART^DESC ':=' PART^REC.PART^DESC FOR 48;
!---------------------------
! Process the request
!---------------------------
! Put request record into I/O buffer:
SBUFFER ':=' ORDER^REQUEST for ($LEN(ORDER^REQUEST) / 2);
! Send request to server:
CALL WRITEREADX(SERV2^NUM,SBUFFER,$LEN(ORDER^REQUEST),
BUFSIZE,COUNT^READ);
IF <> THEN CALL FILE^ERRORS(SERV2^NUM);