Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSOORFL

PSOORFL.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ; Reference to EN1^ORCFLAG is supported by DBIA #3620
  1. ;
  1. FLAG ;Flag order through CPRS entry point.
  1. N ORIFN
  1. S ORIFN=+$P($G(^PS(52.41,ORD,0)),"^")
  1. ;D FULL^VALM1 W ! D EN1^ORCFLAG(ORIFN),BLD^PSOORUT1 ;*345
  1. D FULL^VALM1 W ! D EN1^ORCFLAG(ORIFN) ; *345 REMOVE CALL TO BLD^PSOORUT1
  1. Q
  1. RV ;reverse video
  1. Q:'$G(VALMCNT)
  1. N PSLIST S PSLIST=0 F PSLIST=1:1:VALMCNT D
  1. .I $D(^TMP("PSOPF",$J,PSLIST,"RV")) D CNTRL^VALM10(PSLIST,1,3,IORVON,IORVOFF,0) Q
  1. .I '$D(^TMP("PSOPF",$J,PSLIST,"RV")) D CNTRL^VALM10(PSLIST,1,3,IOINORM,IOINORM,0)
  1. ;S VALMBCK="R" Q