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

Package: Engineering

Routine: ENFARA1


Information

ENFARA1 ;WIRMFO/SAB-FIXED ASSET RPT, ADJUSTMENT VOUCHER (CONT) ;5.16.97

Source Information

Source file <ENFARA1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 6 DD^%DT  NOW^%DTC  $$GET1^DIQ  ^DIR  ^DIWP  ^DIWW  
Kernel 3 ^%ZISC  $$S^%ZTLOAD  $$FMTE^XLFDT  
Engineering 1 ($$AFA,$$FUND)^ENFAR5A  

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 ENFARA  

Entry Points

Name Comments DBIA/ICR reference
QEN ; queued entry
; in
; ENDTS - start date
; ENDTE - end date
; ENSRT("U") - true if sort by user
; if ENSRT("U") true
; ENSRT("U",0) - DUZ of selected user or * for all
; ENSRT("U",0,"E") - external value for ENSRT("U",0)
GETDATA ; collect/sort data
PRINT ; print
; load table for converting FA Type to SGL
WRAPUP ; wrap up
HD ; page header
HDAV ; header for continued adjustment voucher
FT ; report footer when hardcopy

External References

Name Field # of Occurrence
DD^%DT PRINT+6
NOW^%DTC PRINT+6
^%ZISC WRAPUP+1
$$S^%ZTLOAD HD+1
$$GET1^DIQ GETDATA+9, PRINT+10, PRINT+48, PRINT+50
^DIR PRINT+86, HD+2
^DIWP PRINT+53
^DIWW PRINT+55
$$AFA^ENFAR5A PRINT+19
$$FUND^ENFAR5A PRINT+23
$$FMTE^XLFDT PRINT+32, PRINT+34, HD+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No activity in selected period",!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,$E($TR($$FMTE^XLFDT(ENDT,"2F")," ",0),1,14)
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: ?16,$P(ENY1,U,6),?22,$P(ENY1,U,9)
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: ?34,$TR($$FMTE^XLFDT($P(ENY0,U,2),"2DF")," ",0)
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: ?44,ENSN,?51,ENFUND,?58,ENSGL
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: ?63,$J($FN(ENAMT,",",2),16)
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: !,?44,ENSN,?51,ENFUNDNW,?58,ENSGL
  • Line Location: PRINT+44
Function Call: WRITE
  • Prompt: ?63,$J($FN(-ENAMT,",",2),16)
  • Line Location: PRINT+45
Function Call: WRITE
  • Prompt: !,?4,"EQUIP #: ",ENDA,?26,$$GET1^DIQ(6914,ENDA,3)
  • Line Location: PRINT+48
Function Call: WRITE
  • Prompt: !,?4,"P.O. #: ",$P($G(^ENG(6914,ENDA,2)),U,2)
  • Line Location: PRINT+49
Function Call: WRITE
  • Prompt: ?26,"A.V. REASON: ",$$GET1^DIQ(ENFILE,ENDA("F?"),303)
  • Line Location: PRINT+50
Function Call: WRITE
  • Prompt: !,?30,"TOTALS:"
  • Line Location: PRINT+58
Function Call: WRITE
  • Prompt: !,?30,"TOTALS: (continued)"
  • Line Location: PRINT+66
Function Call: WRITE
  • Prompt: !,?44,ENSN,?51,ENFUND,?58,ENSGL
  • Line Location: PRINT+67
Function Call: WRITE
  • Prompt: ?63,$J($FN($P(ENT(ENSN,ENFUND,ENSGL),U),",",2),16)
  • Line Location: PRINT+68
Function Call: WRITE
  • Prompt: !,?30,"TOTALS: (continued)"
  • Line Location: PRINT+72
Function Call: WRITE
  • Prompt: !,?63,"----------------"
  • Line Location: PRINT+73
Function Call: WRITE
  • Prompt: !,?44,ENSN,?51,ENFUND,?58,"TOTAL",?63,$J($FN($P(ENTF,U),",",2),16),!
  • Line Location: PRINT+74
Function Call: WRITE
  • Prompt: !,?30,"TOTALS: (continued)"
  • Line Location: PRINT+77
Function Call: WRITE
  • Prompt: !,?63,"----------------"
  • Line Location: PRINT+78
Function Call: WRITE
  • Prompt: !,?44,ENSN,?50,"TOTAL",?63,$J($FN($P(ENTS,U),",",2),16),!
  • Line Location: PRINT+79
Function Call: WRITE
  • Prompt: !,?30,"TOTALS: (continued)"
  • Line Location: PRINT+81
