EASMTPAR.m

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 ---EASMTPAR   1155     printed  Apr 09, 2024@20:59:02                                                                                                                                                                                                    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