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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PRCHDP2

Package: IFCAP

Routine: PRCHDP2


Information

PRCHDP2 ;ID/RSD/RHD-DISPLAY P.O. ; [7/22/98 11:11am]

Source Information

Source file <PRCHDP2.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**38,131,221**;Oct 20, 2000;Build 14
COM
PT
ASK2
PT1
ASK
ASK1
HDR
ITEM
DIS
AMD
DT
ADJCHK ;Check for any Adjustment on PO. If any show the adjuster. PRC*5.1*38
Q ;W @IOF ;REMOVE IF PROBLEM WITH KERNEL V6.5
PIPECK ;check for invalid pipe '|IN ' command in item description ;PRC*5.1*221

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: V+8
Function Call: WRITE
  • Prompt: !?8,"ENTER '^' TO HALT: "
  • Line Location: V+8
Function Call: WRITE
  • Prompt: !?2,$J(N,3),?7,"LESS ",$P(PRCHDI0,U,2),$S($E($P(PRCHDI0,U,2),1)="$":"",1:" %")," FOR "
  • Line Location: V+10
Function Call: WRITE
  • Prompt: !?2,$J(N+1,3),?7,"EST. SHIPPING AND/OR HANDLING",?58,$J($P(PRCHD0,U,13),7,2)
  • Line Location: V+11
Function Call: WRITE
  • Prompt: !?8,^(J,0)
  • Line Location: V+16
Function Call: WRITE
  • Prompt: !
  • Line Location: COM+2
Function Call: WRITE
  • Prompt: !?8,^(J,0)
  • Line Location: COM+2
Function Call: WRITE
  • Prompt: !?14,$P(^(0),U,1)
  • Line Location: PT+0
Function Call: WRITE
  • Prompt: !!?3,"AMENDMENT NUMBER: ",PRCHI,?40,"EFFECTIVE DATE: "
  • Line Location: PT+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"** An amendment updated the order during your display that affected **"
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !,"** the order's first page total and any items that were amended **"
  • Line Location: ASK1+2
Function Call: WRITE
  • Prompt: !,"** for price/quantity. If the accuracy of the displayed order is **"
  • Line Location: ASK1+3
Function Call: WRITE
  • Prompt: !,"** critical, you should re-display the order again with the updated **"
  • Line Location: ASK1+4
Function Call: WRITE
  • Prompt: !,"** order total and items. **"
  • Line Location: ASK1+5
Function Call: WRITE
  • Prompt: !,""
  • Line Location: ASK1+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK1+8
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: ASK1+8
Function Call: WRITE
  • Prompt: "END OF DISPLAY--PRESS RETURN OR ENTER '^' TO HALT: "
  • Line Location: ASK1+8
Function Call: WRITE
  • Prompt: @IOF,!!?55,"UNIT",?70,"TOTAL",!,"ITEM",?15,"DESCRIPTION",?42,"QTY",?46,"UNIT",?55,"COST",?70,"COST",!
  • Condition for execution: $Y>0
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM+5
Function Call: WRITE
  • Prompt: ?2,$J(+$P(PRCHDI0,U,1),3)
  • Line Location: ITEM+5
Function Call: WRITE
  • Prompt: ?7,$S($D(^(1,1,0)):^(0),1:"")
  • Line Location: ITEM+6
Function Call: WRITE
  • Prompt: ?40,$J($P(PRCHDI0,U,2),5),?47,$S($D(^PRCD(420.5,+$P(PRCHDI0,U,3),0)):$P(^(0),U,1),1:"")
  • Line Location: ITEM+7
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+8
Function Call: WRITE
  • Prompt: ?67,$J($P(PRCHDI2,U,1),7,2)
  • Line Location: ITEM+9
Function Call: WRITE
  • Prompt: !?8,^(K,0)
  • Line Location: ITEM+10
Function Call: WRITE
  • Prompt: !,?8,"QTY PREV RCVD: ",$J($P(PRCHDI2,U,8),5)
  • Condition for execution: $P(PRCHDI2,U,8)]""
  • Line Location: ITEM+13
Function Call: WRITE
  • Prompt: !,?8,"PARTIAL NO.: "
  • Line Location: ITEM+13
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: K>1
  • Line Location: ITEM+13
Function Call: WRITE
  • Prompt: X
  • Line Location: ITEM+13
Function Call: WRITE
  • Prompt: ?8,"Items per ",$S($D(^PRCD(420.5,+$P(PRCHDI0,U,3),0)):$P(^(0),U,1),1:""),": ",$P(PRCHDI0,U,12),!
  • Line Location: ITEM+15
Function Call: WRITE
  • Prompt: ?8,"BOC: ",$P($P(PRCHDI0,U,4)," ",1)
  • Line Location: ITEM+18
Function Call: WRITE
  • Prompt: ?22,"FMS LINE: ",FMSLN
  • Line Location: ITEM+19
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM+21
Function Call: WRITE
  • Prompt: $S($P(PRCHDI0,U,1)="Q":"QUANTITY DISCOUNT",1:"ITEMS: "_$P(PRCHDI0,U,1)),?57,$J($P(PRCHDI0,U,3),8,2),!
  • Line Location: DIS+0
Function Call: WRITE
  • Prompt: !?8,^(J,0)
  • Line Location: AMD+2
Function Call: WRITE
  • Prompt: !?8,^(J,0)
  • Line Location: AMD+7
Function Call: WRITE
  • Prompt: Y\100#100,"/",Y#100\1,"/",Y\10000+1700
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: ?30,"(Adjustment date: ",Y,")"
  • Line Location: ADJCHK+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRC(442 - [#442] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call