RMPREGF.m

RMPREGF ;PHX/HPL-EYEGLASS FRAME MAINTENANCE UTILITY ;4/01/1995/29/1994

 ;;3.0;PROSTHETICS;;Feb 09, 1996

 ;READ INFO IN TO TEMP GLOBAL

 S DIR(0)="F^3:30^",DIR("A")="Select FRAME MANUFACTURER: ",DIR("T")=60,DIR("?")="ENTER THE NAME OF THE FRAME'S MANUFACTURER ; 3 TO 30 CHARACTERS ALLOWED"

 D ^DIR Q:X=""!(X="^")  S ^TMP($J,"MANUF")=Y

 S DIR(0)="F^3:30^",DIR("A")="Select FRAME NAME: ",DIR("T")=60,DIR("?")="ENTER THE NAME OF THE FRAME ; 3 TO 30 CHARACTERS ALLOWED"

 D ^DIR Q:X=""!(X="^")  S ^TMP($J,"FNAM")=Y

 S DIR(0)="F^3:30^",DIR("A")="Select FRAME COLOR: ",DIR("T")=60,DIR("?")="ENTER THE FRAME COLOR AS SPECIFIED BY MANUFACTURER ; 3 TO 30 CHARACTERS ALLOWED"

 D ^DIR Q:X=""!(X="^")  S ^TMP($J,"FCOL")=Y

 S DIR(0)="F^3:30^",DIR("A")="Select FRAME SIZE/TEMPLE LENGTH: ",DIR("T")=60,DIR("?")="ENTER THE NAME OF THE FRAMES MANUFACTURER ; 3 TO 30 CHARACTERS ALLOWED"

 D ^DIR Q:X=""!(X="^")  S ^TMP($J,"FCOL")=Y

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RMPREGF   921     printed  Apr 09, 2024@21:40:43                                                                                                                                                                                                      Page 2

RMPREGF   ;PHX/HPL-EYEGLASS FRAME MAINTENANCE UTILITY ;4/01/1995/29/1994

 +1       ;;3.0;PROSTHETICS;;Feb 09, 1996

 +2       ;READ INFO IN TO TEMP GLOBAL

 +3        SET DIR(0)="F^3:30^"

           SET DIR("A")="Select FRAME MANUFACTURER: "

           SET DIR("T")=60

           SET DIR("?")="ENTER THE NAME OF THE FRAME'S MANUFACTURER ; 3 TO 30 CHARACTERS ALLOWED"

 +4        DO ^DIR

           if X=""!(X="^")

               QUIT 

           SET ^TMP($JOB,"MANUF")=Y

 +5        SET DIR(0)="F^3:30^"

           SET DIR("A")="Select FRAME NAME: "

           SET DIR("T")=60

           SET DIR("?")="ENTER THE NAME OF THE FRAME ; 3 TO 30 CHARACTERS ALLOWED"

 +6        DO ^DIR

           if X=""!(X="^")

               QUIT 

           SET ^TMP($JOB,"FNAM")=Y

 +7        SET DIR(0)="F^3:30^"

           SET DIR("A")="Select FRAME COLOR: "

           SET DIR("T")=60

           SET DIR("?")="ENTER THE FRAME COLOR AS SPECIFIED BY MANUFACTURER ; 3 TO 30 CHARACTERS ALLOWED"

 +8        DO ^DIR

           if X=""!(X="^")

               QUIT 

           SET ^TMP($JOB,"FCOL")=Y

 +9        SET DIR(0)="F^3:30^"

           SET DIR("A")="Select FRAME SIZE/TEMPLE LENGTH: "

           SET DIR("T")=60

           SET DIR("?")="ENTER THE NAME OF THE FRAMES MANUFACTURER ; 3 TO 30 CHARACTERS ALLOWED"

 +10       DO ^DIR

           if X=""!(X="^")

               QUIT 

           SET ^TMP($JOB,"FCOL")=Y