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

Package: IFCAP

Routine: PRCHPNT1


Information

PRCHPNT1 ;ID/RSD/RHD-CONT. OF PRINT ;2/12/98 2:49 PM

Source Information

Source file <PRCHPNT1.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
PG1
PG
APP
Q ;
PGQ
IT
WP0
WP1
WP
PGNX
TOP
DIS
DIS1
EST
ADC
REQ
TOT
STQUE
DT
DT1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?12,"CONTINUED ON NEXT PAGE ",!
  • Line Location: PG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PG+2
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: Y>1
  • Line Location: PG+3
Function Call: WRITE
  • Prompt: $P($G(^PRC(442.4,+^(Y,0),0)),U,2)
  • Line Location: PG+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: PG+4
Function Call: WRITE
  • Prompt: ?7,"/ES/"_$$DECODE^PRCHES5(D0)_" "
  • Line Location: PG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PG+5
Function Call: WRITE
  • Prompt: ?10,$P(^(.13),U,2)
  • Condition for execution: $D(^VA(200,P,.13))
  • Line Location: PG+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: PG+5
Function Call: WRITE
  • Prompt: ?2,$P(PRCH0,U,1),?25
  • Line Location: PG+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PG+6
Function Call: WRITE
  • Prompt: ?2,$P(PRCH0,U,4),"-",$P($P(PRCH0,U,3)," ",1),"-",$P(PRCH0,U,5),"-",$P(PRCH0,U,6),$S($P(PRCH0,U,8)>0:"-"_$P(PRCH0,U,8),1:"")
  • Line Location: APP+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: APP+0
Function Call: WRITE
  • Prompt: ?2
  • Line Location: APP+1
Function Call: WRITE
  • Prompt: "/ES/"_$$DECODE^PRCHES4(D0,1),?31
  • Line Location: APP+2
Function Call: WRITE
  • Prompt: $P(X,",",2)," ",$P(X,",",1),?31
  • Line Location: APP+3
Function Call: WRITE
  • Prompt: !?9,$G(^UTILITY($J,"W",1,K,0))
  • Line Location: WP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: WP+1
Function Call: WRITE
  • Prompt: !!!!?63,P,?73,PRCHP,!!?55
  • Line Location: TOP+0
Function Call: WRITE
  • Prompt: ?72,$P(PRCH0,U,1),!!?55,$P(PRCHV,U,1)
  • Line Location: TOP+0
Function Call: WRITE
  • Prompt: ?72,$P(PRCH0,U,1),!!?55,$P(PRCHV,U,1)
  • Line Location: TOP+0
Function Call: WRITE
  • Prompt: !?2,$J($P(PRCHI0,U,6),3),?8,"LESS ",$P(PRCHI0,U,2)
  • Line Location: DIS+0
Function Call: WRITE
  • Prompt: $S($E($P(PRCHI0,U,2),1)="$":"",1:" %")," FOR ",$S($P(PRCHI0,U,1)="Q":"QUANTITY DISCOUNT",1:"ITEMS: "_$P(PRCHI0,U,1))
  • Line Location: DIS1+0
Function Call: WRITE
  • Prompt: ?66,$J($P(PRCHI0,U,3),8,2)
  • Line Location: DIS1+0
Function Call: WRITE
  • Prompt: ?66,$J($P(PRCHI0,U,3),8,2)
  • Line Location: DIS1+0
Function Call: WRITE
  • Prompt: !?2,$S($P(PRCH0,U,18)]"":$J($P(PRCH0,U,18),3),1:$J(N,3)),?8,"ESTIMATED SHIPPING AND/OR HANDLING",?66,$J($P(PRCH0,U,13),8,2),!
  • Line Location: EST+0
Function Call: WRITE
  • Prompt: !
  • Line Location: REQ+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: ?66,$J(PRCHPT,8,2)
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: "@",$E(Y,1,2),":",$E(Y,3,4)
  • Line Location: DT1+0
Info |  Source |  Entry Points |  Interaction Calls