Routine: PRCSP13

Information

PRCSP13 ;BOISE/TKE,WISC/SAW-CPA PRINTS CON'T-TRANSACTION STATUS REPORT ;7/26/13 15:22

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
IFCAP	4	STATUS^PRCSES (,COM)^PRCSP131 SUBC^PRCSP132 ^PRCSP133
Kernel	2	^%ZISC KILL^%ZTLOAD
VA FileMan	2	NOW^%DTC GETS^DIQ

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

Package	Total	Caller Graph
IFCAP	4	PRCSP1 PRCSP131 PRCSP132 PRCSP133
Engineering	1	ENWOD

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;174;Oct 20, 2000;Build 23
CA
C
A
O	;
VND
ACC
HDR
S
S2
EX
EXIT

External References

Name	Field # of Occurrence
NOW^%DTC	HDR
^%ZISC	EXIT
KILL^%ZTLOAD	EX
GETS^DIQ	CA+2
STATUS^PRCSES	O+1
^PRCSP131	O+10
COM^PRCSP131	CA+5, C+2, A+6
SUBC^PRCSP132	A+5
^PRCSP133	O+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Cancel By: ",PRCDATA(410,PRCIEN,104,"E"),?49,"Cancel Dt: ",$TR($P(PRCDATA(410,PRCIEN,105,"E"),":",1,2),"@"," ") Line Location: CA+3
Function Call: WRITE	Prompt: ! Line Location: CA+5
Function Call: WRITE	Prompt: !,"Ceiling $ Amount: $",$J(+$P(PRCS6,U),0,2),?41,"Date Allocated: " Line Location: C+1
Function Call: WRITE	Prompt: Y Line Location: C+1
Function Call: WRITE	Prompt: !,"Fund Control Point Dist. No.: ",$P(PRCS6,U,3) Line Location: C+2
Function Call: WRITE	Prompt: !,"Reference Number: ",$P(PRCS6,U,5) Line Location: C+2
Function Call: WRITE	Prompt: !,"Purchase Order/Obligation No.: ",$P(PRCS4,U,5),?41,"Adjustment $ Amount: $",$J($P(PRCS4,U,6),0,2) Line Location: A+1
Function Call: WRITE	Prompt: !,"Date Obl.Adjusted: ",Y Line Location: A+2
Function Call: WRITE	Prompt: !,"Sort Group: ",X Line Location: A+3
Function Call: WRITE	Prompt: ?41,"Classification of Request: " Line Location: A+4
Function Call: WRITE	Prompt: X Line Location: A+4
Function Call: WRITE	Prompt: !,"A&MM Status: ",X Line Location: O+1
Function Call: WRITE	Prompt: ?41,"PA/PPM: ",$P(^(20),U,2) Line Location: O+1
Function Call: WRITE	Prompt: !,"Form Type: ",$S($D(^PRCS(410.5,+$P(PRCS0,U,4),0)):$P(^(0),U),1:"") Line Location: O+3
Function Call: WRITE	Prompt: ?41,"Month of 1358: ",$P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$P(PRCS0,U,8)) Line Location: O+3
Function Call: WRITE	Prompt: !,"Date of Request: " Line Location: O+4
Function Call: WRITE	Prompt: Y Line Location: O+4
Function Call: WRITE	Prompt: Y Line Location: O+4
Function Call: WRITE	Prompt: Y Line Location: O+4
Function Call: WRITE	Prompt: !,"Est. Delivery Date: " Line Location: O+5
Function Call: WRITE	Prompt: Y Line Location: O+5
Function Call: WRITE	Prompt: Y Line Location: O+5
Function Call: WRITE	Prompt: Y Line Location: O+5
Function Call: WRITE	Prompt: !,"Committed (Estimated) Cost: $",$J($P(PRCS4,U),0,2),?41,"Date Committed: " Line Location: O+7
Function Call: WRITE	Prompt: Y Line Location: O+7
Function Call: WRITE	Prompt: !,"Obligated (Actual) Cost: $",$J($P(PRCS4,U,3),0,2),?41,"Date Obligated: " Line Location: O+8
Function Call: WRITE	Prompt: Y Line Location: O+8
Function Call: WRITE	Prompt: !,"Purchase Order/Obligation No.: ",$P(PRCS4,U,5) Line Location: O+9
Function Call: WRITE	Prompt: !,"Return to Service Comments:" Line Location: O+10
Function Call: WRITE	Prompt: $E(^(0),1,80),! Condition for execution: $D(^PRCS(410,DA,13,1,0)) Line Location: O+10
Function Call: WRITE	Prompt: !,"Comments:" Line Location: O+10
Function Call: WRITE	Prompt: $E(^(0),1,80),! Condition for execution: $D(^PRCS(410,DA,"CO",1,0)) Line Location: O+10
Function Call: WRITE	Prompt: !,"Vendor: ",$S($D(^PRCS(410,DA,2)):$E($P(^(2),U),1,30),1:"") Line Location: VND+0
Function Call: WRITE	Prompt: ?41,"P.O. Vendor: ",$S($D(^PRC(440,+PRCSVND,0)):$E($P(^(0),U),1,20),1:"") Line Location: VND+1
Function Call: WRITE	Prompt: ?41,"Accounting Data: ",$S($D(^PRCS(410,DA,3)):$P(^(3),U,2),1:"") Line Location: ACC+0
Function Call: WRITE	Prompt: !,"FMS $ Amount: $",$J($P(PRCS5,U),0,2) Line Location: ACC+1
Function Call: WRITE	Prompt: ?41,"FMS Date: ",Y Line Location: ACC+1
Function Call: WRITE	Prompt: ?41,"FMS Date: ",Y Line Location: ACC+1
Function Call: WRITE	Prompt: @IOF Line Location: HDR+0
Function Call: WRITE	Prompt: ?10,PRCSTP," TRANSACTION STATUS DISPLAY ",Y,!! Line Location: HDR+0
Function Call: WRITE	Prompt: "Transaction Number: ",$P(PRCS0,U),?41,"Transaction Type: ",PRCSTP Line Location: HDR+1
Function Call: WRITE	Prompt: ! Line Location: S+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: S+1

