source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENPRP2.m@ 1000

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1ENPRP2 ;(WIRMFO)/DLM/DH/SAB-Project Tracking Report ;3/31/95
2 ;;7.0;ENGINEERING;**28**;Aug 17, 1993
3EN ;
4 N ENFYA,ENMS,ENMSE,ENMSOK,ENQTR,ENX
5 W !!,"PROJECT",?22,"PERCENT",?35,"PLANNED",?48,"REVISED/",?61,"PREVIOUSLY"
6 W !,"MILESTONE",?22,"COMPLETE",?33,"QTR",?39,"DATE",?48,"ACTUAL DATE",?61,"REPORTED"
7 S ENMSOK=$$MSL^ENPRUTL(ENDA)
8 D MSD^ENPRUTL(ENDA,1)
9 F ENI=1:1:22 D
10 . S ENMSE("P")=$$EXTD(ENMS("P",ENI),0)
11 . S ENMSE("P0")=$$EXTD(ENMS("P0",ENI),0)
12 . S ENMSE("R")=$$EXTD(ENMS("R",ENI),1)
13 . S ENMSE("R0")=$$EXTD(ENMS("R0",ENI),1)
14 . S ENMSE("A")=$$EXTD(ENMS("A",ENI),1)
15 . S ENMSE("A0")=$$EXTD(ENMS("A0",ENI),1)
16 . S ENQTR=$$QTR(ENMS("P",ENI))
17 . W !,$$MS^ENPRUTL(ENI)
18 . I '$P(ENMSOK,U,ENI) W ?33,"NA",?39,"NA",?48,"NA" Q
19 . I "^2^8^10^12^21^"[(U_ENI_U) D
20 . . W ?22 D W^ENPRP1($J(ENMS("%",ENI),3),$J(ENMS("%0",ENI),3),"HP")
21 . W ?33,ENQTR,?39
22 . D W^ENPRP1(ENMSE("P"),ENMSE("P0"),$S(ENMSE("P0")]"":"HA",1:""))
23 . W ?48
24 . S ENX="",ENX(0)=""
25 . I ENMSE("A")]"" D
26 . . S ENX=ENMSE("A")_"A"
27 . . S ENX(0)=ENMSE("A0")_$S(ENMSE("A0")]"":"A",1:"")
28 . I ENMSE("A")']"" S ENX=ENMSE("R"),ENX(0)=ENMSE("R0")
29 . D W^ENPRP1(ENX,ENX(0),"HA")
30 . I ENX'=ENX(0),ENX(0)]"" W ?61,"("_ENX(0)_")"
31 . ;I "^6^11^19^"[(U_ENI_U) D
32 . ;. Q:ENMSE("A")]""
33 . ;. S ENX=$S(ENI=6:3.45,ENI=11:3.45,ENI=19:3.5,1:"")
34 . ;. S ENFYA=$$GET1^DIQ(6925,ENDA,ENX)
35 . ;. S ENX=$S(ENMS("R",ENI)]"":ENMS("R",ENI),1:ENMS("P",ENI))
36 . ;. S ENX=$E(ENX,1,3)+$E(ENX,4)+1700 ; convert to 4 digit fiscal year
37 . ;. I ENX'=ENFYA W ?74,"SLIP"
38 Q
39EXTD(ENDT,ENOPT) ; external date
40 ; ENDT - FileMan Date
41 ; ENOPT - 0 for MM-YY or 1 for MM-DD-YY
42 Q:ENDT="" ""
43 N ENX
44 S ENX=$E(ENDT,4,5)_"-"_$S(ENOPT:$E(ENDT,6,7)_"-",1:"")_$E(ENDT,2,3)
45 Q ENX
46QTR(ENDT) ;extract quarter from ENDT FileMan date
47 Q:ENDT="" ""
48 N QTR,YEAR
49 S QTR=+$E(ENDT,4,5),QTR=$P("2^2^2^3^3^3^4^4^4^1^1^1",U,QTR)
50 S YEAR=$E(ENDT,1,3)+$S(QTR=1:1,1:0),YEAR=$E(YEAR,2,3)
51 Q YEAR_"."_QTR
52 ;ENPRP2
Note: See TracBrowser for help on using the repository browser.