Guardian Programmer's Guide

Writing a Requester Program
Guardian Programmer’s Guide — 421922-014
21 - 32
Coding the Requester Program
! If 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^BLANK;
PRINT^STR("Name Must Be Alphabetic ");
PRINT^STR("Please Enter an Alphabetic Last Name");
GOTO REPEAT^LASTNAME;
END;
I := I + 1;
END;
! Put last name in order-request message:
ORDER^REQUEST.NAME.LAST ':=' SBUFFER FOR COUNT^READ;
!----------------------------
! Prompt for and process the
! customer's first name
!----------------------------
! Repeat until valid first name entered:
REPEAT^FIRSTNAME:
! Prompt user for first name:
PRINT^BLANK;
START^LINE;
PUT^STR("Enter Customer's First Name: ");
CALL WRITEREADX(TERM^NUM,SBUFFER,@S^PTR '-' @SBUFFER,
BUFSIZE,COUNT^READ);
! If name is greater than 20 characters or less than one
! character, prompt the user to enter a name of valid
! length:
IF COUNT^READ > 20 OR COUNT^READ < 1 THEN
BEGIN
PRINT^BLANK;
PRINT^STR("First Name Must Be 1 to 20 Characters ");
PRINT^STR("Please Enter a Valid name ");
GOTO REPEAT^FIRSTNAME;
END;