FileNo	Call Tags
^PRCS(410 - [#410]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	C+1, A+2, O+4, O+5, O+7, O+8, ACC+1, HDR
^DD(410	V+3
^PRC(440 - [#440]	VND+1
^PRC(442 - [#442]	O+1, VND+1
^PRCS(410 - [#410]	V+2, CA+1, C, C+2, A+1, A+3, A+4, O+1, O+2, O+4 , O+5, O+6, O+10, VND, VND+1, ACC, ACC+1
^PRCS(410.2 - [#410.2]	A+4
^PRCS(410.5 - [#410.5]	O+3
^TMP($J	EXIT!
^VA(200 - [#200]	O+1

Label References

Name	Line Occurrences
A	C
ACC	C+2, A+3, O+10
EX	CA, C+2, A+5, A+6, O+10
HDR	V+4, S2
O	C
S	A+5, A+6
S2	S
VND	A, O+6

Naked Globals

Name	Field # of Occurrence
^(0	V+2, A+3, A+4, O+3, O+10, VND+1
^(1	A+4, O+1, O+4, VND+1
^(10	O+1, VND+1
^(11	A+3
^(2	VND
^(20	O+1
^(3	VND+1, ACC
^(4	C+2, A+1, O+6
^(5	ACC+1
^(6	C
^(9	O+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HDR
>> D0	O+1*
DA	V+2, CA+1, CA+2, C, C+2, A+1, A+3, A+4, O+1, O+2 , O+4, O+5, O+6, O+10, VND, VND+1, ACC, ACC+1, EXIT!
DIWF	EXIT!
DIWL	EXIT!
DIWR	EXIT!
DTIME	S+1
I	V+3*, EXIT!
IO	V+2
IOF	HDR
IOSL	V+2
IOST	S
J	EXIT!
L	S*, EXIT!
PRCDATA	CA+2~
PRCDATA(410	CA+3
PRCIEN	CA+2~*, CA+3
PRCS0	V+2*, V+3, O+2, O+3, HDR+1, EXIT!
PRCS1	A+4!, O+4
PRCS4	A+1, A+2!, O+6, O+7, O+8, O+9!
PRCS5	ACC+1*!
PRCS6	C, C+1, C+2!
>> PRCS9	O+5*
PRCSDY	CA+4, CA+5, C+2, A+5, A+6, O+10, HDR+1*, S, EXIT!
PRCSEX	V+4, A+5, A+6, S+1, EXIT!
PRCSI	EXIT!
PRCSJ	EXIT!
PRCSS	V+2*, A+5, A+6, S, EXIT!
PRCSTC	V+3*, CA, C, EXIT!
PRCSTP	V+3*, HDR, HDR+1, EXIT!
>> PRCSVND	VND+1*
U	V+2*, V+3, CA+1, C+1, C+2, A+1, A+2, A+3, A+4, A+5 , A+6, O+1, O+2, O+3, O+4, O+5, O+7, O+8, O+9, VND , VND+1, ACC, ACC+1, HDR+1, S+1
X	V+3, A+3, A+4, O+1, HDR+1, S+1*, EXIT!
Y	V+3, C+1, A+2, O+4, O+5, O+7, O+8, ACC+1, HDR*, EXIT!
Z	EXIT!
>> ZTQUEUED	S
ZTSK	EX!

Customize PDF page

Package: IFCAP