Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Routine: ENEQCMR

Package: Engineering

Routine: ENEQCMR


Information

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

Source Information

Source file <ENEQCMR.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 $$FMTE^XLFDT  
VA FileMan 1 ^%DT  

Entry Points

Name Comments DBIA/ICR reference
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
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

External References

Name Field # of Occurrence
^%DT SIG+6
$$FMTE^XLFDT SUM+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"EQUIPMENT INVENTORY LISTING (EIL) ",$$FMTE^XLFDT(DT)
  • Line Location: SUM+7
Function Call: WRITE
  • Prompt: !," FOR EIL: ",EN("CMR","HD"),!
  • Line Location: SUM+8
Function Call: WRITE
  • Prompt: !,?5,"TOTALS:"
  • Line Location: SUM+9
Function Call: WRITE
  • Prompt: !,?10,"STATION",?19,"FUND",?27,"SGL",?33,"COUNT",?40,"LEASE COST",?56,"ASSET VALUE"
  • Line Location: SUM+10
Function Call: WRITE
  • Prompt: !,?10,"-------",?19,"------",?27,"----",?33,"-----",?40,"--------------",?56,"--------------"
  • Line Location: SUM+11
Function Call: WRITE
  • Prompt: !,?10,ENSN,?19,ENFUND("E"),?27,ENSGL("E"),?33,$J($P(ENY,U),5)
  • Line Location: SUM+22
Function Call: WRITE
  • Prompt: ?40,$J($FN($P(ENY,U,2),",",2),14)
  • Line Location: SUM+23
Function Call: WRITE
  • Prompt: ?56,$J($FN($P(ENY,U,3),",",2),14)
  • Line Location: SUM+24
Function Call: WRITE
  • Prompt: !,?33,"-----",?40,"--------------",?56,"--------------"
  • Line Location: SUM+25
Function Call: WRITE
  • Prompt: !,?33,$J($P(ENGT,U),5)
  • Line Location: SUM+26
Function Call: WRITE
  • Prompt: ?40,$J($FN($P(ENGT,U,2),",",2),14)
  • Line Location: SUM+27
Function Call: WRITE
  • Prompt: ?56,$J($FN($P(ENGT,U,3),",",2),14)
  • Line Location: SUM+28
Function Call: WRITE
  • Prompt: @IOF,"EQUIPMENT INVENTORY LISTING (EIL)"
  • Line Location: SIG+7
Function Call: WRITE
  • Prompt: ?60,Y
  • Line Location: SIG+7
Function Call: WRITE
  • Prompt: !,"SIGNATURE PAGE"
  • Line Location: SIG+8
Function Call: WRITE
  • Prompt: !!,"EIL: ",EN("CMR"),!,?5,EN("CMR",.5)
  • Line Location: SIG+9
Function Call: WRITE
  • Prompt: " SERVICE"
  • Condition for execution: EN("CMR",.5)]""
  • Line Location: SIG+9
Function Call: WRITE
  • Prompt: !!,"I UNDERSTAND MY RESPONSIBILITIES LISTED IN VA DIRECTIVE 7002, PART 2",!,"AND THAT I MAY BE HELD LIABLE UNDER CONDITIONS THEREIN. I ASSUME"
  • Line Location: SIG+11
Function Call: WRITE
  • Prompt: !,"RESPONSIBILITY FOR ITEMS LISTED ABOVE WHICH WERE ON HAND ON THE DATE SIGNED."
  • Line Location: SIG+12
Function Call: WRITE
  • Prompt: !!,"I PERSONALLY REVIEWED AND EVALUATED THE NEED FOR THE EQUIPMENT ASSIGNED",!,"TO MY ACTIVITY AND FIND THAT:"
  • Line Location: SIG+13
Function Call: WRITE
  • Prompt: !!," __",!,"|__| (1) ALL EQUIPMENT IS ESSENTIAL FOR THE PROPER FUNCTIONING OF THIS"
  • Line Location: SIG+14
