ORLA11.m

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 ---ORLA11   1030     printed  Apr 09, 2024@21:40:26                                                                                                                                                                                                      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