source: FOIAVistA/trunk/r/ENGINEERING-EN/ENPLSV2.m@ 1765

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

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1ENPLSV2 ;WISC/SAB-PROJECT COMMUNICATION SERVER (CONTINUED) ;5/26/94
2 ;;7.0;ENGINEERING;**11**;Aug 17, 1993
3A ;
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
11B ;
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
28C ;
29 S ENPCOM=$P(ENREC,U,5)
30 D @(ENRSEG_ENCTYPE)
31 Q
32CATH ;
33 Q
34CCON ;
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
41CNVI ;
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
49CRET ;
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
57CDIS ;
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
64CSUM ;
65 Q
66D ;
67 D DATH^ENPLSV4
68 Q
69 ;ENPLSV2
Note: See TracBrowser for help on using the repository browser.