PRCOVTST ;WISC/DJM/BGJ-IFCAP VRQ TO-DO ROUTINE ; [10/19/98 11:20am]
Source file <PRCOVTST.m>
| 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.
|
