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 ---[H[J[2J[HRMPREGF 921 printed Dec 13, 2024@02:34:21 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
