| 1 | SDWLFUL2 ;;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
|
|---|
| 10 | EN ;
|
|---|
| 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
|
|---|
| 32 | END 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)=""
|
|---|
| 35 | MESS ;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
|
|---|
| 56 | SET 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
|
|---|
