Guardian Programmer's Guide

Writing a Requester Program
Guardian Programmer’s Guide — 421922-014
21 - 34
Coding the Requester Program
! If middle initial is nonalphabetic, and not blank, prompt
! user to reenter middle initial:
IF COUNT^READ = 1 THEN
BEGIN
IF SBUFFER[0] < "A" OR SBUFFER[0] > "z" OR
(SBUFFER[0] > "Z" AND SBUFFER[0] < "a") AND
SBUFFER[0] <> " " THEN
BEGIN
PRINT^BLANK;
PRINT^STR("Middle Initial Must Be Alphabetic ");
PRINT^STR("Please Enter an Alphabetic Character");
GOTO REPEAT^INITIAL;
END;
END;
! Put middle initial in order-request message:
ORDER^REQUEST.NAME.INITIAL ':=' SBUFFER[0] FOR COUNT^READ;
!---------------------------
! Prompt for and process the
! customer's street address
!---------------------------
! Repeat until valid address entered:
REPEAT^ADDR:
! Prompt user for address:
PRINT^BLANK;
START^LINE;
PUT^STR("Enter Customer's Street Address: ");
CALL WRITEREADX(TERM^NUM,SBUFFER,@S^PTR '-' @SBUFFER,
BUFSIZE,COUNT^READ);
! If address is greater than 48 characters or less than one
! character, prompt user to enter a valid address:
IF COUNT^READ > 48 OR COUNT^READ < 1THEN
BEGIN
PRINT^BLANK;
PRINT^STR("Address Must Be 1 to 48 Characters ");
PRINT^STR("Please Enter a Valid Address");
GOTO REPEAT^ADDR;
END;