| 1 | ANRVLET ;MUSK/MFW - EDIT,PRINT VIST LETTERS ; 22 Jun 93 / 9:20 AM
|
|---|
| 2 | ;;4.0; Visual Impairment Service Team ;;12 Jun 98
|
|---|
| 3 | ;These letters are stored in file 2043 and is called by menu
|
|---|
| 4 | ;'Letter Menu'.
|
|---|
| 5 | EDIT ;------ Edit Form Letter ------
|
|---|
| 6 | N DIC,DLAYGO,DIE,DA,DR
|
|---|
| 7 | S DIC="^ANRV(2043,",DIC(0)="AEQML",DLAYGO=2043
|
|---|
| 8 | D ^DIC Q:Y<0 S DA=+Y
|
|---|
| 9 | S DIE=DIC,DR="[ANRV EDIT LETTER]" D ^DIE G EDIT
|
|---|
| 10 | ;-----------------------------------------------------------------------
|
|---|
| 11 | PRINT ;------ Entry Point to Print Form Letter ------
|
|---|
| 12 | N ANRVLT,ANRVPT,BY,DFN,DIRUT,DIS,DTOUT,DUOUT,FR,TO
|
|---|
| 13 | D GETLET G:$D(DIRUT) EXIT
|
|---|
| 14 | D GETDFN G:$D(DIRUT) EXIT
|
|---|
| 15 | S DIWF="^ANRV(2043,"_ANRVLT_",1,"
|
|---|
| 16 | S DIWF(1)=2040
|
|---|
| 17 | I ANRVRQP S DIS(0)="I $P($G(^(13)),U,2)'=""I"""
|
|---|
| 18 | S BY=".01" S:ANRVPT BY="NUMBER",(FR,TO)=ANRVPT
|
|---|
| 19 | D EN2^DIWF
|
|---|
| 20 | EXIT ;
|
|---|
| 21 | Q
|
|---|
| 22 | GETLET ;------ Select Letter to Print ------
|
|---|
| 23 | N DIR,X,Y
|
|---|
| 24 | S DIR(0)="P^2043:AEMQ",DIR("A")="Select Form Letter to Print"
|
|---|
| 25 | D ^DIR Q:$D(DIRUT) S ANRVLT=+Y,ANRVRQP=$P(^ANRV(2043,+Y,0),U,2) S:ANRVRQP="" ANRVRQP=1
|
|---|
| 26 | Q
|
|---|
| 27 | GETDFN ;------ Select VIST Patient ------
|
|---|
| 28 | N DIR,X,Y
|
|---|
| 29 | I 'ANRVRQP S ANRVPT=$O(^ANRV(2040,0)) Q
|
|---|
| 30 | S DIR(0)="PO^2040:AEQM",DIR("A")="Select Patient"
|
|---|
| 31 | S DIR("A",1)="If you wish to print a letter for a single patient"
|
|---|
| 32 | D ^DIR I $D(DUOUT)!($D(DTOUT)) S DIRUT=1 Q
|
|---|
| 33 | S (ANRVPT,DFN)="" I $D(DIRUT) K DIRUT Q
|
|---|
| 34 | S ANRVPT=+Y,DFN=+^ANRV(2040,ANRVPT,0)
|
|---|
| 35 | Q
|
|---|
