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

ORPR07A.m

Go to the documentation of this file.
  1. ORPR07A ; slc/dcm - WWW.PrintCodes.com
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**69**;Dec 17, 1997
  1. LBSCREEN(ORIFN,OACTION,ORRACT,ACTION,TYPE) ;Lab Label/Requisition Screen
  1. ;ORIFN=ifn of order ^OR(100,ORIFN)
  1. ;OACTION=ifn of order action ^OR(100,ORIFN,8,OACTION)
  1. ;ORRACT=1 if request is a reprint
  1. ;ACTION=a string of action codes to allow printing (NW DC HD RL)
  1. ;TYPE=a string of lab collection types to allow printing (LC IC WC SP)
  1. ;Example of screen allowing print of New order with collection types LC or IC:
  1. ; $$LBSCREEN(ifn,1,,"NW","LCIC")
  1. N ACT,X3
  1. Q:'$G(ORIFN) 0
  1. S X3=$P($G(^OR(100,ORIFN,3)),"^",3)
  1. I X3=1!(X3=2)!(X3=13)!(X3=14) Q 0
  1. Q:$G(ORRACT) 1
  1. Q:'$G(OACTION) 0
  1. Q:'$D(^OR(100,ORIFN,8,+OACTION,0)) 0 S ACT=$P(^(0),"^",2)
  1. I $L($G(ACTION)),ACTION[ACT,TYPE[$$VALUE^ORCSAVE2(ORIFN,"COLLECT") Q 1
  1. Q 0