PRCVNDR ;WOIFO/AS-SEND VENDOR UPDATE INFOMATION TO DYNAMED ; 2/21/05 5:07pm
Source file <PRCVNDR.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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 |
|
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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(5 - [#5] | GETDATA+5 |
^PRC(440 - [#440] | NITECHK+7, INIT+8, CHKSUM+3, CHKSUM+26, CHKSUM+37, CHKSUM+46, CHKSUM+48, CHKSUM+51, CHKSUM+52, GETDATA+3 , GETDATA+12, GETDATA+17, GETDATA+25, GETDATA+27, GETDATA+30, GETDATA+31 |
^PRCV(414.04 - [#414.04] | NITECHK+6, NITECHK+11, NITECHK+12*, ONECHK+4, ONECHK+7, ONECHK+8* |
^TMP("PRCVNDR" | NITECHK+14, NITECHK+15!, ONECHK+10, ONECHK+11!, GETDATA+7*, GETDATA+9*, GETDATA+14*, GETDATA+19*, GETDATA+21*, GETDATA+23* , GETDATA+25*, GETDATA+27*, GETDATA+33* |
Name | Line Occurrences |
---|---|
$$CHKSUM | NITECHK+8, ONECHK+5, INIT+10 |
$$CKINC | CHKSUM+5, CHKSUM+7, CHKSUM+9, CHKSUM+11, CHKSUM+13, CHKSUM+15, CHKSUM+17, CHKSUM+19, CHKSUM+21, CHKSUM+23 , CHKSUM+28, CHKSUM+30, CHKSUM+32, CHKSUM+34, CHKSUM+39, CHKSUM+41, CHKSUM+43, CHKSUM+46, CHKSUM+48, CHKSUM+54 , CHKSUM+56, CHKSUM+58 |
GETDATA | NITECHK+13, ONECHK+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
FDA | INIT+2~ |
FDA( | INIT+3*, INIT+4*, INIT+5*, INIT+9*, INIT+10* |
NOD | NITECHK+4~, NITECHK+6*, NITECHK+11, NITECHK+12, ONECHK+2~, ONECHK+4*, ONECHK+7, ONECHK+8 |
PRCVAL | NITECHK+4~, NITECHK+8*, NITECHK+11, NITECHK+12, ONECHK+2~, ONECHK+5*, ONECHK+7, ONECHK+8, INIT+2~, CHKSUM+1* , CHKSUM+5*, CHKSUM+7*, CHKSUM+9*, CHKSUM+11*, CHKSUM+13*, CHKSUM+15*, CHKSUM+17*, CHKSUM+19*, CHKSUM+21*, CHKSUM+23* , CHKSUM+28*, CHKSUM+30*, CHKSUM+32*, CHKSUM+34*, CHKSUM+39*, CHKSUM+41*, CHKSUM+43*, CHKSUM+46*, CHKSUM+48*, CHKSUM+54* , CHKSUM+56*, CHKSUM+58*, CHKSUM+59, CKINC+1~, CKINC+7*, CKINC+12*, CKINC+13 |
PRCVB | CKINC+1~ |
PRCVB( | CKINC+11*, CKINC+12 |
PRCVB(1 | CKINC+8* |
PRCVB(2 | CKINC+8* |
PRCVC | CKINC+1~, CKINC+10*, CKINC+12 |
PRCVCNT | NITECHK+4~, ONECHK+2~, INIT+2~, CHKSUM+51*, CHKSUM+52, GETDATA+30*, GETDATA+31, GETDATA+33 |
PRCVF | CKINC~, CKINC+2*, CKINC+5, CKINC+12 |
PRCVI | CKINC+1~, CKINC+9*, CKINC+10, CKINC+11, CKINC+12 |
PRCVL | CKINC+1~, CKINC+6*, CKINC+9 |
PRCVN | NITECHK+4~, NITECHK+5*, NITECHK+7*, NITECHK+11, NITECHK+12, NITECHK+13, NITECHK+14, ONECHK~, ONECHK+7, ONECHK+8 , ONECHK+9, ONECHK+10, INIT+2~, INIT+7*, INIT+8*, INIT+9, CHKSUM+3, CHKSUM+26, CHKSUM+37, CHKSUM+46 , CHKSUM+48, CHKSUM+51, CHKSUM+52 |
PRCVND | NITECHK+4~, ONECHK+2~, CHKSUM+3*, CHKSUM+5, CHKSUM+7, CHKSUM+9, CHKSUM+11, CHKSUM+13, CHKSUM+15, CHKSUM+17 , CHKSUM+19, CHKSUM+21, CHKSUM+23, CHKSUM+26*, CHKSUM+28, CHKSUM+30, CHKSUM+32, CHKSUM+34, CHKSUM+37*, CHKSUM+39 , CHKSUM+41, CHKSUM+43, CHKSUM+52*, CHKSUM+54, CHKSUM+56, CHKSUM+58, GETDATA+3*, GETDATA+5*, GETDATA+7, GETDATA+12* , GETDATA+14, GETDATA+17*, GETDATA+19, GETDATA+21, GETDATA+23, GETDATA+31*, GETDATA+33 |
PRCVNM | GETDATA~, GETDATA+3, GETDATA+7, GETDATA+9, GETDATA+12, GETDATA+14, GETDATA+17, GETDATA+19, GETDATA+21, GETDATA+23 , GETDATA+25, GETDATA+27, GETDATA+30, GETDATA+31, GETDATA+33 |
PRCVP | NITECHK+4~, NITECHK+5*, ONECHK+2~, ONECHK+3*, INIT+2~, INIT+7*, CKINC+12 |
PRCVP2 | NITECHK+4~, NITECHK+5*, ONECHK+2~, ONECHK+3*, INIT+2~, INIT+7*, CKINC+11 |
PRCVS | CKINC~, CKINC+3*, CKINC+5, CKINC+6, CKINC+10 |
PRCVST | NITECHK+4~, ONECHK+2~, INIT+2~, CHKSUM+5*, CHKSUM+7*, CHKSUM+9*, CHKSUM+11*, CHKSUM+13*, CHKSUM+15*, CHKSUM+17* , CHKSUM+19*, CHKSUM+21*, CHKSUM+23*, CHKSUM+28*, CHKSUM+30*, CHKSUM+32*, CHKSUM+34*, CHKSUM+39*, CHKSUM+41*, CHKSUM+43* , CHKSUM+46*, CHKSUM+48*, CHKSUM+54*, CHKSUM+56*, CHKSUM+58* |
RESULT | INIT+2~ |
RESULT(1 | INIT+9, INIT+10 |