| 1 | ORPR07A ; slc/dcm - WWW.PrintCodes.com
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**69**;Dec 17, 1997
|
|---|
| 3 | LBSCREEN(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
|
|---|
