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

Package: IFCAP

Routine: PRCPCSP1


Information

PRCPCSP1 ;WISC/RFJ/DXH - convert secondary to primary ;10.14.99

Source Information

Source file <PRCPCSP1.m>

Entry Points

Name Comments DBIA/ICR reference
CONVRT
ITEMS
LEVELS ; change the stock levels?
EDIT ; edit stock levels
IPVND ; add old 'stocked by' inv pt as vendor if appropriate
; try to find it in the vendor file
MNDSRC ; look for mand srce in imf if not picked up from prcp("i")
HOLD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Preparing to convert: "_$$INVNAME^PRCPUX1(INVPT)_" to a primary."
  • Line Location: CONVRT+0
Function Call: WRITE
  • Prompt: !,"Sorry, another user is editing this inventory point. Please try again later."
  • Line Location: CONVRT+4
Function Call: WRITE
  • Prompt: *7,!,"You have timed out "
  • Line Location: CONVRT+10
Function Call: WRITE
  • Prompt: *7,!,"You have escaped "
  • Line Location: CONVRT+11
Function Call: WRITE
  • Prompt: "and may need to edit this inventory point using the"
  • Line Location: CONVRT+12
Function Call: WRITE
  • Prompt: !,"'Enter/Edit Inventory and Distribution Points' option under 'Secondary",!,"Inventory Point Main Menu' to restore order."
  • Line Location: CONVRT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: CONVRT+14
Function Call: WRITE
  • Prompt: !!!?30,"Converting Items"
  • Line Location: ITEMS+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LEVELS+1
Function Call: WRITE
  • Prompt: !!,"Conversion Completed !"
  • Line Location: LEVELS+7
Function Call: WRITE
  • Prompt: !!?10,"<Done>"
  • Line Location: LEVELS+17
Function Call: WRITE
  • Prompt: !!?10,"<Done>"
  • Line Location: LEVELS+22
Function Call: WRITE
  • Prompt: !!,"ITEM MASTER #: "_ITEMDA,?30,$E($P($G(^PRCP(445,INVPT,1,ITEMDA,6)),U),1,50)
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !!,"Press <RETURN> to continue, '^' to escape..."
  • Line Location: HOLD+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRC(441 - [#441] Classic Fileman Calls
^PRCP(445 - [#445] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call