source: WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPREGF.m@ 1801

Last change on this file since 1801 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 910 bytes
RevLine 
[613]1RMPREGF ;PHX/HPL-EYEGLASS FRAME MAINTENANCE UTILITY ;4/01/1995/29/1994
2 ;;3.0;PROSTHETICS;;Feb 09, 1996
3 ;READ INFO IN TO TEMP GLOBAL
4 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"
5 D ^DIR Q:X=""!(X="^") S ^TMP($J,"MANUF")=Y
6 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"
7 D ^DIR Q:X=""!(X="^") S ^TMP($J,"FNAM")=Y
8 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"
9 D ^DIR Q:X=""!(X="^") S ^TMP($J,"FCOL")=Y
10 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"
11 D ^DIR Q:X=""!(X="^") S ^TMP($J,"FCOL")=Y
Note: See TracBrowser for help on using the repository browser.