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