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

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 4 (NOW,YX)^%DTC  ^DIE  EN^DIQ1  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
IFCAP 2 INITA^PRCOVL  VRQS^PRCOVTST  
List Manager 2 ($$SETFLD,FULL)^VALM1  EN^VALM2  

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

Package Total Caller Graph
IFCAP 3 PRCO AR DELETE  PRCO AR PRINT ENTRY  PRCO AR SEND VRQ  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
NOW^%DTC PRINT2+10
YX^%DTC PRINT2+11
^%ZIS PRINT+10
^%ZISC PRINTQ+2
^%ZTLOAD PRINT+17
^DIE VRQ+28, VRQ+38, OUT1+4
EN^DIQ1 PRINT2+3, VRQ+15
^DIR PAUSE+3
INITA^PRCOVL OUT1+10
VRQS^PRCOVTST VRQ+34
$$SETFLD^VALM1 ADD+4
FULL^VALM1 PRINT+5
EN^VALM2 PRINT+3, VRQ+3, OUT+1

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
Routine Call
  • DIE
  • Line Location:
    • VRQ+28
    • VRQ+38
    • OUT1+4
Routine Call
  • DIR
  • Line Location:
    • PAUSE+3
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+10

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)
^PRC(411 - [#411] VRQ+22
^PRC(440.3 - [#440.3] OUT+7, OUT+10, OUT1+9!
^PRCF(422.2 - [#422.2] OUT1+5, OUT1+6, OUT1+8*
^TMP("PRCOVL" PRINT1+5, VRQ+7, OUT+5

Label References

Name Line Occurrences
$$FIELD PRINT2+14, PRINT2+15, PRINT2+16, PRINT2+18, PRINT2+19, PRINT2+20, PRINT2+22, PRINT2+23, PRINT2+24, PRINT2+25
, PRINT2+26, PRINT2+28, PRINT2+29, PRINT2+30, PRINT2+32, PRINT2+33, PRINT2+34, PRINT2+35, PRINT2+36, PRINT2+37
, PRINT2+39, PRINT2+40, PRINT2+41, PRINT2+42
$$FIELD1 VRQ+16, VRQ+18, VRQ+21
ADD VRQ+23, VRQ+39
OUT1 OUT+8
PAUSE VRQ+17, VRQ+19, VRQ+20, OUT+9, OUT+11
PRINT2 PRINT1+8
PRINTQ PRINT+11, PRINT+12, PRINT1+9
VRQEX VRQ+6, VRQ+17, VRQ+19, VRQ+20, VRQ+23, OUT+4, OUT+9, OUT+11, OUT1+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT1+1~
%H PRINT1+1~
%I PRINT1+1~
%ZIS PRINT+2~, PRINT+8*
%ZIS("A" PRINT+8*
%ZIS("B" PRINT+8*
%ZIS("S" PRINT+9*
AA PRINT+2~
>> COUNT OUT1+6*, OUT1+7*, OUT1+8
DA PRINT1+1~, PRINT2+2*, VRQ+11*, OUT1+2*
DIC PRINT1+1~, PRINT2+2*, VRQ+10*
>> DIE VRQ+25*, VRQ+35*, OUT1+1*
DIQ PRINT1+1~, PRINT2+2*, VRQ+13*
DIQ(0 PRINT2+2*, VRQ+14*
DIR PAUSE+4!
DIR("A" PAUSE+2*
DIR(0 PAUSE+1*
>> DR PRINT2+2*, VRQ+12*, VRQ+27*, VRQ+37*, OUT1+3*
FIELD PRINT1+1~, FIELD~, FIELD+2*, FIELD+3, FIELD1~, FIELD1+3*, FIELD1+4
>> FISCAL VRQ+22*, VRQ+23
>> FLAG VRQ+24*, OUT1*
IEN PRINT1+1~, PRINT1+6*, PRINT2+2, PRINT2+14, PRINT2+15, PRINT2+16, PRINT2+18, PRINT2+19, PRINT2+20, PRINT2+22
, PRINT2+23, PRINT2+24, PRINT2+25, PRINT2+26, PRINT2+28, PRINT2+29, PRINT2+30, PRINT2+32, PRINT2+33, PRINT2+34
, PRINT2+35, PRINT2+36, PRINT2+37, PRINT2+39, PRINT2+40, PRINT2+41, PRINT2+42, FIELD~, FIELD+2, VRQ+8*
, VRQ+11, VRQ+16, VRQ+18, VRQ+21, VRQ+34, FIELD1~, FIELD1+3, OUT+6*, OUT+7, OUT+10
, OUT1+2, OUT1+9
IO PRINT2+5
IO("Q" PRINT+7!, PRINT+12!
IOF PRINT+6, PRINT2+6
>> OK VRQ+16*, VRQ+17, VRQ+20, OUT+7*, OUT+8, OUT+9, OUT1+9
>> OUT OUT1+5*, OUT1+6, OUT1+8
PN PRINT1+1~, PRINT1+2*, PRINT1+7*, PRINT2+7, PRINT2+13
POP PRINT+2~, PRINT+11
PRCOI PRINT1+1~, PRINT1+2*, PRINT1+4*, PRINT1+5, VRQ+4*, VRQ+5*, VRQ+6, VRQ+7, ADD+2, ADD+5
, OUT+2*, OUT+3*, OUT+4, OUT+5
PRCOIN PRINT1+1~, PRINT1+5*, PRINT1+6, VRQ+7*, VRQ+8, OUT+5*, OUT+6
PRCORVP VRQ+9!
PRCORVP( FIELD1+3
PRCOVL1 PRINT2+1!
PRCOVL1(440 FIELD+2
>> SENT VRQ+18*, VRQ+19, VRQ+26*, VRQ+36*, ADD+3*, ADD+4, OUT+10*, OUT+11
>> SITE VRQ+21*, VRQ+22, VRQ+34
SPACE PRINT1+1~, PRINT2+4*, PRINT2+16, PRINT2+24, PRINT2+25, PRINT2+26
U PRINT1+6, VRQ+8, VRQ+23, OUT+6, OUT+7, OUT+10, OUT1+6, OUT1+8
>> VALMAR ADD+2, ADD+5
>> VALMBCK PRINTQ*, VRQEX+1*
>> VALMBG PRINTQ*, VRQEX+1*
>> VALMY PRINT+4
>> VALMY( PRINT1+4, VRQ+5, OUT+3
X PRINT1+1~, PRINT2+17*, PRINT2+18*, PRINT2+19*, PRINT2+20*, PRINT2+21, PRINT2+27*, PRINT2+28*, PRINT2+29*, PRINT2+30*
, PRINT2+31, ADD+2*, ADD+4*, ADD+5
>> XQORNOD(0 PRINT+3, VRQ+3, OUT+1
Y PRINT1+1~, PRINT2+12
>> ZTDESC PRINT+16*
>> ZTQUEUED PRINT2+7, PRINTQ+1
>> ZTREQ PRINTQ+1*
>> ZTRTN PRINT+13*
>> ZTSAVE("VALMY(" PRINT+14*
>> ZTSAVE("^TMP(""PRCOVL1"",$J," PRINT+15*
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