SDRRISB.m

SDRRISB ;10N20/MAH;Recall Reminder appointments ;01/15/2008 07:35

 ;;5.3;PIMS;**1016**;JUN 30, 2012;Build 20

 ; 

 ; 

CLINLIST(SDRRCLIST) ;

 N SDRRDIEN,SDRRCLIN

 S (SDRRDIEN,SDRRCLIN)=""

 F  S SDRRDIEN=$O(^TMP("SDRR",$J,"DIV",SDRRDIEN)) Q:SDRRDIEN=""  D

 . F  S SDRRCLIN=$O(^TMP("SDRR",$J,"DIV",SDRRDIEN,"CLIN",SDRRCLIN)) Q:SDRRCLIN=""  S SDRRCLIST(+^(SDRRCLIN))=SDRRCLIN

 Q

SDRRISB   ;10N20/MAH;Recall Reminder appointments ;01/15/2008 07:35

 +1       ;;5.3;PIMS;**1016**;JUN 30, 2012;Build 20

 +2       ; 

 +3       ; 

CLINLIST(SDRRCLIST) ;

 +1        NEW SDRRDIEN,SDRRCLIN

 +2        SET (SDRRDIEN,SDRRCLIN)=""

 +3        FOR 

               SET SDRRDIEN=$ORDER(^TMP("SDRR",$JOB,"DIV",SDRRDIEN))

               IF SDRRDIEN=""

                   QUIT 

               Begin DoDot:1

 +4                FOR 

                       SET SDRRCLIN=$ORDER(^TMP("SDRR",$JOB,"DIV",SDRRDIEN,"CLIN",SDRRCLIN))

                       IF SDRRCLIN=""

                           QUIT 

                       SET SDRRCLIST(+^(SDRRCLIN))=SDRRCLIN

               End DoDot:1

 +5        QUIT