PSOORFL.m

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

 ;;7.0;OUTPATIENT PHARMACY;**225,345**;DEC 1997;Build 5

 ;

 ; 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 ;*345 

 D FULL^VALM1 W ! D EN1^ORCFLAG(ORIFN) ; *345 REMOVE CALL TO 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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSOORFL   696     printed  Apr 09, 2024@21:31:52                                                                                                                                                                                                      Page 2

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

 +1       ;;7.0;OUTPATIENT PHARMACY;**225,345**;DEC 1997;Build 5

 +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       ;D FULL^VALM1 W ! D EN1^ORCFLAG(ORIFN),BLD^PSOORUT1 ;*345 

 +4       ; *345 REMOVE CALL TO BLD^PSOORUT1

           DO FULL^VALM1

           WRITE !

           DO EN1^ORCFLAG(ORIFN)

 +5        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