Routine: PRCV442B

Information

PRCV442B ;WOIFO/CC-GET DATA WHEN ITEM DELETED, SET UP AUDIT FILE;1/29/05

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	4	$$NOW^XLFDT OP^XQCHK OPKG^XUHUI $$KSP^XUPARAM
IFCAP	2	DMERXMB^PRCVLIC EN^PRCVPOSD
VA FileMan	2	UPDATE^DIE ($$GET1,GETS)^DIQ
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	ITEM PRCV 442 ITEM DELETE PRCV442A PRCVPOSD
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;81,86;Oct 20, 2000
RRAUD(POIEN,PRCV,PRCVCR,PRCVDAT)	; add deleted Receiving Report to audit file
DELAUD(PRCVID,PRCVDATE,PRCVDUZ,POIEN,PRCVITEM,PRCVIT)	; UPDATE AUDIT FILE FOR DELETED ITEMS
DELITEM(POIEN)	; delete line item, get key info for DYNAMED ; called from "AK" cross ref in DD - .01 of file 442.01 (Item multiple)
DELITEM1
DELJOB	; send deleted item's info to DynaMed (collected by DELITEM subroutine) ; called from protocol PRCV 442 ITEM DELETE and jobbed by TaskMan ; builds ; PRCVI (string for each item) ; DM DOC ID ^ Item ien ^ line item # ^ 2237 ien ^ UOP ^ qty ordered ; ^ unit price ^ NIF ^ pkg mult ^ qty rec'd ^ total item cost ^ ; total discount ^ delivery date ; PRCV (header) variable - ; PO# ^ txn type ^ DUZ ^ vendor IEN ^ FMS vendor # ^Alt add ind ^ ; txn D/T ^ Station# ^ Purchasing Station
DELJOB1
MAIL(PRCVCODE,PRCVPIEN,PRCVID,PRCVITEM)	; PREPARE VALUES FOR MESSAGE TO USERS
TMPERR	;
FCP(PRCVPO)	; return FCP for PO#
Q

External References

