Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDRRISB

SDRRISB.m

Go to the documentation of this file.
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