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

Package: Engineering

Routine: ENFAR8


Information

ENFAR8 ;WIRMFO/SAB-FIXED ASSET RPT, EQUIP LOCATOR LIST FOR STATION ;1/18/2001

Source Information

Source file <ENFAR8.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+31
Function Call: WRITE
  • Prompt: $P($G(^ENCSN(6917,ENCSNI,0)),U,3)
  • Condition for execution: ENCSNI
  • Line Location: QEN+31
Function Call: WRITE
  • Prompt: " (CSN: ",ENCSN,")"
  • Line Location: QEN+31
Function Call: WRITE
  • Prompt: !!,?1,ENDA
  • Line Location: QEN+47
Function Call: WRITE
  • Prompt: ?12,$E($P(ENY2,U,4),4,5),?14,"/",$E($P(ENY2,U,4),2,3)
  • Line Location: QEN+48
Function Call: WRITE
  • Prompt: ?18,ENFUND
  • Line Location: QEN+49
Function Call: WRITE
  • Prompt: ?25,ENSGL
  • Line Location: QEN+50
Function Call: WRITE
  • Prompt: ?30,$J("$"_$FN($P(ENY2,U,3),",",2),14)
  • Line Location: QEN+51
Function Call: WRITE
  • Prompt: ?45,$P(ENY2,U,6)
  • Line Location: QEN+52
Function Call: WRITE
  • Prompt: ?48,$E($P(ENY2,U,10),4,5),?50,"/",$E($P(ENY2,U,10),2,3)
  • Line Location: QEN+53
Function Call: WRITE
  • Prompt: ?54,$$GET1^DIQ(6914,ENDA,24)
  • Line Location: QEN+54
Function Call: WRITE
  • Prompt: ?74,ENCMR
  • Line Location: QEN+55
Function Call: WRITE
  • Prompt: ?80,$$FMTE^XLFDT($P(ENY2,U,13),2)
  • Line Location: QEN+56
Function Call: WRITE
  • Prompt: !,?4,"Last Inv. Date: ",$$FMTE^XLFDT($P(ENY2,U,13),2)
  • Line Location: QEN+61
Function Call: WRITE
  • Prompt: !,?13,"(CSN TOTAL",?24,$J("#"_$P(ENC,U),3)
  • Line Location: QEN+68
Function Call: WRITE
  • Prompt: ?30,$J("$"_$FN($P(ENC,U,2),",",2),14),")"
  • Line Location: QEN+69
Function Call: WRITE
  • Prompt: !!,"REPORT STOPPED BY USER REQUEST"
  • Line Location: QEN+70
Function Call: WRITE
  • Prompt: !,ENL,!,"TOTALS",?20,"COUNT",?30,"ASSET VALUE"
  • Line Location: QEN+75
Function Call: WRITE
  • Prompt: !,?9,"SGL ",ENSGL
  • Line Location: QEN+78
Function Call: WRITE
  • Prompt: ?20,$J($P(ENT(ENSGL),U),5)
  • Line Location: QEN+79
Function Call: WRITE
  • Prompt: ?30,"$",$J($FN($P(ENT(ENSGL),U,2),",",2),15)
  • Line Location: QEN+80
Function Call: WRITE
  • Prompt: !,?20,"-----",?30,"----------------"
  • Line Location: QEN+83
Function Call: WRITE
  • Prompt: !,?6,"REPORT TOTAL"
  • Line Location: QEN+84
Function Call: WRITE
  • Prompt: ?20,$J($P(ENT,U),5)
  • Line Location: QEN+85
Function Call: WRITE
  • Prompt: ?30,"$",$J($FN($P(ENT,U,2),",",2),15)
  • Line Location: QEN+86
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,$S(ENEXP:"ACCOUNTABLE",1:"CAPITALIZED")," NX EQUIP. FOR STATION: "
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: ENSNR,?48,ENDT,?72,"page ",ENPG
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !!,?1,"EQUIPMENT",?12,"ACQ",?18,"FUND",?25,"SGL",?30,"ASSET VALUE"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: ?45,"LE",?48,"REPL",?54,"LOCATION",?74,"CMR"
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,?1,"ENTRY #",?12,"DATE",?48,"DATE",?54,"ROOM-BLDG-DIV"
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !,?1,$E(ENL,1,10),?12,$E(ENL,1,5),?18,$E(ENL,1,6),?25,$E(ENL,1,4)
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: ?30,$E(ENL,1,14),?45,$E(ENL,1,2),?48,$E(ENL,1,5),?54,$E(ENL,1,19)
  • Line Location: HD+13
Function Call: WRITE
  • Prompt: ?74,$E(ENL,1,5)
  • Line Location: HD+14
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