Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
List Manager 4 EN^VALM  ($$SETFLD,FULL)^VALM1  (CLEAN,SET)^VALM10  EN^VALM2  
Kernel 3 ^%ZIS  ENDR^%ZISS  DISP^XQORM1  
VA FileMan 3 ^DIE  EN^DIQ1  ^DIR  
IFCAP 2 HILO^PRCFQ  $$CHECK^PRCOVTST  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
IFCAP 6 PRCO AR EDIT  PRCO AR REVIEW RECORD  PRCO AR SUPPLY VENDOR EDIT  PRCO AR VENDOR EDIT  PRCO VENDOR EDIT FOR AR  PRCOVL1  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
^%ZIS EN+8
ENDR^%ZISS EN+9
^DIE EDIT+32, EDIT+44
EN^DIQ1 REV1+3
^DIR NONE1+2, REV1+30, REV1+51, EDIT+20, DOIT+7
HILO^PRCFQ EDIT+14
$$CHECK^PRCOVTST EDIT+38
EN^VALM EN+12
$$SETFLD^VALM1 INITA+19, INITA+20, INITA+21, INITA+22, INITA+23, EDIT+47, EDIT+48
FULL^VALM1 REV+7, EDIT+10
CLEAN^VALM10 INITA
SET^VALM10 INITA+25
EN^VALM2 REV+2, EDIT+2
DISP^XQORM1 HELP+1

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
Routine Call
  • %ZIS
  • Line Location:
    • EN+8
Routine Call
  • DIE
  • Line Location:
    • EDIT+32
    • EDIT+44
Routine Call
  • DIR
  • Line Location:
    • NONE1+2
    • REV1+30
    • REV1+51
    • EDIT+20
    • DOIT+7
