ENEQCMR.m

ENEQCMR ;(WIRMFO)/DH,SAB-EIL Summary and Signature Page ; 5/7/12 9:56am

 ;;7.0;ENGINEERING;**39,60,91**;Aug 17, 1993;Build 9

 ;

SUM ; Print Summary for EIL report (called by DIOEND)

 ; input

 ;   EN("CMR","HD")=EIL header information

 ;   ENT(station,fund,sgl)=count^lease cost^asset value

 N ENSN,ENFUND,ENSGL,ENY,ENGT

 I $Y+10>IOSL D

 . I IO=IO(0),$E(IOST,1,2)="C-" R !,"Press <RETURN> to continue",X:DTIME

 . W @IOF,"EQUIPMENT INVENTORY LISTING (EIL)         ",$$FMTE^XLFDT(DT)

 . W !," FOR EIL: ",EN("CMR","HD"),!

 W !,?5,"TOTALS:"

 W !,?10,"STATION",?19,"FUND",?27,"SGL",?33,"COUNT",?40,"LEASE COST",?56,"ASSET VALUE"

 W !,?10,"-------",?19,"------",?27,"----",?33,"-----",?40,"--------------",?56,"--------------"

 S ENGT=""

 S ENSN="" F  S ENSN=$O(ENT(ENSN)) Q:ENSN=""  D

 . S ENFUND="" F  S ENFUND=$O(ENT(ENSN,ENFUND)) Q:ENFUND=""  D

 . . S ENFUND("E")=$S(ENFUND:$P($G(^ENG(6914.6,ENFUND,0)),U),1:ENFUND)

 . . S ENSGL="" F  S ENSGL=$O(ENT(ENSN,ENFUND,ENSGL)) Q:ENSGL=""  D

 . . . S ENSGL("E")=$S(ENSGL:$P($G(^ENG(6914.3,ENSGL,0)),U),1:ENSGL)

 . . . S ENY=ENT(ENSN,ENFUND,ENSGL)

 . . . S $P(ENGT,U)=$P(ENGT,U)+$P(ENY,U)

 . . . S $P(ENGT,U,2)=$P(ENGT,U,2)+$P(ENY,U,2)

 . . . S $P(ENGT,U,3)=$P(ENGT,U,3)+$P(ENY,U,3)

 . . . W !,?10,ENSN,?19,ENFUND("E"),?27,ENSGL("E"),?33,$J($P(ENY,U),5)

 . . . W ?40,$J($FN($P(ENY,U,2),",",2),14)

 . . . W ?56,$J($FN($P(ENY,U,3),",",2),14)

 W !,?33,"-----",?40,"--------------",?56,"--------------"

 W !,?33,$J($P(ENGT,U),5)

 W ?40,$J($FN($P(ENGT,U,2),",",2),14)

 W ?56,$J($FN($P(ENGT,U,3),",",2),14)

 I IO=IO(0),$E(IOST,1,2)="C-" R !,"Press <RETURN> to continue",X:DTIME

 Q

 ;