Name	Field # of Occurrence
UPDATE^DIE	RRAUD+22, DELAUD+16
$$GET1^DIQ	DELJOB1, DELJOB1+3, DELJOB1+4, DELJOB1+7, FCP+9
GETS^DIQ	DELITEM+9, DELJOB+18
DMERXMB^PRCVLIC	MAIL+32
EN^PRCVPOSD	DELJOB1+14
$$NOW^XLFDT	DELITEM1
$$GET^XPAR	DELITEM+8
OP^XQCHK	DELITEM+7
OPKG^XUHUI	DELITEM1+9
$$KSP^XUPARAM	DELJOB1

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^PRCS(410 - [#410]	GET1^DIQ
^PRCD(420.5 - [#420.5]	GET1^DIQ
^PRC(440 - [#440]	GETS^DIQ
^PRC(441 - [#441]	GET1^DIQ
^PRC(442 - [#442]	GET1^DIQ, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(442 - [#442]	MAIL+25, MAIL+30, FCP+7
^PRCV(414.02 - [#414.02]	RRAUD+13, DELAUD+12
^TMP("DIERR"	RRAUD+23, DELAUD+17, DELITEM+11, DELJOB+19, TMPERR+4, TMPERR+5, TMPERR+6, TMPERR+7, TMPERR+9!
^TMP("PRCV442A"	RRAUD+24, DELJOB+15!, DELJOB1+1, DELJOB1+12*, DELJOB1+13, Q!
^TMP($J	MAIL+18!, MAIL+26, MAIL+27, MAIL+28, MAIL+33!, TMPERR+3, TMPERR+6, TMPERR+7, TMPERR+8

Label References

Name	Line Occurrences
DELAUD	DELJOB1+11
DELITEM1	DELITEM+11
DELJOB1	DELJOB+19
MAIL	RRAUD+14, RRAUD+23, DELAUD+13, DELAUD+17
Q	DELJOB1+13
TMPERR	MAIL+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	DELITEM1+1
DUZ	RRAUD+17, DELITEM1+4
POIEN	RRAUD~, RRAUD+14, RRAUD+23, RRAUD+24, DELAUD~, DELAUD+13, DELAUD+17, DELITEM~, DELITEM+9, DELITEM+10* , DELITEM+12, DELITEM+13, DELITEM+14, DELITEM+15, DELITEM+16, DELITEM+17, DELJOB+11~, DELJOB+14*, DELJOB+15, DELJOB1+1 , DELJOB1+11, DELJOB1+12, DELJOB1+13, DELJOB1+14
>> PRC("SITE"	MAIL+29
PRCJ	TMPERR+3~, TMPERR+4, TMPERR+5, TMPERR+6, TMPERR+7
PRCK	TMPERR+3~, TMPERR+6, TMPERR+7, TMPERR+8
PRCV	RRAUD~, RRAUD+12, RRAUD+14, RRAUD+19, RRAUD+20, RRAUD+21, RRAUD+23, DELITEM+5~, DELITEM+10, DELITEM+12 , DELITEM+13, DELITEM+14, DELITEM+15, DELITEM+16, DELITEM+17, DELITEM1, DELITEM1+1, DELITEM1+4, DELITEM1+7, DELJOB+11~ , DELJOB+16, DELJOB+18, DELJOB+20, DELJOB+21, DELJOB+22, DELJOB1*, DELJOB1+1, DELJOB1+11
PRCV2237	DELJOB+11~, DELJOB1+6, DELJOB1+7, DELJOB1+8, DELJOB1+9, DELJOB1+10
PRCVCODE	MAIL~, MAIL+19, MAIL+22
PRCVCR	RRAUD~, RRAUD+18
PRCVD	DELAUD+10~
PRCVD(	DELAUD+14, DELAUD+15
PRCVDA	DELAUD+10~, DELAUD+12*, DELAUD+13, DELAUD+14, DELAUD+15
PRCVDAT	RRAUD~, RRAUD+16, RRAUD+24
PRCVDATE	DELAUD~, DELAUD+14
PRCVDUZ	DELAUD~, DELAUD+15
PRCVERR	DELJOB+11~, DELJOB1+13*, Q
PRCVF	FCP+5~, FCP+6, FCP+10, FCP+11
PRCVFCP	MAIL+17~, MAIL+30, MAIL+31, MAIL+32
PRCVI	DELJOB+11~, DELJOB1+2, DELJOB1+3, DELJOB1+4, DELJOB1+5, DELJOB1+10, DELJOB1+11, DELJOB1+12, FCP+5~, FCP+7 , FCP+8, FCP+9*, FCP+10
PRCVID	RRAUD+12*, RRAUD+13, RRAUD+14, RRAUD+23, DELAUD~, DELAUD+12, DELAUD+13, DELAUD+17, MAIL~, MAIL+20 , MAIL+21, MAIL+23
PRCVIEN	RRAUD+11~, RRAUD+15*, RRAUD+16, RRAUD+17, RRAUD+18, RRAUD+19, RRAUD+20, RRAUD+21, DELAUD+10~
PRCVIT	DELAUD~, DELAUD+11
PRCVITEM	DELAUD~, DELAUD+13, DELAUD+17, MAIL~, MAIL+27
PRCVP	DELITEM+5~, DELITEM+6, DELJOB+11~, DELJOB+13, DELJOB+14, DELJOB+16, DELJOB1+5, DELJOB1+8, DELJOB1+9, DELJOB1+12
PRCVP(442	DELITEM+12, DELITEM+13, DELITEM+14, DELITEM+15, DELITEM+16, DELITEM+17
PRCVPIEN	MAIL~, MAIL+25, MAIL+30
PRCVPO	MAIL+17~, MAIL+25*, MAIL+26, MAIL+29, FCP~, FCP+7
PRCVRA	RRAUD+11~
PRCVRA(	RRAUD+16, RRAUD+17, RRAUD+18, RRAUD+19, RRAUD+20, RRAUD+21
PRCVRN	RRAUD+11~, RRAUD+13*, RRAUD+14, RRAUD+15
PRCVSITE	MAIL+17~, MAIL+29*, MAIL+32
PRCVV	DELJOB+11~
PRCVV(440	DELJOB+21, DELJOB+22
PRCVY	RRAUD+11~, DELAUD+10~, DELAUD+11*, DELAUD+13, DELAUD+17
>> X1(999999	DELITEM1+7*, DELITEM1+10!
XMB	MAIL+17~
XMB(1	MAIL+19*
XMB(2	MAIL+20*
XMB(3	MAIL+21, MAIL+23
>> XQOPT	DELITEM+7
>> XUHUIX1(1	DELJOB1+2
>> XUHUIX1(2	DELJOB1+2
>> XUHUIX1(3	DELJOB1+2, DELJOB1+4
>> XUHUIX1(4	DELJOB1+2
>> XUHUIX1(5	DELJOB1+3
>> XUHUIX1(6	DELJOB1+2
>> XUHUIX1(7	DELJOB1+2
>> XUHUIX1(8	DELJOB1+6
>> XUHUIX1(999999	DELJOB+13

Customize PDF page

Package: IFCAP