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

Call Graph

Call Graph

Call Graph Total: 29

Package Total Call Graph
IFCAP 22 SC^PRC0A  $$DATE^PRC0C  SOAR^PRC0E  (ENM,KILL,RETRANM)^PRCESOE2  OLCSMSG^PRCFDO  ($$GETTXNS,$$NEWCHK,$$SWITCH,SET1358)^PRCFFERT  PAUSE^PRCFFERU  (EDIT,GO,OKAY2,STACK)^PRCFFU  
NEW^PRCFFU1  (OVCOM1,REQFAIL)^PRCFFU10  SIG^PRCFFU4  EN7^PRCFFU41  $$BBFY^PRCFFU5  ($$COMP,UPDATE)^PRCFFU6  GENDIQ^PRCFFU7  TAG33^PRCFFU9  
(EDIT410,MSG1)^PRCFFUD  (D,HILO,MSG)^PRCFQ  BULC^PRCH58  POADJ^PRCH58OB  POADJ^PRCS58OB  EN1^PRCSUT3  
VA FileMan 5 ^%DT  NOW^%DTC  EN^DDIOL  FILE^DICN  ^DIE  
Generic Code Sheet 2 SETPARAM^GECSSDCT  (SETCS,SETSTAT)^GECSSTAA  

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

Package Total Caller Graph
IFCAP 1 PRCEADJ1  

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

External References

