Routine: PRCSP12

Information

PRCSP12 ;WISC/SAW-CONTROL POINT ACTIVITY 2237 PRINTOUT (FREE FORM) ;2/13/13 13:04

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
IFCAP	5	$$ECMS2237^PRCHJUTL ^PRCSP121 ^PRCSP122 ^PRCSP123 ^PRCSP124
VA FileMan	2	DD^%DT NOW^%DTC
Kernel	1	KILL^%ZTLOAD

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

Package	Total	Caller Graph
IFCAP	2	PRCGARC1 PRCSAPP2

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;167,174;Oct 20, 2000;Build 23
QUE
P
EXIT

External References

Name	Field # of Occurrence
DD^%DT	P, P+12, P+13
NOW^%DTC	P
KILL^%ZTLOAD	EXIT
$$ECMS2237^PRCHJUTL	P+2
^PRCSP121	P+21
^PRCSP122	P+21
^PRCSP123	P+21
^PRCSP124	P+21, P+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?36,"PRIORITY: ",P Line Location: P+1
Function Call: WRITE	Prompt: !,Y,?36,$P(^PRCS(410,DA,0),U),?83,"PAGE ",PRCS("P"),!,L Line Location: P+3
Function Call: WRITE	Prompt: !,?16,"REQUEST, TURN-IN, AND RECEIPT FOR PROPERTY OR SERVICES",! Line Location: P+4
Function Call: WRITE	Prompt: ?37,"REPRINT",! Line Location: P+4
Function Call: WRITE	Prompt: !,L Line Location: P+5
Function Call: WRITE	Prompt: !,"TO: A&MM Officer",?23,"\|Requesting Office",?63,"\|TO BE COMPLETED BY" Line Location: P+6
Function Call: WRITE	Prompt: !,?23,"\|" Line Location: P+7
Function Call: WRITE	Prompt: $P(^(0),U) Line Location: P+7
Function Call: WRITE	Prompt: " ("_$P(^(0),U,8)_")" Condition for execution: $P(^(0),U,8)]"" Line Location: P+7
Function Call: WRITE	Prompt: ?63,"\|SUPPLY PERSONNEL",!,$E(L,1,23) Line Location: P+8
Function Call: WRITE	Prompt: "\|",$E(L,1,39) Line Location: P+9
Function Call: WRITE	Prompt: "\|(NOTE - Alterations in" Line Location: P+10
Function Call: WRITE	Prompt: !,"Action Requested",?23,"\|Date Prepared",?45,"\|Date Required",?63,"\|""Action"" column will be" Line Location: P+11
Function Call: WRITE	Prompt: Y Line Location: P+12
Function Call: WRITE	Prompt: Y Line Location: P+13
Function Call: WRITE	Prompt: ?63,"\|initialed and dated)",!,$E(L,1,23) Line Location: P+14
Function Call: WRITE	Prompt: "\|",$E(L,1,21) Line Location: P+15
Function Call: WRITE	Prompt: "\|",$E(L,1,17) Line Location: P+16
Function Call: WRITE	Prompt: "\|",$E(L,1,26) Line Location: P+17
Function Call: WRITE	Prompt: !,?2,"ITEM NO. \|",?23,"DESCRIPTION",?38,"\|QUANTITY \|UNIT\|ESTIMATED\|UNIT COST\|TOTAL COST\|ACT." Line Location: P+18
Function Call: WRITE	Prompt: !,"OR STOCK NO.\|",?38,"\|",?48,"\|",?53,"\|UNIT COST\|",?73,"\|",?84,"\|NOTE1",!,$E(L,1,12),"\|",$E(L,1,25),"\|",$E(L,1,9),"\|",$E(L,1,4),"\|",$E(L,1,9),"\|",$E(L,1,9),"\|",$E(L,1,10),"\|",$E(L,1,5) Line Location: P+19

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(49 - [#49]	P+7
^PRC(420 - [#420]	P+7
^PRCS(410 - [#410]	P+1, P+3, P+7, P+12, P+13
^UTILITY($J	EXIT!

Label References

Name	Line Occurrences
EXIT	P+21
P	V+2

Naked Globals

Name	Field # of Occurrence
^(0	P+7
^(1	P+1, P+12, P+13
^(3	P+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	P
%DT	EXIT!
>> D0	QUE, QUE+1
DA	QUE, QUE+1, P+1, P+2, P+3, P+7, P+12, P+13, EXIT!
DIWF	EXIT!
DIWL	EXIT!
DIWR	EXIT!
FPROJ	EXIT!
I	EXIT!
IO	P
IOF	P
J	EXIT!
K	EXIT!
L	P*, P+3, P+5, P+8, P+9, P+14, P+15, P+16, P+17, P+19 , EXIT!
P	P+1, P+7, EXIT!
P(1	P*
>> P1	P+7*
>> PRCHQ("DEST"	P+21, P+22
PRCS	EXIT!
PRCS("P"	P*, P+3
PRNTALL	P+20*, P+21, EXIT!
U	P*, P+1, P+3, P+7, P+12, P+13
X	EXIT!
X1	EXIT!
Y	P, P+3, P+12, P+13*, EXIT!
Z	EXIT!
Z1	EXIT!
>> ZTQUEUED	QUE
>> ZTSAVE("NOPRINT"	P+4
>> ZTSK	EXIT

Customize PDF page

Package: IFCAP