source:
WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRN7S.m
| Last change on this file was 613, checked in by , 15 years ago | |
|---|---|
| File size: 384 bytes | |
| Line | |
|---|---|
| 1 | RMPRN7S ;HINES IOFO/HNC -NPPD SORT LOGIC ;2/14/01 |
| 2 | ;;3.0;PROSTHETICS;**57**;Feb 09, 1996 |
| 3 | ; |
| 4 | ; |
| 5 | DISP ;display info before dir call |
| 6 | W ! |
| 7 | W !,?6,"2529-3 Form Type Only" |
| 8 | W !,?6,"=====================" |
| 9 | W !,?6,"This Represents Prosthetic Lab Transactions" |
| 10 | Q |
| 11 | ; |
| 12 | ; |
| 13 | HDR(X) ;display nppd sort header new or used |
| 14 | I X="D" S X="2529-3 LAB DETAIL" |
| 15 | I X="B" S X="2529-3 LAB BRIEF" |
| 16 | Q X |
| 17 | END ; |
Note:
See TracBrowser
for help on using the repository browser.
