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: ENFACTL

Package: Engineering

Routine: ENFACTL


Information

ENFACTL ;(WCIOFO)/SAB-FAP CAPITALIZATION THRESHOLD LIST ;10/14/1999

Source Information

Source file <ENFACTL.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
; ask device
QEN ; queued entry
COLLECT ; collect data
PRINT ; print results
EXIT
HD ; header
HDST ; header for station totals

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Nothing to report."
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!,"NO EQUIPMENT WILL BE EXPENSED BY CT TASK FOR THIS STATION."
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!,?2,"TOP PARENT SYSTEM ENTRY #: ",ENSYS
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?40,"CMR: ",$E($$GET1^DIQ(6914,ENSYS,19),1,5)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: ?51,"Parent Value: "
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: $FN($$GET1^DIQ(6914,ENSYS,12),",",2)
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: "not in FAP"
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !,?2,"CATEGORY STOCK NUMBER: ",ENCSN
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: " (",$$GET1^DIQ(6914,ENSYS,"18:2"),")"
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !,?2,"Sum of Capitalized Values in System: "
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: $FN(ENSYSV,",",2)
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: " (continued)"
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !!,?6,"COMPONENT ENTRY #: ",ENDA
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: ?36,"CMR: ",$E($$GET1^DIQ(6914,ENDA,19),1,5)
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: ?47,"Component Value: ",$FN($$GET1^DIQ(6914,ENDA,12),",",2)
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: !,?6,"CATEGORY STOCK NUMBER: ",ENCSN
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: " (",$$GET1^DIQ(6914,ENDA,"18:2"),")"
  • Line Location: PRINT+37
Function Call: WRITE
  • Prompt: !!,?2,"ENTRY #: ",ENDA
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: ?22,"CMR: ",$E($$GET1^DIQ(6914,ENDA,19),1,5)
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: ?33,"Value: ",$FN($$GET1^DIQ(6914,ENDA,12),",",2)
  • Line Location: PRINT+42
Function Call: WRITE
  • Prompt: !,?2,"CATEGORY STOCK NUMBER: ",ENCSN
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: " (",$$GET1^DIQ(6914,ENDA,"18:2"),")"
  • Line Location: PRINT+44
Function Call: WRITE
  • Prompt: " (continued)"
  • Line Location: PRINT+47
Function Call: WRITE
  • Prompt: " (continued)"
  • Line Location: PRINT+52
Function Call: WRITE
  • Prompt: !,ENFUND,?7,ENSGL
  • Line Location: PRINT+53
Function Call: WRITE
  • Prompt: ?12,$J($FN($P(ENX,U,1),","),5)
  • Line Location: PRINT+55
Function Call: WRITE
  • Prompt: ?18,$J($FN($P(ENX,U,2),",",2),14)
  • Line Location: PRINT+56
Function Call: WRITE
  • Prompt: ?35,$J($FN($P(ENX,U,3),","),5)
  • Line Location: PRINT+57
Function Call: WRITE
  • Prompt: ?41,$J($FN($P(ENX,U,4),",",2),14)
  • Line Location: PRINT+58
Function Call: WRITE
  • Prompt: ?58,$J($FN($P(ENX,U,1)-$P(ENX,U,3),","),5)
  • Line Location: PRINT+59
Function Call: WRITE
  • Prompt: ?64,$J($FN($P(ENX,U,2)-$P(ENX,U,4),",",2),14)
  • Line Location: PRINT+60
Function Call: WRITE
  • Prompt: !," ----- -------------- ----- -------------- ----- --------------"
  • Line Location: PRINT+66
Function Call: WRITE
  • Prompt: !,"Station Tot"
  • Line Location: PRINT+67
Function Call: WRITE
  • Prompt: ?12,$J($FN($P(ENT(ENSN),U,1),","),5)
  • Line Location: PRINT+68
Function Call: WRITE
  • Prompt: ?18,$J($FN($P(ENT(ENSN),U,2),",",2),14)
  • Line Location: PRINT+69
Function Call: WRITE
  • Prompt: ?35,$J($FN($P(ENT(ENSN),U,3),","),5)
  • Line Location: PRINT+70
Function Call: WRITE
  • Prompt: ?41,$J($FN($P(ENT(ENSN),U,4),",",2),14)
  • Line Location: PRINT+71
Function Call: WRITE
  • Prompt: ?58,$J($FN($P(ENT(ENSN),U,1)-$P(ENT(ENSN),U,3),","),5)
  • Line Location: PRINT+72
Function Call: WRITE
  • Prompt: ?64,$J($FN($P(ENT(ENSN),U,2)-$P(ENT(ENSN),U,4),",",2),14)
  • Line Location: PRINT+73
Function Call: WRITE
  • Prompt: !!,"REPORT STOPPED BY USER REQUEST"
  • Line Location: PRINT+74
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"EQUIPMENT CT TASK WILL EXPENSE sorted by value"
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: ?49,ENDT,?72,"page ",ENPG
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,ENL
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,"STATION ",ENSN
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !!," Current Capitalized CT Task Will Expense Remain Capitalized"
  • Line Location: HDST+1
Function Call: WRITE
  • Prompt: !,"Fund SGL Count $ Amount Count $ Amount Count $ Amount"
  • Line Location: HDST+2
Function Call: WRITE
  • Prompt: !,"------ ---- ----- -------------- ----- -------------- ----- --------------"
  • Line Location: HDST+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