EASMTPAR ; ALB/SCK - EAS MT PARAMETER ENTRY/EDIT ; 11/9/01
;;1.0;ENROLLMENT APPLICATION SYSTEM;**3,15**;MAR 15,2001
;
WR ; Write current parameters
N EANODE,U,EASHD,LINE,SPACE,EAX,TAB,TAB2,IOP,EDT,DIRUT
;
S U="^",IOP="HOME",TAB=5,TAB2=43
D ^%ZIS K IOP
;
S EASHD="EAS MEANS TEST LETTERS PARAMETER ENTRY/EDIT"
S SPACE=(IOM-$L(EASHD))/2
S $P(LINE,"=",IOM)=""
;
W @IOF,!?SPACE,EASHD,!,LINE
;
S EANODE=$G(^EAS(713,1,0))
W !!,"[1]",?TAB,"Parameters"
W !?TAB,"Primary Print Device:",?TAB2,": "
I +$P($G(EANODE),U,5) W $$GET1^DIQ(3.5,$P(EANODE,U,5),.01)
W !?TAB,"Allow Filtering by Location?",?TAB2,": ",$S($P(EANODE,U,8):"YES",1:"NO")
W !?TAB,"Send Means Test Completion Notice?",?TAB2,": ",$S($P(EANODE,U,7):"YES",1:"NO")
W !?TAB,"Envelope Offset",?TAB2,": ",+$$GET1^DIQ(713,1,10)
W !?TAB,"Allow Alternate Return Address?",?TAB2,": ",$S($P(EANODE,U,9):"YES",1:"NO")
;
S DIR(0)="YAO",DIR("A")="Edit Parameters? ",DIR("B")="YES",DIR("A",1)=""
D ^DIR K DIR
Q:$D(DIRUT)!('Y)
I Y D EDT
G WR
Q
;
EDT ; Edit parameter set 1
N DIE,DA,DR
;
S DIE="^EAS(713,",DA=1
S DR="5;8;7;10;9"
D ^DIE K DIE
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEASMTPAR 1155 printed Oct 16, 2024@17:56:17 Page 2
EASMTPAR ; ALB/SCK - EAS MT PARAMETER ENTRY/EDIT ; 11/9/01
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**3,15**;MAR 15,2001
+2 ;
WR ; Write current parameters
+1 NEW EANODE,U,EASHD,LINE,SPACE,EAX,TAB,TAB2,IOP,EDT,DIRUT
+2 ;
+3 SET U="^"
SET IOP="HOME"
SET TAB=5
SET TAB2=43
+4 DO ^%ZIS
KILL IOP
+5 ;
+6 SET EASHD="EAS MEANS TEST LETTERS PARAMETER ENTRY/EDIT"
+7 SET SPACE=(IOM-$LENGTH(EASHD))/2
+8 SET $PIECE(LINE,"=",IOM)=""
+9 ;
+10 WRITE @IOF,!?SPACE,EASHD,!,LINE
+11 ;
+12 SET EANODE=$GET(^EAS(713,1,0))
+13 WRITE !!,"[1]",?TAB,"Parameters"
+14 WRITE !?TAB,"Primary Print Device:",?TAB2,": "
+15 IF +$PIECE($GET(EANODE),U,5)
WRITE $$GET1^DIQ(3.5,$PIECE(EANODE,U,5),.01)
+16 WRITE !?TAB,"Allow Filtering by Location?",?TAB2,": ",$SELECT($PIECE(EANODE,U,8):"YES",1:"NO")
+17 WRITE !?TAB,"Send Means Test Completion Notice?",?TAB2,": ",$SELECT($PIECE(EANODE,U,7):"YES",1:"NO")
+18 WRITE !?TAB,"Envelope Offset",?TAB2,": ",+$$GET1^DIQ(713,1,10)
+19 WRITE !?TAB,"Allow Alternate Return Address?",?TAB2,": ",$SELECT($PIECE(EANODE,U,9):"YES",1:"NO")
+20 ;
+21 SET DIR(0)="YAO"
SET DIR("A")="Edit Parameters? "
SET DIR("B")="YES"
SET DIR("A",1)=""
+22 DO ^DIR
KILL DIR
+23 if $DATA(DIRUT)!('Y)
QUIT
+24 IF Y
DO EDT
+25 GOTO WR
+26 QUIT
+27 ;
EDT ; Edit parameter set 1
+1 NEW DIE,DA,DR
+2 ;
+3 SET DIE="^EAS(713,"
SET DA=1
+4 SET DR="5;8;7;10;9"
+5 DO ^DIE
KILL DIE
+6 QUIT
