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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ENFAR9

Package: Engineering

Routine: ENFAR9


Information

ENFAR9 ;WIRMFO/SAB-FAP DOCUMENT HISTORY OF EQUIPMENT ;7.21.97

Source Information

Source file <ENFAR9.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 4 DD^%DT  NOW^%DTC  $$GET1^DIQ  ^DIR  
Engineering 1 GETEQ^ENUTL  

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 ENFAR9  

Entry Points

Name Comments DBIA/ICR reference
EN ; entry
; ask equipment
QEN ; queued entry
EXIT
HD ; header
HDC ; header for continued transaction
FT ; footer
DOC2 ; FA document
DOC3 ; FB document
DOC4 ; FC document
DOC5 ; FD document
DOC6 ; FR document

External References

Name Field # of Occurrence
DD^%DT QEN+5
NOW^%DTC QEN+5
^%ZIS EN+9
HOME^%ZIS EN+13
^%ZISC QEN+34
^%ZTLOAD EN+13
$$GET1^DIQ QEN+10, QEN+30, HD+6, DOC2+2, DOC2+3, DOC2+4, DOC2+5, DOC3+1, DOC3+2, DOC3+3
, DOC3+4, DOC3+5, DOC4+1, DOC4+2, DOC4+3, DOC4+4, DOC4+5, DOC4+7, DOC5+1, DOC5+2
, DOC5+3, DOC5+4, DOC6+2, DOC6+3, DOC6+4
^DIR EN+6, HD+1
GETEQ^ENUTL EN+2
$$FMTE^XLFDT QEN+27

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," NO FAP DOCUMENTS FOUND"
  • Line Location: QEN+12
Function Call: WRITE
  • Prompt: !,ENTRC,?6,ENTRN,?16,$TR($$FMTE^XLFDT(ENDT,"2DF")," ",0),?26,ENSN
  • Line Location: QEN+27
Function Call: WRITE
  • Prompt: ?54,$E($P($$GET1^DIQ(ENFILE,ENDA("F?"),1.5),","),1,10)
  • Line Location: QEN+30
Function Call: WRITE
  • Prompt: ?65,$J("$"_$FN(ENVALFA+ENVALFB,",",2),14)
  • Line Location: QEN+31
Function Call: WRITE
  • Prompt: !
  • Line Location: QEN+32
Function Call: WRITE
  • Prompt: !
  • Line Location: QEN+35
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: "FAP DOCUMENT HISTORY FOR EQUIPMENT",?49,ENDTR,?72,"page ",ENPG
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !," ENTRY #: ",ENDA("EQ")
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: " CURRENT VALUE: $",$FN($$GET1^DIQ(6914,ENDA("EQ"),12),",",2)
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !!,"TRANSACTION",?26,"STA",?33,"SGL",?38,"DOCUMENT VALUE",?54,"SENDER",?65,"ASSET VALUE"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,"CODE*",?6,"NUMBER",?16,"DATE",?26,"NBR",?65,"AFTER DOCUMENT"
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,"-----",?6,"---------",?16,"--------",?26,"-----",?33,"----"
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: ?38,"--------------",?54,"----------",?65,"--------------"
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !,?5,"Transaction: ",$E(ENTRC,1,2),"-",ENTRN," (continued)"
  • Line Location: HDC+1
Function Call: WRITE
  • Prompt: !!," * Betterment # follows FB and FC. T (Turn-In) or D (Final Disp.) follows FD."
  • Line Location: FT+1
Routine Call
  • DIR
  • Line Location:
    • EN+6
    • HD+1
Routine Call
  • %ZIS
  • Line Location:
    • EN+9
