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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ENFACTT

Package: Engineering

Routine: ENFACTT


Information

ENFACTT ;(WCIOFO)/SAB-FAP CAPITALIZATION THRESHOLD TASK ;5/29/2002

Source Information

Source file <ENFACTT.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Engineering 4 (QRPT,RPT)^ENFACTT  $$CHKEXP^ENFACTU  ($$EXP,BAD)^ENFACTX  $$CHKFA^ENFAUTL  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMADD^XLFDT  
VA FileMan 3 DD^%DT  NOW^%DTC  $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Engineering 1 ENFACTT  

Entry Points

Name Comments DBIA/ICR reference
TASK ; One-time task to expense capitalized equipment that does not meet the
; new capitalization threshold
; input ENIO - output device for summary report
RESTART
QRPT ; queue a task to report results on device ENIO
; note: if a site needs to reprint the summary report for some reason
; then enter the following commands at the programmer prompt
; >S ENIO=name of an output device (.01 field of DEVICE file)
; >D QRPT^ENFACTT
RPT ; report results
; Input
; ^XTMP("ENFACT","ENT",station,fund,sgl)
; = starting capitalized count ^ $ ^ expensed by task count ^ $
; ^XTMP("ENFACT","BAD",ENDA) = # of problems for an equipment item
; ^XTMP("ENFACT","BAD",ENDA,seqn #) = description of a problem
RPTHD ; page header
RPTHDS ; summary header
REPRINT ;Call at this tag to reprint (ENG*7*71)

External References

Name Field # of Occurrence
DD^%DT RPT+10
NOW^%DTC RPT+10
^%ZIS REPRINT+5
^%ZISC RPT+60
^%ZTLOAD QRPT+8
$$GET1^DIQ RESTART+39, RESTART+43, RESTART+47, RESTART+51
QRPT^ENFACTT REPRINT+7
RPT^ENFACTT REPRINT+6
$$CHKEXP^ENFACTU RESTART+62
$$EXP^ENFACTX RESTART+65
BAD^ENFACTX RESTART+20, RESTART+31, RESTART+32, RESTART+33, RESTART+40, RESTART+44, RESTART+48, RESTART+52
$$CHKFA^ENFAUTL RESTART+17
$$FMADD^XLFDT TASK+7, RESTART+79

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$S($D(^XTMP("ENFACT","BAD")):"Some",1:"No")
  • Line Location: RPT+15
Function Call: WRITE
  • Prompt: " problems were detected while expensing items.",!
  • Line Location: RPT+16
Function Call: WRITE
  • Prompt: !,"ERROR : Couldn't create FD Doc. for ENTRY # "_ENDA
  • Line Location: RPT+19
Function Call: WRITE
  • Prompt: !,"REASON:"
  • Line Location: RPT+20
Function Call: WRITE
  • Prompt: " "_$G(^XTMP("ENFACT","BAD",ENDA,ENI)),!
  • Line Location: RPT+24
Function Call: WRITE
  • Prompt: " "_$G(^XTMP("ENFACT","BAD",ENDA,ENI)),!
  • Line Location: RPT+25
Function Call: WRITE
  • Prompt: !,"No capitalized equipment was found."
  • Line Location: RPT+30
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT+31
Function Call: WRITE
  • Prompt: !,?3,ENSN,?12,ENFUND,?20,ENSGL
  • Line Location: RPT+37
Function Call: WRITE
  • Prompt: ?27,$J($FN($P(ENX,U,1),",",0),5)
  • Line Location: RPT+39
Function Call: WRITE
  • Prompt: ?33,$J($FN($P(ENX,U,2),",",2),14)
  • Line Location: RPT+40
Function Call: WRITE
  • Prompt: ?50,$J($FN($P(ENX,U,3),",",0),5)
  • Line Location: RPT+41
Function Call: WRITE
  • Prompt: ?56,$J($FN($P(ENX,U,4),",",2),14)
  • Line Location: RPT+42
Function Call: WRITE
  • Prompt: !,?27,"-----",?33,"--------------"
  • Line Location: RPT+49
Function Call: WRITE
  • Prompt: ?50,"-----",?56,"--------------"
  • Line Location: RPT+50
Function Call: WRITE
  • Prompt: !,?3,ENSN,"totals"
  • Line Location: RPT+51
Function Call: WRITE
  • Prompt: ?27,$J($FN($P(ENT(ENSN),U,1),",",0),5)
  • Line Location: RPT+52
Function Call: WRITE
  • Prompt: ?33,$J($FN($P(ENT(ENSN),U,2),",",2),14)
  • Line Location: RPT+53
Function Call: WRITE
  • Prompt: ?50,$J($FN($P(ENT(ENSN),U,3),",",0),5)
  • Line Location: RPT+54
Function Call: WRITE
  • Prompt: ?56,$J($FN($P(ENT(ENSN),U,4),",",2),14),!
  • Line Location: RPT+55
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RPTHD+1
Function Call: WRITE
  • Prompt: !,"RESULTS OF ONE-TIME TASK TO EXPENSE EQUIP."
  • Line Location: RPTHD+3
Function Call: WRITE
  • Prompt: ?48,ENDT,?72,"page ",ENPG
  • Line Location: RPTHD+4
Function Call: WRITE
  • Prompt: !,ENL
  • Line Location: RPTHD+5
Function Call: WRITE
  • Prompt: !," Totals before task Expensed by Task"
  • Line Location: RPTHDS+1
Function Call: WRITE
  • Prompt: !," Station Fund SGL Count $ Amount Count $ Amount"
  • Line Location: RPTHDS+2
Function Call: WRITE
  • Prompt: !," ------- ------ ---- ----- -------------- ----- --------------"
  • Line Location: RPTHDS+3
Function Call: WRITE
  • Prompt: !,"PLEASE ENTER A VALID DEVICE TO REPRINT THE REPORT"
  • Line Location: REPRINT+2
Function Call: WRITE
  • Prompt: !," ** Do Not Use P-Message **",!!
  • Line Location: REPRINT+3
Routine Call
  • %ZIS
  • Line Location:
    • REPRINT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG(6914 - [#6914] RESTART+20, RESTART+23
^ENG(6915.2 - [#6915.2] RESTART+12
^TMP($J TASK+4!, RESTART+36, RESTART+55, RESTART+68*, RESTART+80, QRPT+12!
^XTMP("ENFACT" RESTART+78!, RESTART+79*, RESTART+80*, RESTART+81*, RPT+15, RPT+17, RPT+22, RPT+24, RPT+25, RPT+28
^XTMP("ENFACTT" TASK+5!, TASK+7*, TASK+8*, RESTART+6, RESTART+7, RESTART+9, RESTART+15*, RESTART+75*

Label References

Name Line Occurrences
RPTHD RPT+12, RPT+18, RPT+23, RPT+29, RPT+36
RPTHDS RPT+31, RPT+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % RPT+10
DT TASK+7, RESTART+79
ENCAP RPT+7~
END RPT+7~, RPT+10*
ENDA RESTART~, RESTART+9*, RESTART+12*, RESTART+13, RESTART+15, RESTART+17, RESTART+20, RESTART+23, RESTART+36, RESTART+39
, RESTART+43, RESTART+47, RESTART+51, RESTART+55, RESTART+62, RESTART+65, RESTART+68, RPT+7~, RPT+17*, RPT+19
, RPT+22, RPT+24, RPT+25
ENDT RPT+7~, RPT+10*, RPTHD+4
ENEQ RESTART~
ENEQ( RESTART+22!, RESTART+23*
ENEQ("DA" RESTART+13*
ENEQ(2 RESTART+31
ENEQ(8 RESTART+32
ENEQ(9 RESTART+33
ENEXP RPT+7~
ENFUND RESTART~, RESTART+43*, RESTART+44, RESTART+58, RESTART+59, RESTART+71, RESTART+72, RESTART+75, RPT+7~, RPT+34*
, RPT+35, RPT+37, RPT+38
ENI RPT+7~, RPT+22*, RPT+24, RPT+25
ENIO QRPT+7, QRPT+11!, REPRINT+7*
ENL RPT+7~, RPT+11*, RPTHD+5
ENPG RPT+7~, RPT+10*, RPTHD+2*, RPTHD+4
ENSGL RESTART~, RESTART+47*, RESTART+48, RESTART+58, RESTART+59, RESTART+71, RESTART+72, RESTART+75, RPT+7~, RPT+35*
, RPT+37, RPT+38
ENSN RESTART~, RESTART+39*, RESTART+40, RESTART+58, RESTART+59, RESTART+71, RESTART+72, RESTART+75, RPT+7~, RPT+33*
, RPT+34, RPT+35, RPT+37, RPT+38, RPT+44, RPT+45, RPT+46, RPT+47, RPT+51, RPT+52
, RPT+53, RPT+54, RPT+55
ENT RESTART~, RESTART+7*, RESTART+81, RPT+28!*, RPT+30, RPT+58!
ENT( RESTART+58*, RESTART+59*, RESTART+71*, RESTART+72*, RESTART+75, RPT+33, RPT+34, RPT+35, RPT+38, RPT+44*
, RPT+45*, RPT+46*, RPT+47*, RPT+52, RPT+53, RPT+54, RPT+55
ENVAL RESTART~, RESTART+51*, RESTART+52, RESTART+59, RESTART+72
ENX RESTART~, RESTART+65*, RESTART+68, RPT+38*, RPT+39, RPT+40, RPT+41, RPT+42, RPT+44, RPT+45
, RPT+46, RPT+47
>> I RESTART+22*, RESTART+23*
IO RPT+9, REPRINT+6
IO(0 REPRINT+6
IOF RPTHD+1
IOM RPT+11
ION REPRINT+7
IOSL RPT+18, RPT+23, RPT+29, RPT+36
U TASK+7, RESTART+58, RESTART+59, RESTART+71, RESTART+72, RESTART+79, RPT+39, RPT+40, RPT+41, RPT+42
, RPT+44, RPT+45, RPT+46, RPT+47, RPT+52, RPT+53, RPT+54, RPT+55
Y RPT+7~, RPT+10*
>> ZTDESC QRPT+6*
>> ZTDTH QRPT+7*
>> ZTIO QRPT+7*
>> ZTREQ QRPT+13*, RPT+59*
>> ZTRTN QRPT+5*
ZTSK QRPT+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All