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

Package: IFCAP

Routine: PRCFAC3


Information

PRCFAC3 ;WISC/CTB/CLH/SJG/AS-ACCOUNTING MODULE ;3/24/17 13:12

Source Information

Source file <PRCFAC3.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
IFCAP 5 (DISPLAY,EDIT,GET)^PRCFAC31  HILO^PRCFQ  ^PRCFSITE  VEDIT^PRCHE1A  ONECHK^PRCVNDR  
VA FileMan 5 %XY^%RCR  ^DIC  ^DIE  EN^DIQ  ^DIR  
Toolkit 1 $$GET^XPAR  

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 7 PRCFA VENDOR FILE EDIT  PRCFA VENDOR ID LOOKUP  PRCFAC31  PRCFALOG  PRCFD VENDOR EDIT  PRCFDE2  PRCORV1  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**81,198**;Oct 20, 2000;Build 6
E10 ; Enter FMS Vendor Code Numbers into Vendor File
OUT10
E10A ; No adding by Fiscal/editing only
E10A1
E10B ; Adding/editing by Fiscal
E10B1
E11 ;LOOK VENDOR NUMBER
OUT11
E12 ;;INQUIRE TO CODE SHEET ERROR MESSAGE
E13 ;ADD/EDIT CODE SHEET ERROR MESSAGE
E14 ;INQUIRE TO TRANSMISSION RECORD
INFO ; Get/Print Vendor Payment Information
SCREEN ; Control screen display
HDR ; Write Option Header
WARN ;WARNING IF PENDING VRQ

External References

Name Field # of Occurrence
%XY^%RCR E10A1+7, E10B1+9
^DIC E10A1+1, E10B1+2, E11+3, E11+4, E12+1, E13+1, E14+3
^DIE E10A1+10, E10B1+12, E13+1
EN^DIQ E12+1, E14+3
^DIR INFO+2
DISPLAY^PRCFAC31 INFO+4
EDIT^PRCFAC31 E10A1+2, E10B1+4
GET^PRCFAC31 INFO+4
HILO^PRCFQ E10+2, E11+1
^PRCFSITE E10+3
VEDIT^PRCHE1A E10A1+10, E10B1+12
ONECHK^PRCVNDR E10A1+13, E10B1+15
$$GET^XPAR E10A1+13, E10B1+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Only Supply may add new Vendors to the Vendor File",!,"but Fiscal may edit payment information.",!!
  • Line Location: E10A+1
Function Call: WRITE
  • Prompt: !
  • Line Location: E10A1+0
Function Call: WRITE
  • Prompt: !!,"No further action is being taken on this Vendor.",!
  • Line Location: E10A1+4
Function Call: WRITE
  • Prompt: !,$C(7),"Another user is editing this entry!"
  • Line Location: E10A1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: E10A1+10
Function Call: WRITE
  • Prompt: !!,"Fiscal may add new Vendors to the Vendor File.",!!
  • Line Location: E10B+1
Function Call: WRITE
  • Prompt: !
  • Line Location: E10B1+0
Function Call: WRITE
  • Prompt: !!,"No further action is being taken on this Vendor.",!
  • Line Location: E10B1+6
Function Call: WRITE
  • Prompt: !,$C(7),"Another user is editing this entry!"
  • Line Location: E10B1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: E10B1+12
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:30)
  • Line Location: E11+2
Function Call: WRITE
  • Prompt: !,"Select Vendor Name or PO Number: "
  • Line Location: E11+2
Function Call: WRITE
  • Prompt: !!?25,$C(7),"No Vendor for this obligation number.",!
  • Line Location: E11+4
Function Call: WRITE
  • Prompt: !,$P(^PRC(440,PRCFA("VEND"),0),"^")
  • Line Location: E11+5
Function Call: WRITE
  • Prompt: !
  • Line Location: E13+1
Function Call: WRITE
  • Prompt: !!,$C(7),"No payment information in Vendor File.",!!
  • Line Location: INFO+1
Function Call: WRITE
  • Prompt: !
  • Line Location: INFO+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SCREEN+1
Function Call: WRITE
  • Prompt: IOINHI,$P(XQY0,U,2),IOINORM,!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,"There is a FMS Vendor Request pending for this vendor.",!,"Any changes you make now may be overwritten when the Vendor",!,"Update is received.",!!
  • Line Location: WARN+1
Routine Call
  • DIC
  • Line Location:
    • E10A1+1
    • E10B1+2
    • E11+3
    • E11+4
    • E12+1
    • E13+1
    • E14+3
Routine Call
  • DIE
  • Line Location:
    • E10A1+10
    • E10B1+12
    • E13+1
