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

ORLP3AUT.m

Go to the documentation of this file.

ORLP3AUT ; slc/CLA -  Automatically load patients into team lists ;7/21/96

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**9**;Dec 17, 1997

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORLP3AUT   292     printed  Apr 09, 2024@21:35:40                                                                                                                                                                                                     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