Name Field # of Occurrence
^%DT DT1+4
NOW^%DTC DT+3, Z+11
EN^DDIOL V+19, V+27, EDIT+17
FILE^DICN Z+6
^DIE Z+15
SETPARAM^GECSSDCT TRANS+6
SETCS^GECSSTAA SEGS+8
SETSTAT^GECSSTAA TRANS+1
SC^PRC0A DT1+24
$$DATE^PRC0C DT1+14
SOAR^PRC0E DT1+19
ENM^PRCESOE2 DT1+9
KILL^PRCESOE2 DT1+13
RETRANM^PRCESOE2 DT+1
OLCSMSG^PRCFDO Z+20
$$GETTXNS^PRCFFERT DT1+31
$$NEWCHK^PRCFFERT DT1+32
$$SWITCH^PRCFFERT DT1+34
SET1358^PRCFFERT ESIG+9
PAUSE^PRCFFERU DT1+30
EDIT^PRCFFU ESIG+6
GO^PRCFFU GO+1
OKAY2^PRCFFU V+31
STACK^PRCFFU STACK+1
NEW^PRCFFU1 SEGS+4
OVCOM1^PRCFFU10 V+10
REQFAIL^PRCFFU10 V+10
SIG^PRCFFU4 ESIG+2
EN7^PRCFFU41 POBAL+2
$$BBFY^PRCFFU5 K+2
$$COMP^PRCFFU6 EDIT+6
UPDATE^PRCFFU6 UPDATE+5
GENDIQ^PRCFFU7 DT1+15
TAG33^PRCFFU9 EDIT+1, EDIT+2
EDIT410^PRCFFUD ESIG+8
MSG1^PRCFFUD DT1+14
D^PRCFQ DT1
HILO^PRCFQ SCREEN+2
MSG^PRCFQ MSG+2
BULC^PRCH58 UPDATE+4
POADJ^PRCH58OB UPDATE+2
POADJ^PRCS58OB UPDATE+3
EN1^PRCSUT3 Z+1

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
Routine Call
  • DIE
  • Line Location:
    • Z+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRC(424 - [#424] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(420 - [#420] DT1+14
^TMP($J SEGS+1!, SEGS+8, SEGS+9!

Label References

Name Line Occurrences
DT DT1+14
DT1 DT
MSG V+10, V+13, V+22, V+32, EDIT+16, DT1+6, DT1+11, DT1+17, DT1+22, DT1+30
, GO+2, ESIG+3
OUT V+10, V+13, V+22, V+32, EDIT+19, DT1+6, DT1+12, DT1+17, DT1+22, DT1+30
, GO+2, ESIG+3, POBAL+5, Z+22
SCREEN V+7
SEGS STACK+2

Naked Globals

Name Field # of Occurrence
^( SEGS+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % Z+1*, Z+12
%DT DT1+1*, DT1+5!
%DT("A" DT1+2*
%DT("B" DT1+3*
AMT V+6~, V+33*, UPDATE+2, UPDATE+3, UPDATE+4
AMT( K*
CEILING SCREEN+1~, SCREEN+3*, SCREEN+6, SCREEN+8, SCREEN+10
CS V+6~
>> DA Z+13*
>> DA(1358 Z+10*, Z+13
>> DIC Z+4*
>> DIC(0 Z+5*
DIE V+6~, Z+9*
DIR V+6~
DIROUT OUT!
DIRUT V+32, GO+2, OUT!
DLAYGO V+6~, Z+3*
DR V+6~, Z+14*
DT DT+3
DTIME V+20, V+28, EDIT+18
DTOUT OUT!
DUOUT OUT!
DUZ V+13, V+22
ERFLAG EDIT+5~, EDIT+7*, EDIT+10
>> EXIT DT1+8*, DT1+10
FMSINT SEGS+2~*, SEGS+4
>> FMSMOD SEGS+3*, SEGS+4, POBAL+2
>> GECSDATA K+12, DT1+34
>> GECSDATA( K+12
>> GECSFMS("DA" SEGS+8, TRANS+1, TRANS+6
HASH V+6~
>> I K*
IDFLAG EDIT+5~, EDIT+8*
IOF SCREEN+4
IOINHI V+6~, SCREEN+1~, SCREEN+4, SCREEN+5, SCREEN+6, SCREEN+9, SCREEN+11, SCREEN+12, SCREEN+13, SCREEN+14
IOINLOW V+6~, SCREEN+1~, SCREEN+4, SCREEN+5, SCREEN+6, SCREEN+9, SCREEN+11, SCREEN+12, SCREEN+13, SCREEN+14
IOINORM V+6~, SCREEN+1~, SCREEN+14
LAUTH V+6~, SCREEN+1~, SCREEN+10*, SCREEN+11
LBAL V+6~, SCREEN+1~, SCREEN+10*, SCREEN+13
LOOP EDIT+12~*, EDIT+13*, SEGS+7~*, SEGS+8*
MSG Z+2!
>> OB ESIG+8
OLDTT V+6~
P2 TRANS+2~*, TRANS+3*, TRANS+4*, TRANS+5*, TRANS+6
>> PO K+2, DT1+15, DT1+31, UPDATE+2, SEGS+2, TRANS+2
>> PO(0 K+5, K+6, K+8, Z, SCREEN+5
>> PO(8 SCREEN+3, SCREEN+7, SCREEN+10
>> PODA K+7, UPDATE+2, UPDATE+3, UPDATE+4
>> PODATE POBAL+2
>> PRC UPDATE+3
>> PRC("CP" V+8*, K+1*
>> PRC("RBDT" V+9*, DT+3, DT1+14
>> PRC("SITE" DT1+14
>> PRC410 EDIT+6, DT1+31, UPDATE+5
>> PRC442 EDIT+6, UPDATE+5
PRCE424 Z+1*!
>> PRCFA("ACCEDIT" EDIT+1
>> PRCFA("ACCPD" TRANS+4
>> PRCFA("BBFY" K+2*
>> PRCFA("CHG" EDIT+13, EDIT+14!
>> PRCFA("GECS" K+4, DT1+30
>> PRCFA("MOD" K+3*, K+4*, DT1+25*, DT1+26*, DT1+30, DT1+32, SEGS+3
>> PRCFA("MP" K+5*
>> PRCFA("OBLDATE" DT+2, DT1+7*, DT1+14, TRANS+5
>> PRCFA("OVCOM" V+10
>> PRCFA("PATNUM" K+6*, POBAL+2
>> PRCFA("PODA" K+7*, DT1+19
>> PRCFA("REF" K+8*
>> PRCFA("RETRAN" V+17, V+18, V+25, V+26, K+4, EDIT+2, DT, DT1+30, DT1+33*, ESIG+9
, STACK+2, POBAL+5, Z+20
>> PRCFA("SIGFAIL" ESIG+3!
>> PRCFA("SIS" DT1+31*, DT1+32
>> PRCFA("SYS" K+10*
>> PRCFA("TT" K+11*, K+12*, DT1+17, DT1+18, DT1+20*, DT1+22, DT1+30, DT1+32, SEGS+4, POBAL+2
>> PRCFA("TYPE" ESIG+1
PRCFASYS V+6~
PRCFATT DT1+18~*, DT1+19, DT1+20!
>> PRCRGS V+10
RETURN EDIT+5~, EDIT+6*, EDIT+7, EDIT+8, EDIT+9
TAUTH V+6~, SCREEN+1~, SCREEN+8*, SCREEN+9
TBAL V+6~, SCREEN+1~, SCREEN+7*, SCREEN+8, SCREEN+12
TI V+6~, Z+12*
>> TRDA UPDATE+3, TRANS+3
>> TRNODE UPDATE+2
>> TRNODE(0 V+8, V+9, K+1, SCREEN+4
>> TRNODE(3 K
>> TRNODE(4 V+33, SCREEN+14
>> TRNODE(7 V+13, V+22
TYPE EDIT+5~, EDIT+9*
U V+9, V+33, K+5, K+6, K+8, EDIT+7, EDIT+8, EDIT+9, DT1+14, SEGS+3
, TRANS+4, Z, SCREEN+3, SCREEN+7, SCREEN+10
>> X V+20*, V+28*, EDIT+18*, DT+3, DT1+22, DT1+27*, DT1+29*, DT1+30, DT1+32*, DT1+33
, DT1+34*, Z*, MSG+1*
Y V+13*, V+22*, V+32, DT+2*, DT+3*, DT1+3, DT1+6, DT1+7, DT1+17*, DT1+22*
, DT1+23~, DT1+24, DT1+25, DT1+26, DT1+27, DT1+28!, DT1+30*, GO+2, Z+7, Z+10
>> Z Z*
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