Routine Call
  • DIR
  • Line Location:
    • INFO+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCF(421.3 - [#421.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(440 - [#440] E10A1+6, E10A1+11, E10B1+1, E10B1+3*, E10B1+8, E10B1+13, E11+5, INFO+1, WARN+1
^PRC(440.3 - [#440.3] E10A1+7!, E10B1+9!
^PRC(442 - [#442] E11+4
^XUSEC("PRCFA VENDOR EDIT" E10A1+9, E10B1+11

Label References

Name Line Occurrences
@( E10+6
E10A1 E10A1+4, E10A1+6, E10A1+14
E10B1 E10B1+6, E10B1+8, E10B1+16
E11 E11+3, E11+4, E11+5
E12 E12+1
E13 E13+1
E14 E14+3
INFO E10A1+2, E10B1+4, E11+3, E11+5
OUT11 E11+2, E11+3
SCREEN E10+4, E10A1+5, E10B1+7
WARN E10A1+8, E10B1+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% E10+3, OUT11!, E12+2!, E13+2!, E14+4!
%DT E13+2!
%W OUT10!, OUT11!
%X OUT10!, E10A1+7*, E10B1+9*
%Y OUT10!, E10A1+7*, E10B1+9*, OUT11!, E12+2!
A E12+2!, E14+4!
D0 OUT10!, E12+2!, E13+2!, E14+4!
D1 E12+2!
DA OUT10!, E10A1+2*, E10A1+6, E10A1+7, E10B1+4*, E10B1+8, E10B1+9, E11+3*, E11+4*, OUT11!
E12+1*, E12+2!, E13+1*, E13+2!, E14+3*, E14+4!, WARN+1
DIC OUT10!, E10A1*, E10A1+9, E10B1*, E10B1+11, E11+3*, E11+4*, OUT11!, E12+1*, E12+2!
E13+1*, E13+2!, E14+3*, E14+4!
DIC("S" E10A1*, E10B1*, E14+3*
DIC(0 E10A1*, E10B1*, E11+3*, E11+4*, E12+1*, E13+1*, E14+3*
DIE OUT10!, E10A1+9*, E10A1+10!, E10B1+11*, E10B1+12!, E13+1*, E13+2!
DIR INFO+2!
DIR("A" INFO+2*
DIR("B" INFO+2*
DIR(0 INFO+2*
DIRUT OUT10!, E10A1+3, E10B1+5, INFO+3
DIW E12+2!
DIWF E12+2!
DIWL E12+2!
DIWR E12+2!
DIWT E12+2!
DL E12+2!, E14+4!
DLAYGO E10B1*, E10B1+2!, E13+1*!
DN E12+2!
DQ OUT10!, E13+2!
DR OUT10!, E10A1+9*, E10A1+10!, E10B1+11*, E10B1+12!, E12+1*, E12+2!, E13+1*, E13+2!, E14+3*
E14+4!
DRX E14+4!
DTIME E11+2
DUZ E10A1+9, E10B1+11
DWLW E13+2!
DX E12+2!, E14+4!
I OUT10!, OUT11!, E12+2!, E13+2!
IOF SCREEN+1
IOINHI OUT10+1!, OUT11+1!, HDR+1
IOINLO OUT11+1!
IOINLOW OUT10+1!
IOINORM OUT10+1!, HDR+1
IONORM OUT11+1!
J OUT10!, E12+2!, E13+2!
K OUT10!, E12+2!
ORDER E10A1+10!, E10B1+12!
>> PRC("PARAM" E10+5
>> PRC("SITE" E10A1+10, E10B1+12
PRCF E10+1~
PRCF("X" E10+3*
PRCFA OUT10+1!, OUT11+1!
PRCFA("FISCVEND" E10+5*, E10+6, E10A+1, E10B+1
PRCFA("VEND" E10A1+2*, E10A1+10, E10A1+11, E10A1+13, E10B1+4*, E10B1+12, E10B1+13, E10B1+15, E11+3*, E11+4*
E11+5, INFO+1, INFO+4
>> PRCFASYS E14+1*, E14+2*
PRCIENB4 E10B+2~, E10B1+1*, E10B1+3
PRCTMP OUT10+1!, E10A1+2!, E10B1+4!, OUT11+1!
S E12+2!, E14+4!
TAG E10+1~, E10+6*
U E10+5, E10B1+1, E10B1+3, E11+4, HDR+1, WARN+1
X OUT10!, E11+2*, E11+3, E11+4*, OUT11!, E12+2!, E13+2!, E14+4!
X1 E11+3*, E11+4, OUT11!, E13+2!
>> XQY0 HDR+1
Y OUT10!, E10A1+1, E10A1+2, E10A1+4, E10B1+2, E10B1+3, E10B1+4, E10B1+6, E11+3, E11+4
, OUT11!, E12+1, E12+2!, E13+1, E13+2!, E14+3, E14+4!, INFO+3
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