| [613] | 1 | ENPRP2 ;(WIRMFO)/DLM/DH/SAB-Project Tracking Report ;3/31/95
|
|---|
| 2 | ;;7.0;ENGINEERING;**28**;Aug 17, 1993
|
|---|
| 3 | EN ;
|
|---|
| 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
|
|---|
| 39 | EXTD(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
|
|---|
| 46 | QTR(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
|
|---|
