Guardian Programmer's Guide

Writing a Requester Program
Guardian Programmer’s Guide — 421922-014
21 - 33
Coding the Requester Program
! If first name contains nonalphabetic characters, prompt
! user to reenter name:
I := 0;
WHILE I < COUNT^READ DO
BEGIN
IF SBUFFER[I] < "A" OR SBUFFER[I] > "z" OR
(SBUFFER[I] > "Z" AND SBUFFER[I] < "a") THEN
BEGIN
PRINT^STR("Name Must Be Alphabetic ");
PRINT^STR("Please Enter an Alphabetic First Name ");
GOTO REPEAT^FIRSTNAME;
END;
I := I + 1;
END;
! Put first name in order-request message:
ORDER^REQUEST.NAME.FIRST ':=' SBUFFER[0] FOR COUNT^READ;
!----------------------------
! Prompt for and process the
! customer's middle initial
!----------------------------
! Repeat until valid middle initial entered:
REPEAT^INITIAL:
! Prompt user for middle initial:
PRINT^BLANK;
START^LINE;
PUT^STR("Enter Customer's Middle Initial: ");
CALL WRITEREADX(TERM^NUM,SBUFFER,@S^PTR '-' @SBUFFER,
BUFSIZE,COUNT^READ);
! If middle initial is greater than 1 character, prompt
! user to issue a single character:
IF COUNT^READ > 1 THEN
BEGIN
PRINT^BLANK;
PRINT^STR("Middle Initial Must Be 1 or 0 Characters");
PRINT^STR("Please enter a single character ");
GOTO REPEAT^INITIAL;
END;