Routine: IB20P359

Information

IB20P359 ;ISP/RRA - Post-Init routine for IB*2.0*359 ; 11/8/06 3:14pm

Name	Comments	DBIA/ICR reference
POST	; This routine makes a call to GETWNR^IBCNSMM1 to verify that what ; is returned by this function is actually what the user wants. ; Since this patch relies on a free text field to be entered ; according to site/plan standardization any site that does not ; comply with this standardization may experience error or ; incorrect data.
EN	;Call the function and store the results
IBPRTA	;PROCESS THE RETURNED IBPRTA FOR POTENTIAL ERRORS
IBPRTB	;PROCESS THE RETURNED IBPRTB FOR POTENTIAL ERRORS
IBSNDMSG	;SEND MESSAGE TO IB EDI SUPERVISOR MAIL GROUP

Name	Line Occurrences (* Changed, ! Killed)
^IBA(355.3 - [#355.3]	IBPRTA+4, IBPRTB+4

Name	Field # of Occurrence
DUZ	IBSNDMSG+3
IBERCTR	EN+1!, EN+2, EN+8, EN+9, IBPRTA+1, IBPRTA+2, IBPRTA+3, IBPRTA+7, IBPRTA+8, IBPRTA+9* , IBPRTA+10, IBPRTB+1, IBPRTB+2, IBPRTB+3, IBPRTB+7, IBPRTB+8, IBPRTB+9, IBPRTB+10
IBERR	EN+1!
IBERR(	IBPRTA+1, IBPRTA+2, IBPRTA+3, IBPRTA+7, IBPRTA+8, IBPRTA+9, IBPRTA+10, IBPRTB+1, IBPRTB+2, IBPRTB+3 , IBPRTB+7, IBPRTB+8, IBPRTB+9, IBPRTB+10
IBERR(1	IBSNDMSG+6*
IBERR(2	IBSNDMSG+7*
IBERR(3	IBSNDMSG+8*
IBERR(4	IBSNDMSG+9*
IBERR(5	IBSNDMSG+10*
IBERR(6	IBSNDMSG+11*
IBERR(7	IBSNDMSG+12*
IBERR(8	IBSNDMSG+13*
IBERR(9	IBSNDMSG+14*
IBPARAM	IBSNDMSG+1~, IBSNDMSG+15
IBPARAM("FROM"	IBSNDMSG+4*
IBPRTA	EN+1!, EN+6, IBPRTA+1, IBPRTA+4, IBPRTA+5, IBPRTA+9
IBPRTAGN	EN+1!, IBPRTA+5, IBPRTA+6, IBPRTA+7, IBPRTA+8
IBPRTB	EN+1!, EN+6, IBPRTB+1, IBPRTB+4, IBPRTB+5, IBPRTB+9
IBPRTBGN	EN+1!, IBPRTB+5, IBPRTB+6, IBPRTB+7, IBPRTB+8
IBWNRPL	EN+1!, EN+5*, EN+6
XMDUZ	IBSNDMSG+1~, IBSNDMSG+3*, IBSNDMSG+15
XMSUB	IBSNDMSG+1~, IBSNDMSG+2*, IBSNDMSG+15
XMTEXT	IBSNDMSG+1~, IBSNDMSG+3*, IBSNDMSG+15
XMY	IBSNDMSG+1~, IBSNDMSG+15
XMY("G.IB EDI	SUPERVISOR" , IBSNDMSG+5*