source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOORFL.m@ 1133

Last change on this file since 1133 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 594 bytes
Line 
1PSOORFL ;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 ;
6FLAG ;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
11RV ;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.