source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLMRN.m@ 613

PSOLMRN ;ISC-BHAM/SAB - displays renewal rxs ;04/21/1995
        ;;7.0;OUTPATIENT PHARMACY;**11,46,84,225**;DEC 1997;Build 29
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
        K FLAGLINE D CLEAN^VALM10
        Q
        ;
EXPND   ; -- expand code
        Q
        ;