source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDPARM2.m@ 1424

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

initial load of FOIAVistA 6/30/08 version

File size: 590 bytes
Line 
1SDPARM2 ;ALB/CAW - Edit Main and Division Parmaters; 3/10/92
2 ;;5.3;Scheduling;**27,132**;08/13/93
3 ;
41 ;Edit Main Parameters
5 ;
6 D FULL^VALM1
7 S DIE="^DG(43,",DA=1,DR="212;215;216;32;217;226;227;224T" D ^DIE K DIE I $D(DTOUT) G Q1
8 D EN^SDPARM S VALMBCK="R"
9Q1 Q
10 ;
112 ;Edit Division Parameters
12 ;
13 D FULL^VALM1
14 I '$P($G(^DG(43,1,"GL")),U,2) S Y=1 D DIE Q
15DIC W ! S DIC="^DG(40.8,",DIC(0)="AEMQ" D ^DIC I Y<0 S VALMBCK="" G RDSPLY
16DIE S DIE="^DG(40.8,",(SD,DA)=+Y,DR="30.01:30.04" D ^DIE K DIE
17 I $D(DTOUT) G Q2
18 I $P($G(^DG(43,1,"GL")),U,2) G DIC
19 ;
20RDSPLY D EN^SDPARM S VALMBCK="R"
21Q2 Q
Note: See TracBrowser for help on using the repository browser.