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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCE58P3

Package: IFCAP

Routine: PRCE58P3


Information

PRCE58P3 ;WISC/SAW,LDB/BGJ-CONTROL POINT ACTIVITY 1358 PRINOUT CON'T ;6/17/11 17:53

Source Information

Source file <PRCE58P3.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
IFCAP 4 (NEWP,UL)^PRCE58P2  PO^PRCH58OB  NODE^PRCS58OB  NEWP^PRCSP11  

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 PRCE58P2  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**158,168**;Oct 20, 2000;Build 3
PO
PO1
PO11 ;;;PRC*5.1*168 will remove leading zeros in TX# in next line
PO12
PO2
P
OB ;PRINT ONLY OBLIGATIONS
OB1
DR1
HDR
HDR1
T

External References

Name Field # of Occurrence
NEWP^PRCE58P2 PO12, PO2+8, PO2+10
UL^PRCE58P2 V+8, OB+3, OB1+1, HDR+1
PO^PRCH58OB PO1
NODE^PRCS58OB OB+2, DR1+1
NEWP^PRCSP11 OB+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Daily Record entries have not yet been entered for this request.",!,"The total committed cost of this request is $"
  • Line Location: V+8
Function Call: WRITE
  • Prompt: $J($P(TRNODE(4),U),0,2)
  • Condition for execution: $D(TRNODE(4))
  • Line Location: V+8
Function Call: WRITE
  • Prompt: !!,?7,"TOTALS",?29,"$"
  • Line Location: PO+1
Function Call: WRITE
  • Prompt: $J(ET,9,2),?51,"$",$J(CET,9,2),?69,"$",$J((PRCSOT-UT),9,2)
  • Line Location: PO+5
Function Call: WRITE
  • Prompt: !,?40,"$",$J(AT,9,2)
  • Line Location: PO+5
Function Call: WRITE
  • Prompt: $J(ET,9,2),?40,"$",$J(AT,9,2),?51,"$",$J(CET,9,2),?69,"$",$J((PRCSOT-UT),9,2)
  • Line Location: PO+6
Function Call: WRITE
  • Prompt: !,Y,?7,$E("0000",1,4-$L(PRCSXX))_PRCSXX,?12,$P(Z1,U,10),?29,"$"
  • Line Location: PO2+0
Function Call: WRITE
  • Prompt: ?40,"$",$J(A,9,2),?62,"$",$J($P(Z1,U,4),9,2)
  • Line Location: PO2+5
Function Call: WRITE
  • Prompt: !,?12,^(1)
  • Line Location: PO2+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PO2+9
Function Call: WRITE
  • Prompt: Y,?7,$P($P(^(0),U),"-",3,4)
  • Line Location: PO2+9
Function Call: WRITE
  • Prompt: Y,?7,$P($P(^(0),U),"-",3,4)
  • Line Location: PO2+9
Function Call: WRITE
  • Prompt: !,?12,^(1)
  • Line Location: PO2+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PO2+12
Function Call: WRITE
  • Prompt: !!,"VA FORM 4-1358a-ADP (NOV 1987)",!
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !!,"The following 1358 obligation/adjustment request is ready for processing:"
  • Line Location: OB1+0
Function Call: WRITE
  • Prompt: !,"TRANSACTION NUMBER: ",$P(X,U),?40,"TYPE: ",$S($P(X,U,2)="O":"OBLIGATION",1:"ADJUSTMENT"),?60,"AMOUNT: $",$J($P(TRNODE(4),U,8),0,2)
  • Line Location: OB1+1
Function Call: WRITE
  • Prompt: !,Y,?7,$P($P(Z1,U),"-",3)
  • Line Location: DR1+0
Function Call: WRITE
  • Prompt: ?13,$P($G(TRNODE(0)),U)
  • Line Location: DR1+1
Function Call: WRITE
  • Prompt: ?36,"$",$J($P(Z1,U,6),9,2)
  • Line Location: DR1+2
