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

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

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
Info |  Source |  Entry Points |  Interaction Calls