source: WorldVistAEHR/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASMTPAR.m@ 1556

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1EASMTPAR ; ALB/SCK - EAS MT PARAMETER ENTRY/EDIT ; 11/9/01
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**3,15**;MAR 15,2001
3 ;
4WR ; Write current parameters
5 N EANODE,U,EASHD,LINE,SPACE,EAX,TAB,TAB2,IOP,EDT,DIRUT
6 ;
7 S U="^",IOP="HOME",TAB=5,TAB2=43
8 D ^%ZIS K IOP
9 ;
10 S EASHD="EAS MEANS TEST LETTERS PARAMETER ENTRY/EDIT"
11 S SPACE=(IOM-$L(EASHD))/2
12 S $P(LINE,"=",IOM)=""
13 ;
14 W @IOF,!?SPACE,EASHD,!,LINE
15 ;
16 S EANODE=$G(^EAS(713,1,0))
17 W !!,"[1]",?TAB,"Parameters"
18 W !?TAB,"Primary Print Device:",?TAB2,": "
19 I +$P($G(EANODE),U,5) W $$GET1^DIQ(3.5,$P(EANODE,U,5),.01)
20 W !?TAB,"Allow Filtering by Location?",?TAB2,": ",$S($P(EANODE,U,8):"YES",1:"NO")
21 W !?TAB,"Send Means Test Completion Notice?",?TAB2,": ",$S($P(EANODE,U,7):"YES",1:"NO")
22 W !?TAB,"Envelope Offset",?TAB2,": ",+$$GET1^DIQ(713,1,10)
23 W !?TAB,"Allow Alternate Return Address?",?TAB2,": ",$S($P(EANODE,U,9):"YES",1:"NO")
24 ;
25 S DIR(0)="YAO",DIR("A")="Edit Parameters? ",DIR("B")="YES",DIR("A",1)=""
26 D ^DIR K DIR
27 Q:$D(DIRUT)!('Y)
28 I Y D EDT
29 G WR
30 Q
31 ;
32EDT ; Edit parameter set 1
33 N DIE,DA,DR
34 ;
35 S DIE="^EAS(713,",DA=1
36 S DR="5;8;7;10;9"
37 D ^DIE K DIE
38 Q
Note: See TracBrowser for help on using the repository browser.