source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORLA11.m@ 1204

Last change on this file since 1204 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1009 bytes
Line 
1ORLA11 ; slc/MKB - Order activity alerts cont ;11/7/95 10:00
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**11**;Dec 17, 1997
3V1 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
10S1 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
16END 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
Note: See TracBrowser for help on using the repository browser.