Routine: PRCSD111

Information

PRCSD111 ;WISC/SAW-CONTROL POINT ACTIVITY 1358 DISPLAY CON'T ;3-19-91/15:34

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	PRCSD11

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;;Oct 20, 2000
OB	;DISPLAY ONLY OBLIGATIONS
OB1
PO1
PO11
PO12
PO2
P
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+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: !,L 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: V+4
Function Call: WRITE	Prompt: !,L Line Location: OB+3
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"),?50,"AMOUNT: $",$J($P(^(4),U,8),0,2) Line Location: OB1+1
Function Call: WRITE	Prompt: !,L Line Location: OB1+1
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: !,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",?59,"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: !,L 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, OB+1, OB+2, PO11, PO2
^PRC(442 - [#442]	PO1
^PRCS(410 - [#410]	V+3, OB1+1, PO1, DR1+2
^TMP("PRCSR"	PO11!*, PO11+1, PO11+2!, PO12, PO2+2, DR1

Label References

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

Naked Globals

Name	Field # of Occurrence
^(0	OB+2, PO11, PO2+4, 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	V+4!, PO2+1
CAT	V+4!, PO12, PO12+1!, PO2+1
CET	V+4!, PO12, PO12+1!, PO2+1
CT	V+4!, PO12+1
>> DA	V+3, OB1+1, PO1
E	PO12+1!, PO2+1*, PO2+4
ET	V+4!, PO2+1
>> I	OB+2*
J	V+4!, PO11, PO11+1
JJ	V+4!, PO12*
>> L	V+3, OB+3, OB1+1, HDR+1
>> PRC("SITE"	V+2
>> PRCSA	PO2+4
PRCSOT	V+4!, OB+2*, DR1+2
>> PRCSPO	V+2
PRCSR	V+4!
PRCSX	V+4!, OB+3, PO11, PO12*, PO2, PO2+2, DR1, DR1+2
PRCSXX	V+4!, PO11+1*, PO12, PO2+2, DR1
>> PRCSY	PO1*, PO11
U	V+3, OB+2, OB1+1, PO1, PO11, PO12, PO2, PO2+1, PO2+4, P , DR1+2
UT	V+4!, OB+2, PO2+1*
>> X	OB1+1*
>> X1	OB+2*
>> Y	PO12, PO2, DR1+2, T*
>> Z	V+2*, V+3, OB+1, OB+2
>> Z1	OB+2, PO11, PO12, PO2, PO2+1, PO2+2, PO2+4, DR1*, DR1+2
>> Z3	P

Customize PDF page

Package: IFCAP