SIG ; Print Signature Page for EIL report (called by DIOEND)

 ; input

 ;   EN("CMR")     - CMR Name

 ;   EN("CMR",.5)  - CMR Service

 ;   EN("CMR",.6)  - CMR Brief Description

 I '$D(EN("CMR")) Q

 I '$D(DT) S X="T",%DT="" D ^%DT S DT=+Y

 W @IOF,"EQUIPMENT INVENTORY LISTING (EIL)" S Y=DT X ^DD("DD") W ?60,Y

 W !,"SIGNATURE PAGE"

 W !!,"EIL: ",EN("CMR"),!,?5,EN("CMR",.5) W:EN("CMR",.5)]"" " SERVICE"

 W:EN("CMR",.6)]"" "   ",EN("CMR",.6)

 W !!,"I UNDERSTAND MY RESPONSIBILITIES LISTED IN VA DIRECTIVE 7002, PART 2",!,"AND THAT I MAY BE HELD LIABLE UNDER CONDITIONS THEREIN. I ASSUME"

 W !,"RESPONSIBILITY FOR ITEMS LISTED ABOVE WHICH WERE ON HAND ON THE DATE SIGNED."

 W !!,"I PERSONALLY REVIEWED AND EVALUATED THE NEED FOR THE EQUIPMENT ASSIGNED",!,"TO MY ACTIVITY AND FIND THAT:"

 W !!," __",!,"|__|  (1) ALL EQUIPMENT IS ESSENTIAL FOR THE PROPER FUNCTIONING OF THIS"

 W !,"          ACTIVITY OR,"

 W !!," __",!,"|__|  (2) THE ATTACHED VA FORM(S) 90-2237 (OR COMPUTER GENERATED EQUIVALENT)"

 W !,?10,"HAS (HAVE) BEEN PREPARED TO TURN IN THE EQUIPMENT DETERMINED",!,?10,"TO BE EXCESS TO THE NEEDS OF THIS ACTIVITY OR,"

 W !!," __",!,"|__|  (3) THE ATTACHED VA FORM(S) 10-1274 (OR COMPUTER GENERATED EQUIVALENT),",!,?10,"RESEARCH EQUIPMENT AVAILABLE TO VA REGIONAL RESEARCH EQUIPMENT"

 W !,?10,"PROGRAM HAS (HAVE) BEEN PREPARED FOR DISPOSITION AS APPROPRIATE IN",!,?10,"ACCORDANCE WITH VA DIRECTIVE 7343, PART 4, 307-59 OR,"

 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."

 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"

 W !,?10,"SURVEY ACTION HAS BEEN COMPLETED."

 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"

 W !,"PROPERTY PLACED IN OFFICIAL USE), AND HAS BEEN SUBMITTED THROUGH THE PROPER",!,"CHANNELS FOR APPROVAL."

 W !!!!,"SIGNATURE: ________________________________________"

 W !!!!,"    TITLE: ________________________________________"

 W !!!!,"     DATE: ________________________________________"

 Q

 ;ENEQCMR

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ENEQCMR   3948     printed  Feb 18, 2025@23:18:50                                                                                                                                                                                                     Page 2

ENEQCMR   ;(WIRMFO)/DH,SAB-EIL Summary and Signature Page ; 5/7/12 9:56am

 +1       ;;7.0;ENGINEERING;**39,60,91**;Aug 17, 1993;Build 9

 +2       ;

SUM       ; Print Summary for EIL report (called by DIOEND)

 +1       ; input

 +2       ;   EN("CMR","HD")=EIL header information

 +3       ;   ENT(station,fund,sgl)=count^lease cost^asset value

 +4        NEW ENSN,ENFUND,ENSGL,ENY,ENGT

 +5        IF $Y+10>IOSL

               Begin DoDot:1

 +6                IF IO=IO(0)

                       IF $EXTRACT(IOST,1,2)="C-"

                           READ !,"Press <RETURN> to continue",X:DTIME

 +7                WRITE @IOF,"EQUIPMENT INVENTORY LISTING (EIL)         ",$$FMTE^XLFDT(DT)

 +8                WRITE !," FOR EIL: ",EN("CMR","HD"),!

               End DoDot:1

 +9        WRITE !,?5,"TOTALS:"

 +10       WRITE !,?10,"STATION",?19,"FUND",?27,"SGL",?33,"COUNT",?40,"LEASE COST",?56,"ASSET VALUE"

 +11       WRITE !,?10,"-------",?19,"------",?27,"----",?33,"-----",?40,"--------------",?56,"--------------"

 +12       SET ENGT=""

 +13       SET ENSN=""

           FOR 

               SET ENSN=$ORDER(ENT(ENSN))

               if ENSN=""

                   QUIT 

               Begin DoDot:1

 +14               SET ENFUND=""

                   FOR 

                       SET ENFUND=$ORDER(ENT(ENSN,ENFUND))

                       if ENFUND=""

                           QUIT 

                       Begin DoDot:2

 +15                       SET ENFUND("E")=$SELECT(ENFUND:$PIECE($GET(^ENG(6914.6,ENFUND,0)),U),1:ENFUND)

 +16                       SET ENSGL=""

                           FOR 

                               SET ENSGL=$ORDER(ENT(ENSN,ENFUND,ENSGL))

                               if ENSGL=""

                                   QUIT 

                               Begin DoDot:3

 +17                               SET ENSGL("E")=$SELECT(ENSGL:$PIECE($GET(^ENG(6914.3,ENSGL,0)),U),1:ENSGL)

 +18                               SET ENY=ENT(ENSN,ENFUND,ENSGL)

 +19                               SET $PIECE(ENGT,U)=$PIECE(ENGT,U)+$PIECE(ENY,U)

 +20                               SET $PIECE(ENGT,U,2)=$PIECE(ENGT,U,2)+$PIECE(ENY,U,2)

 +21                               SET $PIECE(ENGT,U,3)=$PIECE(ENGT,U,3)+$PIECE(ENY,U,3)

 +22                               WRITE !,?10,ENSN,?19,ENFUND("E"),?27,ENSGL("E"),?33,$JUSTIFY($PIECE(ENY,U),5)

 +23                               WRITE ?40,$JUSTIFY($FNUMBER($PIECE(ENY,U,2),",",2),14)

 +24                               WRITE ?56,$JUSTIFY($FNUMBER($PIECE(ENY,U,3),",",2),14)

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +25       WRITE !,?33,"-----",?40,"--------------",?56,"--------------"

 +26       WRITE !,?33,$JUSTIFY($PIECE(ENGT,U),5)

 +27       WRITE ?40,$JUSTIFY($FNUMBER($PIECE(ENGT,U,2),",",2),14)

 +28       WRITE ?56,$JUSTIFY($FNUMBER($PIECE(ENGT,U,3),",",2),14)

 +29       IF IO=IO(0)

               IF $EXTRACT(IOST,1,2)="C-"

                   READ !,"Press <RETURN> to continue",X:DTIME

 +30       QUIT 

 +31      ;

