source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORPR07A.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 821 bytes
Line 
1ORPR07A ; slc/dcm - WWW.PrintCodes.com
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**69**;Dec 17, 1997
3LBSCREEN(ORIFN,OACTION,ORRACT,ACTION,TYPE) ;Lab Label/Requisition Screen
4 ;ORIFN=ifn of order ^OR(100,ORIFN)
5 ;OACTION=ifn of order action ^OR(100,ORIFN,8,OACTION)
6 ;ORRACT=1 if request is a reprint
7 ;ACTION=a string of action codes to allow printing (NW DC HD RL)
8 ;TYPE=a string of lab collection types to allow printing (LC IC WC SP)
9 ;Example of screen allowing print of New order with collection types LC or IC:
10 ; $$LBSCREEN(ifn,1,,"NW","LCIC")
11 N ACT,X3
12 Q:'$G(ORIFN) 0
13 S X3=$P($G(^OR(100,ORIFN,3)),"^",3)
14 I X3=1!(X3=2)!(X3=13)!(X3=14) Q 0
15 Q:$G(ORRACT) 1
16 Q:'$G(OACTION) 0
17 Q:'$D(^OR(100,ORIFN,8,+OACTION,0)) 0 S ACT=$P(^(0),"^",2)
18 I $L($G(ACTION)),ACTION[ACT,TYPE[$$VALUE^ORCSAVE2(ORIFN,"COLLECT") Q 1
19 Q 0
Note: See TracBrowser for help on using the repository browser.