SDRRISB.m

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

 ;;5.3;Scheduling;**536**;Aug 13, 1993;Build 53

 ; 

 ; 

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDRRISB   389     printed  Apr 09, 2024@22:02:08                                                                                                                                                                                                      Page 2

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

 +1       ;;5.3;Scheduling;**536**;Aug 13, 1993;Build 53

 +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