PSOROS ;AITC/BWF - REMOTE RX UTILITY ;7/15/16 2:35am
;;7.0;OUTPATIENT PHARMACY;**454,774**;DEC 1997;Build 15
;
Q
;
EN ; -- main entry point for PSO LM REMOTE ORDER SELECTION
D EN^VALM("PSO LM REMOTE ORDER SELECTION")
Q
;
HDR ; -- header code
S VALMHDR(1)="This is a test header for PSO LM REMOTE ORDER SELECTION."
S VALMHDR(2)="This is the second line"
Q
;
INIT ; -- init variables and list array
;F LINE=1:1:30 D SET^VALM10(LINE,LINE_" Line number "_LINE)
;S VALMCNT=30
;S $P(RN," ",12)=" ",VALMCNT=PSOPF
S $P(RN," ",12)=" ",VALMCNT=$G(CNT)
N PARK I $G(PSODFN),$L($G(REMSITE)),$L($G(SRXSTAT)),$L($G(SDNAME)) S PARK=+$G(^XTMP("PSORRX1",$J,PSODFN,REMSITE,SRXSTAT,SDNAME,"PARK"))
S VALM("TITLE")=$S($G(PARK):"REMOTE OP Medications ("_$E($G(SRXSTAT),1,3)_"/PK)",1:"REMOTE OP Medications ("_$G(SRXSTAT)_")")
D RV^PSONFI Q
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
K VALMCNT,VALMHDR
Q
;
EXPND ; -- expand code
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOROS 1009 printed Sep 23, 2025@20:10:36 Page 2
PSOROS ;AITC/BWF - REMOTE RX UTILITY ;7/15/16 2:35am
+1 ;;7.0;OUTPATIENT PHARMACY;**454,774**;DEC 1997;Build 15
+2 ;
+3 QUIT
+4 ;
EN ; -- main entry point for PSO LM REMOTE ORDER SELECTION
+1 DO EN^VALM("PSO LM REMOTE ORDER SELECTION")
+2 QUIT
+3 ;
HDR ; -- header code
+1 SET VALMHDR(1)="This is a test header for PSO LM REMOTE ORDER SELECTION."
+2 SET VALMHDR(2)="This is the second line"
+3 QUIT
+4 ;
INIT ; -- init variables and list array
+1 ;F LINE=1:1:30 D SET^VALM10(LINE,LINE_" Line number "_LINE)
+2 ;S VALMCNT=30
+3 ;S $P(RN," ",12)=" ",VALMCNT=PSOPF
+4 SET $PIECE(RN," ",12)=" "
SET VALMCNT=$GET(CNT)
+5 NEW PARK
IF $GET(PSODFN)
IF $LENGTH($GET(REMSITE))
IF $LENGTH($GET(SRXSTAT))
IF $LENGTH($GET(SDNAME))
SET PARK=+$GET(^XTMP("PSORRX1",$JOB,PSODFN,REMSITE,SRXSTAT,SDNAME,"PARK"))
+6 SET VALM("TITLE")=$SELECT($GET(PARK):"REMOTE OP Medications ("_$EXTRACT($GET(SRXSTAT),1,3)_"/PK)",1:"REMOTE OP Medications ("_$GET(SRXSTAT)_")")
+7 DO RV^PSONFI
QUIT
+8 QUIT
+9 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL VALMCNT,VALMHDR
+2 QUIT
+3 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
