SDRRLRP.m

SDRRLRP ;10N20/MAH ; Recall Reminder Manual Printing; 01/22/2008

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

 ;;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

SDRRLRP   ;10N20/MAH ; Recall Reminder Manual Printing; 01/22/2008

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

 +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