PSOLMLST ;ISC-BHAM/SAB - list orders for processing ;08/23/17 20:06
;;7.0;OUTPATIENT PHARMACY;**46,441**;DEC 1997;Build 208
;External reference to ^PS(50.7 supported by DBIA 2223
EN ; -- main entry point for PSO LM ORDER SELECTION
D EN^VALM("PSO LM ORDER SELECTION")
Q
;
HDR ; -- header code
S VALMHDR(1)="This is a test header for PSO LM 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 $P(RN," ",12)=" ",VALMCNT=PSOPF
S VALM("TITLE")="OP Medications ("_$S($P(^PSRX($P(PSOLST(ORN),"^",2),"STA"),"^")=5:"SUSPENDED",$P(^PSRX($P(PSOLST(ORN),"^",2),"STA"),"^")=11:"EXPIRED",1:$P(PSOLST(ORN),"^",3))_")"
I $P(^PSRX($P(PSOLST(ORN),"^",2),"STA"),"^")=0,$G(^PSRX($P(PSOLST(ORN),"^",2),"PARK")) S VALM("TITLE")="OP Medications (ACTIVE/PARKED)" ;441 PAPI
S:'$D(^PS(50.7,+$G(^PSRX($P(PSOLST(ORN),"^",2),"OR1")),0)) VALMSG="No Pharmacy Orderable Item !"
D RV^PSONFI Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
Q
;
EXPND ; -- expand code
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOLMLST 1134 printed Dec 13, 2024@02:30:50 Page 2
PSOLMLST ;ISC-BHAM/SAB - list orders for processing ;08/23/17 20:06
+1 ;;7.0;OUTPATIENT PHARMACY;**46,441**;DEC 1997;Build 208
+2 ;External reference to ^PS(50.7 supported by DBIA 2223
EN ; -- main entry point for PSO LM ORDER SELECTION
+1 DO EN^VALM("PSO LM ORDER SELECTION")
+2 QUIT
+3 ;
HDR ; -- header code
+1 SET VALMHDR(1)="This is a test header for PSO LM 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 SET $PIECE(RN," ",12)=" "
SET VALMCNT=PSOPF
+3 SET VALM("TITLE")="OP Medications ("_$SELECT($PIECE(^PSRX($PIECE(PSOLST(ORN),"^",2),"STA"),"^")=5:"SUSPENDED",$PIECE(^PSRX($PIECE(PSOLST(ORN),"^",2),"STA"),"^")=11:"EXPIRED",1:$PIECE(PSOLST(ORN),"^",3))_")"
+4 ;441 PAPI
IF $PIECE(^PSRX($PIECE(PSOLST(ORN),"^",2),"STA"),"^")=0
IF $GET(^PSRX($PIECE(PSOLST(ORN),"^",2),"PARK"))
SET VALM("TITLE")="OP Medications (ACTIVE/PARKED)"
+5 if '$DATA(^PS(50.7,+$GET(^PSRX($PIECE(PSOLST(ORN),"^",2),"OR1")),0))
SET VALMSG="No Pharmacy Orderable Item !"
+6 DO RV^PSONFI
QUIT
+7 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 QUIT
+2 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
