17 lines
594 B
Mathematica
17 lines
594 B
Mathematica
|
PSOORFL ;BIR/SJA - Flag order through CPRS entry point ;10/24/06 2:27pm
|
||
|
|
;;7.0;OUTPATIENT PHARMACY;**225**;DEC 1997;Build 29
|
||
|
|
;
|
||
|
|
; Reference to EN1^ORCFLAG is supported by DBIA #3620
|
||
|
|
;
|
||
|
|
FLAG ;Flag order through CPRS entry point.
|
||
|
|
N ORIFN
|
||
|
|
S ORIFN=+$P($G(^PS(52.41,ORD,0)),"^")
|
||
|
|
D FULL^VALM1 W ! D EN1^ORCFLAG(ORIFN),BLD^PSOORUT1
|
||
|
|
Q
|
||
|
|
RV ;reverse video
|
||
|
|
Q:'$G(VALMCNT)
|
||
|
|
N PSLIST S PSLIST=0 F PSLIST=1:1:VALMCNT D
|
||
|
|
.I $D(^TMP("PSOPF",$J,PSLIST,"RV")) D CNTRL^VALM10(PSLIST,1,3,IORVON,IORVOFF,0) Q
|
||
|
|
.I '$D(^TMP("PSOPF",$J,PSLIST,"RV")) D CNTRL^VALM10(PSLIST,1,3,IOINORM,IOINORM,0)
|
||
|
|
;S VALMBCK="R" Q
|