Routine: PRCSP111

Information

PRCSP111 ;WISC/SAW-CONTROL POINT ACTIVITY 1358 PRINOUT CON'T ;11-2-89/14:28

Call Graph

Call Graph Total: 1

Package	Total	Call Graph
IFCAP	1	(NEWP,UL)^PRCSP11

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
IFCAP	1	PRCSP11

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;;Oct 20, 2000
PO
PO1
PO11
PO12
PO2
P
OB	;PRINT ONLY OBLIGATIONS
OB1
DR1
HDR
HDR1
T

External References

Name	Field # of Occurrence
NEWP^PRCSP11	PO12, OB+2
UL^PRCSP11	V+3, OB+3, OB1+1, HDR+1

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+3
Function Call: WRITE	Prompt: $J($P(^(4),U),0,2) Condition for execution: $D(^PRCS(410,DA,4)) Line Location: V+3
Function Call: WRITE	Prompt: !!,?7,"TOTALS",?26,"$",$J(ET,9,2),?38,$J(AT,9,2),?70,"$",$J((PRCSOT-UT),9,2) Line Location: PO+0
Function Call: WRITE	Prompt: !?47,"$",$J(CT,9,2),! Line Location: PO12+1
Function Call: WRITE	Prompt: !,Y,?7,$P($P(^PRC(424,PRCSX,0),U),"-",3),?12,$P(Z1,U,2),?26,"$" Line Location: PO2+0
Function Call: WRITE	Prompt: $J(E,9,2),?38,$J(A,9,2),?59,"$",$J($P(Z1,U,4),9,2) Line Location: PO2+4
Function Call: WRITE	Prompt: !,?15,$P(^(0),U,14) Line Location: PO2+4
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(^(4),U,8),0,2) Line Location: OB1+1
Function Call: WRITE	Prompt: !,Y,?7,$P($P(^(0),U),"-",3),?13,$S($D(^PRCS(410,+$P(Z1,U,1),0)):$P(^(0),U,1),1:""),?36,"$",$J($P(Z1,U,3),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",?58,"LIQUIDATION RECORD" Line Location: HDR+0
Function Call: WRITE	Prompt: !!,?28,"INDIVIDUAL/DAILY",!,"DATE",?7,"SEQ#",?14,"REFERENCE",?28,"ESTIMATED",?39,"ACTUAL",?47,"CUMULATIVE",?60,"LIQUID",?71,"UNLIQ 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+3, PO11, PO2, OB+1, OB+2, DR1
^PRC(442 - [#442]	PO1
^PRCS(410 - [#410]	V+3, PO1, OB1+1, DR1+2

Label References

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

Naked Globals

Name	Field # of Occurrence
^(0	PO11, PO2+4, OB+2, DR1+2
^(10	PO1
^(4	V+3, OB1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	PO12+1!, PO2+1*, PO2+4
AT	PO!, PO2+1
CAT	PO!, PO12, PO12+1!, PO2+1
CET	PO!, PO12, PO12+1!, PO2+1
CT	PO!, PO12+1
>> DA	V+3, PO1, OB1+1
E	PO12+1!, PO2+1*, PO2+4
ET	PO!, PO2+1
>> I	OB+2*
IOSL	PO12, OB+2
J	PO!, PO11, PO11+1
JJ	PO!, PO12*
>> PRC("SITE"	V+2
>> PRCSA	PO2+4
>> PRCSOB	V+2
PRCSOT	PO!, OB+2*, DR1+2
>> PRCSPO	V+2
PRCSR	PO!
PRCSR(	PO11*, PO11+1, PO12, PO2+2
PRCSX	PO!, PO11, PO12*, PO2, PO2+2, OB+3, DR1+2
PRCSXX	PO!, PO11+1*, PO12, PO2+2
>> PRCSY	PO1*, PO11
U	V+3, PO1, PO11, PO12, PO2, PO2+1, PO2+4, OB+2, OB1+1, DR1 , DR1+2
UT	PO!, PO2+1, OB+2*
>> X	OB1+1*
>> X1	OB+2*, DR1
>> Y	PO12, PO2, DR1+2, T*
>> Z	V+2*, V+3, OB+1, OB+2
>> Z1	PO11, PO12, PO2, PO2+1, PO2+2, PO2+4, OB+2, DR1*, DR1+2

Customize PDF page

Package: IFCAP