| 1 | EASMTPAR ; ALB/SCK - EAS MT PARAMETER ENTRY/EDIT ; 11/9/01
|
|---|
| 2 | ;;1.0;ENROLLMENT APPLICATION SYSTEM;**3,15**;MAR 15,2001
|
|---|
| 3 | ;
|
|---|
| 4 | WR ; 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 | ;
|
|---|
| 32 | EDT ; 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
|
|---|