Function Call: WRITE
  • Prompt: !," ACTIVITY OR,"
  • Line Location: SIG+15
Function Call: WRITE
  • Prompt: !!," __",!,"|__| (2) THE ATTACHED VA FORM(S) 90-2237 (OR COMPUTER GENERATED EQUIVALENT)"
  • Line Location: SIG+16
Function Call: WRITE
  • Prompt: !,?10,"HAS (HAVE) BEEN PREPARED TO TURN IN THE EQUIPMENT DETERMINED",!,?10,"TO BE EXCESS TO THE NEEDS OF THIS ACTIVITY OR,"
  • Line Location: SIG+17
Function Call: WRITE
  • Prompt: !!," __",!,"|__| (3) THE ATTACHED VA FORM(S) 10-1274 (OR COMPUTER GENERATED EQUIVALENT),",!,?10,"RESEARCH EQUIPMENT AVAILABLE TO VA REGIONAL RESEARCH EQUIPMENT"
  • Line Location: SIG+18
Function Call: WRITE
  • Prompt: !,?10,"PROGRAM HAS (HAVE) BEEN PREPARED FOR DISPOSITION AS APPROPRIATE IN",!,?10,"ACCORDANCE WITH VA DIRECTIVE 7343, PART 4, 307-59 OR,"
  • Line Location: SIG+19
Function Call: WRITE
  • Prompt: !!," __",!,"|__| (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."
  • Line Location: SIG+20
Function Call: WRITE
  • Prompt: !,?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"
  • Line Location: SIG+21
Function Call: WRITE
  • Prompt: !,?10,"SURVEY ACTION HAS BEEN COMPLETED."
  • Line Location: SIG+22
Function Call: WRITE
  • Prompt: !!,"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"
  • Line Location: SIG+23
Function Call: WRITE
  • Prompt: !,"PROPERTY PLACED IN OFFICIAL USE), AND HAS BEEN SUBMITTED THROUGH THE PROPER",!,"CHANNELS FOR APPROVAL."
  • Line Location: SIG+24
Function Call: WRITE
  • Prompt: !!!!,"SIGNATURE: ________________________________________"
  • Line Location: SIG+25
Function Call: WRITE
  • Prompt: !!!!," TITLE: ________________________________________"
  • Line Location: SIG+26
Function Call: WRITE
  • Prompt: !!!!," DATE: ________________________________________"
  • Line Location: SIG+27

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SIG+7
^ENG(6914.3 - [#6914.3] SUM+17
^ENG(6914.6 - [#6914.6] SUM+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT SIG+6*
DT SUM+7, SIG+6*, SIG+7
DTIME SUM+6, SUM+29
>> EN("CMR" SUM+8, SIG+5, SIG+9, SIG+10
ENFUND SUM+4~, SUM+14*, SUM+15, SUM+16, SUM+18
ENFUND("E" SUM+15*, SUM+22
ENGT SUM+4~, SUM+12*, SUM+19*, SUM+20*, SUM+21*, SUM+26, SUM+27, SUM+28
ENSGL SUM+4~, SUM+16*, SUM+17, SUM+18
ENSGL("E" SUM+17*, SUM+22
ENSN SUM+4~, SUM+13*, SUM+14, SUM+16, SUM+18, SUM+22
>> ENT( SUM+13, SUM+14, SUM+16, SUM+18
ENY SUM+4~, SUM+18*, SUM+19, SUM+20, SUM+21, SUM+22, SUM+23, SUM+24
IO SUM+6, SUM+29
IO(0 SUM+6, SUM+29
IOF SUM+7, SIG+7
IOSL SUM+5
IOST SUM+6, SUM+29
U SUM+15, SUM+17, SUM+19, SUM+20, SUM+21, SUM+22, SUM+23, SUM+24, SUM+26, SUM+27
, SUM+28
>> X SUM+6*, SUM+29*, SIG+6*
>> Y SIG+6, SIG+7*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables  | All