Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
IFCAP 13 YN^PRC0A  DELETE^PRC0B1  $$EN1^PRCE0A  $$UPPER^PRCFFU5  GENDIQ^PRCFFU7  (MSG,NOW)^PRCFQ  ENCODE^PRCSC2  ^PRCSDIC  
(W1,W6)^PRCSEB  SCPC0^PRCSED  (TRANK,TRANS,TRANS1)^PRCSES  OBL^PRCSES2  TRANK^PRCSEZ  
VA FileMan 4 %XY^%RCR  EN^DDIOL  IX^DIC  ^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 27

Package Total Caller Graph
IFCAP 27 PRC5CON3  PRCE58P  PRCE58P1  PRCE58P2  PRCE58P3  PRCEADJ  PRCEADJ1  PRCEADJ2  
PRCEAU  PRCEBAL  PRCECAL  PRCECALL  PRCEDRE  PRCEN  PRCEOB  PRCESOE  
PRCESOM  PRCFDPVI  PRCFDPVT  PRCFFERI  PRCFFERT  PRCFFU13  PRCGARC1  PRCH58OB  
PRCSAPP2  PRCSP1  PRCVIBF  

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

External References

Name Field # of Occurrence
%XY^%RCR OROBL+5, OROBL+10
EN^DDIOL ENA2+6
IX^DIC OROBL+2
^DIE SC+2, OB1+2, PODT+2, ADJ+2, ADJ1+1, ENA2, SAEDIT+3, RTN+2
YN^PRC0A ENA2+1
DELETE^PRC0B1 ENA2+3
$$EN1^PRCE0A ENA2+9
$$UPPER^PRCFFU5 ADJ2+1
GENDIQ^PRCFFU7 OROBL+7
MSG^PRCFQ RTN+2
NOW^PRCFQ POADJ+4
ENCODE^PRCSC2 CS+5, POADJ+8
^PRCSDIC LU+6
W1^PRCSEB ENA3
W6^PRCSEB ENA3
SCPC0^PRCSED ENA3
TRANK^PRCSES POADJ+10, RTN+3
TRANS^PRCSES POADJ+10
TRANS1^PRCSES POADJ+10
OBL^PRCSES2 ADJ2+1
TRANK^PRCSEZ ENA2+8

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
Routine Call
  • DIC
  • Line Location:
    • OROBL+2
