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 |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 6 %XY^%RCR  ^DIC  FILE^DICN  ^DIE  (,EN1)^DIK  ^DIR  
IFCAP 5 FCP^PRCPENE1  ADDVEN^PRCPUVEN  ($$INVNAME,$$UNITVAL)^PRCPUX1  ($$INPERCNT,$$SHPERCNT)^PRCPUX2  $$YN^PRCPUYN  

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

Package Total Caller Graph
IFCAP 1 PRCPCSP  

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

External References

Name Field # of Occurrence
%XY^%RCR CONVRT+7, ITEMS+5, ITEMS+12
^DIC LEVELS+21
FILE^DICN IPVND+10
^DIE CONVRT+9, CONVRT+15, EDIT+3
^DIK CONVRT+16
EN1^DIK ITEMS+11, ITEMS+22, MNDSRC+6
^DIR LEVELS+6, LEVELS+15
FCP^PRCPENE1 CONVRT+18
ADDVEN^PRCPUVEN ITEMS+21, ITEMS+24, IPVND+6, MNDSRC+5
$$INVNAME^PRCPUX1 CONVRT
$$UNITVAL^PRCPUX1 ITEMS+14
$$INPERCNT^PRCPUX2 ITEMS+1
$$SHPERCNT^PRCPUX2 ITEMS+3
$$YN^PRCPUYN CONVRT+2

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
Routine Call
  • DIC
  • Line Location:
    • LEVELS+21
Routine Call
  • DIE
  • Line Location:
    • CONVRT+9
    • CONVRT+15
    • EDIT+3
