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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCPSMB0

Package: IFCAP

Routine: PRCPSMB0


Information

PRCPSMB0 ;WISC/RFJ-isms transaction: balance update ;25 Oct 91

Source Information

Source file <PRCPSMB0.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
IFCAP 7 $$BALANCE^PRCPSMB1  TRANSMIT^PRCPSMCS  $$ITEM^PRCPUITM  P^PRCPUREP  ^PRCPUSEL  $$DESCR^PRCPUX1  $$YN^PRCPUYN  
Kernel 2 ^%ZIS  ^%ZTLOAD  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
Q
DQ ; queue comes here to send all items to isms
TASKMAN ; taskman comes here to transmit all balances in the background

External References

Name Field # of Occurrence
^%ZIS PRCPSMB0+7
^%ZTLOAD PRCPSMB0+21
$$BALANCE^PRCPSMB1 PRCPSMB0+10, DQ+5
TRANSMIT^PRCPSMCS PRCPSMB0+30, DQ+13
$$ITEM^PRCPUITM PRCPSMB0+9
P^PRCPUREP PRCPSMB0+25
^PRCPUSEL PRCPSMB0+3
$$DESCR^PRCPUX1 PRCPSMB0+11, DQ+7
$$YN^PRCPUYN PRCPSMB0+19, PRCPSMB0+29
^XMD DQ+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"THIS OPTION SHOULD ONLY BE USED BY THE WAREHOUSE INVENTORY POINT."
  • Line Location: PRCPSMB0+4
Function Call: WRITE
  • Prompt: !,"YOU NEED TO TURN THE ISMS SWITCH 'ON' BEFORE YOU CAN USE THIS OPTION."
  • Line Location: PRCPSMB0+5
Function Call: WRITE
  • Prompt: !!,"To select ALL items, press RETURN."
  • Line Location: PRCPSMB0+8
Function Call: WRITE
  • Prompt: !?5,CODESHT
  • Line Location: PRCPSMB0+10
Function Call: WRITE
  • Prompt: @IOF,!!,"I WILL TRANSMIT THE FOLLOWING BALANCES TO ISMS:"
  • Line Location: PRCPSMB0+12
Function Call: WRITE
  • Prompt: !,ITEMDA,?7,$E(DESCR,1,50),?60,$P(CODESHT,"^",2),!!?5,"ISSUE UNIT",?23,": ",$P(CODESHT,"^",3),!?5,"QUANTITY ON-HAND",?23,": ",$P(CODESHT,"^",4)/100
  • Line Location: PRCPSMB0+13
Function Call: WRITE
  • Prompt: !?5,"ON-HAND VALUE",?23,": ",$J(+$P(CODESHT,"^",5)/100,0,2),!?5,"QUANTITY DUE-OUT",?23,": ",+$P(CODESHT,"^",6)/100
  • Line Location: PRCPSMB0+14
Function Call: WRITE
  • Prompt: !?5,"AVERAGE COST",?23,": ",$J(+$P(CODESHT,"^",7)/10000,0,3),!?5,"LAST RECEIPT COST",?23,": ",$J(+$P(CODESHT,"^",8)/10000,0,3),!?5,"LAST SALE COST",?23,": ",$J(+$P(CODESHT,"^",9)/10000,0,3)
  • Line Location: PRCPSMB0+15
Function Call: WRITE
  • Prompt: !!?1,"CS: ",CODESHT
  • Line Location: PRCPSMB0+16
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCPSMB0+19
Function Call: WRITE
  • Prompt: !!,"I will queue this to run as a background job. When I finish building the",!,"code sheet, I will send you a mailman message with the code sheet number",!,"and items NOT transmitted because of errors found."
  • Line Location: PRCPSMB0+20
Function Call: WRITE
  • Prompt: !,"NO ITEMS SELECTED."
  • Line Location: PRCPSMB0+22
Function Call: WRITE
  • Prompt: @IOF,!,"YOU HAVE SELECTED THE FOLLOWING ITEMS TO UPDATE ISMS BALANCES:"
  • Line Location: PRCPSMB0+23
