ORLP3AUT ; slc/CLA - Automatically load patients into team lists ;7/21/96
;;3.0;ORDER ENTRY/RESULTS REPORTING;**9**;Dec 17, 1997
Q
EN ;called by protocol ORU AUTOLIST - automatically update lists with AUTOLINK set.
Q:'$D(DGPMT)!('$D(DFN))
I $L($T(EN^ORLPAUT0))>0 D EN^ORLPAUT0
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORLP3AUT 292 printed Oct 16, 2024@18:31:59 Page 2
ORLP3AUT ; slc/CLA - Automatically load patients into team lists ;7/21/96
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**9**;Dec 17, 1997
+2 QUIT
EN ;called by protocol ORU AUTOLIST - automatically update lists with AUTOLINK set.
+1 if '$DATA(DGPMT)!('$DATA(DFN))
QUIT
+2 IF $LENGTH($TEXT(EN^ORLPAUT0))>0
DO EN^ORLPAUT0
+3 QUIT
