|
Last change
on this file since 1080 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
594 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
