SDPARM.m

SDPARM ;ALB/CAW - Build Display for MAS Parameters ; 3/10/92

 ;;5.3;Scheduling;**27,132,1015**;08/13/93;Build 21

 ;

START ;

 K XQORS,VALMLEVL D EN^VALM("SD PARM PARAMETERS")

 G QUIT

EN ;Entry point for list manager

 ;

 D INIT

 ;

HDR ;

 ;

1 D SET("                          *** Site Demographics ***")

 D CNTRL^VALM10(SDLN,26,26,IOINHI,IOINORM,0)

 ;

2 S X=""

 S X=$$SETSTR^VALM1("Site: ",X,12,6)

 S X=$$SETSTR^VALM1(SDSITE,X,18,20)

 S X=$$SETSTR^VALM1("Scheduling Version:",X,41,20)

 S X=$$SETSTR^VALM1(SDPARM(43,1,205,"E"),X,SDSCOL,4)

 D SET(X)

 ;

3 D SET("")

 ;

4 D SET("                        *** Editable Site Parameters ***")

 D CNTRL^VALM10(SDLN,25,32,IOINHI,IOINORM,0)

 ;

5 S X=""

 S X=$$SETSTR^VALM1("      Appt. Search Threshold:",X,1,SDWID)

 S X=$$SETSTR^VALM1(SDPARM(43,1,212,"E"),X,SDFCOL,4)

 S X=$$SETSTR^VALM1("Appt. Update Mail Group:",X,36,24)

 S X=$$SETSTR^VALM1(SDPARM(43,1,215,"E"),X,SDSCOL,19)

 D SET(X)

 ;

6 D SET("")

 S X=""

 S X=$$SETSTR^VALM1(">>> Dispositioning <<<",X,4,SDWID)

 S X=$$SETSTR^VALM1("       NPCDB Mail Group:",X,36,24)

 S X=$$SETSTR^VALM1(SDPARM(43,1,216,"E"),X,SDSCOL,19)

 D SET(X)

 D CNTRL^VALM10(SDLN,4,22,IOINHI,IOINORM,0)

 ;

7 S X=""

 S X=$$SETSTR^VALM1("  Default for View Check Out:",X,1,SDWID)

 S X=$$SETSTR^VALM1(SDPARM(43,1,32,"E"),X,SDFCOL,4)

 D SET(X)

 ;

8 S X=""

 S X=$$SETSTR^VALM1("Late Activity Mail Group:",X,35,25)

 S X=$$SETSTR^VALM1(SDPARM(43,1,217,"E"),X,SDSCOL,19)

 D SET(X)

 D CNTRL^VALM10(SDLN,4,22,IOINHI,IOINORM,0)

 ;

9 D SET("")

 ;

10 S X=""

 S X=$$SETSTR^VALM1(" API Messages Mail Group:",X,35,25)

 S X=$$SETSTR^VALM1(SDPARM(43,1,226,"E"),X,SDSCOL,19)

 D SET(X)

 ;

11 D SET("")

 ;

12 S X=""

 S X=$$SETSTR^VALM1(" API Messages to Process:",X,35,25)

 S X=$$SETSTR^VALM1(SDPARM(43,1,227,"E"),X,SDSCOL,19)

 D SET(X)

 ;

13 D SET("")

 ;

14 S X=""

 S X=$$SETSTR^VALM1(" Allow '^' out of Class.:",X,35,25)

 S X=$$SETSTR^VALM1(SDPARM(43,1,224,"E"),X,SDSCOL,19)

 D SET(X)

 ;

15 D SET("")

 ;

16 D SET("                      *** Editable Division Parameters ***")

 D CNTRL^VALM10(SDLN,23,36,IOINHI,IOINORM,0)

 ;

 D ^SDPARM1 ; Call to build display for division

 ;

 S VALMCNT=SDLN

 Q

 ;

QUIT ;

 K DIC,DIQ,DR,SD,SDJ,SDDIV,SDDLN,SDFCOL,SDSCOL,SDL,SDLN,SDPARM,SDSITE,SDVLAR,SDWID,^TMP("SDPARM",$J)

 Q

INIT ;Init variables

 ;

 K ^TMP("SDPARM",$J)

 S SDVLAR="^TMP(""SDPARM"",$J)"

 S SDFCOL=31,SDSCOL=61,SDWID=29,SDLN=0

 S SDSITE=$P($$SITE^VASITE,U,2) D WAIT^DICD

 F DA=0:0 S DA=$O(^DG(40.8,DA)) Q:'DA  S DIC="^DG(40.8,",DR=".01;9;30.01:30.04",DIQ="SDPARM",DIQ(0)="E" D EN^DIQ1 W "."

 S DIC="^DG(43,",DA=1,DR="32;205;212;215;216;217;224;226;227",DIQ="SDPARM",DIQ(0)="E" D EN^DIQ1

 Q

SET(X) ; Set in ^TMP global for display

 ;

 S SDLN=SDLN+1,^TMP("SDPARM",$J,SDLN,0)=X

 Q

 ;

SDPARM    ;ALB/CAW - Build Display for MAS Parameters ; 3/10/92

 +1       ;;5.3;Scheduling;**27,132,1015**;08/13/93;Build 21

 +2       ;

START     ;

 +1        KILL XQORS,VALMLEVL

           DO EN^VALM("SD PARM PARAMETERS")

 +2        GOTO QUIT

EN        ;Entry point for list manager

 +1       ;

 +2        DO INIT

 +3       ;

HDR       ;

 +1       ;

