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

Package: Engineering

Routine: ENFAR1


Information

ENFAR1 ;WIRMFO/SAB-FIXED ASSET RPT, CAPITALIZED EQUIPMENT ON CMR; 3/11/96

Source Information

Source file <ENFAR1.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"CMR ",ENCMR," is inappropriate for capitalized NX equip."
  • Line Location: CMR+4
Function Call: WRITE
  • Prompt: !,"Please choose a different CMR.",!
  • Line Location: CMR+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: QEN+20
Function Call: WRITE
  • Prompt: $P($G(^ENCSN(6917,ENCSNI,0)),U,3)
  • Condition for execution: ENCSNI
  • Line Location: QEN+20
Function Call: WRITE
  • Prompt: " (CSN: ",ENCSN,")"
  • Line Location: QEN+20
Function Call: WRITE
  • Prompt: !!,?2,ENDA
  • Line Location: QEN+27
Function Call: WRITE
  • Prompt: ?13,$E($P($G(^ENG(6914,ENDA,1)),U,3),1,19)
  • Line Location: QEN+28
Function Call: WRITE
  • Prompt: ?33,$J("$"_$FN($P(ENY2,U,3),",",2),14)
  • Line Location: QEN+29
Function Call: WRITE
  • Prompt: ?48,ENSGL
  • Line Location: QEN+30
Function Call: WRITE
  • Prompt: ?53,$E($P(ENY2,U,4),4,5),?55,"/",$E($P(ENY2,U,4),2,3)
  • Line Location: QEN+31
Function Call: WRITE
  • Prompt: ?60,$P(ENY2,U,6)
  • Line Location: QEN+32
Function Call: WRITE
  • Prompt: ?64,$E($P(ENY2,U,10),4,5),?66,"/",$E($P(ENY2,U,10),2,3)
  • Line Location: QEN+33
Function Call: WRITE
  • Prompt: ?71,$P(ENY2,U,7)
  • Line Location: QEN+34
Function Call: WRITE
  • Prompt: !,ENL,!,"TOTALS",?19,"COUNT",?27,"ASSET VALUE"
  • Line Location: QEN+48
Function Call: WRITE
  • Prompt: !,?8,"SGL ",ENSGL
  • Line Location: QEN+51
Function Call: WRITE
  • Prompt: ?19,$J($P(ENT(ENSGL),U),5)
  • Line Location: QEN+52
Function Call: WRITE
  • Prompt: ?27,"$",$J($FN($P(ENT(ENSGL),U,2),",",2),15)
  • Line Location: QEN+53
Function Call: WRITE
  • Prompt: !,?19,"-----",?27,"----------------"
  • Line Location: QEN+56
Function Call: WRITE
  • Prompt: !,?5,"REPORT TOTAL"
  • Line Location: QEN+57
Function Call: WRITE
  • Prompt: ?19,$J($P(ENT,U),5),?27,"$",$J($FN($P(ENT,U,2),",",2),15)
  • Line Location: QEN+58
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,"CAPITALIZED EQUIPMENT BY CSN FOR CMR: ",$E(ENCMR,1,5)
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: ?48,ENDT,?72,"page ",ENPG
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !!,?2,"EQUIP ID #",?13,"SERIAL NUMBER",?33,"ASSET VALUE",?48,"SGL"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?53,"ACQ",?60,"LE",?64,"REPL",?71,"NXRN"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,?2,$E(ENL,1,10),?13,$E(ENL,1,19),?33,$E(ENL,1,14),?48,$E(ENL,1,4)
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: ?53,$E(ENL,1,5),?60,$E(ENL,1,2),?64,$E(ENL,1,5),?71,$E(ENL,1,8)
  • Line Location: HD+9
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
^ENG(6914 - [#6914] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call