ACMLTR2.m

ACMLTR2 ; IHS/TUCSON/TMJ - RECALL LETTER..FORMAT EDIT & DISPLAY ;

 ;;2.0;ACM CASE MANAGEMENT SYSTEM;;JAN 10, 1996

 ;;DISPLAY OF RECALL LETTER SAMPLE AND/OR EDIT OF LETTER FORMAT

 ;

 ;EP;ENTRY POINT

START ;

 D HEAD^ACMMENU

 W !!!!

 ;

 W ?12,"****************************************************",!

 W ?15,"A sample of the Recall Letter will be displayed.",!,?15,"You will also be asked if you want to modify the",!,?15,"letter format and/or the additional text field."

 W !,?12,"*****************************************************",!

 W !,"Enter a DEVICE Number or Hit Return to display to Screen",!

 D SAMPLE

 ;

 ;

HEAD ;

 W !!!

 W ?15,"***********************************************",!

 W !,?15,"You may also EDIT the Standard Letter format -",!

 W ?15,"OR the additional Word Processing Text Paragraph?",!

 W ?15,"************************************************",!

 ;

ASK ;

 S DIR(0)="Y",DIR("A")="Do you wish to EDIT the letter format",DIR("?")="Enter 'Y' for Yes or 'N' for NO",DIR("B")="N" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) G PRNTLTR

 I Y=0 G PRNTLTR

 S ACMRG=ACMRG

 S DIE="^ACM(41.1,",DR="[ACM LETTER SETUP]"

 S DA=ACMRG

 D DIE K DIC,DIE,DA

 ;

ASK2 ;

 W !!

 S DIR(0)="Y",DIR("A")="Do you wish to display the Sample Letter again",DIR("?")="Enter 'Y' for Yes or 'N' for NO",DIR("B")="N" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) G PRNTLTR

 I Y=1 W !! D SAMPLE

 ;

 ;

PRNTLTR ;

 D HEAD^ACMMENU

 S ACMLTREX=0

 W !!!

 S DIR(0)="Y",DIR("A")="Do you want to print the final letter now",DIR("?")="Enter 'Y' for Yes or 'N' for NO",DIR("B")="N" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) S ACMLTREX=1 G EXIT

 I Y=0 S ACMLTREX=1 G EXIT

 Q

SAMPLE ;

 ;

 S DIC="^ACM(41.1,",FLDS="[ACM RECALL LETTER SAMPLE]",BY="@NUMBER",FR=ACMRG,TO=ACMRG,DHD="@" D DIP

 Q

 ;

DIP ;

 D EN1^DIP Q

DIE ;

 D ^DIE K DIC,DIE,DA Q

 ;

EXIT ;

 Q

ACMLTR2   ; IHS/TUCSON/TMJ - RECALL LETTER..FORMAT EDIT & DISPLAY ;

 +1       ;;2.0;ACM CASE MANAGEMENT SYSTEM;;JAN 10, 1996

 +2       ;;DISPLAY OF RECALL LETTER SAMPLE AND/OR EDIT OF LETTER FORMAT

 +3       ;

 +4       ;EP;ENTRY POINT

START     ;

 +1        DO HEAD^ACMMENU

 +2        WRITE !!!!

 +3       ;

 +4        WRITE ?12,"****************************************************",!

 +5        WRITE ?15,"A sample of the Recall Letter will be displayed.",!,?15,"You will also be asked if you want to modify the",!,?15,"letter format and/or the additional text field."

 +6        WRITE !,?12,"*****************************************************",!

 +7        WRITE !,"Enter a DEVICE Number or Hit Return to display to Screen",!

 +8        DO SAMPLE

 +9       ;

 +10      ;

HEAD      ;

 +1        WRITE !!!

 +2        WRITE ?15,"***********************************************",!

 +3        WRITE !,?15,"You may also EDIT the Standard Letter format -",!

 +4        WRITE ?15,"OR the additional Word Processing Text Paragraph?",!

 +5        WRITE ?15,"************************************************",!

 +6       ;

ASK       ;

 +1        SET DIR(0)="Y"

           SET DIR("A")="Do you wish to EDIT the letter format"

           SET DIR("?")="Enter 'Y' for Yes or 'N' for NO"

           SET DIR("B")="N"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +2        IF $DATA(DIRUT)

               GOTO PRNTLTR

 +3        IF Y=0

               GOTO PRNTLTR

 +4        SET ACMRG=ACMRG

 +5        SET DIE="^ACM(41.1,"

           SET DR="[ACM LETTER SETUP]"

 +6        SET DA=ACMRG

 +7        DO DIE

           KILL DIC,DIE,DA

 +8       ;

ASK2      ;

 +1        WRITE !!

 +2        SET DIR(0)="Y"

           SET DIR("A")="Do you wish to display the Sample Letter again"

           SET DIR("?")="Enter 'Y' for Yes or 'N' for NO"

           SET DIR("B")="N"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +3        IF $DATA(DIRUT)

               GOTO PRNTLTR

 +4        IF Y=1

               WRITE !!

               DO SAMPLE

 +5       ;

 +6       ;

PRNTLTR   ;

 +1        DO HEAD^ACMMENU

 +2        SET ACMLTREX=0

 +3        WRITE !!!

 +4        SET DIR(0)="Y"

           SET DIR("A")="Do you want to print the final letter now"

           SET DIR("?")="Enter 'Y' for Yes or 'N' for NO"

           SET DIR("B")="N"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +5        IF $DATA(DIRUT)

               SET ACMLTREX=1

               GOTO EXIT

 +6        IF Y=0

               SET ACMLTREX=1

               GOTO EXIT

 +7        QUIT 

SAMPLE    ;

 +1       ;

 +2        SET DIC="^ACM(41.1,"

           SET FLDS="[ACM RECALL LETTER SAMPLE]"

           SET BY="@NUMBER"

           SET FR=ACMRG

           SET TO=ACMRG

           SET DHD="@"

           DO DIP

 +3        QUIT 

 +4       ;

DIP       ;

 +1        DO EN1^DIP

           QUIT 

DIE       ;

 +1        DO ^DIE

           KILL DIC,DIE,DA

           QUIT 

 +2       ;

EXIT      ;

 +1        QUIT