Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
IFCAP 3 ^PRCHDP2  FTYP^PRCHFPNT  DIWP^PRCUTL  
VA FileMan 2 %XY^%RCR  EN^DIQ  
Kernel 1 ^%ZIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 21

Package Total Caller Graph
IFCAP 21 PRCFA8  PRCFAC4  PRCFDE  PRCFFERI  PRCFFERT  PRCFFMO1  PRCH1A1  PRCH1A2  
PRCH1B  PRCH1B1  PRCH1D  PRCHDEP3  PRCHE  PRCHEC  PRCHEI  PRCHNPO1  
PRCHNRQ  PRCHREC  PRCHRPT  PRCOER4  PRCSP1B  

Entry Points

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

External References

Name Field # of Occurrence
%XY^%RCR FOB+1
^%ZIS PRCHDP1+11
EN^DIQ PRCHDP1+8
^PRCHDP2 CON+3
FTYP^PRCHFPNT PRCHDP1+24
DIWP^PRCUTL FOB

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
Routine Call
  • %ZIS
  • Line Location:
    • PRCHDP1+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRC(442 - [#442] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(49 - [#49] PRCHDP1+16
^DIC(5 - [#5] PRCHDP1+26, PRCHDP1+36
^DPT - [#2] PRCHDP1+10
^PRC(411 - [#411] PRCHDP1+9, PRCHDP1+11
^PRC(440 - [#440] PRCHDP1+17, PRCHDP1+28, PRCHDP1+29, PRCHDP1+31
^PRC(440.2 - [#440.2] PRCHDP1+10
^PRC(442 - [#442] PRCHDP1+3, PRCHDP1+6, PRCHDP1+8, PRCHDP1+12, PRCHDP1+14, PRCHDP1+15, PRCHDP1+18, PRCHDP1+31, PRCHDP1+32, PRCHDP1+39
, PRCHDP1+44, PRCHDP1+45, FOB+3, FOB+4, DIS+2, CON, EST
^PRC(442.4 - [#442.4] FOB+3
^PRC(443.4 - [#443.4] PRCHDP1+33
^PRCD(420.8 - [#420.8] TY
^PRCD(442.3 - [#442.3] PRCHDP1+14
^PRCD(442.5 - [#442.5] PRCHDP1+15
^RMPR(664 - [#664] PRCHDP1+46, PRCHDP1+47
^TMP($J FOB+1!, FOB+2, FOB+4
^UTILITY($J FOB!
^VA(200 - [#200] DIS+1

Label References

Name Line Occurrences
APP CON
DAT CON
DT DIS, DAT
EST CON
TOT CON
TY FOB+4

Naked Globals

Name Field # of Occurrence
^( PRCHDP1+15, FOB+3, DIS+2, CON, CON+1
^(0 PRCHDP1+16, DIS+2
^(1 PRCHDP1+3
^(2 PRCHDP1+28
^(23 PRCHDP1+6
^(3 PRCHDP1+11, PRCHDP1+29
^(7 PRCHDP1+14, EST

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %X FOB+1*
>> %Y FOB+1*
>> %ZIS PRCHDP1+11*
>> D0 PRCHDP1+3, PRCHDP1+6, PRCHDP1+7, PRCHDP1+8, PRCHDP1+12, PRCHDP1+14, PRCHDP1+15, PRCHDP1+31, PRCHDP1+32, PRCHDP1+44
, PRCHDP1+45, FOB+3, FOB+4, DIS+2, CON, EST
>> DA PRCHDP1+8*, FOB
>> DIC PRCHDP1+8*
>> DIWF FOB*
>> DIWL FOB*
>> DIWR FOB*
>> I PRCHDP1+15*, PRCHDP1+40*, PRCHDP1+43*, PRCHDP1+51*, FOB+3*, DIS+2*, CON*, CON+2*
IOF PRCHDP1+11
>> IOP PRCHDP1+11*
>> PRC("SITE" PRCHDP1+23*
>> PRCHD0 PRCHDP1+3*, PRCHDP1+5, PRCHDP1+6, PRCHDP1+7, PRCHDP1+9, PRCHDP1+14, PRCHDP1+15, FOB+2, DIS, APP
, TOT
>> PRCHD1 PRCHDP1+3*, PRCHDP1+8, PRCHDP1+9, PRCHDP1+10, PRCHDP1+16, PRCHDP1+17, PRCHDP1+28, PRCHDP1+29, PRCHDP1+30, PRCHDP1+31
, PRCHDP1+42, FOB, FOB+4, DIS+1, DAT, TY
>> PRCHDHSP PRCHDP1+11*
>> PRCHDS PRCHDP1+9*, PRCHDP1+10*, PRCHDP1+24, PRCHDP1+37
>> PRCHDSHP PRCHDP1+7*, PRCHDP1+9*, PRCHDP1+10*, PRCHDP1+20, PRCHDP1+35, PRCHDP1+36, PRCHDP1+37
>> PRCHDSIT PRCHDP1+5*, PRCHDP1+11, PRCHDP1+23
>> PRCHDST PRCHDP1+11*, PRCHDP1+29
>> PRCHDV PRCHDP1+17*, PRCHDP1+24, PRCHDP1+25, PRCHDP1+26, PRCHDP1+27, PRCHDP1+39
PRCHDV1 PRCHDP1+17~*, PRCHDP1+18*, PRCHDP1+19
PRCHEDI PRCHDP1+31*, PRCHDP1+34!
PRCHEDIT PRCHDP1+31, PRCHDP1+32*, PRCHDP1+33*, PRCHDP1+34!
>> PRCHFTYP PRCHDP1+24
>> PRCHNRQ PRCHDP1+14
>> PRCHPO PRCHDP1+7*, PRCHDP1+8, PRCHDP1+18, PRCHDP1+39
PRCHSIT1 PRCHDP1+4~, PRCHDP1+6*, PRCHDP1+9
>> PRCHTYPE PRCHDP1+12*, PRCHDP1+13*, PRCHDP1+14
RMPR664 PRCHDP1+44!, PRCHDP1+46*, PRCHDP1+47
RMPRPO PRCHDP1+44!, PRCHDP1+45*, PRCHDP1+46
RMPRR3 PRCHDP1+44!, PRCHDP1+47*, PRCHDP1+49, PRCHDP1+50
>> S PRCHDP1+24*, PRCHDP1+35*, PRCHDP1+36*, PRCHDP1+37*
>> S( PRCHDP1+24*, PRCHDP1+35*, PRCHDP1+36*, PRCHDP1+37*, PRCHDP1+40
>> S(8 PRCHDP1+41
U PRCHDP1+6, PRCHDP1+9, PRCHDP1+10, PRCHDP1+12, PRCHDP1+14, PRCHDP1+15, PRCHDP1+16, PRCHDP1+17, PRCHDP1+18, PRCHDP1+20
, PRCHDP1+24, PRCHDP1+25, PRCHDP1+26, PRCHDP1+27, PRCHDP1+28, PRCHDP1+29, PRCHDP1+30, PRCHDP1+31, PRCHDP1+32, PRCHDP1+33
, PRCHDP1+35, PRCHDP1+36, PRCHDP1+37, PRCHDP1+39, PRCHDP1+42, PRCHDP1+44, PRCHDP1+45, PRCHDP1+47, PRCHDP1+49, PRCHDP1+50
, FOB, FOB+2, FOB+3, FOB+4, DIS, DIS+1, DIS+2, APP, DAT, TOT
, EST, TY
>> V PRCHDP1+24*, PRCHDP1+25*, PRCHDP1+26*, PRCHDP1+27*, PRCHDP1+28
>> V( PRCHDP1+25*, PRCHDP1+26*, PRCHDP1+27*, PRCHDP1+28*, PRCHDP1+40
>> V(1 PRCHDP1+24*, PRCHDP1+39*
>> V(6 PRCHDP1+29*
>> V(8 PRCHDP1+30*, PRCHDP1+31*, PRCHDP1+41
>> X PRCHDP1+3*, PRCHDP1+15*, PRCHDP1+16*, FOB*, FOB+4, DIS+2*, CON*, CON+1, TY*
Y PRCHDP1+15*, PRCHDP1+16, FOB+3*, DIS*, DIS+1*, CON!, CON+1*, DAT*, EST*, DT
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All