Routine: PRCORV1

Information

PRCORV1 ;WISC/DJM/BGJ/AS-IFCAP VRQ REVIEW ROUTINE, CONTINUED ;2/17/22 12:13

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
IFCAP	5	INFO^PRCFAC3 HILO^PRCFQ SEND^PRCHE1 INIT^PRCORV ONECHK^PRCVNDR
VA FileMan	3	^DIE EN^DIQ1 ^DIR
List Manager	2	FULL^VALM1 EN^VALM2
Toolkit	1	$$GET^XPAR

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	PRCO DELETE VRQ PRCO EDIT VENDOR ENTRY PRCO REVIEW ENTRY PRCO SEND VRQ
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;7,81,227;Oct 20, 2000;Build 1
REV	;COMPLETE REVIEW OF VENDOR ENTRY
REVEXIT
REVQ
EDIT	;EDIT THIS VENDOR
EDITEX
SEND	;SEND THIS VRQ TO AUSTIN
DELETE	;DELETE THIS VENDOR REQUEST FROM THE LOCAL IFCAP SYSTEM
NODELETE
FIELD(IEN,FIELD)	;FETCH EXTERNAL VALUE OF FIELD
DOIT	;FIND OUT IF USER WANTS TO EDIT VENDOR RECORD
SCREEN	; Control screen display
HDR	; Write Option Header

External References

