| 1 | ENPLX ;WISC/SAB-PROJECT TRANSMISSION ;5/12/97
|
|---|
| 2 | ;;7.0;ENGINEERING;**23,28,70**;Aug 17, 1993
|
|---|
| 3 | EN(ENTY) ; entry point
|
|---|
| 4 | ;-------------------------------------------------------------
|
|---|
| 5 | ;This option is now obsolete
|
|---|
| 6 | ;
|
|---|
| 7 | NEW MSG ;Array for message
|
|---|
| 8 | S MSG(1,"F")="!!!"
|
|---|
| 9 | S MSG(1)=" This option is now Out of Order. Construction project "
|
|---|
| 10 | S MSG(1)=MSG(1)_"data is now "
|
|---|
| 11 | S MSG(2)=" entered and reported in a web database at "
|
|---|
| 12 | S MSG(2)=MSG(2)_"http://vaww.va.gov/capassets."
|
|---|
| 13 | S MSG(3,"F")="!!"
|
|---|
| 14 | S MSG(3)=" Please, contact your Network Capital Assets Coordinator,"
|
|---|
| 15 | S MSG(3)=MSG(3)_" or VSSC"
|
|---|
| 16 | S MSG(4)=" representative for assistance."
|
|---|
| 17 | ;
|
|---|
| 18 | DO EN^DDIOL(.MSG)
|
|---|
| 19 | ;
|
|---|
| 20 | QUIT
|
|---|
| 21 | ;
|
|---|
| 22 | ;------------------------------------------------------------
|
|---|
| 23 | ; Input Variables
|
|---|
| 24 | ; ENTY - type of transmission
|
|---|
| 25 | ; F - Five Year Facility Plan
|
|---|
| 26 | ; A - Project Appliation
|
|---|
| 27 | ; R - Progress Report
|
|---|
| 28 | Q:$L($G(ENTY))'=1 Q:"FAR"'[ENTY
|
|---|
| 29 | ; check environment
|
|---|
| 30 | I '$D(^DIC(6910,1,0)) W !,"Your ENG INIT PARAMETERS file (#6910) is not in order.",$C(7) G EXIT
|
|---|
| 31 | I "FA"[ENTY D PPDOM^ENPLUTL I ENDOMAIN="" G EXIT
|
|---|
| 32 | I "R"[ENTY D PRDOM^ENPRUTL I ENDOMAIN="" G EXIT
|
|---|
| 33 | ; check for members in mail group
|
|---|
| 34 | S ENX=$$FIND1^DIC(3.8,"","X","EN PROJECTS")
|
|---|
| 35 | I 'ENX W $C(7),!,"Mail group EN PROJECTS is missing." G EXIT
|
|---|
| 36 | D LIST^DIC(3.81,","_ENX_",","","",1,"","","","","","ENQ")
|
|---|
| 37 | I '$P(ENQ("DILIST",0),U) D G:$D(DIRUT)!'ENX EXIT
|
|---|
| 38 | . W $C(7),!,"No members found in mail group EN PROJECTS. At least one is required."
|
|---|
| 39 | . S DIR(0)="Y",DIR("B")="YES"
|
|---|
| 40 | . S DIR("A")="Should you be added as a member of EN PROJECTS"
|
|---|
| 41 | . S DIR("?",1)="Members of mail group EN PROJECTS receive messages from"
|
|---|
| 42 | . S DIR("?",2)="the VISN concerning projects which have been transmitted"
|
|---|
| 43 | . S DIR("?",3)="from their facility to the VISN Construction Database."
|
|---|
| 44 | . S DIR("?")="Enter YES to be added to this mail group."
|
|---|
| 45 | . D ^DIR K DIR Q:$D(DIRUT) I 'Y S ENX="" Q
|
|---|
| 46 | . K ENXMY S ENXMY(DUZ)=""
|
|---|
| 47 | . S ENX=$$MG^XMBGRP(ENX,"","","",.ENXMY,"",1)
|
|---|
| 48 | . K ENXMY
|
|---|
| 49 | K ENX,ENQ
|
|---|
| 50 | ; select projects
|
|---|
| 51 | D EN^ENPLS(ENTY,1)
|
|---|
| 52 | I '$D(^TMP($J,"L")) G EXIT
|
|---|
| 53 | ; validate projects
|
|---|
| 54 | D EN^ENPLV(ENTY,1)
|
|---|
| 55 | ; what should be done if not all valid?
|
|---|
| 56 | S ENX=$G(^TMP($J,"L")),ENC("V0")=$P(ENX,U)
|
|---|
| 57 | S ENC("V1")=$P(ENX,U,3),ENC("V2")=$P(ENX,U,4),ENC("V3")=$P(ENX,U,5)
|
|---|
| 58 | S ENT("PROJ")=ENC("V2")+ENC("V3")
|
|---|
| 59 | I 'ENT("PROJ") W !!,"No valid projects to transmit!" G EXIT
|
|---|
| 60 | I ENC("V1") D G EXIT
|
|---|
| 61 | . W $C(7),!!,"Since some of the selected projects falied the validated checks,"
|
|---|
| 62 | . W !,"none of the selected projects will be transmitted."
|
|---|
| 63 | ;I ENC("V1") D G:'Y!$D(DIRUT) EXIT
|
|---|
| 64 | ;. W !!,"Projects which failed the validation checks will not be transmitted."
|
|---|
| 65 | ;. S DIR(0)="Y",DIR("B")="NO"
|
|---|
| 66 | ;. S DIR("A")="Transmit remaining projects which passed the validation checks"
|
|---|
| 67 | ;. S DIR("?")="Answer yes to transmit projects which passed (including those with warnings)."
|
|---|
| 68 | ;. D ^DIR K DIR
|
|---|
| 69 | RP I "R"[ENTY D G:'Y!$D(DIRUT) EXIT
|
|---|
| 70 | . S DIR(0)="D^::EP",DIR("A")="REPORTING PERIOD"
|
|---|
| 71 | . S ENRP=$E($S($E(DT,6,7)<21:$$FMADD^XLFDT(DT,-21),1:DT),1,5)_"00"
|
|---|
| 72 | . S DIR("B")=$$FMTE^XLFDT(ENRP)
|
|---|
| 73 | . S DIR("?",1)="Enter the reporting period (month and year) for the"
|
|---|
| 74 | . S DIR("?",2)="progress reports. Each selected project will be"
|
|---|
| 75 | . S DIR("?")="updated with this reporting period before transmission."
|
|---|
| 76 | . D ^DIR K DIR S ENRP=$E(Y,1,5)_"00"
|
|---|
| 77 | I "R"[ENTY,$E(ENRP,4,5)="00" W $C(7),!,"Month is required." G RP
|
|---|
| 78 | S DIR(0)="Y",DIR("B")="Y",DIR("A")="Do you want to Queue Transmission"
|
|---|
| 79 | S DIR("?",1)="Enter 'Y' if you want the project data placed in mail"
|
|---|
| 80 | S DIR("?")="messages as part of a tasked job."
|
|---|
| 81 | D ^DIR K DIR G:$D(DIRUT) EXIT I Y D G EXIT
|
|---|
| 82 | . S ZTRTN="QEN^ENPLX",ZTIO=""
|
|---|
| 83 | . S ZTDESC="TRAMSIT ENG PROJECT DATA ("_$P("^FYFP^APPL^REPT",U,$L("FAR",ENTY))_")"
|
|---|
| 84 | . S ZTSAVE("ENTY")="",ZTSAVE("^TMP($J,""L"",")=""
|
|---|
| 85 | . S ZTSAVE("ENT(")="",ZTSAVE("ENDOMAIN")=""
|
|---|
| 86 | . S ZTSAVE("ENRP")=""
|
|---|
| 87 | . S ZTDTH=$H D ^%ZTLOAD
|
|---|
| 88 | . W !,ENT("PROJ")," ",$S(ENTY="F":"Five Year Plan project",ENTY="A":"Project Application",ENTY="R":"Project Progress Report",1:"")
|
|---|
| 89 | . W $S(ENT("PROJ")=1:" was",1:"s were")," queued for transmission.",!
|
|---|
| 90 | QEN ; queued entry point
|
|---|
| 91 | S END=0
|
|---|
| 92 | S (ENC("MSG"),ENC("PROJ"))=0
|
|---|
| 93 | ; determine number of msgs needed
|
|---|
| 94 | S ENT("PACK")=$P("^10^1^5",U,$F("FAR",ENTY))
|
|---|
| 95 | S ENT("MSG")=ENT("PROJ")\ENT("PACK")+$S(ENT("PROJ")#ENT("PACK"):1,1:0)
|
|---|
| 96 | ;
|
|---|
| 97 | I $D(ZTQUEUED) D LOCK^ENPLX1 G:END EXIT ; lock valid projects on list
|
|---|
| 98 | ; create/send data (netmail)
|
|---|
| 99 | S ENPN=""
|
|---|
| 100 | F S ENPN=$O(^TMP($J,"L",ENPN)) Q:ENPN="" S ENX=^(ENPN) D G:END EXIT
|
|---|
| 101 | . S ENDA=$P(ENX,U)
|
|---|
| 102 | . I $P(ENX,U,2)>1 D
|
|---|
| 103 | . . ; valid project to xmit
|
|---|
| 104 | . . I '(ENC("PROJ")#ENT("PACK")) D CREATE^ENPLX1 Q:END
|
|---|
| 105 | . . D:"FA"[ENTY ^ENPLX2,UPD^ENPLX1
|
|---|
| 106 | . . D:"R"[ENTY REPTPR^ENPLX1,^ENPLX4,REPTPS^ENPLX1
|
|---|
| 107 | . . S ENC("PROJ")=ENC("PROJ")+1
|
|---|
| 108 | . . I $E(IOST,1,2)="C-" W "."
|
|---|
| 109 | I $G(XMZ)'<1 D SEND^ENPLX1
|
|---|
| 110 | I '$D(ZTQUEUED) D
|
|---|
| 111 | . W !,ENC("PROJ")," ",$S(ENTY="F":"Five Year Plan project",ENTY="A":"Project Application",ENTY="R":"Project Progress Report",1:"")
|
|---|
| 112 | . W $S(ENC("PROJ")=1:" was",1:"s were")," transmitted using "
|
|---|
| 113 | . W ENC("MSG")," mail message",$S(ENC("MSG")=1:"",1:"s"),".",!
|
|---|
| 114 | EXIT ;
|
|---|
| 115 | D UNLOCK^ENPLS
|
|---|
| 116 | K ^TMP($J,"L")
|
|---|
| 117 | K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,XMCHAN,X,Y
|
|---|
| 118 | K ENC,ENCLDT,END,ENDA,ENDOMAIN,ENDT,ENL,ENPN,ENQ
|
|---|
| 119 | K ENRP,ENT,ENTYT,ENX,ENY
|
|---|
| 120 | Q
|
|---|
| 121 | ;ENPLX
|
|---|