1          DO SET("                          *** Site Demographics ***")

 +1        DO CNTRL^VALM10(SDLN,26,26,IOINHI,IOINORM,0)

 +2       ;

2          SET X=""

 +1        SET X=$$SETSTR^VALM1("Site: ",X,12,6)

 +2        SET X=$$SETSTR^VALM1(SDSITE,X,18,20)

 +3        SET X=$$SETSTR^VALM1("Scheduling Version:",X,41,20)

 +4        SET X=$$SETSTR^VALM1(SDPARM(43,1,205,"E"),X,SDSCOL,4)

 +5        DO SET(X)

 +6       ;

3          DO SET("")

 +1       ;

4          DO SET("                        *** Editable Site Parameters ***")

 +1        DO CNTRL^VALM10(SDLN,25,32,IOINHI,IOINORM,0)

 +2       ;

5          SET X=""

 +1        SET X=$$SETSTR^VALM1("      Appt. Search Threshold:",X,1,SDWID)

 +2        SET X=$$SETSTR^VALM1(SDPARM(43,1,212,"E"),X,SDFCOL,4)

 +3        SET X=$$SETSTR^VALM1("Appt. Update Mail Group:",X,36,24)

 +4        SET X=$$SETSTR^VALM1(SDPARM(43,1,215,"E"),X,SDSCOL,19)

 +5        DO SET(X)

 +6       ;

6          DO SET("")

 +1        SET X=""

 +2        SET X=$$SETSTR^VALM1(">>> Dispositioning <<<",X,4,SDWID)

 +3        SET X=$$SETSTR^VALM1("       NPCDB Mail Group:",X,36,24)

 +4        SET X=$$SETSTR^VALM1(SDPARM(43,1,216,"E"),X,SDSCOL,19)

 +5        DO SET(X)

 +6        DO CNTRL^VALM10(SDLN,4,22,IOINHI,IOINORM,0)

 +7       ;

7          SET X=""

 +1        SET X=$$SETSTR^VALM1("  Default for View Check Out:",X,1,SDWID)

 +2        SET X=$$SETSTR^VALM1(SDPARM(43,1,32,"E"),X,SDFCOL,4)

 +3        DO SET(X)

 +4       ;

8          SET X=""

 +1        SET X=$$SETSTR^VALM1("Late Activity Mail Group:",X,35,25)

 +2        SET X=$$SETSTR^VALM1(SDPARM(43,1,217,"E"),X,SDSCOL,19)

 +3        DO SET(X)

 +4        DO CNTRL^VALM10(SDLN,4,22,IOINHI,IOINORM,0)

 +5       ;

9          DO SET("")

 +1       ;

10         SET X=""

 +1        SET X=$$SETSTR^VALM1(" API Messages Mail Group:",X,35,25)

 +2        SET X=$$SETSTR^VALM1(SDPARM(43,1,226,"E"),X,SDSCOL,19)

 +3        DO SET(X)

 +4       ;

11         DO SET("")

 +1       ;

12         SET X=""

 +1        SET X=$$SETSTR^VALM1(" API Messages to Process:",X,35,25)

 +2        SET X=$$SETSTR^VALM1(SDPARM(43,1,227,"E"),X,SDSCOL,19)

 +3        DO SET(X)

 +4       ;

13         DO SET("")

 +1       ;

14         SET X=""

 +1        SET X=$$SETSTR^VALM1(" Allow '^' out of Class.:",X,35,25)

 +2        SET X=$$SETSTR^VALM1(SDPARM(43,1,224,"E"),X,SDSCOL,19)

 +3        DO SET(X)

 +4       ;

15         DO SET("")

 +1       ;

16         DO SET("                      *** Editable Division Parameters ***")

 +1        DO CNTRL^VALM10(SDLN,23,36,IOINHI,IOINORM,0)

 +2       ;

 +3       ; Call to build display for division

           DO ^SDPARM1

 +4       ;

 +5        SET VALMCNT=SDLN

 +6        QUIT 

 +7       ;

QUIT      ;

 +1        KILL DIC,DIQ,DR,SD,SDJ,SDDIV,SDDLN,SDFCOL,SDSCOL,SDL,SDLN,SDPARM,SDSITE,SDVLAR,SDWID,^TMP("SDPARM",$JOB)

 +2        QUIT 

INIT      ;Init variables

 +1       ;

 +2        KILL ^TMP("SDPARM",$JOB)

 +3        SET SDVLAR="^TMP(""SDPARM"",$J)"

 +4        SET SDFCOL=31

           SET SDSCOL=61

           SET SDWID=29

           SET SDLN=0

 +5        SET SDSITE=$PIECE($$SITE^VASITE,U,2)

           DO WAIT^DICD

 +6        FOR DA=0:0

               SET DA=$ORDER(^DG(40.8,DA))

               IF 'DA

                   QUIT 

               SET DIC="^DG(40.8,"

               SET DR=".01;9;30.01:30.04"

               SET DIQ="SDPARM"

               SET DIQ(0)="E"

               DO EN^DIQ1

               WRITE "."

 +7        SET DIC="^DG(43,"

           SET DA=1

           SET DR="32;205;212;215;216;217;224;226;227"

           SET DIQ="SDPARM"

           SET DIQ(0)="E"

           DO EN^DIQ1

 +8        QUIT 

SET(X)    ; Set in ^TMP global for display

 +1       ;

 +2        SET SDLN=SDLN+1

           SET ^TMP("SDPARM",$JOB,SDLN,0)=X

 +3        QUIT 

 +4       ;