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

Package: IFCAP

Routine: PRCHDP1


Information

PRCHDP1 ;WISC/RSD/RHD-DISPLAY A P.O. ;2/17/98 15:49

Source Information

Source file <PRCHDP1.m>

Entry Points

Name Comments DBIA/ICR reference
FOB
DIS
CON
APP
DAT
TOT
EST
DT
TY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$S($G(PRCHTYPE)="P":"PC ORDER: ",$G(PRCHTYPE)="D":"DELIVER ORDER: ",$D(PRCHNRQ):"REQUISITION: ",1:"PURCHASE ORDER: ")_$P(PRCHD0,U,1),?37,"STATUS: "
  • Line Location: PRCHDP1+14
Function Call: WRITE
  • Prompt: $E($P($G(^PRCD(442.3,+^(7),0)),U,1),1,34)
  • Line Location: PRCHDP1+14
Function Call: WRITE
  • Prompt: X
  • Condition for execution: X>0
  • Line Location: PRCHDP1+16
Function Call: WRITE
  • Prompt: !,?37,"REQUESTING SERVICE: ",$S($D(^DIC(49,+$P(PRCHD1,U,2),0)):$P(^(0),U,1),1:"")
  • Line Location: PRCHDP1+16
Function Call: WRITE
  • Prompt: !,"VENDOR:",?9,PRCHDV1
  • Line Location: PRCHDP1+19
Function Call: WRITE
  • Prompt: ?48,"SHIP TO: ",$P(PRCHDSHP,U,1)
  • Line Location: PRCHDP1+20
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCHDP1+40
Function Call: WRITE
  • Prompt: ?9,V(I)
  • Condition for execution: $D(V(I))
  • Line Location: PRCHDP1+40
Function Call: WRITE
  • Prompt: ?57,S(I)
  • Condition for execution: $D(S(I))
  • Line Location: PRCHDP1+40
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCHDP1+41
Function Call: WRITE
  • Prompt: V(8)
  • Condition for execution: $D(V(8))
  • Line Location: PRCHDP1+41
Function Call: WRITE
  • Prompt: ?57,S(8)
  • Condition for execution: $D(S(8))
  • Line Location: PRCHDP1+41
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCHDP1+41
Function Call: WRITE
  • Prompt: ?38,"DELIVERY LOCATION: ",$P(PRCHD1,U,11),!
  • Line Location: PRCHDP1+42
Function Call: WRITE
  • Prompt: "_"
  • Line Location: PRCHDP1+43
Function Call: WRITE
  • Prompt: !,"Prosthetics Delivery information:"
  • Line Location: PRCHDP1+48
Function Call: WRITE
  • Prompt: !,?7,"Delivery To: ",$E($P(RMPRR3,U),1,50)
  • Line Location: PRCHDP1+49
Function Call: WRITE
  • Prompt: !,?9,"Attention: ",$E($P(RMPRR3,U,4),1,50)
  • Line Location: PRCHDP1+50
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCHDP1+51
Function Call: WRITE
  • Prompt: "_"
  • Line Location: PRCHDP1+51
Function Call: WRITE
  • Prompt: !,"FOB POINT: ",$S("O"=$E($P(PRCHD1,U,6)):"ORIGIN","D"=$E($P(PRCHD1,U,6)):"DESTINATION",1:""),?29,"|","PROPOSAL: "
  • Line Location: FOB+0
Function Call: WRITE
  • Prompt: ?40,$G(^TMP($J,"W",1,1,0)),?57,"|AUTHORITY: ",!,"COST CENTER: ",$P(PRCHD0,U,5),?29,"|",?40,$G(^TMP($J,"W",1,2,0)),?57,"| "
  • Line Location: FOB+2
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: I>1
  • Line Location: FOB+3
Function Call: WRITE
  • Prompt: $P($G(^PRC(442.4,+^(Y,0),0)),U,2)
  • Line Location: FOB+3
Function Call: WRITE
  • Prompt: !,"DELIVER ON/BEFORE "
  • Line Location: DIS+0
Function Call: WRITE
  • Prompt: ?29,"|","CONTRACT: "
  • Line Location: DIS+0
Function Call: WRITE
  • Prompt: ?57,"| ",$P(Y,",",2)," ",$P(Y,",",1)
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: $P(^(X,0),U,4),$P(^(0),U,1)
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: "%"
  • Condition for execution: $P(^(0),U,1)=+$P(^(0),U,1)
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: $P(^(0),U,2)," "
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: ?57,"|"
  • Line Location: CON+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CON+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: CON+2
Function Call: WRITE
  • Prompt: "APP: ",$P(PRCHD0,U,4),"-",$P($P(PRCHD0,U,3)," ",1)
  • Line Location: APP+0
Function Call: WRITE
  • Prompt: "DATE: "
  • Line Location: DAT+0
Function Call: WRITE
  • Prompt: "TOTAL: ",$J($P(PRCHD0,U,15),8,2)
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: "ESTIMATED"
  • Line Location: EST+0
Function Call: WRITE
  • Prompt: Y\100#100,"/",Y#100\1,"/",Y\10000+1700
  • Line Location: DT+0

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