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

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

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
Info |  Source |  Entry Points |  Interaction Calls