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 ---[H[J[2J[HENEQCMR 3948 printed Dec 13, 2024@01:52:25 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
