source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDPARM.m@ 1361

Last change on this file since 1361 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.6 KB
RevLine 
[613]1SDPARM ;ALB/CAW - Build Display for MAS Parameters ; 3/10/92
2 ;;5.3;Scheduling;**27,132**;08/13/93
3 ;
4START ;
5 K XQORS,VALMLEVL D EN^VALM("SD PARM PARAMETERS")
6 G QUIT
7EN ;Entry point for list manager
8 ;
9 D INIT
10 ;
11HDR ;
12 ;
131 D SET(" *** Site Demographics ***")
14 D CNTRL^VALM10(SDLN,26,26,IOINHI,IOINORM,0)
15 ;
162 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 ;
233 D SET("")
24 ;
254 D SET(" *** Editable Site Parameters ***")
26 D CNTRL^VALM10(SDLN,25,32,IOINHI,IOINORM,0)
27 ;
285 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 ;
356 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 ;
437 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 ;
488 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 ;
549 D SET("")
55 ;
5610 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 ;
6111 D SET("")
62 ;
6312 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 ;
6813 D SET("")
69 ;
7014 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 ;
7515 D SET("")
76 ;
7716 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 ;
85QUIT ;
86 K DIC,DIQ,DR,SD,SDJ,SDDIV,SDDLN,SDFCOL,SDSCOL,SDL,SDLN,SDPARM,SDSITE,SDVLAR,SDWID,^TMP("SDPARM",$J)
87 Q
88INIT ;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
97SET(X) ; Set in ^TMP global for display
98 ;
99 S SDLN=SDLN+1,^TMP("SDPARM",$J,SDLN,0)=X
100 Q
101 ;
Note: See TracBrowser for help on using the repository browser.