ORLA11 ; slc/MKB - Order activity alerts cont ;11/7/95 10:00
 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**11**;Dec 17, 1997
V1 I $D(^VA(200,ORPROV,0)) S $P(ORY,"^")=ORPROV
 W !,"Loading Provider Patient List..."
 S (ORCNT,ORJ)=0
 F ORI=0:0 S ORJ=$O(^DPT("APR",$P(ORY,"^"),ORJ)) Q:ORJ<1  S ORX="",ORVP=ORJ_";DPT(" D PR1^ORLA1(ORVP,OROPREF)
 D PR2^ORLA1(OROPREF,ORTITLE,ORDEF)
 K ORI,ORJ,OROPREF,ORURMBD,ORUVP,ORVP,ORX,ORY
 Q
S1 W !,"Loading Specialty Patient List..."
 S (ORCNT,ORJ)=0
 F ORI=0:0 S ORJ=$O(^DPT("ATR",$P(ORY,"^"),ORJ)) Q:ORJ<1  S ORX="",ORVP=ORJ_";DPT(" D PR1^ORLA1(ORVP,OROPREF)
 D PR2^ORLA1(OROPREF,ORTITLE,ORDEF)
 K ORI,ORJ,OROPREF,ORURMBD,ORUVP,ORVP,ORX,ORY
 Q
END K %H,%I,CL,CNT,DFN,DIROUT,ORCLIN,ORWARD,ORPRIM,ORDEF,ORSTRT,ORCSTRT
 K ORCEND,OROPREF,ORUVP,ORX,X3,ORURMBD,ORADFLG,ORAGE,ORANSI,ORCNT,ORDOB
 K OREND,ORFT,ORGP,ORIDT,ORII,ORISIGN,ORL,ORLANOW,ORLDT,ORLSIGN,ORLST
 K ORNP,OROLD,OROSIGN,ORPD,ORPNM,ORPRES,ORPV,ORSEL,ORSEX,ORSSN
 K ORSTOP,ORSTS,ORTS,ORTX,ORUIEN,ORVP,VA,VAMT,VAROOT,X1
 Q