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

Package: Engineering

Routine: ENFARC2


Information

ENFARC2 ;WIRMFO/SAB-FIXED ASSET RPT, TRANSACTION REGISTER (CONT); 12/16/1998

Source Information

Source file <ENFARC2.m>

Entry Points

Name Comments DBIA/ICR reference
F2 ; print FA details (5 lines)
F3 ; print FB details (2 lines)
F4 ; print FC details (1-9 lines)
F5 ; print FD details (2 lines)
F6 ; print FR details (0-5 lines)
HD ; call page header
HDC ; call page header continued
FT ; call page footer

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?4,"FUND: ",$P(ENY3,U,10)
  • Line Location: F2+8
Function Call: WRITE
  • Prompt: ?25,"CSN: ",ENX
  • Line Location: F2+9
Function Call: WRITE
  • Prompt: " (",ENX("D"),")"
  • Condition for execution: ENX("D")]""
  • Line Location: F2+9
Function Call: WRITE
  • Prompt: !,?4,"CMR: ",$P(ENY3,U,31)
  • Line Location: F2+11
Function Call: WRITE
  • Prompt: !,?4,"NATIONAL EIL: ",$P(ENY3,U,8)
  • Line Location: F2+12
Function Call: WRITE
  • Prompt: ?25,"COST CENTER: ",$P(ENY3,U,28)
  • Line Location: F2+13
Function Call: WRITE
  • Prompt: ?48,"ACQ METH: ",$$EXTERNAL^DILFD(6914,20.1,"",ENX)
  • Line Location: F2+15
Function Call: WRITE
  • Prompt: !,?4,"ACQ DATE: ",$P(ENY3,U,17),"/",$P(ENY3,U,18),"/",$E($P(ENY3,U,16),3,4)
  • Line Location: F2+16
Function Call: WRITE
  • Prompt: ?25,"LE: ",$P(ENY3,U,24)
  • Line Location: F2+17
Function Call: WRITE
  • Prompt: ?48,"REPL DATE: ",$P(ENY3,U,22),"/",$P(ENY3,U,23),"/",$E($P(ENY3,U,21),3,4)
  • Line Location: F2+18
Function Call: WRITE
  • Prompt: !,?4,"BOC: ",$P(ENY3,U,14),?25,"A/O: ",$P(ENY3,U,11)
  • Line Location: F2+19
Function Call: WRITE
  • Prompt: ?48,"EQUITY ACCOUNT: ",$$EXTERNAL^DILFD(6914,64,"",ENX)
  • Line Location: F2+21
Function Call: WRITE
  • Prompt: !,?4,"P.O.#: "
  • Line Location: F2+22
Function Call: WRITE
  • Prompt: $P($G(^ENG(6914,ENDA("EQ"),2)),U,2)
  • Condition for execution: ENDA("EQ")
  • Line Location: F2+22
Function Call: WRITE
  • Prompt: ?25,"DESCRIPTION: ",$P(ENY3,U,8)
  • Line Location: F3+3
Function Call: WRITE
  • Prompt: !,?4,"P.O.#: "
  • Line Location: F3+4
Function Call: WRITE
  • Prompt: $P($G(^ENG(6914,ENDA("EQ"),2)),U,2)
  • Condition for execution: ENDA("EQ")
  • Line Location: F3+4
Function Call: WRITE
  • Prompt: ?25,"ACQ DATE: ",$P(ENY3,U,10),"/",$P(ENY3,U,11),"/",$E($P(ENY3,U,9),3,4)
  • Line Location: F3+5
Function Call: WRITE
  • Prompt: ?48,"ACQ METH: ",$$EXTERNAL^DILFD(6914,20.1,"",ENX)
  • Line Location: F3+7
Function Call: WRITE
  • Prompt: ?25,"P.O.#: "
  • Line Location: F4+2
Function Call: WRITE
  • Prompt: $P($G(^ENG(6914,ENDA("EQ"),2)),U,2)
  • Condition for execution: ENDA("EQ")
  • Line Location: F4+2
Function Call: WRITE
  • Prompt: !,?4,$S($P(ENY3,U,8)="00":"CSN",1:"DESCRIPTION")," CHANGED"
  • Line Location: F4+9
Function Call: WRITE
  • Prompt: ?25,"OLD: ",EN(30)
  • Line Location: F4+10
Function Call: WRITE
  • Prompt: !,?25,"NEW: ",$P(ENY3,U,11)
  • Line Location: F4+15
Function Call: WRITE
  • Prompt: !,?4,"NATIONAL EIL CHANGED "
  • Line Location: F4+22
