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

Package: IFCAP

Routine: PRCHDP3


Information

PRCHDP3 ;WISC/RSD/RHD-DISPLAY PARTIALS RECEIVING OF P.O. ;OCT 9, 2001

Source Information

Source file <PRCHDP3.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**38**;Oct 20, 2000
ST ;S IOP="HOME",%ZIS="" D ^%ZIS W:$Y>0 @IOF W !,$S($D(PRCHNRQ):"REQUISITION: ",1:"PURCHASE ORDER: "),$P(PRCHD0,U,1),?37,"STATUS: " I $D(^PRC(442,PRCHPO,7)),+^(7)>0 W $S($D(^PRCD(442.3,+^(7),0)):$P(^(0),U,1),1:"")
ADJESIG ;Check for any Adjustment on PO. If any show the adjuster. PRC*5.1*38
SKIPIT ;
Q
ITEM
AMT
ASK
HDR
DT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: ST+0
Function Call: WRITE
  • Prompt: !,$S($D(PRCHNRQ):"REQUISITION: ",1:"PURCHASE ORDER: "),$P(PRCHD0,U,1),?37,"STATUS: "
  • Line Location: ST+0
Function Call: WRITE
  • Prompt: $S($D(^PRCD(442.3,+^(7),0)):$P(^(0),U,1),1:"")
  • Line Location: ST+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: ST+1
Function Call: WRITE
  • Prompt: !,$S($D(PRCHNRQ):"REQUISITION: ",1:"PURCHASE ORDER: "),$P(PRCHD0,U,1),?37,"STATUS: "
  • Line Location: ST+1
Function Call: WRITE
  • Prompt: $P($G(^PRCD(442.3,+^(7),0)),U,1)
  • Line Location: ST+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ST+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: ST+4
Function Call: WRITE
  • Prompt: !!?5,"Receiving Report Processed By: /ES/"_$$DECODE^PRCHES1(PRCHPO,PRCHDPT),!
  • Line Location: ST+16
Function Call: WRITE
  • Prompt: !?5,"Adjustment Voucher Processed By: ",ADJNAME,!
  • Line Location: ADJESIG+12
Function Call: WRITE
  • Prompt: !?2,$J(+$P(PRCHDI0,U,1),3),?7,$G(^(1,1,0))
  • Line Location: ITEM+3
Function Call: WRITE
  • Prompt: ?40,$J($P(PRCHDI0,U,2),5),?47,$P($G(^PRCD(420.5,+$P(PRCHDI0,U,3),0)),U,1)
  • Line Location: ITEM+5
Function Call: WRITE
  • Prompt: ?52,$S($L(X)>3:$J($P(PRCHDI0,U,9),5,4),$L(X)>2:$J($P(PRCHDI0,U,9),6,3),$P(PRCHDI0,U,9)="N/C":" N/C",1:$J($P(PRCHDI0,U,9),7,2))
  • Line Location: ITEM+6
Function Call: WRITE
  • Prompt: !?8,^(K,0)
  • Line Location: ITEM+7
Function Call: WRITE
  • Prompt: !?8,"IMF #: ",$P(PRCHDI0,U,5)_" "
  • Line Location: ITEM+8
Function Call: WRITE
  • Prompt: "CONTRACT: ",$P(PRCHDI2,U,2)
  • Condition for execution: $P(PRCHDI2,U,2)]""
  • Line Location: ITEM+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM+9
Function Call: WRITE
  • Prompt: ?61,$J($P(Y,U,2),5),?68,$J($P(Y,U,3),8,2)
  • Line Location: AMT+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !?55,"UNIT",?63,"QTY",?71,"TOTAL",!,"ITEM",?15,"DESCRIPTION",?42,"QTY",?46,"UNIT",?55,"COST",?63,"REC",?71,"COST",!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: Y\100#100,"/",Y#100\1,"/",Y\10000+1700
  • Line Location: DT+0
Info |  Source |  Entry Points |  Interaction Calls