Routine: PRCPSMS0

Information

PRCPSMS0 ;WISC/RFJ-isms trans, build segments: control, line count ;21 Oct 91

Source Information

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA FileMan	2	DD^%DT (,NOW)^%DTC
IFCAP	1	$$NSN^PRCPUX1

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	PRCPSMGO PRCPSMSD PRCPUITM

Entry Points

Name	Comments	DBIA/ICR reference
CONTROL(V1,V2,V3)	; build control segment ; v1=station number, v2=transaction code, v3=reference number ; returns 'string' of segment
LINECNT(V1,V2)	; line count segment ; v1=line count, v2=reference number ; returns 'string("lc")' of data
DELETE(DATA)	; delete segment ; data=itemda ; returns 'string("id")' of data	ICR #6576 Status: Active Usage: Private

Name

Comments

DBIA/ICR reference

CONTROL(V1,V2,V3)

; build control segment
; v1=station number, v2=transaction code, v3=reference number
; returns 'string' of segment

LINECNT(V1,V2)

; line count segment
; v1=line count, v2=reference number
; returns 'string("lc")' of data

DELETE(DATA)

; delete segment
; data=itemda
; returns 'string("id")' of data

ICR #6576

Status: Active

Usage: Private

External References

Name	Field # of Occurrence
DD^%DT	CONTROL+5
^%DTC	CONTROL+5
NOW^%DTC	CONTROL+5
$$NSN^PRCPUX1	DELETE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CONTROL+4~, CONTROL+5
%H	CONTROL+4~
%I	CONTROL+4~
DATA	DELETE~, DELETE+3
DATE	CONTROL+4~, CONTROL+5*, CONTROL+7
NOW	CONTROL+4~, CONTROL+5*
NSN	DELETE+3~*, DELETE+4
>> STRING	CONTROL+3, CONTROL+7
>> STRING("ID"	DELETE+3, DELETE+4
>> STRING("LC"	LINECNT+3, LINECNT+4
TIME	CONTROL+4~, CONTROL+5*, CONTROL+7
V1	CONTROL~, CONTROL+3, CONTROL+7, LINECNT~, LINECNT+3, LINECNT+4
V2	CONTROL~, CONTROL+3, CONTROL+7, LINECNT~, LINECNT+3, LINECNT+4
V3	CONTROL~, CONTROL+6*, CONTROL+7
X	CONTROL+4~, CONTROL+5*
>> X1	CONTROL+5*
>> X2	CONTROL+5*
Y	CONTROL+4~, CONTROL+5*

Customize PDF page

Package: IFCAP