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

Package: IFCAP

Routine: PRCPAGRO


Information

PRCPAGRO ;WISC/RFJ,DXH/VAC - autogenerate print suggested distribution order ; 2/19/07 12:46pm

Source Information

Source file <PRCPAGRO.m>

Entry Points

Name Comments DBIA/ICR reference
ORDER ; print order to create
; for ^tmp($j,"prcpag","ok",vendorname,vendorda,groupname,
; xxx,itemda) where xxx equals whse:nsn; prim or seco:descr
H

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?12,"GROUP CATEGORY: ",$S(GNM=" ":"<< NOT SPECIFIED >>",1:GNM)
  • Line Location: ORDER+10
Function Call: WRITE
  • Prompt: $E(%,1,20),?31,$$NSN^PRCPUX1(ITEMDA)
  • Condition for execution: PRCP("DPTYPE")="W"
  • Line Location: ORDER+16
Function Call: WRITE
  • Prompt: ?50,$J($$UNIT^PRCPUX1(PRCP("I"),ITEMDA,"/"),9),$J($P(D,"^",12),9),$J($P(D,"^",15),6),$J($P(D,"^",16),6)
  • Line Location: ORDER+16
Function Call: WRITE
  • Prompt: !!,ITEMDA
  • Line Location: ORDER+18
Function Call: WRITE
  • Prompt: ?8,"D "
  • Line Location: ORDER+19
Function Call: WRITE
  • Prompt: ?8," "
  • Line Location: ORDER+20
Function Call: WRITE
  • Prompt: ?31,$$NSN^PRCPUX1(ITEMDA)
  • Line Location: ORDER+22
Function Call: WRITE
  • Prompt: ?50,$J($$UNIT^PRCPUX1(PRCP("I"),ITEMDA,"/"),9),$J($P(D,"^",12),9),$J($P(D,"^",15),6),$J($P(D,"^",16),6)
  • Line Location: ORDER+22
Function Call: WRITE
  • Prompt: !,$J("ONHAND",8),$J("+DUEIN",8),$J("-DUEOUT",8),$J("=AVAIL",8),$J("STAND",7),$J("OPTN",8),$J("LEVEL",8),$J("CONV",7),$J("ORDER",8),$J("UNIT$",10)
  • Line Location: ORDER+23
Function Call: WRITE
  • Prompt: !,$J(+$P(D,"^"),8),$J(+$P(D,"^",2),8),$J(+$P(D,"^",3),8),$J(+$P(D,"^",4),8),$J(+$P(D,"^",5),7),$S($P(D,"^",7)="STA":"*",1:" "),$J(+$P(D,"^",6),7),$S($P(D,"^",7)="OPT":"*",1:" ")
  • Line Location: ORDER+24
Function Call: WRITE
  • Prompt: $J(+$P(D,"^",8),7),$S($P(D,"^",9)="*":"*",1:" "),$J(+$P(D,"^",10),6),$J(+$P(D,"^",11),8),$J(+$P(D,"^",14),10,3)
  • Line Location: ORDER+25
Function Call: WRITE
  • Prompt: !!?12,"GROUP CATEGORY: ",$S(GNM=" ":"<< NOT SPECIFIED >>",1:GNM)
  • Line Location: ORDER+27
Function Call: WRITE
  • Prompt: !!,"TOTAL COST OF ORDER: ",TOTCOST
  • Line Location: ORDER+30
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"AUTO-GEN: SUGGESTED ORDERS FOR ",$E(PRCP("IN"),1,20),?(80-$L(%)),%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?5,"ORDERING FROM ",$S(PRCP("DPTYPE")="S":"PRIMARY INVENTORY POINT",1:"VENDOR"),": ",VNM
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?5,$S(PRCP("DPTYPE")="S":"DISTRIBUTION ORDER",1:"REPETITIVE ITEM LIST")," NUMBER: ",ORDER
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !?50,$J($S(PRCP("DPTYPE")="S":"SECONDARY",PRCP("DPTYPE")="P":"PRIMARY",1:"WHSE"),9),$J($S(PRCP("DPTYPE")="S":"PRIMARY",1:"VENDOR"),9),$J("ISSUE",6),$J("ISSUE",6)
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !,"IM#"
  • Line Location: H+5
Function Call: WRITE
  • Prompt: ?7,"DESCRIPTION"
  • Line Location: H+7
Function Call: WRITE
  • Prompt: ?8,"OD",?11,"DESCRIPTION"
  • Line Location: H+9
Function Call: WRITE
  • Prompt: ?31,"NSN"
  • Condition for execution: PRCP("DPTYPE")
  • Line Location: H+10
Function Call: WRITE
  • Prompt: ?50,$J("UNIT/ISS",9),$J("UNIT/ISS",9),$J("MINIM",6),$J("MULT",6)
  • Line Location: H+10
Function Call: WRITE
  • Prompt: !,%
  • Line Location: H+11
Info |  Source |  Entry Points |  Interaction Calls