SIG       ; Print Signature Page for EIL report (called by DIOEND)

 +1       ; input

 +2       ;   EN("CMR")     - CMR Name

 +3       ;   EN("CMR",.5)  - CMR Service

 +4       ;   EN("CMR",.6)  - CMR Brief Description

 +5        IF '$DATA(EN("CMR"))

               QUIT 

 +6        IF '$DATA(DT)

               SET X="T"

               SET %DT=""

               DO ^%DT

               SET DT=+Y

 +7        WRITE @IOF,"EQUIPMENT INVENTORY LISTING (EIL)"

           SET Y=DT

           XECUTE ^DD("DD")

           WRITE ?60,Y

 +8        WRITE !,"SIGNATURE PAGE"

 +9        WRITE !!,"EIL: ",EN("CMR"),!,?5,EN("CMR",.5)

           if EN("CMR",.5)]""

               WRITE " SERVICE"

 +10       if EN("CMR",.6)]""

               WRITE "   ",EN("CMR",.6)

 +11       WRITE !!,"I UNDERSTAND MY RESPONSIBILITIES LISTED IN VA DIRECTIVE 7002, PART 2",!,"AND THAT I MAY BE HELD LIABLE UNDER CONDITIONS THEREIN. I ASSUME"

 +12       WRITE !,"RESPONSIBILITY FOR ITEMS LISTED ABOVE WHICH WERE ON HAND ON THE DATE SIGNED."

 +13       WRITE !!,"I PERSONALLY REVIEWED AND EVALUATED THE NEED FOR THE EQUIPMENT ASSIGNED",!,"TO MY ACTIVITY AND FIND THAT:"

 +14       WRITE !!," __",!,"|__|  (1) ALL EQUIPMENT IS ESSENTIAL FOR THE PROPER FUNCTIONING OF THIS"

 +15       WRITE !,"          ACTIVITY OR,"

 +16       WRITE !!," __",!,"|__|  (2) THE ATTACHED VA FORM(S) 90-2237 (OR COMPUTER GENERATED EQUIVALENT)"

 +17       WRITE !,?10,"HAS (HAVE) BEEN PREPARED TO TURN IN THE EQUIPMENT DETERMINED",!,?10,"TO BE EXCESS TO THE NEEDS OF THIS ACTIVITY OR,"

 +18       WRITE !!," __",!,"|__|  (3) THE ATTACHED VA FORM(S) 10-1274 (OR COMPUTER GENERATED EQUIVALENT),",!,?10,"RESEARCH EQUIPMENT AVAILABLE TO VA REGIONAL RESEARCH EQUIPMENT"

 +19       WRITE !,?10,"PROGRAM HAS (HAVE) BEEN PREPARED FOR DISPOSITION AS APPROPRIATE IN",!,?10,"ACCORDANCE WITH VA DIRECTIVE 7343, PART 4, 307-59 OR,"

 +20       WRITE !!," __",!,"|__|  (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."

 +21       WRITE !,?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"

 +22       WRITE !,?10,"SURVEY ACTION HAS BEEN COMPLETED."

 +23       WRITE !!,"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"

 +24       WRITE !,"PROPERTY PLACED IN OFFICIAL USE), AND HAS BEEN SUBMITTED THROUGH THE PROPER",!,"CHANNELS FOR APPROVAL."

 +25       WRITE !!!!,"SIGNATURE: ________________________________________"

 +26       WRITE !!!!,"    TITLE: ________________________________________"

 +27       WRITE !!!!,"     DATE: ________________________________________"

 +28       QUIT 

 +29      ;ENEQCMR