- 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 ---[H[J[2J[HPSOORFL 696 printed Jan 18, 2025@03:33:14 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