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

Package: Engineering

Routine: ENFAR5B


Information

ENFAR5B ;WIRMFO/SAB-FIXED ASSET RPT, VOUCHER SUMMARY (CONT); 5/22/97

Source Information

Source file <ENFAR5B.m>

Entry Points

Name Comments DBIA/ICR reference
GETBAL ; get balances from file #6915.9
; find station
PRINT ; print results
HD ; page header
HDSGL ; header for continued SGL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No activity in selected period",!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!,?2,"SGL: ",ENSGL
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: " ",ENSGL("A")
  • Condition for execution: ENSGL("A")]""
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,?12,"Opening Balance for ",ENDTMO,":"
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?43,$J("$"_$FN(+$P(ENBAL,U,1),",",2),16)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,?4,$P(ENY1,U,6),?9,$P(ENY1,U,9),?21,$$FMTE^XLFDT(ENDT,"2D")
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: ?31,ENDA,?43,$J($FN(ENAMT,",",2),16)
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: ?61,$P($G(^ENG(6914,ENDA,2)),U,2)
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: !,?9,"Desc: ",ENNOTE
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: !,?9,"Sold: $",$FN(ENNOTE,",",2)
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: !,?12,"G/L Acct "_ENSGL_" Net Activity: "
  • Line Location: PRINT+37
Function Call: WRITE
  • Prompt: ?43,$J($FN(ENT("SGL"),",",2),16)
  • Line Location: PRINT+38
Function Call: WRITE
  • Prompt: !,?12,"Closing Balance for ",ENDTMC,":"
  • Line Location: PRINT+39
Function Call: WRITE
  • Prompt: ?43,$J("$"_$FN(+$P(ENBAL,U,2),",",2),16)
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"VOUCHER SUMMARY FOR STATION: ",ENSNR,?49,ENDTR,?72,"page ",ENPG
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !," FUND: ",ENFUND
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: " ",ENFUND("A")
  • Condition for execution: $G(ENFUND("A"))]""
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?32," ACCOUNTING PERIOD FROM ",$$FMTE^XLFDT(ENDTS,"2D")
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: " TO ",$$FMTE^XLFDT(ENDTE,"2D")
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !!,?4,"TRANSACTION",?31,"EQUIP ID#",?43,"NET AMOUNT",?61,"EQUIP P.O.#"
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !,?4,"CODE NUMBER DATE"
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !,?4,"---- ----------- --------",?31,"----------"
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: ?43,"----------------",?61,"------------"
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: !,?2,"SGL: ",ENSGL
  • Line Location: HDSGL+1
Function Call: WRITE
  • Prompt: " ",ENSGL("A")
  • Condition for execution: ENSGL("A")]""
  • Line Location: HDSGL+1
Function Call: WRITE
  • Prompt: " (continued)"
  • Line Location: HDSGL+1

FileMan Files Accessed Via FileMan Db Call

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