PSOROS ;AITC/BWF - REMOTE RX UTILITY ;7/15/16 2:35am
;;7.0;OUTPATIENT PHARMACY;**454**;DEC 1997;Build 349
;
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)
S VALM("TITLE")="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 800 printed Dec 13, 2024@02:34:10 Page 2
PSOROS ;AITC/BWF - REMOTE RX UTILITY ;7/15/16 2:35am
+1 ;;7.0;OUTPATIENT PHARMACY;**454**;DEC 1997;Build 349
+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 SET VALM("TITLE")="REMOTE OP Medications ("_$GET(SRXSTAT)_")"
+6 DO RV^PSONFI
QUIT
+7 QUIT
+8 ;
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 ;
