Routine: PRCVRC2

Information

PRCVRC2 ;WOIFO/BMM/VAC - silently build RIL for DynaMed ; 12/3/07 10:32am

Source file <PRCVRC2.m>

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;81,119;Oct 20, 2000;Build 8
GETFY(PRCVDT)	;return the fiscal year, PRCVDT is date/time the DM
GETQTR(PRCVDT)	;return the fiscal quarter, PRCVDT is date/time the DM
GETTXN(PRCVSTR)	;obtain current transaction number (if exists) from
CHKDT(INDT)	;check the incoming date (date/time message created) against
CHKDTN(INDT)	;check the incoming date (Date Needed By from DynaMed)
CHKBOC(ITEM,BOC)	;test BOC from passed-in detail record
CHKFCP(PRCVFCP,PRCVST)	;validate that FCP is in 420
CHKITM(PRCVITM)	;check extracted item number:
CHKVEND(VENDN)	;check that vendor in Vendor file is active.
CHKVI(VENDN,ITMN)	;check that vendor VENDN sells item ITMN
CHKDUZ(INDUZ)	;validate that DUZ against New Person (#200)
CHKNIF(ITEM,NIF)	;use the passed-in item to check that the passed-in
MAKECAP(INSTR)	;take INSTR and return an all-caps version of it
SENDMSG(EC,PRCVGL,CTR,ERPC)	;send an alert or error message back to
ADDAUD(ADDSTR)	;add "^"-pieces from ADDSTR as fields to a new record in