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

Package: IFCAP

Routine: PRCPRPIR


Information

PRCPRPIR ;WISC/RFJ-print picking ticket from tmp global ;06 Sep 91

Source Information

Source file <PRCPRPIR.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
PICK ; come here to print picking ticket from tmp global
; tmp($j,"pick",storelocation,nsn,itemda)
; =itemda^nsn^storloc^description^onhand^unitiss^qtyordXX^qtytopick
; ^invcost^sellcost^costcntr/subacct^accountcode
Q
H
H1 ;header for exceptions
STORLOC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P(DATA,"^",2),?17,$E($P(DATA,"^",4),1,33),?52,"[#",ITEMDA,"]",?63,$J($P(DATA,"^",5),8),?72,"|------|"
  • Line Location: PICK+8
Function Call: WRITE
  • Prompt: !,"-",NUMBER,"-",?12,"ISS MULT UNIT per ISS UNIT COST TOT COST",?60,"QTY TO PICK",?72,"|",?79,"|"
  • Line Location: PICK+9
Function Call: WRITE
  • Prompt: !?12,$J($P(DATA,"^",7),8),?21,$P(DATA,"^",6),?34,$J(UNITCOST,12,3),$J($P(DATA,"^",11),11,3),?61,$J($P(DATA,"^",9),10)," |______|"
  • Line Location: PICK+11
Function Call: WRITE
  • Prompt: !?12,"CC/SA: ",$P(DATA,"^",12)," ACCT: ",$P(DATA,"^",13)
  • Line Location: PICK+12
Function Call: WRITE
  • Prompt: !,$$NSN^PRCPUX1(+$P(DATA,"^",5)),?18,"[",+$P(DATA,"^",5),"]",?27,$J(NUMBER,5),$J(+$P(DATA,"^",2),12),$J(+$P(DATA,"^",12),12),?65,$S($P(DATA,"^",14)["S":"SUBSTITUTED",$P(DATA,"^",14)["C":"CANCELLED",1:"")
  • Line Location: PICK+20
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"PICKING TICKET ",$S($D(PRCPFREP):"**REPRINT**",1:"PRINT"),?(80-$L(%)),%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,?10,"FROM: ",PRCP("IN"),?49,"TO: ",$G(PRCPNAME)
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?6,"DELIV PT: ",$E($G(DELPT),1,20),?43,"DATE REQ: ",$G(DATEREQ)
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,"TRANSACTION NO: ",PRCPTRNO,?38,"REF VOUCHER #: ",PRCPORD,?59,"TRAN ID: ",PRCPTRID,!?3,"DATE POSTED: ",PRCPPOST,?44,"BY USER: ",$E(PRCPUSER,1,17)
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !,"NSN",?19,"DESCRIPTION",?52,"[#MI]",?60,"QTY ON-HAND",?74,"PICKED",!,%
  • Line Location: H+5
Function Call: WRITE
  • Prompt: !!,"EXCEPTIONS TO ISSUE BOOK REQUEST:",!,"NSN",?18,"[MI#]",?27,$J("LINE#",5),$J("QTY ORDER",12),$J("QTY POSTED",12),?65,"REASON"
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !!?4,"STORAGE LOCATION: ",$S(STORLOC="?":"(NONE)",1:STORLOC)
  • Line Location: STORLOC+0
Info |  Source |  Entry Points |  Interaction Calls