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

Package: IFCAP

Routine: PRCORV


Information

PRCORV ;WISC/DJM/BGJ-IFCAP VRQ REVIEW ROUTINE ;5/8/96 11:00 AM

Source Information

Source file <PRCORV.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  ENDR^%ZISS  ^%ZTLOAD  DISP^XQORM1  
List Manager 4 EN^VALM  ($$SETFLD,CLEAR,FULL)^VALM1  (CLEAN,CNTRL,SET)^VALM10  EN^VALM2  
VA FileMan 3 (NOW,YX)^%DTC  EN^DIQ1  ^DIR  

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 4 PRCO PRINT ENTRY  PRCO VENDOR REVIEW  PRCO VRQ REVIEW  PRCORV1  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**7**;Oct 20, 2000
EN ; -- main entry point for PRCO VENDOR REVIEW
HDR ; -- header code
INIT ; -- init variables and list array
HELP ; -- help code
EXIT ; -- exit code
EXPND ; -- expand code
TERM ; -- get terminal attributes
SET(STRING,LINE,COLUMN,CLREND,ON,OFF) ; -- set array
NODO ;COME HERE IF THERE ARE NO VRQs TO REVIEW.
PRINT ;PRINTING OF A COMPLETE REVIEW OF VENDOR ENTRY
PRINT1 ;ENTER HERE TO PRINT THE REPORT
PRINT2 ;PRINT EACH ENTRY SELECTED HERE
PRINTQ
PRINTQ1
FIELD(FIELD) ;FETCH EXTERNAL VALUE OF FIELD

External References

Name Field # of Occurrence
NOW^%DTC PRINT2+10
YX^%DTC PRINT2+11
^%ZIS TERM+2, PRINT+9
^%ZISC PRINTQ+2
ENDR^%ZISS TERM+3
^%ZTLOAD PRINT+16
EN^DIQ1 PRINT2+3
^DIR NODO+4
EN^VALM EN+7
$$SETFLD^VALM1 INIT+21, INIT+22, INIT+23, INIT+24
CLEAR^VALM1 EXIT+1
FULL^VALM1 PRINT+4
CLEAN^VALM10 INIT+5
CNTRL^VALM10 SET+5
SET^VALM10 INIT+26, SET+2, SET+3, SET+4
EN^VALM2 PRINT+2
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No VRQs to review"
  • Line Location: INIT+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"There are no VRQs for you to review at this time.",!!
  • Line Location: NODO+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!," No printer selected -- quitting."
  • Line Location: PRINT+10
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(.01)
  • Line Location: PRINT2+14
Function Call: WRITE
  • Prompt: !,?6,"Ordering Address: "_$$FIELD(1)
  • Line Location: PRINT2+15
Function Call: WRITE
  • Prompt: !,X
  • Line Location: PRINT2+21
Function Call: WRITE
  • Prompt: !!,?14,"FMS Name: "_$$FIELD(34.5)
  • Line Location: PRINT2+22
Function Call: WRITE
  • Prompt: !!,?7,"Payment ADDRESS: "_$$FIELD(17.3)
  • Line Location: PRINT2+23
Function Call: WRITE
  • Prompt: !,SPACE,$$FIELD(17.4)
  • Line Location: PRINT2+24
Function Call: WRITE
  • Prompt: !,X
  • Line Location: PRINT2+31
Function Call: WRITE
  • Prompt: !!,"PAYMENT CONTACT PERSON: "_$$FIELD(17)
  • Line Location: PRINT2+32
Function Call: WRITE
  • Prompt: !," PAYMENT PHONE NUMBER: "_$$FIELD(7.2)
  • Line Location: PRINT2+33
Function Call: WRITE
  • Prompt: !!,?7,"FMS VENDOR CODE: "_$$FIELD(34)
  • Line Location: PRINT2+34
Function Call: WRITE
  • Prompt: !,?10,"ALT-ADDR-IND: "_$$FIELD(35)
  • Line Location: PRINT2+35
Function Call: WRITE
  • Prompt: !,?12,"TAX ID/SSN: "_$$FIELD(38)
  • Line Location: PRINT2+36
Function Call: WRITE
  • Prompt: !,?8,"SSN/TAX ID IND: "_$$FIELD(39)
  • Line Location: PRINT2+37
Function Call: WRITE
  • Prompt: !!,?8,"NON-RECURRING/"
  • Line Location: PRINT2+38
Function Call: WRITE
  • Prompt: !,?6,"RECURRING VENDOR: "_$$FIELD(36)
  • Line Location: PRINT2+39
Function Call: WRITE
  • Prompt: !!," 1099 VENDOR INDICATOR: "_$$FIELD(41)
  • Line Location: PRINT2+40
Function Call: WRITE
  • Prompt: !,?11,"VENDOR TYPE: "_$$FIELD(44)
  • Line Location: PRINT2+41
Function Call: WRITE
  • Prompt: !,?6,"DUN & BRADSTREET: "_$$FIELD(18.3)
  • Line Location: PRINT2+42
Routine Call
  • DIR
  • Line Location:
    • NODO+4
