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 | |
| Rev | Line | |
|---|---|---|
| [613] | 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.
