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

Package: Engineering

Routine: ENFAAV


Information

ENFAAV ;IRMFO/SAB-ADJUSTMENT VOUCHER ENTRY ;6.30.97

Source Information

Source file <ENFAAV.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point for option
; load table for converting FA Type to SGL
ASKDOC ; ask FAP Document
SHOWDOC ; show info for FAP Document/Adjustment Voucher
CHECKAV ;
EDITAV ;
EXIT ;
AVP(ENF,ENDA) ; adjustment voucher preparation
; This program gathers all the information required for an adjustment
; voucher. The calling program must evaluate the return value and
; actually create the adjustment voucher at the appropriate time
; by storing NOW in the appropriate A.V. DATE field.
AVPED
AVPX ; exit
AVC(ENF,ENDA) ; Adjustment Voucher Clean Up
; This code is used to clean up an aborted adjustment voucher.
; in
; ENF - file number (e.g. 6915.2)
; ENDA - ien
; returns 1 (done) or 0 (can't because a.v. completed)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDOC+1
Function Call: WRITE
  • Prompt: @IOF,!,"ADJ. VOUCHER",?16,"TRANSACTION .............",?43,"STN"
  • Line Location: SHOWDOC+17
Function Call: WRITE
  • Prompt: ?50,"FUND",?58,"SGL",?63,"NET AMOUNT"
  • Line Location: SHOWDOC+18
Function Call: WRITE
  • Prompt: !,"DATE/TIME",?16,"CODE NUMBER DATE"
  • Line Location: SHOWDOC+19
Function Call: WRITE
  • Prompt: !,"--------------",?16,"---- ----------- --------",?43,"-----"
  • Line Location: SHOWDOC+20
Function Call: WRITE
  • Prompt: ?50,"------",?58,"----",?63,"----------------"
  • Line Location: SHOWDOC+21
Function Call: WRITE
  • Prompt: !,$E($TR($$FMTE^XLFDT(ENDT,"2F")," ",0),1,14)
  • Line Location: SHOWDOC+22
Function Call: WRITE
  • Prompt: ?16,$P(ENY1,U,6),?21,$P(ENY1,U,9)
  • Line Location: SHOWDOC+23
Function Call: WRITE
  • Prompt: ?33,$TR($$FMTE^XLFDT($P(ENY0,U,2),"2DF")," ",0)
  • Line Location: SHOWDOC+24
Function Call: WRITE
  • Prompt: ?43,ENSN,?50,ENFUND,?58,ENSGL
  • Line Location: SHOWDOC+25
Function Call: WRITE
  • Prompt: ?63,$J($FN(ENAMT,",",2),16)
  • Line Location: SHOWDOC+30
Function Call: WRITE
  • Prompt: !,?43,ENSN,?50,ENFUNDNW,?58,ENSGL
  • Line Location: SHOWDOC+33
Function Call: WRITE
  • Prompt: ?63,$J($FN(-ENAMT,",",2),16)
  • Line Location: SHOWDOC+34
Function Call: WRITE
  • Prompt: !,?5,"EQUIP #: ",ENDA,?26,$$GET1^DIQ(6914,ENDA,3)
  • Line Location: SHOWDOC+35
Function Call: WRITE
  • Prompt: !,?5,"REASON: ",ENX
  • Line Location: SHOWDOC+37
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SHOWDOC+41
Function Call: WRITE
  • Prompt: $C(7),!,"This FAP Document already has an Adjustment Voucher!",!
  • Line Location: CHECKAV+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITAV+1
Function Call: WRITE
  • Prompt: !,"Adjustment voucher was NOT created."
  • Line Location: EDITAV+3
Function Call: WRITE
  • Prompt: !,"Adjustment Voucher was created.",!
  • Line Location: EDITAV+6
Function Call: WRITE
  • Prompt: $C(7),!,"Both Reason Code and Comments are required!"
  • Line Location: AVPED+7

FileMan Files Accessed Via FileMan Db Call

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