Routine Call
  • %ZIS
  • Line Location:
    • EN+13

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG( QEN+9
^ENG(6914.3 - [#6914.3] QEN+15

Label References

Name Line Occurrences
@( QEN+24, QEN+32
EN EN+10, QEN+35
EXIT EN+2, EN+6, EN+9
FT QEN+25, QEN+26, QEN+33
HD QEN+6, QEN+25, QEN+26

Naked Globals

Name Field # of Occurrence
^( QEN+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % QEN+5
>> %ZIS EN+9*
DIR EN+6!, HD+1!
DIR("A" EN+5*
DIR("B" EN+5*
DIR(0 EN+5*, HD+1*
>> DIRUT EN+6
END QEN+5*, QEN+21, QEN+22, QEN+25, QEN+26, QEN+33, EXIT+1!, HD+1*
ENDA EXIT+1!
ENDA("EQ" EN+3*, QEN+9, HD+5, HD+6
ENDA("F?" QEN+8*, QEN+9*, QEN+10, QEN+11, QEN+23*, QEN+30, DOC2+2, DOC2+3, DOC2+4, DOC2+5
, DOC2+7, DOC3+1, DOC3+2, DOC3+3, DOC3+4, DOC3+5, DOC4+1, DOC4+2, DOC4+3, DOC4+4
, DOC4+5, DOC4+7, DOC5+1, DOC5+2, DOC5+3, DOC5+4, DOC6+2, DOC6+3, DOC6+4
ENDA("FA" DOC2+7*
ENDETAIL EN+7*, QEN+16, QEN+25, QEN+26, QEN+32, EXIT+1!
ENDOC QEN+3!, QEN+12, QEN+13, EXIT+1!
ENDOC( QEN+11*, QEN+21, QEN+22, QEN+23
ENDT QEN+10*, QEN+11, QEN+21*, QEN+22, QEN+23, QEN+27, EXIT+1!
ENDTR QEN+5*, EXIT+1!, HD+4
ENFAT QEN+28, EXIT+1!, DOC2+4*, DOC3+4*, DOC4+4*, DOC5+4*, DOC6+4*
ENFATT QEN+15!, EXIT+1!
ENFATT( QEN+15*, QEN+28
ENFILE QEN+7*, QEN+9, QEN+10, QEN+11, QEN+22*, QEN+23, QEN+24, QEN+30, QEN+32, EXIT+1!
, DOC2+2, DOC2+3, DOC2+4, DOC2+5, DOC3+1, DOC3+2, DOC3+3, DOC3+4, DOC3+5, DOC4+1
, DOC4+2, DOC4+3, DOC4+4, DOC4+5, DOC4+7, DOC5+1, DOC5+2, DOC5+3, DOC5+4, DOC6+2
, DOC6+3, DOC6+4
ENPG QEN+5*, EXIT+2!, HD+1, HD+2, HD+3*, HD+4
ENSN QEN+27, EXIT+2!, DOC2+3*, DOC3+3*, DOC4+3*, DOC5+3*, DOC6+3*
ENTAG EXIT+2!
ENTAG("FT" QEN+19*
ENTAG("HD" QEN+17*
ENTAG("HDC" QEN+18*
ENTRC QEN+27, EXIT+2!, HDC+1, DOC2+1*, DOC3+1*, DOC4+1*, DOC4+6, DOC4+7, DOC5+1*, DOC6+1*
ENTRN QEN+27, EXIT+2!, HDC+1, DOC2+2*, DOC3+2*, DOC4+2*, DOC5+2*, DOC6+2*
ENVAL QEN+29, EXIT+2!, DOC2+5*, DOC2+6, DOC3+5*, DOC3+6, DOC4+5*, DOC4+6, DOC4+7, DOC5+5*
, DOC6+5*
ENVALFA QEN+4*, QEN+31, EXIT+2!, DOC2+6*, DOC4+6*
ENVALFB QEN+4*, QEN+31, EXIT+2!, DOC2+6*, DOC3+6*, DOC4+7*
I QEN+15*, EXIT+2!
IO QEN+1
IO("Q" EN+10
IOF HD+2
IOSL QEN+25, QEN+26
IOST QEN+35, HD+1, HD+2
>> POP EN+9
U QEN+15
X QEN+15*, EXIT+2!
Y EN+2, EN+3, EN+7, QEN+5*, EXIT+2!, HD+1
>> ZTDESC EN+11*
>> ZTQUEUED EXIT
>> ZTREQ EXIT*
>> ZTRTN EN+11*
>> ZTSAVE("ENDA(""EQ"")" EN+12*
>> ZTSAVE("ENDETAIL" EN+12*
ZTSK EN+13!
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 |  Naked Globals |  Local Variables  | All