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

Package: IFCAP

Routine: PRCPRDIS


Information

PRCPRDIS ;WISC/CC-supply station quantity discrepancy report ;4/00

Source Information

Source file <PRCPRDIS.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**1,24**;Oct 20, 2000
PRINT
REFILLS(ITEMDA,PRCPINPT) ; is the item refilled in an unposted order
; ITEMDA = DA of item
; PRCPINT = DA of inventory point
H

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: V+30
Function Call: WRITE
  • Prompt: !
  • Line Location: V+35
Function Call: WRITE
  • Prompt: !!,"<*> please wait <*>"
  • Line Location: V+39
Function Call: WRITE
  • Prompt: !,$J(ITEM,7)," ",$P($G(^PRCP(445,INVPT,1,ITEM,6)),"^",1)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,"GIP: ",$J(GIPCNT,7)," SUPPLY STATION: ",$J(SSCNT,7)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: $J(GIPCNT,7)," ",$J(SSCNT,7)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: " "
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: $J(" ("_Y_")",23)
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: " ",$J(ITEM,7)," ",$E($P($G(^PRCP(445,INVPT,1,ITEM,6)),"^",1),1,32)
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !,?8,REFILL
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"SUPPLY STATION QUANTITY DISCREPANCY REPORT",?(IOM-$L(%)),%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"FOR: ",PRCPINNM,!
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,?2,"GIP",?19,"SUPPLY STATION"
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,"QTY NOW QTY (AS OF DATE and TIME) ITEM NUMBER AND DESCRIPTION"
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !,"ITEM NUMBER AND DESCRIPTION"
  • Line Location: H+5
Function Call: WRITE
  • Prompt: ?58,$J("STAND",6),$J("NORM",6),$J("UNIT",10),!,"DESCRIPTION",?29,"MI#",?35,"NSN",?50,$J("UNIT/IS",8),$J("REOPT",6),$J("STLVL",6),$J("COST",10)
  • Line Location: H+6
Function Call: WRITE
  • Prompt: !,%,!
  • Line Location: H+7
Info |  Source |  Entry Points |  Interaction Calls