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 ---[H[J[2J[HSDRRISB 389 printed Oct 16, 2024@19:01:07 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
