PRCVIT ;WOIFO/DST - Send ITEM master file update to DYNAMED ; 3/2/05 5:07pm
Source file <PRCVIT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NITECHK | ;
; Once a day check ; Compare a checksum and set a record to update |
|
| ONECHK(PRCVN) | ;
; Checksum to one ITEM only |
|
| INIT | ;
; Initialize checksum global at installation |
|
| CHKSUM() | ;
|
|
| GETDATA(PRCVNM) | ;
; Get all field required, ; Node 0 |
|
| XMD | ; Send a message to Control Point officer/clerk for data mismatch
|
|
| CKINC(PRCVF,PRCVS) | ;incremental checksum
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
