PRCOVL1 ;WISC/DJM/BGJ-IFCAP AR VENDOR EDIT ROUTINE CONTINUED ;[10/19/98 12:05pm]
Source file <PRCOVL1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
V | ;;5.1;IFCAP;**7**;Oct 20, 2000
|
|
;PRINTING A COMPLETE REVIEW OF VENDOR ENTRY
|
||
PRINT1 | ;ENTER HERE TO PRINT THE REPORT
|
|
PRINT2 | ;PRINT EACH ENTRY SELECTED HERE
|
|
PRINTQ | ||
PRINTQ1 | ||
FIELD(IEN,FIELD) | ;FETCH EXTERNAL VALUE OF FIELD
|
|
VRQ | ; SEND THIS ENTRY TO VRQ REVIEW OR AUSTIN, AS NEEDED.
; DO THIS ONLY FOR THOSE RECORDS IN THE "AR" NODE THAT ARE SET ; TO "OK" IN THE OK FIELD (#53). |
|
VRQEX | ; NOW THAT THE VRQ IS SENT LETS EXIT THIS PROTOCOL
|
|
ADD | ; UPDATE LIST MANAGER LINE NOTEING THAT THIS RECORD WAS SENT.
|
|
PAUSE | ; LET USER READ MESSAGE, THEN CONTINUE.
|
|
FIELD1(IEN,FIELD) | ;
; FETCH EXTERNAL VALUE OF FIELD. ; FOR RECORD 'IEN' FROM FILE 440.3. |
|
OUT | ; REMOVE ONE RECORD FROM THE 'AR EDIT LIST'.
|
|
OUT1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PRC(440 - [#440] | Classic Fileman Calls |
^PRC(440.3 - [#440.3] | Classic Fileman Calls |