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

Package: IFCAP

Routine: PRCS58OB


Information

PRCS58OB ;WISC/CLH-OBLIGATION PROCESSING ;07/21/93

Source Information

Source file <PRCS58OB.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**148,150,176**;Oct 20, 2000;Build 11
OB(DA) ;Obligation edits
SC
OB1(OB,DA) ;set obligation number in 410
CS(OB,AMT,TIME,PATNUM,PODA,DEL,X,PRC) ;set code sheet information in 410
PODT(DA,A) ; post P.O. Date onto 442 record
ADJ(DIC,DA,PRCSIP,X4) ;enter adjustment on transaction
ADJ1(DA,X,Y)
ADJ2(PRC,X,DA) ;mark the transaction as an adjustment
ENA2
ENA3
NODE(DA,TRNODE) ;get transaction node information from 410
LU(Y,PRC,PRCF)
SAEDIT(PO,DA)
POADJ(PRC,PODA,TRDA,AMT) ;set adjustments obligations in 410
OROBL(DIC,PRC,DA) ;lookup obligation number on original 1358 request
RTN(DA) ;return request to service
KILL(TRDA) ;kill obligation transaction when obligation data killed

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"Adjustment $ Amount does not equal the BOC $ Amount.",!,"Please correct the error.",!
  • Line Location: ENA2+11
Function Call: WRITE
  • Prompt: !!,"***The Transaction Number you are attempting to access is being accessed by another user***",!!
  • Line Location: LU+3
Function Call: WRITE
  • Prompt: !!,"The current values are:",!,?10,"BOC #1: ",$P(PO(0),"^",6),!?10,"BOC #2:",$P(PO(0),"^",8),!!,"Please enter the corrected values.",!!
  • Line Location: SAEDIT+2

FileMan Files Accessed Via FileMan Db Call

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