Routine Call
  • VALM
  • Line Location:
    • EN+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRC(440 - [#440] Classic Fileman Calls
^PRC(440.3 - [#440.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("XY" EN+11
^PRC(440 - [#440] INITA+7, INITA+18, EDIT+12, EDIT+29, EDIT+40, EDIT+50
^PRC(440.3 - [#440.3] INIT+4, INITA+4, INITA+6, INITA+8, INITA+9!, INITA+10!, INITA+11!, INITA+14, INITA+16, INITA+17
, EDIT+8, EDIT+34
^PRCF(422.2 - [#422.2] EN+2, EN+3, INITA+31, INITA+32*
^TMP("PRCOVL" INIT+1!, INITA+26*, REV+5, EDIT+6

Label References

Name Line Occurrences
$$FIELD REV1+5, REV1+7, REV1+8, REV1+10, REV1+11, REV1+12, REV1+14, REV1+15, REV1+16, REV1+17
, REV1+18, REV1+20, REV1+21, REV1+22, REV1+24, REV1+25, REV1+35, REV1+37, REV1+38, REV1+39
, REV1+40, REV1+42, REV1+43, REV1+44, REV1+45
DOIT EDIT+26
EDITEX EDIT+9, EDIT+23, EDIT+27, EDIT+29
NONE EN+2, EN+3, INIT+4
NONE1 EDIT+9
REV1 EDIT+24
REVEXIT REV1+33
REVQ REV+4, REVEXIT, EDIT+5
SCREEN EDIT+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ARFLG EDIT+34*, EDIT+35, EDIT+36, EDIT+37
COUNT EN+2*, EN+3*, EN+4!, INITA+1*, INITA+15*, INITA+19, INITA+25, INITA+26, INITA+30, INITA+32
DA REV+1~, REV1+2*, EDIT+15*, EDIT+29, EDIT+41*
DIC REV+1~, REV1+2*
DIE EDIT+30*, EDIT+33!, EDIT+42*
DIQ REV+1~, REV1+2*
DIQ(0 REV1+2*
DIR NONE1+3!, REV+1~, REV1+31!, REV1+52!, EDIT+21!, DOIT+8!
DIR("?" DOIT+5*, DOIT+6*
DIR("A" NONE1+1*, REV1+50*, EDIT+18*, DOIT+3*
DIR("B" EDIT+19*, DOIT+4*
DIR(0 NONE1*, REV1+29*, REV1+49*, EDIT+17*, DOIT+2*
>> DIRUT EDIT+23, EDIT+27
DR REV+1~, REV1+2*, EDIT+31*, EDIT+33!, EDIT+43*
FIELD FIELD~, FIELD+2*, FIELD+3
>> FLAG EDIT+37*, EDIT+38
IEN REV+1~, REV+6*, REV1+2, REV1+5, REV1+7, REV1+8, REV1+10, REV1+11, REV1+12, REV1+14
, REV1+15, REV1+16, REV1+17, REV1+18, REV1+20, REV1+21, REV1+22, REV1+24, REV1+25, REV1+35
, REV1+37, REV1+38, REV1+39, REV1+40, REV1+42, REV1+43, REV1+44, REV1+45, FIELD~, FIELD+2
, EDIT+1~, EDIT+7*, EDIT+8, EDIT+12, EDIT+15, EDIT+35*, EDIT+38, EDIT+40, EDIT+41
IOF EN+8, REV1, REV1+34, EDIT+11, EDIT+24, SCREEN+1
>> IOINHI SCREEN+3
>> IOINORM SCREEN+3
IOP EN+8*!
>> IORVOFF EN+10
>> IORVON EN+10
IOST(0 EN+8
>> LINENO INITA+2*, INITA+24*, INITA+25, INITA+26
>> LIST INITA+5*, INITA+6*, INITA+7, INITA+8, INITA+9, INITA+10, INITA+11, INITA+14, INITA+26
>> LN INITA+31*, INITA+32
>> LOCAT EDIT+31
>> LOST INIT+2*
>> NAME INIT+3*, INIT+4, INITA+3*, INITA+4*, INITA+6, INITA+7*, INITA+10, INITA+11, INITA+14, INITA+20
, EDIT+12*, EDIT+13
>> OK INITA+17*, INITA+22, EDIT+46*, EDIT+47
ORDER EDIT+33!
>> PRC("SITE" EDIT+36*, EDIT+38
>> PRCFA("VEND" EDIT+15*, EDIT+34, EDIT+50
>> PRCO("RV0" EN+10*
>> PRCO("RV1" EN+10*
>> PRCO("XY" EN+11*
PRCOI REV+1~, REV+3*, REV+4*, REV+5, EDIT+1~, EDIT+3*, EDIT+4*, EDIT+5, EDIT+6, EDIT+45
, EDIT+49
PRCOIN REV+1~, REV+5*, REV+6, EDIT+1~, EDIT+6*, EDIT+7
PRCORVP REV1+1!
PRCORVP(440 FIELD+2
PRCTMP EDIT+25!
RETURN REVEXIT, EDIT+1~, EDIT+24*, EDIT+25!
>> SAVE EDIT+38*, EDIT+39, EDIT+43, EDIT+46
>> SAVE1 EDIT+39*
>> SENT INITA+16*, INITA+23, EDIT+8*, EDIT+9
SPACE REV+1~, REV1+4*, REV1+8, REV1+17, REV1+18
>> TAX INITA+18*, INITA+21, EDIT+40*, EDIT+48
U EN+3, INITA+7, INITA+16, INITA+17, INITA+18, INITA+32, REV+6, EDIT+7, EDIT+8, EDIT+12
, EDIT+35, EDIT+36, EDIT+37, EDIT+40, SCREEN+3
>> VALMAR EDIT+45, EDIT+49
>> VALMBCK REVEXIT+1*, EDITEX*
>> VALMBG REVEXIT+1*, EDITEX*
>> VALMCNT INITA+30*
>> VALMHDR(1 HDR+1*
VALMY REV+1~
VALMY( REV+4, EDIT+4
>> VDA INITA+13*, INITA+14*, INITA+16, INITA+17, INITA+18
>> X EN+9*, INITA+19*, INITA+20*, INITA+21*, INITA+22*, INITA+23*, INITA+25, HELP+1*, REV1+9*, REV1+10*
, REV1+11*, REV1+12*, REV1+13, REV1+19*, REV1+20*, REV1+21*, REV1+22*, REV1+23, EDIT+45*, EDIT+47*
, EDIT+48*, EDIT+49
>> XQORNOD(0 REV+2, EDIT+2
>> XQY0 SCREEN+3
Y REV+1~, REV1+33, EDIT+24, EDIT+27
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All