Function Call: WRITE
  • Prompt: ?25,"OLD: ",EN(29),?53,"NEW: ",$P(ENY3,U,10)
  • Line Location: F4+23
Function Call: WRITE
  • Prompt: !,?4,"ACQ METHOD CHANGED "
  • Line Location: F4+26
Function Call: WRITE
  • Prompt: ?25,"OLD: ",$$EXTERNAL^DILFD(6914,20.1,"",EN(34))
  • Line Location: F4+27
Function Call: WRITE
  • Prompt: ?53,"NEW: ",$$EXTERNAL^DILFD(6914,20.1,"",$P(ENY3,U,15))
  • Line Location: F4+28
Function Call: WRITE
  • Prompt: !,?4,"ACQ DATE CHANGED "
  • Line Location: F4+31
Function Call: WRITE
  • Prompt: ?25,"OLD: ",$$FMTE^XLFDT(EN(105))
  • Line Location: F4+32
Function Call: WRITE
  • Prompt: ?53,"NEW: ",$$FMTE^XLFDT($P(ENY100,U,6))
  • Line Location: F4+33
Function Call: WRITE
  • Prompt: !,?4,"USEFUL LIFE CHANGED "
  • Line Location: F4+36
Function Call: WRITE
  • Prompt: ?25,"OLD: ",EN(37),?53,"NEW: ",$P(ENY4,U,3)
  • Line Location: F4+37
Function Call: WRITE
  • Prompt: !,?4,"REPL DATE CHANGED "
  • Line Location: F4+40
Function Call: WRITE
  • Prompt: ?25,"OLD: ",$$FMTE^XLFDT(EN(106))
  • Line Location: F4+41
Function Call: WRITE
  • Prompt: ?53,"NEW: ",$$FMTE^XLFDT($P(ENY100,U,7))
  • Line Location: F4+42
Function Call: WRITE
  • Prompt: !,?4,"ASSET VALUE CHANGED "
  • Line Location: F4+45
Function Call: WRITE
  • Prompt: ?25,"OLD: ",$P(ENY100,U,4),?53,"NEW: ",$P(ENY4,U,6)
  • Line Location: F4+46
Function Call: WRITE
  • Prompt: ?25,$S(ENTY="T":"TURN-IN",1:"DISP")," DATE: "
  • Line Location: F5+4
Function Call: WRITE
  • Prompt: $P(ENY5,U,6),"/",$P(ENY5,U,7),"/",$E($P(ENY5,U,5),3,4)
  • Line Location: F5+5
Function Call: WRITE
  • Prompt: ?49,"DISP AUTHORITY: ",$P(ENY5,U,9)
  • Line Location: F5+6
Function Call: WRITE
  • Prompt: !,?4,"SELLING PRICE: ",$P(ENY5,U,8)
  • Line Location: F5+8
Function Call: WRITE
  • Prompt: ?34,"DISP METHOD: ",$$GET1^DIQ(6915.5,ENDA("F?"),"103:1")
  • Line Location: F5+9
Function Call: WRITE
  • Prompt: !,?4,"FUND CHANGED ",?25,"OLD: ",EN(28),?53,"NEW: ",$P(ENY3,U,9)
  • Line Location: F6+6
Function Call: WRITE
  • Prompt: !,?4,"A/O CHANGED ",?25,"OLD: ",EN(29),?53,"NEW: ",$P(ENY3,U,10)
  • Line Location: F6+9
Function Call: WRITE
  • Prompt: !,?4,"BOC CHANGED ",?25,"OLD: ",EN(32),?53,"NEW: ",$P(ENY3,U,13)
  • Line Location: F6+12
Function Call: WRITE
  • Prompt: !,?4,"CMR CHANGED "
  • Line Location: F6+15
Function Call: WRITE
  • Prompt: ?25,"OLD: ",EN(37),?53,"NEW: ",$P(ENY3,U,18)
  • Line Location: F6+16
Function Call: WRITE
  • Prompt: !,?4,"NATIONAL EIL CHANGED "
  • Line Location: F6+20
Function Call: WRITE
  • Prompt: ?25,"OLD: ",EN(33),?53,"NEW: ",$P(ENY3,U,14)
  • Line Location: F6+21
Function Call: WRITE
  • Prompt: !,?4,"COST CENTER CHANGED "
  • Line Location: F6+24
Function Call: WRITE
  • Prompt: ?25,"OLD: ",EN(34),?53,"NEW: ",$P(ENY3,U,15)
  • Line Location: F6+25

FileMan Files Accessed Via FileMan Db Call

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