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

Package: Engineering

Routine: ENFAR4


Information

ENFAR4 ;WIRMFO/SAB-FIXED ASSET RPT, CAPITALIZED EQUIP FOR STATION; 3/11/96

Source Information

Source file <ENFAR4.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
; ask STATION
QEN ; queued entry
EXIT
HD ; header
HDCSN ; header for continued CSN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: QEN+27
Function Call: WRITE
  • Prompt: $P($G(^ENCSN(6917,ENCSNI,0)),U,3)
  • Condition for execution: ENCSNI
  • Line Location: QEN+27
Function Call: WRITE
  • Prompt: " (CSN: ",ENCSN,")"
  • Line Location: QEN+27
Function Call: WRITE
  • Prompt: !!,?2,ENDA
  • Line Location: QEN+36
Function Call: WRITE
  • Prompt: ?13,$P(ENY2,U,7)
  • Line Location: QEN+37
Function Call: WRITE
  • Prompt: ?22,$E($P(ENY2,U,4),4,5),?24,"/",$E($P(ENY2,U,4),2,3)
  • Line Location: QEN+38
Function Call: WRITE
  • Prompt: ?28,ENSGL
  • Line Location: QEN+39
Function Call: WRITE
  • Prompt: ?33,$J("$"_$FN($P(ENY2,U,3),",",2),14)
  • Line Location: QEN+40
Function Call: WRITE
  • Prompt: ?48,$P(ENY2,U,6)
  • Line Location: QEN+41
Function Call: WRITE
  • Prompt: ?51,$E($P(ENY2,U,10),4,5),?53,"/",$E($P(ENY2,U,10),2,3)
  • Line Location: QEN+42
Function Call: WRITE
  • Prompt: ?57,$E($P($G(^ENG(6914,ENDA,1)),U,3),1,16)
  • Line Location: QEN+43
Function Call: WRITE
  • Prompt: ?74,ENCMR
  • Line Location: QEN+44
Function Call: WRITE
  • Prompt: !,?16,"(CSN TOTAL",?27,$J("#"_$P(ENC,U),3)
  • Line Location: QEN+57
Function Call: WRITE
  • Prompt: ?33,$J("$"_$FN($P(ENC,U,2),",",2),14),")"
  • Line Location: QEN+58
Function Call: WRITE
  • Prompt: !,ENL,!,"TOTALS",?19,"COUNT",?27,"ASSET VALUE"
  • Line Location: QEN+63
Function Call: WRITE
  • Prompt: !,?8,"SGL ",ENSGL
  • Line Location: QEN+66
Function Call: WRITE
  • Prompt: ?19,$J($P(ENT(ENSGL),U),5)
  • Line Location: QEN+67
Function Call: WRITE
  • Prompt: ?27,"$",$J($FN($P(ENT(ENSGL),U,2),",",2),15)
  • Line Location: QEN+68
Function Call: WRITE
  • Prompt: !,?19,"-----",?27,"----------------"
  • Line Location: QEN+71
Function Call: WRITE
  • Prompt: !,?5,"REPORT TOTAL"
  • Line Location: QEN+72
Function Call: WRITE
  • Prompt: ?19,$J($P(ENT,U),5)
  • Line Location: QEN+73
Function Call: WRITE
  • Prompt: ?27,"$",$J($FN($P(ENT,U,2),",",2),15)
  • Line Location: QEN+74
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"CAPITALIZED EQUIPMENT BY CSN FOR STATION: ",ENSNR
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: ?48,ENDT,?72,"page ",ENPG
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !!,?2,"EQUIP ID #",?13,"NXRN",?22,"ACQ",?28,"SGL",?33,"ASSET VALUE"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: ?48,"LE",?51,"REPL",?57,"SERIAL NUMBER",?74,"CMR"
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,?2,$E(ENL,1,10),?13,$E(ENL,1,8),?22,$E(ENL,1,5),?28,$E(ENL,1,4)
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: ?33,$E(ENL,1,14),?48,$E(ENL,1,2),?51,$E(ENL,1,5),?57,$E(ENL,1,16)
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: ?74,$E(ENL,1,5)
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HDCSN+2
Function Call: WRITE
  • Prompt: $P($G(^ENCSN(6917,ENCSNI,0)),U,3)
  • Condition for execution: $G(ENCSNI)
  • Line Location: HDCSN+2
Function Call: WRITE
  • Prompt: " (CSN: ",ENCSN," continued)"
  • Line Location: HDCSN+3

FileMan Files Accessed Via FileMan Db Call

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