PSOORFL.m

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

PSOORFL   ;BIR/SJA - Flag order through CPRS entry point ;10/24/06 2:27pm

 +1       ;;7.0;OUTPATIENT PHARMACY;**225**;DEC 1997;Build 29

 +2       ;

 +3       ; Reference to EN1^ORCFLAG is supported by DBIA #3620

 +4       ;

FLAG      ;Flag order through CPRS entry point.

 +1        NEW ORIFN

 +2        SET ORIFN=+$PIECE($GET(^PS(52.41,ORD,0)),"^")

 +3        DO FULL^VALM1

           WRITE !

           DO EN1^ORCFLAG(ORIFN)

           DO BLD^PSOORUT1

 +4        QUIT 

RV        ;reverse video

 +1        IF '$GET(VALMCNT)

               QUIT 

 +2        NEW PSLIST

           SET PSLIST=0

           FOR PSLIST=1:1:VALMCNT

               Begin DoDot:1

 +3                IF $DATA(^TMP("PSOPF",$JOB,PSLIST,"RV"))

                       DO CNTRL^VALM10(PSLIST,1,3,IORVON,IORVOFF,0)

                       QUIT 

 +4                IF '$DATA(^TMP("PSOPF",$JOB,PSLIST,"RV"))

                       DO CNTRL^VALM10(PSLIST,1,3,IOINORM,IOINORM,0)

               End DoDot:1

 +5       ;S VALMBCK="R" Q