Function Call: WRITE
  • Prompt: !,ITEMDA,?7,$E($P(%,"^"),1,50),?60,$P(%,"^",2)
  • Line Location: PRCPSMB0+24
Function Call: WRITE
  • Prompt: !!,"NO CODE SHEETS CREATED."
  • Line Location: PRCPSMB0+27
Function Call: WRITE
  • Prompt: " ",PRCPXMZ(%)," "
  • Line Location: PRCPSMB0+31
Routine Call
  • %ZIS
  • Line Location:
    • PRCPSMB0+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCP(445 - [#445] DQ+3, DQ+4, DQ+10, TASKMAN+1
^TMP($J PRCPSMB0+17*, PRCPSMB0+19, PRCPSMB0+22, PRCPSMB0+23, PRCPSMB0+24*, PRCPSMB0+27, Q!, DQ+2!, DQ+7*, DQ+8*
DQ+9*, DQ+14*, DQ+15*, DQ+16, DQ+17*

Label References

Name Line Occurrences
DQ TASKMAN+1
Q PRCPSMB0+7, PRCPSMB0+18, PRCPSMB0+19, PRCPSMB0+22, PRCPSMB0+26, PRCPSMB0+27, PRCPSMB0+29, DQ+19

Naked Globals

Name Field # of Occurrence
^( PRCPSMB0+23
^(2 DQ+16*
^(4 DQ+17*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRCPSMB0+6~, PRCPSMB0+23*, PRCPSMB0+24, PRCPSMB0+31*, DQ+16*
CODESHT PRCPSMB0+6~, PRCPSMB0+10*, PRCPSMB0+13, PRCPSMB0+14, PRCPSMB0+15, PRCPSMB0+16, PRCPSMB0+17, DQ+1~, DQ+5*, DQ+6
DQ+8, DQ+9
COUNT PRCPSMB0+6~, PRCPSMB0+23*, PRCPSMB0+24*, DQ+1~, DQ+3*, DQ+9*, DQ+13
DESCR PRCPSMB0+6~, PRCPSMB0+11*, PRCPSMB0+13, PRCPSMB0+17
DUZ DQ+18
IOF PRCPSMB0+12, PRCPSMB0+23
IOP PRCPSMB0+7*!
IOSL PRCPSMB0+25
ITEMDA PRCPSMB0+6~, PRCPSMB0+9*, PRCPSMB0+10, PRCPSMB0+11, PRCPSMB0+13, PRCPSMB0+17, PRCPSMB0+18, PRCPSMB0+23*, PRCPSMB0+24, DQ+1~
DQ+3*, DQ+4, DQ+5, DQ+7, DQ+10
LINE DQ+1~, DQ+3*, DQ+7*, DQ+8*, DQ+17
>> PRC("SITE" PRCPSMB0+30, DQ+13, TASKMAN+1*
>> PRCP("DPTYPE" PRCPSMB0+4
>> PRCP("I" PRCPSMB0+3, PRCPSMB0+9, PRCPSMB0+10, PRCPSMB0+11, DQ+3, DQ+4, DQ+5, DQ+7, DQ+10, TASKMAN+1*
PRCPCS DQ+1~
PRCPFLAG PRCPSMB0+6~, PRCPSMB0+23, PRCPSMB0+26
PRCPXMZ PRCPSMB0+6~, PRCPSMB0+31, DQ+13!, DQ+15, DQ+16
PRCPXMZ( PRCPSMB0+31, DQ+16
>> XH PRCPSMB0+19*, PRCPSMB0+28*
>> XH(1 PRCPSMB0+28*
XMDUZ DQ+1~, DQ+18*
XMSUB DQ+1~, DQ+18*
XMTEXT DQ+1~, DQ+18*
XMY DQ+1~
XMY( DQ+18*
>> XP PRCPSMB0+19*, PRCPSMB0+28*
>> XP(1 PRCPSMB0+28*
>> ZTDESC PRCPSMB0+21*
>> ZTIO PRCPSMB0+21*
>> ZTRTN PRCPSMB0+21*
>> ZTSAVE("PRC*" PRCPSMB0+21*
>> ZTSAVE("ZTREQ" PRCPSMB0+21*
ZTSK PRCPSMB0+6~, PRCPSMB0+21!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All