SDRRLRP ;10N20/MAH ; Recall Reminder Manual Printing; 01/22/2008
;;5.3;Scheduling;**536**;Aug 13, 1993;Build 53
;;CHECK TO SEE HOW A SITE HAS BEEN SETUP FOR CLINIC RECALL
;;in the OUTPATIENT CLINIC RECALL PARAM FILE
;;if set to letters it will run SDRRRECL routine
;;if set to cards it will run SDRRRECP routine
STR N DIRUT,TYPE
W ! S DIR("A")="What Clinic Recall Division will you be printing From ",DIR(0)="P^403.53:AEMQZ" D ^DIR Q:$D(DIRUT) S IEN=+Y K Y,Q,DIR
S TYPE=$P($G(^SD(403.53,IEN,0)),"^",2) I TYPE="" S TYPE="C" K IEN
I TYPE["C" D ^SDRRRECP Q
I TYPE["L" D ^SDRRRECL Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDRRLRP 604 printed Dec 13, 2024@03:00:50 Page 2
SDRRLRP ;10N20/MAH ; Recall Reminder Manual Printing; 01/22/2008
+1 ;;5.3;Scheduling;**536**;Aug 13, 1993;Build 53
+2 ;;CHECK TO SEE HOW A SITE HAS BEEN SETUP FOR CLINIC RECALL
+3 ;;in the OUTPATIENT CLINIC RECALL PARAM FILE
+4 ;;if set to letters it will run SDRRRECL routine
+5 ;;if set to cards it will run SDRRRECP routine
STR NEW DIRUT,TYPE
+1 WRITE !
SET DIR("A")="What Clinic Recall Division will you be printing From "
SET DIR(0)="P^403.53:AEMQZ"
DO ^DIR
if $DATA(DIRUT)
QUIT
SET IEN=+Y
KILL Y,Q,DIR
+2 SET TYPE=$PIECE($GET(^SD(403.53,IEN,0)),"^",2)
IF TYPE=""
SET TYPE="C"
KILL IEN
+3 IF TYPE["C"
DO ^SDRRRECP
QUIT
+4 IF TYPE["L"
DO ^SDRRRECL
QUIT
+5 QUIT
