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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORLA11 1030 printed Dec 13, 2024@02:31:16 Page 2
ORLA11 ; slc/MKB - Order activity alerts cont ;11/7/95 10:00
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**11**;Dec 17, 1997
V1 IF $DATA(^VA(200,ORPROV,0))
SET $PIECE(ORY,"^")=ORPROV
+1 WRITE !,"Loading Provider Patient List..."
+2 SET (ORCNT,ORJ)=0
+3 FOR ORI=0:0
SET ORJ=$ORDER(^DPT("APR",$PIECE(ORY,"^"),ORJ))
if ORJ<1
QUIT
SET ORX=""
SET ORVP=ORJ_";DPT("
DO PR1^ORLA1(ORVP,OROPREF)
+4 DO PR2^ORLA1(OROPREF,ORTITLE,ORDEF)
+5 KILL ORI,ORJ,OROPREF,ORURMBD,ORUVP,ORVP,ORX,ORY
+6 QUIT
S1 WRITE !,"Loading Specialty Patient List..."
+1 SET (ORCNT,ORJ)=0
+2 FOR ORI=0:0
SET ORJ=$ORDER(^DPT("ATR",$PIECE(ORY,"^"),ORJ))
if ORJ<1
QUIT
SET ORX=""
SET ORVP=ORJ_";DPT("
DO PR1^ORLA1(ORVP,OROPREF)
+3 DO PR2^ORLA1(OROPREF,ORTITLE,ORDEF)
+4 KILL ORI,ORJ,OROPREF,ORURMBD,ORUVP,ORVP,ORX,ORY
+5 QUIT
END KILL %H,%I,CL,CNT,DFN,DIROUT,ORCLIN,ORWARD,ORPRIM,ORDEF,ORSTRT,ORCSTRT
+1 KILL ORCEND,OROPREF,ORUVP,ORX,X3,ORURMBD,ORADFLG,ORAGE,ORANSI,ORCNT,ORDOB
+2 KILL OREND,ORFT,ORGP,ORIDT,ORII,ORISIGN,ORL,ORLANOW,ORLDT,ORLSIGN,ORLST
+3 KILL ORNP,OROLD,OROSIGN,ORPD,ORPNM,ORPRES,ORPV,ORSEL,ORSEX,ORSSN
+4 KILL ORSTOP,ORSTS,ORTS,ORTX,ORUIEN,ORVP,VA,VAMT,VAROOT,X1
+5 QUIT
