| 1 | ENPLSV2 ;WISC/SAB-PROJECT COMMUNICATION SERVER (CONTINUED) ;5/26/94
|
|---|
| 2 | ;;7.0;ENGINEERING;**11**;Aug 17, 1993
|
|---|
| 3 | A ;
|
|---|
| 4 | L:$G(ENDA)>0 -^ENG("PROJ",ENDA)
|
|---|
| 5 | S ENPACT=$P(ENREC,U,2)
|
|---|
| 6 | S ENPNBR=$P(ENREC,U,3)
|
|---|
| 7 | S ENPTTL=$P(ENREC,U,4)
|
|---|
| 8 | ; find project entry
|
|---|
| 9 | S DIC=6925,DIC(0)="X",X=ENPNBR D ^DIC S ENDA=+Y L:Y>0 +^ENG("PROJ",ENDA)
|
|---|
| 10 | Q
|
|---|
| 11 | B ;
|
|---|
| 12 | S ENPDA1=$P(ENREC,U,2)
|
|---|
| 13 | S ENPTI1=$P(ENREC,U,3)
|
|---|
| 14 | I ENCTZD'=0 D
|
|---|
| 15 | . S ENDT=$$FMADD^XLFDT(ENPDA1-17000000_"."_ENPTI1,"",ENCTZD)
|
|---|
| 16 | . S ENPDA1=$P(ENDT,".",1)+17000000
|
|---|
| 17 | . S ENPTI1=$P(ENDT,".",2)_$E("000000",1,6-$L($P(ENDT,".",2)))
|
|---|
| 18 | S ENPDA2=$P(ENREC,U,4)
|
|---|
| 19 | S ENPTI2=$P(ENREC,U,5)
|
|---|
| 20 | I ENCTZD'=0 D
|
|---|
| 21 | . S ENDT=$$FMADD^XLFDT(ENPDA2-17000000_"."_ENPTI2,"",ENCTZD)
|
|---|
| 22 | . S ENPDA2=$P(ENDT,".",1)+17000000
|
|---|
| 23 | . S ENPTI2=$P(ENDT,".",2)_$E("000000",1,6-$L($P(ENDT,".",2)))
|
|---|
| 24 | S ENPSTA=$P(ENREC,U,6)
|
|---|
| 25 | S ENPREV=$P(ENREC,U,7)
|
|---|
| 26 | D @(ENRSEG_ENCTYPE_"^ENPLSV3")
|
|---|
| 27 | Q
|
|---|
| 28 | C ;
|
|---|
| 29 | S ENPCOM=$P(ENREC,U,5)
|
|---|
| 30 | D @(ENRSEG_ENCTYPE)
|
|---|
| 31 | Q
|
|---|
| 32 | CATH ;
|
|---|
| 33 | Q
|
|---|
| 34 | CCON ;
|
|---|
| 35 | ; update communication log
|
|---|
| 36 | I ENDA>0 D
|
|---|
| 37 | .K ENTXT S ENTXT(1)=$E(ENBLANK,1,16)_"because "_ENPCOM
|
|---|
| 38 | .D POSTCL^ENPLUTL(ENDA,"ENTXT",0) K ENTXT
|
|---|
| 39 | S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=$E(ENBLANK,1,48)_ENPCOM
|
|---|
| 40 | Q
|
|---|
| 41 | CNVI ;
|
|---|
| 42 | ; update communication log
|
|---|
| 43 | I ENDA>0 D
|
|---|
| 44 | .K ENTXT S ENTXT(1)=$E(ENBLANK,1,16)_ENPCOM
|
|---|
| 45 | .D POSTCL^ENPLUTL(ENDA,"ENTXT",0) K ENTXT
|
|---|
| 46 | ; update mail message
|
|---|
| 47 | S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENPCOM
|
|---|
| 48 | Q
|
|---|
| 49 | CRET ;
|
|---|
| 50 | ; update communication log
|
|---|
| 51 | I ENDA>0 D
|
|---|
| 52 | .K ENTXT S ENTXT(1)=$E(ENBLANK,1,16)_ENPCOM
|
|---|
| 53 | .D POSTCL^ENPLUTL(ENDA,"ENTXT",0) K ENTXT
|
|---|
| 54 | ; update mail message
|
|---|
| 55 | S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENPCOM
|
|---|
| 56 | Q
|
|---|
| 57 | CDIS ;
|
|---|
| 58 | I ENDA>0 D
|
|---|
| 59 | .K ENTXT S ENTXT(1)=$E(ENBLANK,1,16)_ENPCOM
|
|---|
| 60 | .D POSTCL^ENPLUTL(ENDA,"ENTXT",0) K ENTXT
|
|---|
| 61 | ; update mail message
|
|---|
| 62 | S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=$E(ENBLANK,1,13)_ENPCOM
|
|---|
| 63 | Q
|
|---|
| 64 | CSUM ;
|
|---|
| 65 | Q
|
|---|
| 66 | D ;
|
|---|
| 67 | D DATH^ENPLSV4
|
|---|
| 68 | Q
|
|---|
| 69 | ;ENPLSV2
|
|---|
