| 1 | ENEQCMR ;(WIRMFO)/DH,SAB-EIL Summary and Signature Page ;5.12.97
|
|---|
| 2 | ;;7.0;ENGINEERING;**39,60**;Aug 17, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | SUM ; Print Summary for EIL report (called by DIOEND)
|
|---|
| 5 | ; input
|
|---|
| 6 | ; EN("CMR","HD")=EIL header information
|
|---|
| 7 | ; ENT(station,fund,sgl)=count^lease cost^asset value
|
|---|
| 8 | N ENSN,ENFUND,ENSGL,ENY,ENGT
|
|---|
| 9 | I $Y+10>IOSL D
|
|---|
| 10 | . I IO=IO(0),$E(IOST,1,2)="C-" R !,"Press <RETURN> to continue",X:DTIME
|
|---|
| 11 | . W @IOF,"EQUIPMENT INVENTORY LISTING (EIL) ",$$FMTE^XLFDT(DT)
|
|---|
| 12 | . W !," FOR EIL: ",EN("CMR","HD"),!
|
|---|
| 13 | W !,?5,"TOTALS:"
|
|---|
| 14 | W !,?10,"STATION",?19,"FUND",?27,"SGL",?33,"COUNT",?40,"LEASE COST",?56,"ASSET VALUE"
|
|---|
| 15 | W !,?10,"-------",?19,"------",?27,"----",?33,"-----",?40,"--------------",?56,"--------------"
|
|---|
| 16 | S ENGT=""
|
|---|
| 17 | S ENSN="" F S ENSN=$O(ENT(ENSN)) Q:ENSN="" D
|
|---|
| 18 | . S ENFUND="" F S ENFUND=$O(ENT(ENSN,ENFUND)) Q:ENFUND="" D
|
|---|
| 19 | . . S ENFUND("E")=$S(ENFUND:$P($G(^ENG(6914.6,ENFUND,0)),U),1:ENFUND)
|
|---|
| 20 | . . S ENSGL="" F S ENSGL=$O(ENT(ENSN,ENFUND,ENSGL)) Q:ENSGL="" D
|
|---|
| 21 | . . . S ENSGL("E")=$S(ENSGL:$P($G(^ENG(6914.3,ENSGL,0)),U),1:ENSGL)
|
|---|
| 22 | . . . S ENY=ENT(ENSN,ENFUND,ENSGL)
|
|---|
| 23 | . . . S $P(ENGT,U)=$P(ENGT,U)+$P(ENY,U)
|
|---|
| 24 | . . . S $P(ENGT,U,2)=$P(ENGT,U,2)+$P(ENY,U,2)
|
|---|
| 25 | . . . S $P(ENGT,U,3)=$P(ENGT,U,3)+$P(ENY,U,3)
|
|---|
| 26 | . . . W !,?10,ENSN,?19,ENFUND("E"),?27,ENSGL("E"),?33,$J($P(ENY,U),5)
|
|---|
| 27 | . . . W ?40,$J($FN($P(ENY,U,2),",",2),14)
|
|---|
| 28 | . . . W ?56,$J($FN($P(ENY,U,3),",",2),14)
|
|---|
| 29 | W !,?33,"-----",?40,"--------------",?56,"--------------"
|
|---|
| 30 | W !,?33,$J($P(ENGT,U),5)
|
|---|
| 31 | W ?40,$J($FN($P(ENGT,U,2),",",2),14)
|
|---|
| 32 | W ?56,$J($FN($P(ENGT,U,3),",",2),14)
|
|---|
| 33 | I IO=IO(0),$E(IOST,1,2)="C-" R !,"Press <RETURN> to continue",X:DTIME
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | SIG ; Print Signature Page for EIL report (called by DIOEND)
|
|---|
| 37 | ; input
|
|---|
| 38 | ; EN("CMR") - CMR Name
|
|---|
| 39 | ; EN("CMR",.5) - CMR Service
|
|---|
| 40 | ; EN("CMR",.6) - CMR Brief Description
|
|---|
| 41 | I '$D(EN("CMR")) Q
|
|---|
| 42 | I '$D(DT) S X="T",%DT="" D ^%DT S DT=+Y
|
|---|
| 43 | W @IOF,"EQUIPMENT INVENTORY LISTING (EIL)" S Y=DT X ^DD("DD") W ?60,Y
|
|---|
| 44 | W !,"SIGNATURE PAGE"
|
|---|
| 45 | W !!,"EIL: ",EN("CMR"),!,?5,EN("CMR",.5) W:EN("CMR",.5)]"" " SERVICE"
|
|---|
| 46 | W:EN("CMR",.6)]"" " ",EN("CMR",.6)
|
|---|
| 47 | W !!,"I UNDERSTAND MY RESPONSIBILITIES LISTED IN VA DIRECTIVE 7125, PART 4, 5006",!,"AND THAT I MAY BE HELD LIABLE UNDER CONDITIONS THEREIN. I ASSUME"
|
|---|
| 48 | W !,"RESPONSIBILITY FOR ITEMS LISTED ABOVE WHICH WERE ON HAND ON THE DATE SIGNED."
|
|---|
| 49 | W !!,"I PERSONALLY REVIEWED AND EVALUATED THE NEED FOR THE EQUIPMENT ASSIGNED",!,"TO MY ACTIVITY AND FIND THAT:"
|
|---|
| 50 | W !!," __",!,"|__| (1) ALL EQUIPMENT IS ESSENTIAL FOR THE PROPER FUNCTIONING OF THIS"
|
|---|
| 51 | W !," ACTIVITY OR,"
|
|---|
| 52 | W !!," __",!,"|__| (2) THE ATTACHED VA FORM(S) 90-2237 (OR COMPUTER GENERATED EQUIVALENT)"
|
|---|
| 53 | W !,?10,"HAS (HAVE) BEEN PREPARED TO TURN IN THE EQUIPMENT DETERMINED",!,?10,"TO BE EXCESS TO THE NEEDS OF THIS ACTIVITY OR,"
|
|---|
| 54 | W !!," __",!,"|__| (3) THE ATTACHED VA FORM(S) 10-1274 (OR COMPUTER GENERATED EQUIVALENT),",!,?10,"RESEARCH EQUIPMENT AVAILABLE TO VA REGIONAL RESEARCH EQUIPMENT"
|
|---|
| 55 | W !,?10,"PROGRAM HAS (HAVE) BEEN PREPARED FOR DISPOSITION AS APPROPRIATE IN",!,?10,"ACCORDANCE WITH VA DIRECTIVE 7343, PART 4, 307-59 OR,"
|
|---|
| 56 | W !!," __",!,"|__| (4) THE ITEM(S) LISTED ON ATTACHED REPORT OF SURVEY FORM(S), VA 90-1217",!,?10,"(OR COMPUTER GENERATED EQUIVALENT), IS (ARE) MISSING OR DAMAGED."
|
|---|
| 57 | W !,?10,"IT IS UNDERSTOOD THAT ACCOUNTABILITY WILL BE DROPPED FROM THE EIL BUT",!,?10,"MY RESPONSIBILITY FOR SUCH ITEMS WILL BE TERMINATED ONLY WHEN FINAL"
|
|---|
| 58 | W !,?10,"SURVEY ACTION HAS BEEN COMPLETED."
|
|---|
| 59 | W !!,"I ALSO CERTIFY THAT ANY PERSONALLY OWNED PROPERTY WHICH HAS BEEN PLACED INTO",!,"OFFICIAL USE HAS BEEN LISTED ON VA FORM 90-2235 (LIST OF PERSONALLY OWNED"
|
|---|
| 60 | W !,"PROPERTY PLACED IN OFFICIAL USE), AND HAS BEEN SUBMITTED THROUGH THE PROPER",!,"CHANNELS FOR APPROVAL."
|
|---|
| 61 | W !!!!,"SIGNATURE: ________________________________________"
|
|---|
| 62 | W !!!!," TITLE: ________________________________________"
|
|---|
| 63 | W !!!!," DATE: ________________________________________"
|
|---|
| 64 | Q
|
|---|
| 65 | ;ENEQCMR
|
|---|
