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

Package: IFCAP

Routine: PRCESOM


Information

PRCESOM ;WISC/SJG/ASU - CONTINUATION OF 1358 ADJUST OBLIAGTION PRCEADJ1 ;4/27/94 2:13 PM

Source Information

Source file <PRCESOM.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**148,153,180**;Oct 20, 2000;Build 5
K
EDIT ;
DT
DT1
GO ; Prompt use for final go-ahead for the document creation
ESIG ; Enter the Electronic Signature and away it goes!
STACK ; Create entry in GECS Stack File
UPDATE ; Update records in 442 and 410
SEGS ; Use TMP($J to store remaining segments to be built
TRANS ; Mark the document as queued for transmission
POBAL ; Enter Obligation Data into Purchase Order Record
; Log transaction into node 10 of file 442
Z
SCREEN ;COMPARISON SCREEN
MSG
OUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You are the CP Clerk (Requestor) on this 1358 transaction."
  • Line Location: V+14
Function Call: WRITE
  • Prompt: !,"Per Segregation of Duties, the CP Clerk (Requestor)"
  • Line Location: V+15
Function Call: WRITE
  • Prompt: " is not permitted to "
  • Line Location: V+16
Function Call: WRITE
  • Prompt: $S($G(PRCFA("RETRAN")):"Rebuild/Retransmit",1:"Obligate")," the 1358."
  • Line Location: V+17
Function Call: WRITE
  • Prompt: !
  • Line Location: V+19
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: V+20
Function Call: WRITE
  • Prompt: !!,"You are the Approver on this 1358 transaction."
  • Line Location: V+23
Function Call: WRITE
  • Prompt: !,"Per Segregation of Duties, the Approver is not permitted to "
  • Line Location: V+24
Function Call: WRITE
  • Prompt: $S($G(PRCFA("RETRAN")):"Rebuild/Retransmit",1:"Obligate")," the 1358."
  • Line Location: V+25
Function Call: WRITE
  • Prompt: !
  • Line Location: V+27
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: V+28
Function Call: WRITE
  • Prompt: !!," Cannot continue...one or more of the following fields have changed..."
  • Line Location: EDIT+11
Function Call: WRITE
  • Prompt: !,?5,PRCFA("CHG",LOOP)
  • Line Location: EDIT+13
Function Call: WRITE
  • Prompt: !!," Please be sure that the VENDOR, FUND CONTROL POINT, BOC, and COST CENTER",!," fields are the same as the original 1358 obligation!"
  • Line Location: EDIT+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DT1+4
Function Call: WRITE
  • Prompt: !,"The Electronic Signature must now be entered to generate the "_PRCFA("TYPE")_" Document.",!
  • Line Location: ESIG+1
Function Call: WRITE
  • Prompt: !!,"...updating obligation balances....please hold...",!!
  • Line Location: UPDATE+1
Function Call: WRITE
  • Prompt: !!,MSG
  • Line Location: Z+2
Function Call: WRITE
  • Prompt: !,"ERROR IN CREATING 424 RECORD",$C(7),!!
  • Line Location: Z+7
Function Call: WRITE
  • Prompt: "...adjustment completed..."
  • Line Location: Z+15
Function Call: WRITE
  • Prompt: @IOF,IOINLOW,"Adjustment Transaction # ",IOINHI,$P(TRNODE(0),"^")
  • Line Location: SCREEN+4
Function Call: WRITE
  • Prompt: IOINLOW," 1358 # ",IOINHI,$P(PO(0),"^")
  • Line Location: SCREEN+5
Function Call: WRITE
  • Prompt: !!,IOINLOW,"Current amount obligated on 1358: ",IOINHI," $ ",$FN(CEILING,"P,",2)
  • Line Location: SCREEN+6
Function Call: WRITE
  • Prompt: !!,IOINLOW," Total Authorizations: ",IOINHI," $ ",$J($FN(TAUTH,"P,",2),12)
  • Line Location: SCREEN+9
Function Call: WRITE
  • Prompt: ?40,IOINLOW," Total Liquidations: ",IOINHI," $ ",$J($FN(LAUTH,",P",2),12)
  • Line Location: SCREEN+11
Function Call: WRITE
  • Prompt: !,IOINLOW,"Authorization Balance: ",IOINHI," $ ",$J($FN(TBAL,"P,",2),12)
  • Line Location: SCREEN+12
Function Call: WRITE
  • Prompt: ?40,IOINLOW,"Liquidation Balance: ",IOINHI," $ ",$J($FN(LBAL,"P,",2),12),!!
  • Line Location: SCREEN+13
Function Call: WRITE
  • Prompt: IOINLOW,"Amount of Adjustment: ",IOINHI,$J($P(TRNODE(4),"^",8),0,2),!!,IOINORM
  • Line Location: SCREEN+14
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG+0

FileMan Files Accessed Via FileMan Db Call

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