Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PRCOVL1

Package: IFCAP

Routine: PRCOVL1


Information

PRCOVL1 ;WISC/DJM/BGJ-IFCAP AR VENDOR EDIT ROUTINE CONTINUED ;[10/19/98 12:05pm]

Source Information

Source file <PRCOVL1.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**7**;Oct 20, 2000
PRINT ;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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !!," No printer selected -- quitting."
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !!,?9,"VENDOR Review"
  • Line Location: PRINT2+8
Function Call: WRITE
  • Prompt: ?38
  • Line Location: PRINT2+9
Function Call: WRITE
  • Prompt: Y
  • Line Location: PRINT2+12
Function Call: WRITE
  • Prompt: ?70,"PAGE: "_PN
  • Line Location: PRINT2+13
Function Call: WRITE
  • Prompt: !!,?11,"Vendor Name: "_$$FIELD(IEN,.01)
  • Line Location: PRINT2+14
Function Call: WRITE
  • Prompt: !,?6,"Ordering Address: "_$$FIELD(IEN,1)
  • Line Location: PRINT2+15
Function Call: WRITE
  • Prompt: !,X
  • Line Location: PRINT2+21
Function Call: WRITE
  • Prompt: !!," FMS Name: "_$$FIELD(IEN,34.5)
  • Line Location: PRINT2+22
Function Call: WRITE
  • Prompt: !!," * Payment ADDRESS: "_$$FIELD(IEN,17.3)
  • Line Location: PRINT2+23
Function Call: WRITE
  • Prompt: !,SPACE,$$FIELD(IEN,17.4)
  • Line Location: PRINT2+24
Function Call: WRITE
  • Prompt: !,X
  • Line Location: PRINT2+31
Function Call: WRITE
  • Prompt: !!,"PAYMENT CONTACT PERSON: "_$$FIELD(IEN,17)
  • Line Location: PRINT2+32
Function Call: WRITE
  • Prompt: !," PAYMENT PHONE NUMBER: "_$$FIELD(IEN,7.2)
  • Line Location: PRINT2+33
Function Call: WRITE
  • Prompt: !!,?7,"FMS VENDOR CODE: "_$$FIELD(IEN,34)
  • Line Location: PRINT2+34
Function Call: WRITE
  • Prompt: !,?10,"ALT-ADDR-IND: "_$$FIELD(IEN,35)
  • Line Location: PRINT2+35
Function Call: WRITE
  • Prompt: !," * TAX ID/SSN: "_$$FIELD(IEN,38)
  • Line Location: PRINT2+36
Function Call: WRITE
  • Prompt: !," * SSN/TAX ID IND: "_$$FIELD(IEN,39)
  • Line Location: PRINT2+37
Function Call: WRITE
  • Prompt: !!,?8,"NON-RECURRING/"
  • Line Location: PRINT2+38
Function Call: WRITE
  • Prompt: !,?6,"RECURRING VENDOR: "_$$FIELD(IEN,36)
  • Line Location: PRINT2+39
Function Call: WRITE
  • Prompt: !!," 1099 VENDOR INDICATOR: "_$$FIELD(IEN,41)
  • Line Location: PRINT2+40
Function Call: WRITE
  • Prompt: !," * VENDOR TYPE: "_$$FIELD(IEN,44)
  • Line Location: PRINT2+41
Function Call: WRITE
  • Prompt: !,?6,"DUN & BRADSTREET: "_$$FIELD(IEN,18.3)
  • Line Location: PRINT2+42
Function Call: WRITE
  • Prompt: !!," * = REQUIRED FIELD"
  • Line Location: PRINT2+43
Function Call: WRITE
  • Prompt: !!,"This record in now properly vendorized. You may delete it."
  • Line Location: VRQ+17
Function Call: WRITE
  • Prompt: !!,"This record is sent. It needs to be removed."
  • Line Location: VRQ+19
Function Call: WRITE
  • Prompt: !,"This entry can not become a VRQ yet. Re-edit it."
  • Line Location: VRQ+20
Function Call: WRITE
  • Prompt: !!,"This record needs to be edited first."
  • Line Location: OUT+9
Function Call: WRITE
  • Prompt: !!,"This record needs to be sent first."
  • Line Location: OUT+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRC(440 - [#440] Classic Fileman Calls
^PRC(440.3 - [#440.3] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call