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

Package: IFCAP

Routine: PRCBVE


Information

PRCBVE ;WISC@ALTOONA/CLH-ADD/EDIT CALM VENDOR FILE ;9-21-89/09:27

Source Information

Source file <PRCBVE.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIE  ^DIK  
IFCAP 1 (,WAIT)^PRCFYN  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
GN ;GET TEMP NUM
EN ;ADD VENDOR
ENV
ADVEN ;AREA TO SET UP MSG FOR AUSTIN TO ESTABLISH NEW VENDOR
SET ;MOVE TEMP INFO FROM 421.6 TO 440
OUT
REVO ;REVIEW OLD VENDOR INFO
REVN ;REVIEW NEW VENDOR INFO

External References

Name Field # of Occurrence
^DIC GN+2
^DIE ENV
^DIK GN+2, OUT
^PRCFYN EN+1, ENV, ENV+1, ENV+2, ENV+3
WAIT^PRCFYN GN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Twix will be sent to establish vendor: ",$P(^PRC(440,PRCB("VEN"),0),U)," in the CALM Vendor File."
  • Line Location: ADVEN+1
Function Call: WRITE
  • Prompt: !!,"I'm going to update the your Vendor File..."
  • Line Location: SET+1
Function Call: WRITE
  • Prompt: !!,"Finished. Hold on while I do some clean up...."
  • Line Location: SET+8
Function Call: WRITE
  • Prompt: !!,$C(7),"** No Vendor Information available **"
  • Line Location: REVO+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REVO+4
Function Call: WRITE
  • Prompt: !!?5,"Vendor Name: ",$P(REC,U,1),?48,"Vendor Number: ",PRCB("VEN")
  • Line Location: REVO+5
Function Call: WRITE
  • Prompt: !!!?5,"Payment Information: "
  • Line Location: REVO+6
Function Call: WRITE
  • Prompt: $P(REC1,U,10)
  • Line Location: REVO+7
Function Call: WRITE
  • Prompt: ?35,$P(REC1,U,11)
  • Line Location: REVO+8
Function Call: WRITE
  • Prompt: ?35,$P(REC1,U,3)
  • Line Location: REVO+9
Function Call: WRITE
  • Prompt: !?35,$P(REC1,U,4)
  • Line Location: REVO+10
Function Call: WRITE
  • Prompt: !?35,$P(REC1,U,5)
  • Line Location: REVO+11
Function Call: WRITE
  • Prompt: !?35,$P(REC1,U,6)
  • Line Location: REVO+12
Function Call: WRITE
  • Prompt: !?35,$P(REC1,U,7)_", ",$P(^DIC(5,$P(REC1,U,8),0),U)_" ",$P(REC1,U,9)
  • Line Location: REVO+13
Function Call: WRITE
  • Prompt: ?35,$P(REC1,U,2)
  • Line Location: REVO+14
Function Call: WRITE
  • Prompt: !,$C(7)," - No Data Entered - "
  • Line Location: REVN+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REVN+3
Function Call: WRITE
  • Prompt: !!?5,"Vendor Name: ",$P(^PRC(440,PRCB("VEN"),0),U)
  • Line Location: REVN+4
Function Call: WRITE
  • Prompt: !!!?5,"Payment Information: "
  • Line Location: REVN+5
Function Call: WRITE
  • Prompt: $P(TEMP1,U,1)
  • Line Location: REVN+6
Function Call: WRITE
  • Prompt: ?35,$P(TEMP1,U,10)
  • Line Location: REVN+7
Function Call: WRITE
  • Prompt: ?35,$P(TEMP1,U,3)
  • Line Location: REVN+8
Function Call: WRITE
  • Prompt: !?35,$P(TEMP1,U,4)
  • Line Location: REVN+9
Function Call: WRITE
  • Prompt: !?35,$P(TEMP1,U,5)
  • Line Location: REVN+10
Function Call: WRITE
  • Prompt: !?35,$P(TEMP1,U,6)
  • Line Location: REVN+11
Function Call: WRITE
  • Prompt: !?35,$P(TEMP1,U,7)_", ",$P(TEMP1,U,8)_" ",$P(TEMP1,U,9)
  • Line Location: REVN+12
Routine Call
  • DIC
  • Line Location:
    • GN+2
Routine Call
  • DIE
  • Line Location:
    • ENV

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("VOL" GN+1
^DIC(5 - [#5] REVO+13
^PRC(440 - [#440] EN+1, ENV+1, ENV+2, ADVEN+1, SET+3, SET+4, SET+7*, REVO+1, REVO+2, REVO+3
, REVN+4
^PRCF(421.6 - [#421.6] SET+2, SET+5, REVN+1, REVN+2

Label References

Name Line Occurrences
ADVEN ENV+1, ENV+2
ENV ENV
GN GN+2, EN+2
OUT SET+2
REVN ENV
REVO EN+1
SET ENV+1, ENV+2, ENV+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+1*, ENV*, ENV+1*, ENV+2*, ENV+3*, OUT+1!
>> %A EN+1*, ENV*, ENV+3*
>> %A(1 ENV+1*, ENV+2*
>> %A(2 ENV+1*, ENV+2*
>> %B EN+1*, ENV*, ENV+1*, ENV+2*, ENV+3*
COUNT GN+2*, OUT+1!
DA GN+2*, EN+2*, OUT*, OUT+1!
DIC GN+1*, GN+2, EN+2, OUT+1!
DIC(0 GN+1*
DIE EN+2*, OUT+1!
DIK GN+2*!, OUT*, OUT+1!
DLAYGO GN+1*, OUT+1!
>> DR EN+2*
IOF REVO+4, REVN+3
>> NR SET+5*, SET+7
>> OR SET+3*, SET+4*
>> PRC("SITE" GN+1
>> PRCB("TDA" GN+3*, EN+2, SET+2, SET+5, OUT, OUT+1!, REVN+1, REVN+2
>> PRCB("VEN" EN+1, ENV+1, ENV+2, ADVEN+1, SET+3, SET+4, SET+7, REVO+1, REVO+2, REVO+3
, REVO+5, REVN+4
>> PRCBE EN+1*, ENV+3
PRCBT GN+1*, GN+3*, OUT+1!
REC OUT+1!, REVO+2*, REVO+5
REC1 OUT+1!, REVO+2*, REVO+3*, REVO+7, REVO+8, REVO+9, REVO+10, REVO+11, REVO+12, REVO+13
, REVO+14
TEMP OUT+1!
TEMP1 OUT+1!, REVN+2*, REVN+6, REVN+7, REVN+8, REVN+9, REVN+10, REVN+11, REVN+12
U GN+2, ENV+2, ADVEN+1, SET+3, SET+4, SET+5, SET+7, REVO+2, REVO+5, REVO+7
, REVO+8, REVO+9, REVO+10, REVO+11, REVO+12, REVO+13, REVO+14, REVN+4, REVN+6, REVN+7
, REVN+8, REVN+9, REVN+10, REVN+11, REVN+12
X GN+1*, OUT+1!
>> Y GN+2, GN+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All