- 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 Jan 18, 2025@03:35:17 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 ;