Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCF(421.6 - [#421.6] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call