Routine Call
  • %ZIS
  • Line Location:
    • TERM+2
    • PRINT+9
Routine Call
  • VALM
  • Line Location:
    • EN+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("XY" TERM+5
^PRC(440 - [#440] INIT+10, INIT+17, INIT+18, INIT+20
^PRC(440.3 - [#440.3] INIT+4, INIT+7, INIT+9, INIT+11, INIT+12!, INIT+13!, INIT+15
^PRCF(422.2 - [#422.2] EN+2, EN+3, INIT+32, INIT+33*
^TMP("PRCORV" INIT+2!, INIT+27*, EXIT+2!, PRINT1+5
^TMP($J EXIT+1!

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
NODO EN+2, EN+3
PRINT2 PRINT1+8
PRINTQ PRINT+10, PRINT+11, PRINT1+9
TERM EN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT1+1~
%H PRINT1+1~
%I PRINT1+1~
%ZIS PRINT+1~, PRINT+7*
%ZIS("A" PRINT+7*
%ZIS("B" PRINT+7*
%ZIS("S" PRINT+8*
AA PRINT+1~
ALT INIT+1~, INIT+18*, INIT+19
CLREND SET~
CNT INIT+1~
COLUMN SET~, SET+1*, SET+2, SET+3, SET+4, SET+5
COUNT EN+2*, EN+3*, EN+4!, INIT+1~, INIT+6*, INIT+16*, INIT+21, INIT+26, INIT+27, INIT+31
INIT+33
DA PRINT1+1~, PRINT2+2*
DIC PRINT1+1~, PRINT2+2*
DIQ PRINT1+1~, PRINT2+2*
DIQ(0 PRINT2+2*
DIR NODO+5!
DIR("A" NODO+3*
DIR(0 NODO+2*
>> DR PRINT2+2*
FIELD PRINT1+1~, FIELD~, FIELD+2*, FIELD+3
FMS INIT+1~, INIT+17*, INIT+19*, INIT+23
IEN PRINT1+1~, PRINT1+6*, PRINT2+2, FIELD+2
IO PRINT2+5
IO("Q" PRINT+6!, PRINT+11!
IOF TERM+2, PRINT+5, PRINT2+6
IOP TERM+2*!
>> IORVOFF TERM+4
>> IORVON TERM+4
>> IOST(0 TERM+2
LINE SET~, SET+2, SET+3, SET+4, SET+5
LINENO INIT+1~, INIT+6*, INIT+25*, INIT+26, INIT+27
LIST INIT+1~, INIT+3*, INIT+8*, INIT+9*, INIT+10, INIT+11, INIT+12, INIT+13, INIT+15, INIT+27
>> LN INIT+32*, INIT+33
NAME INIT+1~, INIT+3*, INIT+4, INIT+6*, INIT+7*, INIT+9, INIT+10*, INIT+13, INIT+15, INIT+22
OFF SET~, SET+5
ON SET~, SET+5
PN PRINT1+1~, PRINT1+2*, PRINT1+7*, PRINT2+7, PRINT2+13
POP PRINT+1~, PRINT+10
>> PRCO("RV0" TERM+4*
>> PRCO("RV1" TERM+4*
>> PRCO("XY" TERM+5*
PRCOI PRINT1+1~, PRINT1+2*, PRINT1+4*, PRINT1+5
PRCOIN PRINT1+1~, PRINT1+5*, PRINT1+6
PRCORVP PRINT2+1!
PRCORVP(440 FIELD+2
SPACE PRINT1+1~, PRINT2+4*, PRINT2+16, PRINT2+17, PRINT2+24, PRINT2+25, PRINT2+26, PRINT2+27
STRING SET~, SET+2, SET+4, SET+5
TAX INIT+1~, INIT+20*, INIT+24
U EN+3, INIT+17, INIT+18, INIT+20, INIT+33, PRINT1+6
>> VALMAR SET+3
>> VALMBCK PRINTQ*
>> VALMBG PRINTQ*
>> VALMCNT INIT+31*
>> VALMHDR(1 HDR+1*
>> VALMY PRINT+3
>> VALMY( PRINT1+4
VDA INIT+1~, INIT+14*, INIT+15*, INIT+17, INIT+18, INIT+20
X INIT+21*, INIT+22*, INIT+23*, INIT+24*, INIT+26, HELP+1*, TERM+1~, TERM+3*, PRINT1+1~, PRINT2+17*
PRINT2+18*, PRINT2+19*, PRINT2+20*, PRINT2+21, PRINT2+27*, PRINT2+28*, PRINT2+29*, PRINT2+30*, PRINT2+31
>> XQORNOD(0 PRINT+2
Y PRINT1+1~, PRINT2+12
>> ZTDESC PRINT+15*
>> ZTQUEUED PRINT2+7, PRINTQ+1
>> ZTREQ PRINTQ+1*
>> ZTRTN PRINT+12*
>> ZTSAVE("VALMY(" PRINT+13*
>> ZTSAVE("^TMP(""PRCORV"",$J," PRINT+14*
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