PRCOVTST ;WISC/DJM/BGJ-IFCAP VRQ TO-DO ROUTINE ; [10/19/98 11:20am]
Source file <PRCOVTST.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 |
|---|---|---|
| V | ;;5.1;IFCAP;**30**;Oct 20, 2000
|
|
| NEW(VEN1,SITE,FLAG) | ;VEN1 = VENDOR INTERNAL ENTRY NUMBER
|
|
| DOIT | ;COME HERE IF A VRQ SHOULD BE CREATED.
|
|
| EXIT | ;USE THIS EXIT ONLY IF NO VRQ SHOULD BE CREATED.
|
|
| CHECK(DA,SITE,FLAG) | ; CALL TO SEE IF VENDOR IS PROPERLY SET UP FROM AR
; VENDOR LOOKUP CALL -- VENSEL^PRCHUTL(). ; COME HERE TO DECIDE WHAT NEEDS TO BE DONE WITH THE SELECTED ; VENDOR. |
|
| DOIT1 | ; COME HERE IF A VRQ SHOULD BE CREATED.
|
|
| EXIT1 | ; COME HERE IF THE VENDOR RECORD NEEDS TO BE EDITED.
|
|
| EXIT2 | ; USE THIS EXIT ONLY IF NO VRQ SHOULD BE CREATED.
; IF THERE IS NO "AR" NODE PRESENT REMOVE UN-EDITED COPY OF VENDOR ; RECORD (IN 440.3). |
|
| VRQ(DA,SITE) | ; COME HERE TO SEND A VRQ FOR THE VENDOR RECORD SELECTED
; BY THE AR USER. THIS ENTRY POINT IS CALLED FROM VENSEL^PRCHUTL(). |
|
| VRQ1 | ||
| VRQS(DA,SITE) | ; COME HERE TO SEND A VRQ FROM THE 'SEND VRQ' PROTOCOL.
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(5 - [#5] | CHECK+34, VRQ1+26 |
| ^PRC(411 - [#411] | CHECK+18, CHECK+19 |
| ^PRC(440 - [#440] | NEW+3, NEW+4, NEW+5, CHECK+13, CHECK+22, VRQ1, VRQ1+18, VRQ1+21 |
| ^PRC(440.3 - [#440.3] | NEW+2, NEW+8, NEW+9, EXIT+2!, EXIT2+3, EXIT2+5!, VRQ+3! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | NEW+1~, VRQ1+2, VRQ1+4, VRQ1+6, VRQ1+7 |
| B | NEW+1~, VRQ1+16*, VRQ1+17*, VRQ1+20*, VRQ1+22*, VRQ1+23*, VRQ1+24*, VRQ1+27*, VRQ1+31*, VRQ1+40 |
| DA | CHECK~, CHECK+13, CHECK+22, EXIT2+3, EXIT2+5, VRQ~, VRQ+2, VRQ+3, VRQ1, VRQ1+15* , VRQ1+16, VRQ1+18, VRQ1+21, VRQS~, VRQS+2 |
| DATE | NEW+1~, VRQ1+2*, VRQ1+3*, VRQ1+16 |
| FLAG | NEW~, NEW+14, NEW+16, NEW+21, CHECK~, CHECK+14, CHECK+38 |
| FLAGN | NEW+1~, NEW+2*, NEW+6, NEW+7, NEW+20 |
| FY | NEW+1~, VRQ1+6*, VRQ1+8*, VRQ1+10, VRQ1+14 |
| GECSFMS | NEW+1~ |
| GECSFMS("DA" | VRQ1+40 |
| I | NEW+1~, CHECK+17*, CHECK+18* |
| J | NEW+1~, CHECK+17*, CHECK+18*, CHECK+19 |
| MO | NEW+1~, VRQ1+7*, VRQ1+8, VRQ1+10, VRQ1+14 |
| NAME | NEW+1~, VRQ1+18*, VRQ1+19*, VRQ1+20 |
| >> NODE | EXIT2+3*, EXIT2+4*, EXIT2+5 |
| >> NOVRQ | DOIT+1*, DOIT+2, EXIT+3*, EXIT+4, DOIT1+1*, DOIT1+2, EXIT1+1*, EXIT1+2, EXIT2+6*, EXIT2+7 |
| PAY | NEW+1~, NEW+5*, NEW+18, NEW+27, NEW+28, NEW+29, NEW+30, NEW+31, CHECK+22*, CHECK+29 , CHECK+32, CHECK+33, VRQ1+21*, VRQ1+22, VRQ1+23, VRQ1+24, VRQ1+25, VRQ1+27 |
| PAY1 | NEW+1~, NEW+9*, NEW+27, NEW+28, NEW+29, NEW+30, NEW+31 |
| PRCFLN | VRQ1+9! |
| PRCOVA | NEW+1~, NEW+7*, NEW+23 |
| PRCOVA3 | NEW+1~, NEW+8*, NEW+24, NEW+25, NEW+26 |
| PRCOVN | NEW+1~, NEW+3*, NEW+23 |
| PRCOVN3 | NEW+1~, NEW+4*, NEW+10, NEW+12, NEW+14, NEW+16, NEW+21, NEW+24, NEW+25, NEW+26 , CHECK+13*, CHECK+14, CHECK+23, CHECK+25, CHECK+28, CHECK+38, VRQ1*, VRQ1+16, VRQ1+17, VRQ1+28 , VRQ1+29, VRQ1+31 |
| >> PRCXDA | VRQ+2*, VRQ1+15, VRQS+2* |
| PS | NEW+1~, CHECK+19* |
| SEQ | NEW+1~, VRQ1+12*, VRQ1+13*, VRQ1+14 |
| SITE | NEW~, CHECK~, VRQ~, VRQ1+10, VRQ1+14, VRQ1+16, VRQ1+35, VRQS~ |
| SSNT | NEW+1~, VRQ1+29*, VRQ1+30*, VRQ1+31 |
| ST | NEW+1~, CHECK+33*, CHECK+34*, CHECK+35, VRQ1+25*, VRQ1+26*, VRQ1+27 |
| TIME | NEW+1~, VRQ1+4*, VRQ1+5*, VRQ1+16 |
| TRANS | NEW+1~, VRQ1+14*, VRQ1+35 |
| U | NEW+12, NEW+14, NEW+16, NEW+21, NEW+23, NEW+24, NEW+25, NEW+26, NEW+27, NEW+28 , NEW+29, NEW+30, NEW+31, CHECK+14, CHECK+25, CHECK+28, CHECK+32, CHECK+33, CHECK+34, CHECK+38 , VRQ1+7, VRQ1+16, VRQ1+17, VRQ1+22, VRQ1+23, VRQ1+24, VRQ1+25, VRQ1+26, VRQ1+27, VRQ1+28 , VRQ1+29, VRQ1+31 |
| VEN | NEW+1~ |
| VEN1 | NEW~, NEW+2, NEW+3, NEW+4, NEW+5, NEW+8, NEW+9, EXIT+2 |
| VEND | NEW+1~, VRQ1+28*, VRQ1+30, VRQ1+31 |
| X | NEW+1~, VRQ1+10* |
| Y | NEW+1~, VRQ1+12 |
