Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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)

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call