Routine: PRCSD12

Information

PRCSD12 ;WISC/SAW-CONTROL POINT ACT. 2237 TERMINAL DISPLAY ;2/13/13 12:59

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
IFCAP	4	$$ECMS2237^PRCHJUTL ^PRCSD121 ^PRCSD122 ^PRCSD123
VA FileMan	1	DD^%DT

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

Package	Total	Caller Graph
IFCAP	3	PRCHJS07 PRCSAPP2 PRCSP1

Entry Points

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

External References

Name	Field # of Occurrence
DD^%DT	V+2, V+12, V+13
$$ECMS2237^PRCHJUTL	V+4
^PRCSD121	V+19
^PRCSD122	V+19
^PRCSD123	V+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: V+2
Function Call: WRITE	Prompt: ?26,"PRIORITY: ",P Line Location: V+3
Function Call: WRITE	Prompt: !,Y,?31,$P(^PRCS(410,DA,0),U) Line Location: V+5
Function Call: WRITE	Prompt: !,L Line Location: V+5
Function Call: WRITE	Prompt: !,?16,"REQUEST, TURN-IN, AND RECEIPT FOR PROPERTY OR SERVICES" Line Location: V+6
Function Call: WRITE	Prompt: !,L Line Location: V+6
Function Call: WRITE	Prompt: !,"TO: A&MM Officer",?24,"Requesting Office" Line Location: V+7
Function Call: WRITE	Prompt: !,?24 Line Location: V+8
Function Call: WRITE	Prompt: $P(^(0),U) Line Location: V+8
Function Call: WRITE	Prompt: " ("_$P(^(0),U,8)_")" Condition for execution: $P(^(0),U,8)]"" Line Location: V+8
Function Call: WRITE	Prompt: !,$E(L,1,23) Line Location: V+9
Function Call: WRITE	Prompt: " ",$E(L,25,IOM) Line Location: V+10
Function Call: WRITE	Prompt: !,"Action Requested",?24,"Date Prepared",?46,"Date Required" Line Location: V+11
Function Call: WRITE	Prompt: Y Line Location: V+12
Function Call: WRITE	Prompt: Y Line Location: V+13
Function Call: WRITE	Prompt: !,$E(L,1,23) Line Location: V+14
Function Call: WRITE	Prompt: " ",$E(L,25,45) Line Location: V+15
Function Call: WRITE	Prompt: " ",$E(L,47,IOM) Line Location: V+16
Function Call: WRITE	Prompt: !,?2,"ITEM NO. ",?23,"DESCRIPTION",?52," QUANTITY UNIT ESTIMATED" Line Location: V+17
Function Call: WRITE	Prompt: !,"OR STOCK NO. ",?68,"UNIT COST",!,L Line Location: V+18
Function Call: WRITE	Prompt: !,"Press return to continue: " Line Location: V+19

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
EXIT	V+19

Naked Globals

Name	Field # of Occurrence
^(0	V+8
^(1	V+3, V+12, V+13
^(3	V+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	V+2
%DT	EXIT!
>> DA	V+3, V+4, V+5, V+8, V+12, V+13
DIWF	EXIT!
DIWL	EXIT!
DIWR	EXIT!
DTIME	V+19
FPROJ	EXIT!
I	EXIT!
IOF	V+2
IOM	V+2, V+10, V+16
J	EXIT!
K	EXIT!
>> L	V+2*, V+5, V+6, V+9, V+10, V+14, V+15, V+16, V+18
N	EXIT!
P	V+3, V+8, EXIT!
P(1	V+2*
P1	V+8*, EXIT!
>> PRCS("SUB"	EXIT!
PRCSDES	EXIT!
PRCSDS	EXIT!
PRCSDSD	EXIT!
PRCSILP	EXIT!
PRCSIN	EXIT!
PRCSLN	EXIT!
PRCSLNT	EXIT!
PRCSPG	EXIT!
PRCSQTY	EXIT!
U	V+2*, V+3, V+5, V+8, V+12, V+13, V+19
X	EXIT!
X1	EXIT!
Y	V+2, V+5, V+12, V+13*, EXIT!
Z	EXIT!
Z1	V+2, V+19, EXIT!

Customize PDF page

Package: IFCAP