RMPRN7S.m

RMPRN7S ;HINES IOFO/HNC -NPPD SORT LOGIC  ;2/14/01

 ;;3.0;PROSTHETICS;**57**;Feb 09, 1996

 ;

 ;

DISP ;display info before dir call

 W !

 W !,?6,"2529-3 Form Type Only"

 W !,?6,"====================="

 W !,?6,"This Represents Prosthetic Lab Transactions"

 Q

 ;

 ;

HDR(X) ;display nppd sort header new or used

 I X="D" S X="2529-3 LAB DETAIL"

 I X="B" S X="2529-3 LAB BRIEF"

 Q X

END ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RMPRN7S   401     printed  Nov 22, 2024@17:45:19                                                                                                                                                                                                      Page 2

RMPRN7S   ;HINES IOFO/HNC -NPPD SORT LOGIC  ;2/14/01

 +1       ;;3.0;PROSTHETICS;**57**;Feb 09, 1996

 +2       ;

 +3       ;

DISP      ;display info before dir call

 +1        WRITE !

 +2        WRITE !,?6,"2529-3 Form Type Only"

 +3        WRITE !,?6,"====================="

 +4        WRITE !,?6,"This Represents Prosthetic Lab Transactions"

 +5        QUIT 

 +6       ;

 +7       ;

HDR(X)    ;display nppd sort header new or used

 +1        IF X="D"

               SET X="2529-3 LAB DETAIL"

 +2        IF X="B"

               SET X="2529-3 LAB BRIEF"

 +3        QUIT X

END       ;