Last change
on this file since 846 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
594 bytes
|
Line | |
---|
1 | PSOORFL ;BIR/SJA - Flag order through CPRS entry point ;10/24/06 2:27pm
|
---|
2 | ;;7.0;OUTPATIENT PHARMACY;**225**;DEC 1997;Build 29
|
---|
3 | ;
|
---|
4 | ; Reference to EN1^ORCFLAG is supported by DBIA #3620
|
---|
5 | ;
|
---|
6 | FLAG ;Flag order through CPRS entry point.
|
---|
7 | N ORIFN
|
---|
8 | S ORIFN=+$P($G(^PS(52.41,ORD,0)),"^")
|
---|
9 | D FULL^VALM1 W ! D EN1^ORCFLAG(ORIFN),BLD^PSOORUT1
|
---|
10 | Q
|
---|
11 | RV ;reverse video
|
---|
12 | Q:'$G(VALMCNT)
|
---|
13 | N PSLIST S PSLIST=0 F PSLIST=1:1:VALMCNT D
|
---|
14 | .I $D(^TMP("PSOPF",$J,PSLIST,"RV")) D CNTRL^VALM10(PSLIST,1,3,IORVON,IORVOFF,0) Q
|
---|
15 | .I '$D(^TMP("PSOPF",$J,PSLIST,"RV")) D CNTRL^VALM10(PSLIST,1,3,IOINORM,IOINORM,0)
|
---|
16 | ;S VALMBCK="R" Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.