| [613] | 1 | ORLA11 ; slc/MKB - Order activity alerts cont ;11/7/95 10:00
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**11**;Dec 17, 1997
|
|---|
| 3 | V1 I $D(^VA(200,ORPROV,0)) S $P(ORY,"^")=ORPROV
|
|---|
| 4 | W !,"Loading Provider Patient List..."
|
|---|
| 5 | S (ORCNT,ORJ)=0
|
|---|
| 6 | 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)
|
|---|
| 7 | D PR2^ORLA1(OROPREF,ORTITLE,ORDEF)
|
|---|
| 8 | K ORI,ORJ,OROPREF,ORURMBD,ORUVP,ORVP,ORX,ORY
|
|---|
| 9 | Q
|
|---|
| 10 | S1 W !,"Loading Specialty Patient List..."
|
|---|
| 11 | S (ORCNT,ORJ)=0
|
|---|
| 12 | 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)
|
|---|
| 13 | D PR2^ORLA1(OROPREF,ORTITLE,ORDEF)
|
|---|
| 14 | K ORI,ORJ,OROPREF,ORURMBD,ORUVP,ORVP,ORX,ORY
|
|---|
| 15 | Q
|
|---|
| 16 | END K %H,%I,CL,CNT,DFN,DIROUT,ORCLIN,ORWARD,ORPRIM,ORDEF,ORSTRT,ORCSTRT
|
|---|
| 17 | K ORCEND,OROPREF,ORUVP,ORX,X3,ORURMBD,ORADFLG,ORAGE,ORANSI,ORCNT,ORDOB
|
|---|
| 18 | K OREND,ORFT,ORGP,ORIDT,ORII,ORISIGN,ORL,ORLANOW,ORLDT,ORLSIGN,ORLST
|
|---|
| 19 | K ORNP,OROLD,OROSIGN,ORPD,ORPNM,ORPRES,ORPV,ORSEL,ORSEX,ORSSN
|
|---|
| 20 | K ORSTOP,ORSTS,ORTS,ORTX,ORUIEN,ORVP,VA,VAMT,VAROOT,X1
|
|---|
| 21 | Q
|
|---|