Function Call: WRITE
  • Prompt: !,?63,"================"
  • Line Location: PRINT+82
Function Call: WRITE
  • Prompt: !,?44,$S(ENSRT("U"):"USER",1:"GRAND")," TOTAL"
  • Line Location: PRINT+83
Function Call: WRITE
  • Prompt: ?63,$J($FN($P(ENTU,U),",",2),16),!
  • Line Location: PRINT+84
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: "ADJUSTMENT VOUCHERS",?49,ENDTR,?72,"page ",ENPG
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,?2,"FROM ",$$FMTE^XLFDT(ENDTS,"2")," TO ",$$FMTE^XLFDT(ENDTE,"2")
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: " (SORT BY USER FOR ",ENSRT("U",0,"E"),")"
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !,"A.V.s By: ",ENUSR("E")
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !!,"ADJ. VOUCHER",?16,"...... TRANSACTION .......",?44,"STN"
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: ?51,"FUND",?58,"SGL",?63,"NET AMOUNT"
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: !,"DATE/TIME",?16,"CODE NUMBER DATE"
  • Line Location: HD+13
Function Call: WRITE
  • Prompt: !,"--------------",?16,"----- ----------- --------",?44,"-----"
  • Line Location: HD+14
Function Call: WRITE
  • Prompt: ?51,"------",?58,"----",?63,"----------------"
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: !,?4,"Transaction: ",$P(ENY1,U,6),"-",$P(ENY1,U,9),"(continued)"
  • Line Location: HDAV+1
Function Call: WRITE
  • Prompt: !!!,?4,"-------------------- --------"
  • Line Location: FT+2
Function Call: WRITE
  • Prompt: ?44,"-------------------- --------"
  • Line Location: FT+3
Function Call: WRITE
  • Prompt: !,?4,"ACCOUNTABLE OFFICER DATE"
  • Line Location: FT+4
Function Call: WRITE
  • Prompt: ?44,"APPROVING OFFICIAL DATE"
  • Line Location: FT+5
