source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDWLFUL2.m@ 1147

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

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1SDWLFUL2 ;;IOFO BAY PINES/TEH - apply/RE-CAL ENROLLE STATUS;06/12/2002 ; 20 Aug 2002 2:10 PM
2 ;;5.3;scheduling;**525**;AUG 13 1993;Build 47
3 ;
4 ;
5 ;
6 ;
7 ;
8 ;
9 Q
10EN ;
11 I '$D(^XTMP("SDWLFULSTAT",$J,4)) W !,"You must run OPTION 4 before OPTION 5." Q
12 I $D(^XTMP("SDWLFULSTAT",$J,5)) W !,"You have already run this OPTION." Q
13 S DIR(0)="Y",DIR("B")="NO"
14 W !,"This Utility will APPLY the new ENROLLEE STATUS to your SD WAIT LIST file",!
15 S DIR("A")="Are you sure that you wish to continue"
16 D ^DIR I 'Y Q
17 N SDWLDA,SDWLTF,SDWLAPI,SDWLVS,SDWLC,SDWLTFD,SDWLAPID,SDWLVSD,SDWLODT
18 N SDWLCNT,SDWLIN
19 N SDWLX S SDWLCNT=0
20 S SDWLA=0 F S SDWLA=$O(^SDWL(409.39,SDWLA)) Q:SDWLA<1 D
21 .S SDWLX=$G(^SDWL(409.39,SDWLA,0)) I SDWLX="" Q
22 .W !,SDWLA S SDWLCNT=SDWLCNT+1
23 .S SDWLDA=$P(SDWLX,"^",10)
24 .S SDWLTF=$P(SDWLX,U,2),SDWLAPI=$P(SDWLX,U,3)
25 .S SDWLVS=$P(SDWLX,U,4),SDWLC=$P(SDWLX,U,5)
26 .S SDWLTFD=$P(SDWLX,U,6),SDWLAPID=$P(SDWLX,U,7)
27 .S SDWLVSD=$P(SDWLX,U,8),SDWLODT=$P(SDWLX,U,9),SDWLF=0
28 .S SDWLXX=$P(SDWLX,"^",2,4) I SDWLXX["E" S SDWLSET="E" D SET S SDWLF=1 Q
29 .I 'SDWLF,SDWLXX["P" S SDWLSET="P" D SET S SDWLF=1 Q
30 .I 'SDWLF,SDWLXX["N" S SDWLSET="N" D SET S SDWLF=1 Q
31 .I 'SDWLF S SDWLXX="U" S SDWLSET="U" D SET Q
32END K DA,DIE,DR,I,SDWLA,SDWLF,X,DA,DIE,DR,SDWLA,SDWLF,SDWLXX,SDWLSET,DIR
33 W !,"All Records Processed."
34 S ^XTMP("SDWLFULSTAT",$J,5)=""
35MESS ;SENT MESSAGE TO FORUM
36 N XMSUB,XMY,XMTEXT,XMDUZ,SDWLMSG,SDWLI,XQSUB,Y
37 S XMY("DERDERIAN.JOHN@FORUM.VA.GOV")=""
38 S XMY("HOUTCHENS.THOMAS@FORUM.VA.GOV")=""
39 S XMY("BROWN.BONNIE@FORUM.VA.GOV")=""
40 S XMY("KROCHMAL.CHUCK@FORUM.VA.GOV")=""
41 S XMY("TAPPER.BRIAN@FORUM.VA.GOV")=""
42 S XMY("BENBOW.PHYLLIS@FORUM.VA.GOV")=""
43 S XMY("LANDRIE.LARRY@FORUM.VA.GOV")=""
44 S XMY("TOWSON.LINDA@FORUM.VA.GOV")=""
45 S XMSUB="Patch SD*5.3*525 successful."
46 S XQSUB="Installation of SD*5.3*525."
47 S XMTEXT="SDWLMSG(",XMDUZ="POSTMASTER"
48 S SDWLIN=$$GET1^DIQ(4,DUZ(2)_",",.01,,)
49 S SDWLMSG(1,0)="Patch SD*5.3*525 successful installed at "_SDWLIN
50 S Y=DT D DD^%DT
51 S SDWLMSG(2,0)="At "_Y
52 S SDWLMSG(3,0)=SDWLCNT_" Records had the Enrollee Status field updated."
53 S SDWLMSG(4,0)="",SDWLMSG(0)=4
54 D ^XMD
55 Q
56SET S DR="27////^S X=SDWLSET",DIE="^SDWL(409.3,",DA=SDWLDA D ^DIE
57 S DR="8.1////^S X=SDWLSET",DIE=409.39,DA=SDWLA D ^DIE
58 Q
Note: See TracBrowser for help on using the repository browser.