Name	Field # of Occurrence
^DIE	EDIT+18
EN^DIQ1	REV+11
^DIR	REV+36, REV+56, DELETE+11, DOIT+7
INFO^PRCFAC3	EDIT+12
HILO^PRCFQ	EDIT+11
SEND^PRCHE1	SEND+7
INIT^PRCORV	SEND+8, DELETE+18
ONECHK^PRCVNDR	EDITEX+2
FULL^VALM1	REV+7, EDIT+7
EN^VALM2	REV+2, EDIT+2, SEND+2, DELETE+2
$$GET^XPAR	EDITEX+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: REV+8
Function Call: WRITE	Prompt: !!," Vendor Name: "_$$FIELD(IEN,.01) Line Location: REV+13
Function Call: WRITE	Prompt: ?70,"PAGE: 1" Line Location: REV+14
Function Call: WRITE	Prompt: !," Ordering Address: "_$$FIELD(IEN,1) Line Location: REV+15
Function Call: WRITE	Prompt: !,X Line Location: REV+21
Function Call: WRITE	Prompt: !!," FMS Name: "_$$FIELD(IEN,34.5) Line Location: REV+22
Function Call: WRITE	Prompt: !!," Payment ADDRESS: "_$$FIELD(IEN,17.3) Line Location: REV+23
Function Call: WRITE	Prompt: !,SPACE_$$FIELD(IEN,17.4) Line Location: REV+24
Function Call: WRITE	Prompt: !,X Line Location: REV+31
Function Call: WRITE	Prompt: !!,"PAYMENT CONTACT PERSON: "_$$FIELD(IEN,17) Line Location: REV+32
Function Call: WRITE	Prompt: !," PAYMENT PHONE NUMBER: "_$$FIELD(IEN,7.2) Line Location: REV+33
Function Call: WRITE	Prompt: ! Line Location: REV+34
Function Call: WRITE	Prompt: ! Line Location: REV+38
Function Call: WRITE	Prompt: @IOF Line Location: REV+40
Function Call: WRITE	Prompt: !!," VENDOR NAME: "_$$FIELD(IEN,.01) Line Location: REV+41
Function Call: WRITE	Prompt: ?70,"PAGE: 2" Line Location: REV+42
Function Call: WRITE	Prompt: !!," FMS VENDOR CODE: "_$$FIELD(IEN,34) Line Location: REV+43
Function Call: WRITE	Prompt: !," ALT-ADDR-IND: "_$$FIELD(IEN,35) Line Location: REV+44
Function Call: WRITE	Prompt: !," TAX ID/SSN: "_$$FIELD(IEN,38) Line Location: REV+45
Function Call: WRITE	Prompt: !," SSN/TAX ID IND: "_$$FIELD(IEN,39) Line Location: REV+46
Function Call: WRITE	Prompt: !!," NON-RECURRING/" Line Location: REV+47
Function Call: WRITE	Prompt: !," RECURRUNG VENDOR: "_$$FIELD(IEN,36) Line Location: REV+48
Function Call: WRITE	Prompt: !!,"1099 VENDOR INDICATOR: "_$$FIELD(IEN,41) Line Location: REV+49
Function Call: WRITE	Prompt: !," VENDOR TYPE: "_$$FIELD(IEN,44) Line Location: REV+50
Function Call: WRITE	Prompt: !," DUN & BRADSTREET: "_$$FIELD(IEN,18.3) Line Location: REV+51
Function Call: WRITE	Prompt: !," UEI: "_$$FIELD(IEN,55) Line Location: REV+52
Function Call: WRITE	Prompt: ! Line Location: REV+53
Function Call: WRITE	Prompt: @IOF Line Location: EDIT+8
Function Call: WRITE	Prompt: !,$C(7),"Another user is editing this entry!" Line Location: EDIT+15
Function Call: WRITE	Prompt: ! Line Location: DOIT+1
Function Call: WRITE	Prompt: ! Line Location: DOIT+9
Function Call: WRITE	Prompt: @IOF Line Location: SCREEN+1
Function Call: WRITE	Prompt: IOINHI,$P(XQY0,U,2),IOINORM,! Line Location: HDR+1
Routine Call	DIE Line Location: EDIT+18
Routine Call	DIR Line Location: REV+36 REV+56 DELETE+11 DOIT+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PRC(440 - [#440]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PRC(440 - [#440]	EDIT+9, EDIT+15, EDIT+19, DELETE+7
^PRC(440.3 - [#440.3]	DELETE+16!, DELETE+17!
^PRCF(422.2 - [#422.2]	DELETE+14, DELETE+15*
^TMP("PRCORV"	REV+5, EDIT+5, SEND+5, DELETE+5

Label References

Name	Line Occurrences
$$FIELD	REV+13, REV+15, REV+16, REV+18, REV+19, REV+20, REV+22, REV+23, REV+24, REV+25 , REV+26, REV+28, REV+29, REV+30, REV+32, REV+33, REV+41, REV+43, REV+44, REV+45 , REV+46, REV+48, REV+49, REV+50, REV+51, REV+52
DOIT	EDIT+12
EDITEX	EDIT+13, EDIT+15
NODELETE	DELETE+13
REVEXIT	REV+39
REVQ	REV+4, EDIT+4, SEND+4, DELETE+4
SCREEN	EDIT+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COUNT	DELETE+1~, DELETE+15*
DA	REV+1~, REV+10, EDIT+12, EDIT+15
DIC	REV+1~, REV+10*
DIE	EDIT+17*, EDIT+18!
DIQ	REV+1~, REV+10*
DIQ(0	REV+10*
DIR	REV+1~, REV+37!, REV+57!, DELETE+12!, DOIT+8!
DIR("?"	DOIT+5, DOIT+6
DIR("A"	REV+55, DELETE+8, DOIT+3*
DIR("B"	DELETE+10, DOIT+4
DIR(0	REV+35, REV+54, DELETE+9, DOIT+2
DIRUT	EDIT+1~, EDIT+13
DR	REV+1~, REV+10, EDIT+17, EDIT+18!
FIELD	FIELD~, FIELD+2*, FIELD+3
IEN	REV+1~, REV+6, REV+10, REV+13, REV+15, REV+16, REV+18, REV+19, REV+20, REV+22 , REV+23, REV+24, REV+25, REV+26, REV+28, REV+29, REV+30, REV+32, REV+33, REV+41 , REV+43, REV+44, REV+45, REV+46, REV+48, REV+49, REV+50, REV+51, REV+52, EDIT+1~ , EDIT+6, EDIT+9, EDIT+12, EDITEX+2, SEND+1~, SEND+6, SEND+7, DELETE+1~, DELETE+6, DELETE+7 , DELETE+16, DELETE+17, FIELD~, FIELD+2
IOF	REV+8, REV+40, EDIT+8, SCREEN+1
>> IOINHI	HDR+1
>> IOINORM	HDR+1
NAME	EDIT+1~, EDIT+9, EDIT+10, DELETE+7, DELETE+8
ORDER	EDIT+18!
PRCFA	EDIT+1~
PRCFA("VEND"	EDIT+12*, EDIT+19, EDITEX+2
PRCOI	REV+1~, REV+3, REV+4, REV+5, EDIT+1~, EDIT+3, EDIT+4, EDIT+5, SEND+1~, SEND+3* , SEND+4, SEND+5, DELETE+1~, DELETE+3, DELETE+4*, DELETE+5
PRCOIN	REV+1~, REV+5, REV+6, EDIT+1~, EDIT+5, EDIT+6, SEND+1~, SEND+5, SEND+6, DELETE+1~ , DELETE+5, DELETE+6
PRCORVP	REV+9!
PRCORVP(440	FIELD+2
PRCTMP	EDIT+12!
SPACE	REV+1~, REV+12*, REV+16, REV+17, REV+24, REV+25, REV+26, REV+27
U	REV+6, EDIT+6, EDIT+9, SEND+6, DELETE+6, DELETE+7, DELETE+15, HDR+1
>> VALMBCK	REVEXIT, EDITEX, SEND+9, NODELETE
>> VALMBG	REVEXIT, EDITEX, SEND+9, NODELETE
VALMY	REV+1~
VALMY(	REV+4, EDIT+4, SEND+4, DELETE+4
VRQ	DELETE+1~, DELETE+14*, DELETE+15
X	REV+1~, REV+17, REV+18, REV+19, REV+20, REV+21, REV+27, REV+28, REV+29, REV+30 , REV+31
>> XQORNOD(0	REV+2, EDIT+2, SEND+2, DELETE+2
>> XQY0	HDR+1
Y	REV+1~, REV+39, EDIT+13, DELETE+13

Customize PDF page

Package: IFCAP