- 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 Feb 18, 2025@23:57:57 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