| [613] | 1 | SDPARM ;ALB/CAW - Build Display for MAS Parameters ; 3/10/92
|
|---|
| 2 | ;;5.3;Scheduling;**27,132**;08/13/93
|
|---|
| 3 | ;
|
|---|
| 4 | START ;
|
|---|
| 5 | K XQORS,VALMLEVL D EN^VALM("SD PARM PARAMETERS")
|
|---|
| 6 | G QUIT
|
|---|
| 7 | EN ;Entry point for list manager
|
|---|
| 8 | ;
|
|---|
| 9 | D INIT
|
|---|
| 10 | ;
|
|---|
| 11 | HDR ;
|
|---|
| 12 | ;
|
|---|
| 13 | 1 D SET(" *** Site Demographics ***")
|
|---|
| 14 | D CNTRL^VALM10(SDLN,26,26,IOINHI,IOINORM,0)
|
|---|
| 15 | ;
|
|---|
| 16 | 2 S X=""
|
|---|
| 17 | S X=$$SETSTR^VALM1("Site: ",X,12,6)
|
|---|
| 18 | S X=$$SETSTR^VALM1(SDSITE,X,18,20)
|
|---|
| 19 | S X=$$SETSTR^VALM1("Scheduling Version:",X,41,20)
|
|---|
| 20 | S X=$$SETSTR^VALM1(SDPARM(43,1,205,"E"),X,SDSCOL,4)
|
|---|
| 21 | D SET(X)
|
|---|
| 22 | ;
|
|---|
| 23 | 3 D SET("")
|
|---|
| 24 | ;
|
|---|
| 25 | 4 D SET(" *** Editable Site Parameters ***")
|
|---|
| 26 | D CNTRL^VALM10(SDLN,25,32,IOINHI,IOINORM,0)
|
|---|
| 27 | ;
|
|---|
| 28 | 5 S X=""
|
|---|
| 29 | S X=$$SETSTR^VALM1(" Appt. Search Threshold:",X,1,SDWID)
|
|---|
| 30 | S X=$$SETSTR^VALM1(SDPARM(43,1,212,"E"),X,SDFCOL,4)
|
|---|
| 31 | S X=$$SETSTR^VALM1("Appt. Update Mail Group:",X,36,24)
|
|---|
| 32 | S X=$$SETSTR^VALM1(SDPARM(43,1,215,"E"),X,SDSCOL,19)
|
|---|
| 33 | D SET(X)
|
|---|
| 34 | ;
|
|---|
| 35 | 6 D SET("")
|
|---|
| 36 | S X=""
|
|---|
| 37 | S X=$$SETSTR^VALM1(">>> Dispositioning <<<",X,4,SDWID)
|
|---|
| 38 | S X=$$SETSTR^VALM1(" NPCDB Mail Group:",X,36,24)
|
|---|
| 39 | S X=$$SETSTR^VALM1(SDPARM(43,1,216,"E"),X,SDSCOL,19)
|
|---|
| 40 | D SET(X)
|
|---|
| 41 | D CNTRL^VALM10(SDLN,4,22,IOINHI,IOINORM,0)
|
|---|
| 42 | ;
|
|---|
| 43 | 7 S X=""
|
|---|
| 44 | S X=$$SETSTR^VALM1(" Default for View Check Out:",X,1,SDWID)
|
|---|
| 45 | S X=$$SETSTR^VALM1(SDPARM(43,1,32,"E"),X,SDFCOL,4)
|
|---|
| 46 | D SET(X)
|
|---|
| 47 | ;
|
|---|
| 48 | 8 S X=""
|
|---|
| 49 | S X=$$SETSTR^VALM1("Late Activity Mail Group:",X,35,25)
|
|---|
| 50 | S X=$$SETSTR^VALM1(SDPARM(43,1,217,"E"),X,SDSCOL,19)
|
|---|
| 51 | D SET(X)
|
|---|
| 52 | D CNTRL^VALM10(SDLN,4,22,IOINHI,IOINORM,0)
|
|---|
| 53 | ;
|
|---|
| 54 | 9 D SET("")
|
|---|
| 55 | ;
|
|---|
| 56 | 10 S X=""
|
|---|
| 57 | S X=$$SETSTR^VALM1(" API Messages Mail Group:",X,35,25)
|
|---|
| 58 | S X=$$SETSTR^VALM1(SDPARM(43,1,226,"E"),X,SDSCOL,19)
|
|---|
| 59 | D SET(X)
|
|---|
| 60 | ;
|
|---|
| 61 | 11 D SET("")
|
|---|
| 62 | ;
|
|---|
| 63 | 12 S X=""
|
|---|
| 64 | S X=$$SETSTR^VALM1(" API Messages to Process:",X,35,25)
|
|---|
| 65 | S X=$$SETSTR^VALM1(SDPARM(43,1,227,"E"),X,SDSCOL,19)
|
|---|
| 66 | D SET(X)
|
|---|
| 67 | ;
|
|---|
| 68 | 13 D SET("")
|
|---|
| 69 | ;
|
|---|
| 70 | 14 S X=""
|
|---|
| 71 | S X=$$SETSTR^VALM1(" Allow '^' out of Class.:",X,35,25)
|
|---|
| 72 | S X=$$SETSTR^VALM1(SDPARM(43,1,224,"E"),X,SDSCOL,19)
|
|---|
| 73 | D SET(X)
|
|---|
| 74 | ;
|
|---|
| 75 | 15 D SET("")
|
|---|
| 76 | ;
|
|---|
| 77 | 16 D SET(" *** Editable Division Parameters ***")
|
|---|
| 78 | D CNTRL^VALM10(SDLN,23,36,IOINHI,IOINORM,0)
|
|---|
| 79 | ;
|
|---|
| 80 | D ^SDPARM1 ; Call to build display for division
|
|---|
| 81 | ;
|
|---|
| 82 | S VALMCNT=SDLN
|
|---|
| 83 | Q
|
|---|
| 84 | ;
|
|---|
| 85 | QUIT ;
|
|---|
| 86 | K DIC,DIQ,DR,SD,SDJ,SDDIV,SDDLN,SDFCOL,SDSCOL,SDL,SDLN,SDPARM,SDSITE,SDVLAR,SDWID,^TMP("SDPARM",$J)
|
|---|
| 87 | Q
|
|---|
| 88 | INIT ;Init variables
|
|---|
| 89 | ;
|
|---|
| 90 | K ^TMP("SDPARM",$J)
|
|---|
| 91 | S SDVLAR="^TMP(""SDPARM"",$J)"
|
|---|
| 92 | S SDFCOL=31,SDSCOL=61,SDWID=29,SDLN=0
|
|---|
| 93 | S SDSITE=$P($$SITE^VASITE,U,2) D WAIT^DICD
|
|---|
| 94 | 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 "."
|
|---|
| 95 | S DIC="^DG(43,",DA=1,DR="32;205;212;215;216;217;224;226;227",DIQ="SDPARM",DIQ(0)="E" D EN^DIQ1
|
|---|
| 96 | Q
|
|---|
| 97 | SET(X) ; Set in ^TMP global for display
|
|---|
| 98 | ;
|
|---|
| 99 | S SDLN=SDLN+1,^TMP("SDPARM",$J,SDLN,0)=X
|
|---|
| 100 | Q
|
|---|
| 101 | ;
|
|---|