Function Call: WRITE
  • Prompt: ?56,"$",$J(PRCSOT,9,2)
  • Condition for execution: $D(PRCSX)
  • Line Location: DR1+2
Function Call: WRITE
  • Prompt: !,"AUTHORIZATION & ORDER RECORD",?62,"LIQUIDATION RECORD"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !!,?30,"AUTH.",?41,"AUTH.",?53,"CUMULATIVE",?74,"UNLIQ",!,"DATE",?7,"SEQ#",?14,"REFERENCE",?30,"AMOUNT",?41,"BALANCE",?53,"AUTH. AMT.",?64,"LIQUID",?74,"BAL"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"ESTIMATED OBLIGATION RECAP",!,"DATE",?7,"REF#",?13,"CPA#",?37,"AMOUNT",?57,"BALANCE"
  • Line Location: HDR1+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(424 - [#424] V+8, PO11+1, PO2+5, PO2+6, OB+1, OB+2
^PRC(424.1 - [#424.1] PO2+7, PO2+9, PO2+11
^TMP("PRCSR" PO11+1!*, PO11+2, PO11+3!, PO12

Label References

Name Line Occurrences
DR1 OB+2
HDR PO11+1, PO12, PO2+8, PO2+10
HDR1 PO, OB+2
OB V+7, PO
OB1 OB+1
P V+8, PO+8, OB1+1
PO1 PO
PO11 PO1
PO12 PO11+2
PO2 PO12
T PO12, PO2+9, DR1

Naked Globals

Name Field # of Occurrence
^(0 PO11+1, PO2+7, PO2+9, OB+2
^(1 PO2+5, PO2+6, PO2+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A PO12+1!, PO2+1*, PO2+4, PO2+5, PO2+6
AT PO*, PO+4, PO+5, PO+6, PO+7!, PO2+1*
CAT PO+7!
CET PO*, PO+4, PO+5, PO+6, PO+7!, PO11+1*, PO2+1*, PO2+4, PO2+5, PO2+6
CT PO+7!
>> DA OB+2*, DR1+1*
E PO12+1!, PO2+1*, PO2+4, PO2+5, PO2+6
ET PO*, PO+4, PO+5, PO+6, PO+7!, PO2+1*
>> I PO2+7*, PO2+9, PO2+11, OB+2*
IOSL PO12, PO2+8, PO2+10, OB+2
J PO+7!
JJ PO+7!, PO12*
PO PO1!
PO(0 PO1
>> PRC("SITE" V+7
>> PRCSA PO2+5, PO2+6
>> PRCSA1 PO2+7
>> PRCSA2 PO2+11
>> PRCSOB V+7
PRCSOT PO+5, PO+6, PO+7!, OB+2*, DR1+2
>> PRCSPO V+7
PRCSR PO+7!
PRCSX PO*, PO+7!, PO11+1*, PO12*, PO2+5, PO2+6, PO2+7, OB+3, DR1+2
PRCSXX PO+7!, PO11+2*, PO12, PO2
>> PRCSY PO1*, PO11+1
TRNODE PO+7!, OB+2, DR1+1
TRNODE(0 OB1+1, DR1+1
TRNODE(10 PO1
TRNODE(4 V+8, OB1+1
U V+8, PO1, PO11+1, PO12, PO2, PO2+1, PO2+5, PO2+6, PO2+7, PO2+9
, OB+2, OB1+1, DR1, DR1+1, DR1+2
UT PO*, PO+5, PO+6, PO+7!, PO2+1*, OB+2*
>> X OB1+1*
>> X1 OB+2*
>> Y PO12*, PO2, PO2+9*, DR1*, T*
>> Z V+7*, V+8, OB+1, OB+2
>> Z1 PO11+1*, PO12*, PO2, PO2+1, PO2+4, PO2+5, PO2+6, OB+2*, DR1, DR1+1
, DR1+2
ZDA OB+2*!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All