Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 DD^%DT  NOW^%DTC  ^DIC  $$GET1^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Engineering 1 $$LOC^ENFAVAL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Engineering 1 ENFAR1  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT QEN+13
NOW^%DTC QEN+13
^%ZIS CMR+7
HOME^%ZIS CMR+11
^%ZISC QEN+60
^%ZTLOAD CMR+11
^DIC CMR+1
$$GET1^DIQ QEN+37
^DIR QEN+59, HD+1
$$LOC^ENFAVAL CMR+3

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
Routine Call
  • DIC
  • Line Location:
    • CMR+1
Routine Call
  • DIR
  • Line Location:
    • QEN+59
    • HD+1
Routine Call
  • %ZIS
  • Line Location:
    • CMR+7
Routine Call
  • %ZIS
  • Line Location:
    • CMR+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENCSN(6917 - [#6917] QEN+7, QEN+20, HDCSN+2
^ENG(6914 - [#6914] QEN+4, QEN+5, QEN+6, QEN+24, QEN+25, QEN+28, QEN+35, QEN+39
^ENG(6914.3 - [#6914.3] QEN+26
^TMP($J QEN+3!, QEN+9*, QEN+10*, QEN+16, QEN+18, QEN+21, EXIT+1!

Label References

Name Line Occurrences
CMR CMR+3
EXIT CMR+1, CMR+7, CMR+8
HD QEN+15, QEN+19, QEN+23, QEN+47
HDCSN QEN+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % QEN+13
>> %ZIS CMR+7*
DIC CMR+1*!
DIC(0 CMR+1*
DIR QEN+59!, EXIT+2!, HD+1!
DIR(0 QEN+59*, HD+1*
DIROUT EXIT+2!
DIRUT EXIT+2!
DIWF EXIT+2!
DIWL EXIT+2!
DTOUT EXIT+2!
DUOUT EXIT+2!
ENC QEN+46*, QEN+47, EXIT+3!
ENCMR CMR+2*, CMR+3, CMR+4, EXIT+3!, HD+4
ENCMRI CMR+2*, QEN+4, EXIT+3!
ENCSN QEN+7*, QEN+8*, QEN+9, QEN+10, QEN+15*, QEN+16*, QEN+18, QEN+20, QEN+21, EXIT+3!
, HDCSN+1, HDCSN+3
ENCSNI QEN+6*, QEN+7, QEN+8*, QEN+10, QEN+18*, QEN+20, EXIT+3!, HDCSN+2
END QEN+13*, QEN+16, QEN+19, QEN+21, QEN+23, QEN+44, QEN+47, EXIT+4!, HD+1*
ENDA QEN+4*, QEN+5, QEN+6, QEN+9, QEN+21*, QEN+24, QEN+25, QEN+27, QEN+28, QEN+35
, QEN+37, QEN+39, EXIT+3!
ENDT QEN+13*, EXIT+4!, HD+5
ENL QEN+14*, QEN+48, EXIT+4!, HD+8, HD+9
ENMAN QEN+37*, QEN+38, EXIT+3!
ENMOD QEN+39*, QEN+40, EXIT+3!
ENPG QEN+13*, EXIT+4!, HD+1, HD+2, HD+3*, HD+5
ENPM QEN+35*, QEN+36, EXIT+3!
ENSGL QEN+26*, QEN+30, QEN+41*, QEN+42, QEN+43, QEN+46*, QEN+50*, QEN+51, QEN+52, QEN+53
, QEN+54, QEN+55, EXIT+3!
ENT QEN+12!, QEN+49*, QEN+54*, QEN+55*, QEN+58, EXIT+3!
ENT( QEN+42*, QEN+43*, QEN+46, QEN+50, QEN+52, QEN+53, QEN+54, QEN+55
ENY2 QEN+24*, QEN+29, QEN+31, QEN+32, QEN+33, QEN+34, QEN+43, EXIT+3!
IO QEN+1
IO("Q" CMR+8
IOF HD+2
IOM QEN+14
IOSL QEN+19, QEN+23, QEN+47
IOST QEN+59, HD+1, HD+2
>> POP CMR+7
U CMR+2, QEN+5, QEN+6, QEN+7, QEN+18, QEN+20, QEN+25, QEN+26, QEN+28, QEN+29
, QEN+31, QEN+32, QEN+33, QEN+34, QEN+35, QEN+39, QEN+42, QEN+43, QEN+52, QEN+53
, QEN+54, QEN+55, QEN+58, HDCSN+2
X QEN+25*, QEN+26, EXIT+2!
Y CMR+1, CMR+2, QEN+13*, EXIT+2!, HD+1
>> ZTDESC CMR+9*
>> ZTQUEUED EXIT
>> ZTREQ EXIT*
>> ZTRTN CMR+9*
>> ZTSAVE("ENCMR" CMR+10*
>> ZTSAVE("ENCMRI" CMR+10*
ZTSK CMR+11!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All