Routine Call
  • DIE
  • Line Location:
    • SC+2
    • OB1+2
    • PODT+2
    • ADJ+2
    • ADJ1+1
    • ENA2
    • SAEDIT+3
    • RTN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCS(410 - [#410] Classic Fileman Calls
^PRC(442 - [#442] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(420 - [#420] ENA2+10
^PRC(442 - [#442] POADJ+6
^PRCD(442.3 - [#442.3] LU+5, RTN+3, KILL+1
^PRCS(410 - [#410] CS+3, CS+7*, ENA2+2, ENA2+4*, ENA2+8, ENA2+11, ENA3, NODE+1, NODE+3, LU+7
, SAEDIT+3, POADJ+5*, POADJ+6*, RTN+3*, KILL+1*

Label References

Name Line Occurrences
ENA2 ENA2+9, ENA2+11
ENA3 ENA2+10

Naked Globals

Name Field # of Occurrence
^( NODE+1, NODE+3
^(0 ENA2+10, NODE+3
^(3 ENA2+11
^(4 CS+3*, ENA2+11
^(9 CS+7*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% POADJ+4!
%X POADJ+4!, OROBL+5*!, OROBL+10*!
%Y OROBL+5*!, OROBL+10*!
A PODT~, PODT+2
AMT CS~, CS+3, POADJ~, POADJ+6, RTN+1~, RTN+3*
>> D OROBL+1*
DA OB~, OB1~, OB1+2*, PODT~, ADJ~, ADJ1~, ADJ2~, ENA2+3, ENA2+8, ENA2+11
, ENA3, NODE~, NODE+1, NODE+3, SAEDIT~, SAEDIT+1, SAEDIT+3*, POADJ+2~, POADJ+3*, POADJ+5
, POADJ+6, POADJ+8, OROBL~, RTN~, RTN+3
DEL CS~, CS+7
DIC ADJ~, ADJ+2, LU~, LU+4*, OROBL~
DIC("A" OROBL+1*
DIC("S" LU+5*, OROBL+1*
DIC(0 ADJ+2*, ENA2*, LU+4*, OROBL+1*
DIE SC~, SC+1*, OB1+1~, OB1+2*, PODT+1~, PODT+2*, ADJ+1~, ADJ+2*, ADJ1~, ADJ1+1*
, ENA2*, SAEDIT~, SAEDIT+3*, RTN+1~, RTN+2*
DIE("NO^" SC+1*
>> DILOCKTM LU+7
DR SC~, SC+2*, OB1+1~, OB1+2*, PODT+1~, PODT+2*, ADJ+1~, ADJ+2*, ADJ1~, ADJ1+1*
, ENA2*, SAEDIT~, SAEDIT+3*, RTN+1~, RTN+2*
DUZ CS+5, POADJ+8
FSO LU~, LU+5*
>> I NODE+1*, NODE+3*
MESSAGE CS+4*, CS+5, CS+6!, POADJ+7*, POADJ+8, POADJ+9!
OB OB1~, OB1+2, CS~, CS+3, CS+5, CS+7
PATNUM CS~, CS+3, CS+7
PO SAEDIT~
PO(0 SAEDIT+2
PODA CS~, CS+7, POADJ~
PRC CS~, ADJ2~, LU~, POADJ~, OROBL~
PRC("CP" ENA2+10, OROBL+1
PRC("SITE" ENA2+10
>> PRC410 ENA2+9
>> PRC442 ENA2+9
PRCF LU~
PRCFA LU~
PRCFA("PODA" POADJ+5, POADJ+6
PRCFA("TRDA" SAEDIT+1*, SAEDIT+3
PRCFA(1358 LU+5*
PRCHOBL POADJ+10*!
PRCIENCT ENA2+2*, ENA2+4, ENA2+5!
PRCLOCK LU+2~, LU+3, LU+7*, LU+8*
>> PRCS2 ENA3
PRCSIP ADJ~, ADJ+2
>> PRCTMP(410 OROBL+6!, OROBL+8, OROBL+9!
PRCX442 ADJ2+1~*
PX LU~
TIME CS~, CS+3, POADJ+2~, POADJ+4*, POADJ+6
TRDA POADJ~, POADJ+3, KILL~, KILL+1
TRDAIEN OROBL+4~, OROBL+5*, OROBL+6, OROBL+7, OROBL+8, OROBL+9, OROBL+10
TRNODE NODE~, NODE+1!
TRNODE( NODE+1*
TRNODE(0 NODE+2
TRNODE(3 NODE+2*, SAEDIT+3*
TRNODE(8 NODE+3*
U ENA2+8, ENA2+10, ENA2+11, POADJ+5
X CS~, ADJ1~, ADJ2~, ADJ2+1*, ENA2+1, ENA2+3, ENA2+4, ENA2+6, ENA2+8*, ENA2+11*
, POADJ+2~, POADJ+4, POADJ+6*, OROBL+3, OROBL+8*, RTN+1~, RTN+2*, RTN+3*
X1 ADJ2+2~, ENA2+11*
X2 ADJ2+2~, ENA2+11*
X4 ADJ~, ADJ+2*
Y CS+1~, CS+3*, ADJ1~, ADJ1+1, ENA2+1, LU~, LU+7, LU+8, OROBL+5, OROBL+10*
, RTN+2
Z OB1+1~, OB1+2*, ADJ1~, ADJ1+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All