ANRVLET.m

ANRVLET ;MUSK/MFW - EDIT,PRINT VIST LETTERS ; 22 Jun 93 / 9:20 AM

 ;;4.0; Visual Impairment Service Team ;;12 Jun 98

 ;These letters are stored in file 2043 and is called by menu

 ;'Letter Menu'.

EDIT ;------ Edit Form Letter ------

 N DIC,DLAYGO,DIE,DA,DR

 S DIC="^ANRV(2043,",DIC(0)="AEQML",DLAYGO=2043

 D ^DIC Q:Y<0  S DA=+Y

 S DIE=DIC,DR="[ANRV EDIT LETTER]" D ^DIE G EDIT

 ;-----------------------------------------------------------------------

PRINT ;------ Entry Point to Print Form Letter ------

 N ANRVLT,ANRVPT,BY,DFN,DIRUT,DIS,DTOUT,DUOUT,FR,TO

 D GETLET G:$D(DIRUT) EXIT

 D GETDFN G:$D(DIRUT) EXIT

 S DIWF="^ANRV(2043,"_ANRVLT_",1,"

 S DIWF(1)=2040

 I ANRVRQP S DIS(0)="I $P($G(^(13)),U,2)'=""I"""

 S BY=".01" S:ANRVPT BY="NUMBER",(FR,TO)=ANRVPT

 D EN2^DIWF

EXIT ;

 Q

GETLET ;------ Select Letter to Print ------

 N DIR,X,Y

 S DIR(0)="P^2043:AEMQ",DIR("A")="Select Form Letter to Print"

 D ^DIR Q:$D(DIRUT)  S ANRVLT=+Y,ANRVRQP=$P(^ANRV(2043,+Y,0),U,2) S:ANRVRQP="" ANRVRQP=1

 Q

GETDFN ;------ Select VIST Patient ------

 N DIR,X,Y

 I 'ANRVRQP S ANRVPT=$O(^ANRV(2040,0)) Q

 S DIR(0)="PO^2040:AEQM",DIR("A")="Select Patient"

 S DIR("A",1)="If you wish to print a letter for a single patient"

 D ^DIR I $D(DUOUT)!($D(DTOUT)) S DIRUT=1 Q

 S (ANRVPT,DFN)="" I $D(DIRUT) K DIRUT Q

 S ANRVPT=+Y,DFN=+^ANRV(2040,ANRVPT,0)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ANRVLET   1366     printed  Apr 09, 2024@21:47:51                                                                                                                                                                                                     Page 2

ANRVLET   ;MUSK/MFW - EDIT,PRINT VIST LETTERS ; 22 Jun 93 / 9:20 AM

 +1       ;;4.0; Visual Impairment Service Team ;;12 Jun 98

 +2       ;These letters are stored in file 2043 and is called by menu

 +3       ;'Letter Menu'.

EDIT      ;------ Edit Form Letter ------

 +1        NEW DIC,DLAYGO,DIE,DA,DR

 +2        SET DIC="^ANRV(2043,"

           SET DIC(0)="AEQML"

           SET DLAYGO=2043

 +3        DO ^DIC

           if Y<0

               QUIT 

           SET DA=+Y

 +4        SET DIE=DIC

           SET DR="[ANRV EDIT LETTER]"

           DO ^DIE

           GOTO EDIT

 +5       ;-----------------------------------------------------------------------

PRINT     ;------ Entry Point to Print Form Letter ------

 +1        NEW ANRVLT,ANRVPT,BY,DFN,DIRUT,DIS,DTOUT,DUOUT,FR,TO

 +2        DO GETLET

           if $DATA(DIRUT)

               GOTO EXIT

 +3        DO GETDFN

           if $DATA(DIRUT)

               GOTO EXIT

 +4        SET DIWF="^ANRV(2043,"_ANRVLT_",1,"

 +5        SET DIWF(1)=2040

 +6        IF ANRVRQP

               SET DIS(0)="I $P($G(^(13)),U,2)'=""I"""

 +7        SET BY=".01"

           if ANRVPT

               SET BY="NUMBER"

               SET (FR,TO)=ANRVPT

 +8        DO EN2^DIWF

EXIT      ;

 +1        QUIT 

GETLET    ;------ Select Letter to Print ------

 +1        NEW DIR,X,Y

 +2        SET DIR(0)="P^2043:AEMQ"

           SET DIR("A")="Select Form Letter to Print"

 +3        DO ^DIR

           if $DATA(DIRUT)

               QUIT 

           SET ANRVLT=+Y

           SET ANRVRQP=$PIECE(^ANRV(2043,+Y,0),U,2)

           if ANRVRQP=""

               SET ANRVRQP=1

 +4        QUIT 

GETDFN    ;------ Select VIST Patient ------

 +1        NEW DIR,X,Y

 +2        IF 'ANRVRQP

               SET ANRVPT=$ORDER(^ANRV(2040,0))

               QUIT 

 +3        SET DIR(0)="PO^2040:AEQM"

           SET DIR("A")="Select Patient"

 +4        SET DIR("A",1)="If you wish to print a letter for a single patient"

 +5        DO ^DIR

           IF $DATA(DUOUT)!($DATA(DTOUT))

               SET DIRUT=1

               QUIT 

 +6        SET (ANRVPT,DFN)=""

           IF $DATA(DIRUT)

               KILL DIRUT

               QUIT 

 +7        SET ANRVPT=+Y

           SET DFN=+^ANRV(2040,ANRVPT,0)

 +8        QUIT