PSOLMRN ;ISC-BHAM/SAB - displays renewal rxs ; 21-APR-1995
 ;;7.0;OUTPATIENT PHARMACY;**11,46,84**;DEC 1997
EN ; -- main entry point for PSO LM RENEW LIST
 S VALMCNT=PSOPF,PSOLM=1
 D EN^VALM("PSO LM RENEW LIST")
 Q
 ;
HDR ; -- header code
 K ^TMP("PSOHDR",$J) D HDR^PSOLMUTL
 Q
 ;
INIT ; -- init variables and list array
 ;F LINE=1:1:30 D SET^VALM10(LINE,LINE_"     Line number "_LINE)
 S VALMCNT=PSOPF,PSOLM=1
 D RV^PSONFI Q
 ;
HELP ; -- help code
 S X="?" D DISP^XQORM1 W !!
 Q
 ;
EXIT ; -- exit code
 I $G(Y)=-1!($G(Y)="Q") S PSOQUIT=1
 I $G(Y)="Q",$P($G(Y(1)),"^",3)="QU" S PSOQQ=1
 Q
 ;
EXPND ; -- expand code
 Q
 ;