Routine Call
  • DIR
  • Line Location:
    • LEVELS+6
    • LEVELS+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRC(441 - [#441] Classic Fileman Calls
^PRCP(445 - [#445] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(441 IPVND+9
^PRC(440 - [#440] IPVND+2
^PRC(441 - [#441] ITEMS+13, ITEMS+20, ITEMS+23, IPVND+7, MNDSRC+2, MNDSRC+4
^PRCP(445 - [#445] CONVRT+4, CONVRT+6*, CONVRT+7, CONVRT+9, CONVRT+14!, CONVRT+17!, ITEMS+1, ITEMS+2, ITEMS+4*, ITEMS+6!
, ITEMS+8*, ITEMS+9, ITEMS+12, ITEMS+13, ITEMS+16, ITEMS+17*, ITEMS+20*, LEVELS+18, EDIT+1, IPVND+3
, IPVND+5, MNDSRC+1, MNDSRC+3, MNDSRC+6*

Label References

Name Line Occurrences
EDIT LEVELS+18, LEVELS+21
HOLD CONVRT+14, LEVELS+17, LEVELS+18, LEVELS+22
IPVND ITEMS+2
MNDSRC ITEMS+12

Naked Globals

Name Field # of Occurrence
^( ITEMS+2, ITEMS+13, LEVELS+18
^("SECMIS" CONVRT+14!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %X CONVRT+7*, ITEMS+5*, ITEMS+12*
>> %Y CONVRT+7*, ITEMS+5*, ITEMS+12*
DA CONVRT+8*, CONVRT+16*, ITEMS+10*, ITEMS+22*, EDIT+2*, IPVND+8~, MNDSRC+6*
DA(1 CONVRT+16*, ITEMS+10*, ITEMS+22*, IPVND+9*, MNDSRC+6*
>> DATA ITEMS+2*, ITEMS+13*, ITEMS+14, ITEMS+15*, ITEMS+16*, ITEMS+17, IPVND+5*, IPVND+6
DD IPVND+8~
DIC LEVELS+21*, IPVND+8~, IPVND+9*
DIC("P" IPVND+9*
DIC("S" LEVELS+20*
DIC(0 LEVELS+21*, IPVND+9*
>> DIE CONVRT+8*, LEVELS+16*
DIK CONVRT+16*!, ITEMS+10*, ITEMS+11!, ITEMS+22*!, MNDSRC+6*!
DIK(1 ITEMS+10*, ITEMS+22*, MNDSRC+6*
DINUM IPVND+8~, IPVND+9*
DIR LEVELS+6!, LEVELS+15!
DIR("?" LEVELS+2*, LEVELS+3*, LEVELS+4*, LEVELS+5*, LEVELS+13*, LEVELS+14*
DIR("A" LEVELS+1*, LEVELS+11*
DIR("B" LEVELS+1*, LEVELS+12*
DIR(0 LEVELS+1*, LEVELS+11*
>> DIRUT LEVELS+6, LEVELS+15
DLAYGO IPVND+8~, IPVND+9*
DO IPVND+8~
DR CONVRT+9*!, CONVRT+15*!, LEVELS+16*
DT CONVRT+6
DTIME HOLD
>> DTOUT CONVRT+9, CONVRT+10, EDIT+3
DUZ CONVRT+6
>> EACHONE ITEMS+1*, ITEMS+3
>> ESCAPE CONVRT+2*, CONVRT+4*, ITEMS+2, ITEMS+20*, LEVELS+18, LEVELS+21, EDIT+3*, HOLD+1*
>> IMFDATA MNDSRC+4*, MNDSRC+5
>> INVPT CONVRT, CONVRT+4, CONVRT+6, CONVRT+7, CONVRT+8, CONVRT+9, CONVRT+14, CONVRT+16, CONVRT+17, CONVRT+18
, ITEMS+1, ITEMS+2, ITEMS+4, ITEMS+5, ITEMS+6, ITEMS+8, ITEMS+9, ITEMS+10, ITEMS+12, ITEMS+13
, ITEMS+16, ITEMS+17, ITEMS+20, ITEMS+21, ITEMS+22, ITEMS+24, LEVELS+18, LEVELS+21, EDIT+1, EDIT+2
, IPVND+3, IPVND+5, IPVND+6, MNDSRC+1, MNDSRC+3, MNDSRC+5, MNDSRC+6
>> IPVND("DA" IPVND+2*, IPVND+3, IPVND+6, IPVND+7, IPVND+9
>> ITEMDA ITEMS+2*, ITEMS+4, ITEMS+5, ITEMS+6, ITEMS+8, ITEMS+9, ITEMS+10, ITEMS+12, ITEMS+13, ITEMS+16
, ITEMS+17, ITEMS+20, ITEMS+21, ITEMS+22, ITEMS+23, ITEMS+24, LEVELS+18*, LEVELS+21*, EDIT+1, EDIT+2
, IPVND+3, IPVND+5, IPVND+6, IPVND+7, IPVND+9, MNDSRC+1, MNDSRC+2, MNDSRC+3, MNDSRC+4, MNDSRC+5
, MNDSRC+6
>> LASTONE ITEMS+3*
>> NUMBER ITEMS+2*, ITEMS+3
>> PRC ITEMS+16*
>> PRCP("CONVRT" CONVRT+18*
>> PRCP("DA" IPVND+3*, IPVND+4, IPVND+5
>> PRCP("I" CONVRT+6, CONVRT+16, ITEMS+8, ITEMS+12, IPVND+3
>> PRCP("MS" MNDSRC+2*, MNDSRC+3, MNDSRC+4, MNDSRC+5, MNDSRC+6
>> PRCP("RV0" ITEMS+1, ITEMS+3
>> PRCP("RV1" ITEMS+1, ITEMS+3
>> PRCPINPT CONVRT+18*
>> PRCPITEM EDIT+2*
>> PRCPTYPE CONVRT+18*
>> PRIM IPVND+2
>> PRIM(0 IPVND+2*
U ITEMS+8, ITEMS+9, ITEMS+14, ITEMS+15, ITEMS+16, ITEMS+20, ITEMS+21, ITEMS+24, EDIT+1, IPVND+6
, IPVND+9, MNDSRC+1, MNDSRC+2, MNDSRC+5, MNDSRC+6
>> UP ITEMS+14*, ITEMS+15
>> UR ITEMS+14*, ITEMS+15
>> VENDA ITEMS+13*, ITEMS+17, ITEMS+20*, ITEMS+21, ITEMS+23*, ITEMS+24
>> VENDATA ITEMS+13*, ITEMS+14, ITEMS+15, ITEMS+20*, ITEMS+21, ITEMS+23*, ITEMS+24
>> X IPVND+9*, HOLD*, HOLD+1
XH CONVRT+1!*
XP CONVRT+1!*
>> Y CONVRT+9, LEVELS+7, LEVELS+17, LEVELS+21
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 |  Naked Globals |  Local Variables  | All