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: PRCOVL

Package: IFCAP

Routine: PRCOVL


Information

PRCOVL ;WISC/DKM/BGJ-IFCAP AR VENDOR EDIT ROUTINE ;[10/19/98 2:36pm]

Source Information

Source file <PRCOVL.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**7**;Oct 20, 2000
EN ; -- main entry point for PRCO VENDOR EDIT FOR AR
; FIRST LETS SEE IF THERE ARE ANY VENDOR RECORDS TO EDIT.
HDR ; -- header code
INIT ; -- init variables and list array
INITA
HELP ; -- help code
EXIT ; -- exit code
EXPND ; -- expand code
NONE ; COME HERE IF THERE ARE NO VENDOR RECORDS TO EDIT.
NONE1
REV ;COMPLETE REVIEW OF VENDOR ENTRY
REV1
REVEXIT
REVQ
FIELD(IEN,FIELD) ;FETCH EXTERNAL VALUE OF FIELD
EDIT ;EDIT THIS VENDOR
EDITEX
DOIT ;FIND OUT IF USER WANTS TO EDIT VENDOR RECORD
SCREEN ; Control screen display

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Vendor records to edit."
  • Line Location: INIT+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"There are no vendor records to edit at this time."
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REV1+0
Function Call: WRITE
  • Prompt: !!," Vendor Name: "_$$FIELD(IEN,.01)
  • Line Location: REV1+5
Function Call: WRITE
  • Prompt: ?70,"PAGE: 1"
  • Line Location: REV1+6
Function Call: WRITE
  • Prompt: !," Ordering Address: "_$$FIELD(IEN,1)
  • Line Location: REV1+7
Function Call: WRITE
  • Prompt: !,X
  • Line Location: REV1+13
Function Call: WRITE
  • Prompt: !!," FMS Name: "_$$FIELD(IEN,34.5)
  • Line Location: REV1+14
Function Call: WRITE
  • Prompt: !!," * Payment ADDRESS: "_$$FIELD(IEN,17.3)
  • Line Location: REV1+15
Function Call: WRITE
  • Prompt: !," "_$$FIELD(IEN,17.4)
  • Line Location: REV1+16
Function Call: WRITE
  • Prompt: !,X
  • Line Location: REV1+23
Function Call: WRITE
  • Prompt: !!,"PAYMENT CONTACT PERSON: "_$$FIELD(IEN,17)
  • Line Location: REV1+24
Function Call: WRITE
  • Prompt: !," PAYMENT PHONE NUMBER: "_$$FIELD(IEN,7.2)
  • Line Location: REV1+25
Function Call: WRITE
  • Prompt: !
  • Line Location: REV1+26
Function Call: WRITE
  • Prompt: !," * = REQUIRED FIELD"
  • Line Location: REV1+27
Function Call: WRITE
  • Prompt: !
  • Line Location: REV1+28
Function Call: WRITE
  • Prompt: !
  • Line Location: REV1+32
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REV1+34
Function Call: WRITE
  • Prompt: !!," Vendor Name: "_$$FIELD(IEN,.01)
  • Line Location: REV1+35
Function Call: WRITE
  • Prompt: ?70,"PAGE: 2"
  • Line Location: REV1+36
Function Call: WRITE
  • Prompt: !!," FMS VENDOR CODE: "_$$FIELD(IEN,34)
  • Line Location: REV1+37
Function Call: WRITE
  • Prompt: !," ALT-ADDR-IND: "_$$FIELD(IEN,35)
  • Line Location: REV1+38
Function Call: WRITE
  • Prompt: !," * TAX ID/SSN: "_$$FIELD(IEN,38)
  • Line Location: REV1+39
Function Call: WRITE
  • Prompt: !," * SSN/TAX ID IND: "_$$FIELD(IEN,39)
  • Line Location: REV1+40
Function Call: WRITE
  • Prompt: !!," NON-RECURRING/"
  • Line Location: REV1+41
Function Call: WRITE
  • Prompt: !," RECURRUNG VENDOR: "_$$FIELD(IEN,36)
  • Line Location: REV1+42
Function Call: WRITE
  • Prompt: !!," 1099 VENDOR INDICATOR: "_$$FIELD(IEN,41)
  • Line Location: REV1+43
Function Call: WRITE
  • Prompt: !," * VENDOR TYPE: "_$$FIELD(IEN,44)
  • Line Location: REV1+44
Function Call: WRITE
  • Prompt: !," DUN & BRADSTREET: "_$$FIELD(IEN,18.3)
  • Line Location: REV1+45
Function Call: WRITE
  • Prompt: !
  • Line Location: REV1+46
Function Call: WRITE
  • Prompt: !," * = REQUIRED FIELD"
  • Line Location: REV1+47
Function Call: WRITE
  • Prompt: !
  • Line Location: REV1+48
Function Call: WRITE
  • Prompt: !!,"This record has already been sent to Austin or FISCAL."
  • Line Location: EDIT+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EDIT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EDIT+24
Function Call: WRITE
  • Prompt: !,$C(7),"Another user is editing this entry!"
  • Line Location: EDIT+29
Function Call: WRITE
  • Prompt: !
  • Line Location: DOIT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DOIT+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SCREEN+1
Function Call: WRITE
  • Prompt: IOINHI,$P(XQY0,U,2),IOINORM,!
  • Line Location: SCREEN+3

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