Routine Call
  • DIR
  • Line Location:
    • PRINT+86
    • HD+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG( GETDATA+6, GETDATA+8, PRINT+16, PRINT+17, PRINT+18, PRINT+26, PRINT+27, PRINT+28, PRINT+29, PRINT+30
PRINT+37, PRINT+53
^ENG(6914 - [#6914] PRINT+49
^ENG(6914.3 - [#6914.3] PRINT+2, PRINT+3
^ENG(6915.2 - [#6915.2] PRINT+20
^TMP($J GETDATA+3!, GETDATA+11*, PRINT+8, PRINT+9, PRINT+13, PRINT+14, WRAPUP+4!
^UTILITY($J PRINT+51!

Label References

Name Line Occurrences
FT PRINT+85
HD PRINT+8, PRINT+12, PRINT+31, PRINT+53, PRINT+57, PRINT+66, PRINT+72, PRINT+77, PRINT+81
HDAV PRINT+53

Naked Globals

Name Field # of Occurrence
^( PRINT+53

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRINT+6
DIR PRINT+86!, HD+2!
DIR(0 PRINT+86*, HD+2*
DIWF PRINT+51*, WRAPUP+3!
DIWL PRINT+51*, WRAPUP+3!
DIWR PRINT+51*, WRAPUP+3!
ENAMT PRINT+25*, PRINT+26*, PRINT+27*, PRINT+28*, PRINT+29*, PRINT+30*, PRINT+38*, PRINT+39*, PRINT+40, PRINT+41
PRINT+45, PRINT+46, WRAPUP+4!
END PRINT+6*, PRINT+9, PRINT+12, PRINT+13, PRINT+14, PRINT+31, PRINT+53, PRINT+54, PRINT+56, PRINT+57
PRINT+60, PRINT+62, PRINT+65, PRINT+66, PRINT+70, PRINT+72, PRINT+75, PRINT+77, PRINT+80, PRINT+81
PRINT+86, WRAPUP+4!, HD+1*, HD+2*
ENDA PRINT+2*, PRINT+3, PRINT+18*, PRINT+48, PRINT+49, WRAPUP+4!
ENDA("F?" GETDATA+7*, GETDATA+8*, GETDATA+9, GETDATA+11, PRINT+15*, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+23
PRINT+26, PRINT+27, PRINT+28, PRINT+29, PRINT+30, PRINT+37, PRINT+50, PRINT+53
ENDA("FA" PRINT+19*, PRINT+20, PRINT+23
ENDT GETDATA+4*, GETDATA+6*, GETDATA+8, GETDATA+11, PRINT+13*, PRINT+14, PRINT+32, WRAPUP+4!
ENDTE GETDATA+6, WRAPUP+4!, HD+7
ENDTR PRINT+6*, WRAPUP+4!, HD+6
ENDTS GETDATA+4, WRAPUP+4!, HD+7
ENFAPTY PRINT+2!, WRAPUP+4!
ENFAPTY( PRINT+4*, PRINT+24
ENFAY3 PRINT+20*, PRINT+21, PRINT+22, PRINT+24, WRAPUP+4!
ENFILE GETDATA+3*, GETDATA+6, GETDATA+8, GETDATA+9, GETDATA+11, PRINT+15*, PRINT+16, PRINT+17, PRINT+18, PRINT+19
PRINT+22, PRINT+23, PRINT+26, PRINT+27, PRINT+28, PRINT+29, PRINT+30, PRINT+36, PRINT+37, PRINT+42
PRINT+50, PRINT+53, WRAPUP+5!
ENFUND PRINT+22*, PRINT+23*, PRINT+35, PRINT+38, PRINT+41, PRINT+42, PRINT+62*, PRINT+65, PRINT+67, PRINT+68
PRINT+69, PRINT+74, WRAPUP+5!
ENFUNDNW PRINT+37*, PRINT+38, PRINT+42, PRINT+44, PRINT+46, WRAPUP+5!
ENI PRINT+52*, PRINT+53*, WRAPUP+5!
ENIEN WRAPUP+5!
ENL PRINT+7*, WRAPUP+5!
ENPG PRINT+6*, WRAPUP+5!, HD+2, HD+3, HD+4*, HD+6, FT+1
ENSGL PRINT+24*, PRINT+35, PRINT+41, PRINT+44, PRINT+46, PRINT+64*, PRINT+65*, PRINT+67, PRINT+68, PRINT+69
WRAPUP+5!
ENSN PRINT+21*, PRINT+35, PRINT+41, PRINT+44, PRINT+46, PRINT+60*, PRINT+62, PRINT+65, PRINT+67, PRINT+68
PRINT+69, PRINT+74, PRINT+79, WRAPUP+5!
ENSRT WRAPUP+5!
ENSRT("U" GETDATA+9, GETDATA+10, PRINT+10, PRINT+83, HD+8, HD+9, HD+10
ENT PRINT+11!, WRAPUP+6!
ENT( PRINT+41*, PRINT+46*, PRINT+60, PRINT+62, PRINT+65, PRINT+68, PRINT+69
ENTF PRINT+63*, PRINT+69*, PRINT+71, PRINT+74, WRAPUP+6!
ENTS PRINT+61*, PRINT+71*, PRINT+76, PRINT+79, WRAPUP+6!
ENTU PRINT+59*, PRINT+76*, PRINT+84, WRAPUP+6!
ENUSR GETDATA+1*, GETDATA+9*, GETDATA+10, GETDATA+11, PRINT+9*, PRINT+10, PRINT+13, PRINT+14, WRAPUP+5!
ENUSR("E" PRINT+10*, HD+10
ENX PRINT+28*, WRAPUP+6!
ENY PRINT+14*, PRINT+15, WRAPUP+6!
ENY0 PRINT+3*, PRINT+4, PRINT+16*, PRINT+34, WRAPUP+6!
ENY1 PRINT+17*, PRINT+33, WRAPUP+6!, HDAV+1
IO QEN+8
IOF HD+3
IOM PRINT+7, PRINT+51
IOSL PRINT+31, PRINT+53, PRINT+57, PRINT+66, PRINT+72, PRINT+77, PRINT+81
IOST PRINT+86, HD+2, HD+3, FT+1
U PRINT+4, PRINT+18, PRINT+21, PRINT+22, PRINT+24, PRINT+26, PRINT+27, PRINT+28, PRINT+29, PRINT+30
PRINT+33, PRINT+34, PRINT+37, PRINT+49, PRINT+68, PRINT+69, PRINT+71, PRINT+74, PRINT+76, PRINT+79
PRINT+84, HDAV+1
X PRINT+52*, PRINT+53*, WRAPUP+3!
Y PRINT+6*, WRAPUP+3!, HD+2
>> ZTQUEUED WRAPUP+2, HD+1
>> ZTREQ WRAPUP+2*
>> ZTSTOP HD+1*
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