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

Package: IFCAP

Routine: PRCFFU41


Information

PRCFFU41 ;WISC/SJG-FMS DOCUMENT GENERATOR (CONT) ;3/7/95 3:32 PM

Source Information

Source file <PRCFFU41.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
EN4 ;ENTER DATA INTO STATUS OF FUNDS FILE
EN5 ;UPDATE ESTIMATED BALANCE FIELD OF CONTROL POINT FILE
X
EN51
R
OUT5
EN7(XA,XB,XC,XD) ; Post FMS Document information to Purchase Order
; XA - Transaction Type, eg MO,SO
; XB - Document Action, eg E,M,X
; XC - Obligation Processing Date
; XD - PAT Number (w/o Station), eg A51234
EN7A
EN7B
EN7C
EN7D
EN71 ;MARK PO AS OBLIGATED
EN72 ;MARK PO AS COMPLETE
EN73
EN731
EN732

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"REMEMBER, DO NOT ENTER TRANSACTION FOR FUTURE QUARTERS!",!
  • Line Location: EN5+3
Function Call: WRITE
  • Prompt: $C(7),!!,"I'M CONFUSED ABOUT WHICH CONTROL POINT YOU WANT, TRY AGAIN. ",!,"USE AN '^' TO QUIT",!
  • Line Location: X+0
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:60)
  • Line Location: EN51+0
Function Call: WRITE
  • Prompt: !,"ENTER AMOUNT OF TRANSACTION, INCLUDING THE DECIMAL POINT",!
  • Line Location: EN51+0
Function Call: WRITE
  • Prompt: $C(7),"??"
  • Line Location: EN51+2
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Line Location: R+0
Function Call: WRITE
  • Prompt: !!,"Enter a <CR> or 'D' to DECREASE the balance in the status, an 'I' to INCREASE",!,"the balance, or an '^' to ABORT the option."
  • Line Location: R+1
Function Call: WRITE
  • Prompt: !,"THE OLD ESTIMATED BALANCE IS $",$J($P(PRC("CP",0),U,8),0,2)
  • Line Location: R+3
Function Call: WRITE
  • Prompt: !,"THE NEW ESTIMATED BALANCE IS $",$J(PRCFX,0,2),!!
  • Line Location: R+4
Function Call: WRITE
  • Prompt: !,"POSTED",!!
  • Line Location: R+6
Function Call: WRITE
  • Prompt: !,"NO ACTION TAKEN! "
  • Line Location: R+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRC(420 - [#420] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call