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

PSOLMPO2        ;ISC-BHAM/SAB - list template to complete backdoor orders ;03/13/1995
        ;;7.0;OUTPATIENT PHARMACY;**46,71,225**;DEC 1997;Build 29
EN      ; -- main entry point for PSO LM BACKDOOR ORDER
        D EN^VALM("PSO LM BACKDOOR ORDER")
        Q
        ;
HDR     ; -- header code
        D HDR^PSOLMUTL
        Q
        ;
INIT    ; -- init variables and list array
        S VALMCNT=IEN,VALM("TITLE")="New OP Order ("_$S($G(COPY):"COPY",1:"ROUTINE")_")"
        S VALMCNT=PSOPF
        D RV^PSONFI Q
        ;
HELP    ; -- help code
        S X="?" D DISP^XQORM1 W !!
        Q
        ;
EXIT    ; -- exit code
        K PSOANSQD
        S PSOQFLG=1
        K FLAGLINE D CLEAN^VALM10
        Q
        ;
EXPND   ; -- expand code
        Q
        ;