source: WorldVistAEHR/trunk/r/VISUAL_IMPAIRMENT_SERVICE_TEAM-ANRV/ANRVLET.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1ANRVLET ;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'.
5EDIT ;------ 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 ;-----------------------------------------------------------------------
11PRINT ;------ 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
20EXIT ;
21 Q
22GETLET ;------ 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
27GETDFN ;------ 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
Note: See TracBrowser for help on using the repository browser.