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

Package: IFCAP

Routine: PRCSES1


Information

PRCSES1 ;WISC/SAW/LJP/TKW-SUB-MODULES CALLED BY FIELDS IN CPA FILE CON'T ; [12/11/98 2:25pm]

Source Information

Source file <PRCSES1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 4 DD^%DT  NOW^%DTC  ^DIC  YN^DICN  
IFCAP 1 OBL^PRCSES2  

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

Package Total Caller Graph
IFCAP 3 PRCSP1A  PRCST12  PRCST22  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
ITEM ;PR/DISP ITEM HIST
ITS
IT
ITEM0
NONE
EXIT
ITEM1
ITEMH ;ITEM FLD HELP PMPT
OBL ;COMPUTE FLDS FOR 1358 ADJ

External References

Name Field # of Occurrence
DD^%DT ITEM1+1, ITEM1+4
NOW^%DTC ITEM1+1
^DIC ITEM+3, ITEMH+3
YN^DICN IT+1
OBL^PRCSES2 OBL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This item is inactive!"
  • Line Location: ITEM+4
Function Call: WRITE
  • Prompt: !,"Sorry, this item has a mandatory source.",!,"You must order this item from ",$P(^PRC(440,%,0),"^"),".",!
  • Line Location: ITEM+6
Function Call: WRITE
  • Prompt: !,X,!
  • Line Location: ITS+0
Function Call: WRITE
  • Prompt: !,"Would you like to see the procurement history for this item"
  • Line Location: IT+1
Function Call: WRITE
  • Prompt: W
  • Line Location: NONE+0
Function Call: WRITE
  • Prompt: !,"A history for this item does not yet exist."
  • Line Location: NONE+0
Function Call: WRITE
  • Prompt: $C(7),!,"NOTE: This item has a minimum order quantity of ",$P(Z,"^",12)
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: $C(7),!,"NOTE: This item must be ordered in multiples of ",$P(Z,"^",11)
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: $C(7),!,"NOTE: This item has a packaging multiple/unit of purchase of ",$P(Z,"^",8)_"/"_Z(1)
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+3
Function Call: WRITE
  • Prompt: !,?34,"ITEM HISTORY"
  • Line Location: ITEM1+0
Function Call: WRITE
  • Prompt: !,Y,?23,"Site: ",PRC("SITE"),?36,"Control point: ",PRC("CP")
  • Line Location: ITEM1+1
Function Call: WRITE
  • Prompt: !,"Item Number: ",X,?23,"Description: ",W,!!,?26,"Quantity",!,?26,"Previously",?38,"Unit of",?71,"Quantity"
  • Line Location: ITEM1+2
Function Call: WRITE
  • Prompt: !,"Date Ordered",?15,"PO Number",?26,"Received",?38,"Purchase",?48,"Unit Cost",?59,"Total Cost",?71,"Ordered",!
  • Line Location: ITEM1+3
Function Call: WRITE
  • Prompt: L
  • Line Location: ITEM1+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: ITEM1+4
Function Call: WRITE
  • Prompt: ?15,$P(^PRC(442,W(6),0),U)
  • Line Location: ITEM1+5
Function Call: WRITE
  • Prompt: W
  • Line Location: ITEM1+6
Function Call: WRITE
  • Prompt: ?26,$J(+$P(^(2),U,8),8)
  • Line Location: ITEM1+6
Function Call: WRITE
  • Prompt: !,"Vendor: ",W(8)
  • Line Location: ITEM1+9
Function Call: WRITE
  • Prompt: !,"You must select a vendor before you may enter Procurement (UIR) Card items.",$C(7)
  • Line Location: ITEMH+2
Routine Call
  • DIC
  • Line Location:
    • ITEM+3
    • ITEMH+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(420 - [#420] ITEM+5
^PRC(440 - [#440] ITEM+6, ITEM1+9
^PRC(441 - [#441] ITEM+4, ITEM+6, ITSITS+1, ITEM0+1
^PRC(442 - [#442] NONE+1, ITEM1+4, ITEM1+5, ITEM1+6, ITEM1+7, ITEM1+9
^PRCD(420.1 - [#420.1] ITS+1
^PRCD(420.5 - [#420.5] EXIT+2, ITEM1+7
^PRCS(410 - [#410] ITEM+1, ITS*, ITS+1, ITS+2*, ITITEMH+1

Label References

Name Line Occurrences
EXIT ITIT+1, NONE
IT IT+1
ITEM1 NONE+1
ITEMH ITEM+2
ITS ITEM+5
NONE NONE+2

Naked Globals

Name Field # of Occurrence
^(0 ITEM+5, ITS*, ITS+1, ITEXIT+2, ITEM1+7, ITEM1+9
^(1 ITS*, ITEM1+4, ITEM1+9
^(2 ITEM+1, ITEM1+6, ITEMH+1
^(3 ITEM+1, ITS+1, ITEMH+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ITEM+6*!, IT+1*, EXIT+3!, ITEM1+1
>> D ITEMH+3*
>> DA ITSITS+1, ITS+2
>> DA(1 ITEM+1, ITSITS+1, ITS+2, ITITEMH+1
DIC ITEM+3*!, ITEM+4!, EXIT+3!, ITEMH+3*
DIC("S" ITEM+3*, ITEMH+3*, ITEMH+4!
DIC(0 ITEM+3*, ITEMH+3*, ITEMH+4!
>> DIE ITEMH+3
DT ITS
>> I ITEM0+1*
IOM ITEM1+3
>> J ITEM0+1*
>> K NONE+1*
L EXIT+3!, ITEM1+3*
>> PRC("CP" ITEM+1, ITEM+5, ITEM0ITEM1+1
>> PRC("SITE" ITEM+1, ITEM+5, ITEM0ITEM1+1
>> PRCSSUB ITS+1*, ITS+2
PRCSV ITEM+1*, ITEM+2, ITEM+6!, ITSEXITEXIT+1, EXIT+2, EXIT+3!, ITEMH+1*, ITEMH+2
ITEMH+4!
>> PRCSX ITEM0*, ITEM1+1
U ITS+1, ITS+2, ITITEM0ITEM0+1, NONE+1, ITEM1+4, ITEM1+5, ITEM1+6, ITEM1+7
ITEM1+8, ITEM1+9
W ITEM0*, EXIT+3!, ITEM1+2
W(1 ITEM0*, ITEM0+1
W(2 ITEM0*, ITEM0+1*, NONENONE+1, NONE+2*
W(3 ITEM0*, ITEM0+1*
W(4 ITEM0+1*
W(5 NONE+1*, ITEM1+6, ITEM1+7
W(6 NONE+1*, ITEM1+4, ITEM1+5, ITEM1+6, ITEM1+7, ITEM1+9
W(7 ITEM1+6*, ITEM1+8, ITEM1+10!
W(8 ITEM1+7*, ITEM1+8, ITEM1+9*, ITEM1+10!
W1 ITEM0*, NONE+1*, NONE+2, EXIT+3!, ITEM1ITEM1+1, ITEM1+2, ITEM1+3
X ITEM+3!, ITEM+4*!, ITEM+6*!, ITS*, ITEM0ITEM0+1, NONE+1, ITEM1+1*, ITEM1+2, ITEMH+3*
>> Y ITEM+3, ITEM+4, ITEM+6, ITSITEM1+1*, ITEM1+4*
>> Y(0 ITSITEM0
>> Z ITS*, EXITEXIT+1, EXIT+2
>> Z(1 EXIT+2*
ZD ITEMH+3*, ITEMH+4!
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