Routine: PRCVNDR

Information

PRCVNDR ;WOIFO/AS-SEND VENDOR UPDATE INFOMATION TO DYNAMED ; 2/21/05 5:07pm

Source file <PRCVNDR.m>

Name	Comments	DBIA/ICR reference
NITECHK	; ; Once a day check ; Compare checksum and set flag to updated record
ONECHK(PRCVN)	; ; Checksum to one vendor only	ICR #6854 Status: Pending Usage: Private
INIT	; ; Initialize checksum global at installation
CHKSUM()	;
GETDATA(PRCVNM)	; ; Get all field required, ; Node 0
CKINC(PRCVF,PRCVS)	;incremental checksum

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