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

Package: Engineering

Routine: ENFARA1


Information

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

Source Information

Source file <ENFARA1.m>

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

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

FileMan Files Accessed Via FileMan Db Call

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