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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCSD121

Package: IFCAP

Routine: PRCSD121


Information

PRCSD121 ;WISC/SAW/BMM-CONTROL POINT ACTIVITY 2237 DISPLAY CON'T ;6/25/12 12:59

Source Information

Source file <PRCSD121.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
IFCAP 2 NEWP^PRCSD121  DIWP^PRCUTL  
Kernel 1 $$FMTE^XLFDT  
Toolkit 1 $$GET^XPAR  

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 PRCSD12  PRCSD121  PRCSD122  

Entry Points

Name Comments DBIA/ICR reference
ITEM1
ITEM2
PRCARD
VENDOR ;PRINT VENDOR AND REQ MESSAGES
RM
DEL
NEWP ;PRINT HEADER FOR NEW PAGE

External References

Name Field # of Occurrence
NEWP^PRCSD121 RM+3
DIWP^PRCUTL ITEM1+8, PRCARD+1, PRCARD+6, PRCARD+10, RM+2
$$FMTE^XLFDT PRCARD+10
$$GET^XPAR PRCARD+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?13,P,":"
  • Line Location: PRCSD121+9
Function Call: WRITE
  • Prompt: !,$E(P(4),1,13),!,$E(P(4),13,24)
  • Line Location: ITEM1+2
Function Call: WRITE
  • Prompt: !,P(4)
  • Line Location: ITEM1+3
Function Call: WRITE
  • Prompt: ?13,^UTILITY($J,"W",DIWL,J,0)
  • Line Location: ITEM2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM2+2
Function Call: WRITE
  • Prompt: ?13,^UTILITY($J,"W",DIWL,Z,0),?52,P(0)
  • Line Location: ITEM2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM2+3
Function Call: WRITE
  • Prompt: ?13,^UTILITY($J,"W",DIWL,1,0),?52,P(0)
  • Line Location: ITEM2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM2+4
Function Call: WRITE
  • Prompt: ?13,"eCMS Item Line ID ",$P(^PRCS(410,DA,"IT",P(1),4),U,3),!
  • Line Location: ITEM2+5
Function Call: WRITE
  • Prompt: !,?13,"TOTAL COST: ","$"_$J($P(^(4),U,1),0,2)
  • Line Location: VENDOR+3
Function Call: WRITE
  • Prompt: !,L
  • Line Location: VENDOR+4
Function Call: WRITE
  • Prompt: !,X
  • Line Location: VENDOR+8
Function Call: WRITE
  • Prompt: ?38,"EDI"
  • Line Location: VENDOR+9
Function Call: WRITE
  • Prompt: ?46,"FAX: "_$P(^(10),U,6)
  • Line Location: VENDOR+10
Function Call: WRITE
  • Prompt: W:Z(1)=$Y
  • Condition for execution: $P(^PRCS(410,DA,2),U,3)'="" !,?8,$P(^(2),U,3) S Z1=$P(^(3),U,4) I Z1,$D(^PRC(440,Z1,2)),$P(^(2),U,1)'=""
  • Line Location: VENDOR+13
Function Call: WRITE
  • Prompt: !
  • Condition for execution: Z(1)=$Y
  • Line Location: VENDOR+13
Function Call: WRITE
  • Prompt: ?42,"ACCT. #: ",$P(^(2),U,1)
  • Line Location: VENDOR+13
Function Call: WRITE
  • Prompt: !,?8,$P(^(2),U,6)
  • Line Location: VENDOR+15
Function Call: WRITE
  • Prompt: " ",$P(^(2),U,8)
  • Condition for execution: +$P(^(2),U,7)'=0 ",",$P($G(^DIC(5,$P(^(2),U,7),0)),U,2) W:$P(^PRCS(410,DA,2),U,8)'=""
  • Line Location: VENDOR+15
Function Call: WRITE
  • Prompt: $P(^(445),"^"),!
  • Line Location: VENDOR+16
Function Call: WRITE
  • Prompt: !
  • Line Location: RM+2
Function Call: WRITE
  • Prompt: !,^UTILITY($J,"W",DIWL,K,0)
  • Line Location: RM+3
Function Call: WRITE
  • Prompt: !,?6,"DELIVER TO: ",$P(^(9),U,1)
  • Line Location: DEL+0
Function Call: WRITE
  • Prompt: !,L
  • Line Location: DEL+1
Function Call: READ
  • Variable: Z1
  • Timeout: DTIME
  • Line Location: NEWP+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEWP+1
Function Call: WRITE
  • Prompt: !,?31,$P(^PRCS(410,DA,0),U,1)
  • Line Location: NEWP+2
Function Call: WRITE
  • Prompt: !,L
  • Line Location: NEWP+2
Function Call: WRITE
  • Prompt: !,?16,"REQUEST, TURN-IN, AND RECEIPT FOR PROPERTY OR SERVICES"
  • Line Location: NEWP+3
Function Call: WRITE
  • Prompt: !,L
  • Line Location: NEWP+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRCARD+5
^DIC(5 - [#5] VENDOR+15
^PRC(440 - [#440] PRCARD+5, VENDOR+9, VENDOR+10, VENDOR+13
^PRC(441 - [#441] PRCARD, PRCARD+1, PRCARD+2, PRCARD+3, PRCARD+4
^PRCD(420.5 - [#420.5] ITEM1+5, PRCARD+4
^PRCS(410 - [#410] PRCSD121+9, PRCSD121+11, ITEM1, ITEM1+8, ITEM2+5, PRCARD, PRCARD+1, PRCARD+2, PRCARD+9, PRCARD+10
, VENDOR+3, VENDOR+5, VENDOR+6, VENDOR+8, VENDOR+11, VENDOR+12, VENDOR+13, VENDOR+14, VENDOR+15, VENDOR+16
, RM+1, RM+2, DEL, NEWP+2
^PRCS(410.2 - [#410.2] PRCSD121+9
^UTILITY($J PRCSD121+11!, ITEM2, ITEM2+1, ITEM2+2, ITEM2+3, ITEM2+4, RM+2!, RM+3

Label References

Name Line Occurrences
DEL RM+1
ITEM1 PRCSD121+11
ITEM2 PRCARD, PRCARD+11
NEWP ITEM1+1, ITEM2+2, ITEM2+3, ITEM2+4, ITEM2+5, VENDOR+2, VENDOR+4, VENDOR+7, RM
PRCARD ITEM1+7
RM VENDOR+5, VENDOR+6
VENDOR PRCSD121+11

Naked Globals

Name Field # of Occurrence
^( ITEM1+8, ITEM2*, PRCARD+1, RM+2
^(0 ITEM1, ITEM1+5, PRCARD+2, PRCARD+4, PRCARD+5
^(1 PRCSD121+9
^(10 VENDOR+10
^(2 VENDOR+6, VENDOR+11, VENDOR+12, VENDOR+13, VENDOR+14, VENDOR+15
^(3 PRCARD+3, VENDOR+9, VENDOR+13
^(4 PRCARD+10, VENDOR+3
^(445 VENDOR+16
^(9 DEL

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA PRCSD121+9, PRCSD121+11, ITEM1, ITEM1+8, ITEM2+5, PRCARD, PRCARD+1, PRCARD+2, PRCARD+6, PRCARD+9
, PRCARD+10, VENDOR+3, VENDOR+5, VENDOR+6, VENDOR+8, VENDOR+11, VENDOR+12, VENDOR+13, VENDOR+14, VENDOR+15
, VENDOR+16, RM+1, RM+2, DEL, NEWP+2
>> DIWF PRCSD121+10*, RM+2*
>> DIWL PRCSD121+10*, ITEM2, ITEM2+1, ITEM2+2, ITEM2+3, ITEM2+4, RM+2*, RM+3
>> DIWR PRCSD121+10*, RM+2*
DTIME NEWP+1
>> I PRCSD121+11*, ITEM1+8*, PRCARD+1*
IOF NEWP+1
IOSL ITEM1+1, ITEM2+2, ITEM2+3, ITEM2+4, ITEM2+5, VENDOR+2, VENDOR+4, VENDOR+7, RM
>> J ITEM2+2*, RM+2*
>> K RM+3*
>> L VENDOR+4, VENDOR+16, DEL+1, NEWP+2, NEWP+3
>> P PRCSD121+9*
>> P("PR" PRCARD*, PRCARD+1, PRCARD+2, PRCARD+3, PRCARD+4
>> P("PR1" PRCARD+1*
>> P(0 ITEM1+6*, ITEM2+3, ITEM2+4
>> P(1 PRCSD121+10*, PRCSD121+11*, ITEM1, ITEM1+8, ITEM2+5, PRCARD, PRCARD+1, PRCARD+9, PRCARD+10, RM+2*
>> P(2 ITEM1+8*
>> P(3 ITEM1+5*, ITEM1+6
>> P(4 ITEM1+2*, ITEM1+3
>> PRCS("SUB" ITEM1+5*
U PRCSD121+9, ITEM1+1, ITEM1+2, ITEM1+5, ITEM1+6, ITEM1+7, ITEM1+8, ITEM2+2, ITEM2+3, ITEM2+4
, ITEM2+5, PRCARD, PRCARD+1, PRCARD+2, PRCARD+3, PRCARD+4, PRCARD+5, PRCARD+9, PRCARD+10, VENDOR+2
, VENDOR+3, VENDOR+4, VENDOR+6, VENDOR+7, VENDOR+9, VENDOR+10, VENDOR+11, VENDOR+12, VENDOR+13, VENDOR+14
, VENDOR+15, RM, DEL, NEWP+1, NEWP+2
>> X ITEM1+8*, PRCARD+1*, PRCARD+6*, PRCARD+10*, VENDOR+8*, RM+2*
>> Y PRCARD+5*
>> Z ITEM1*, ITEM1+2, ITEM1+5, ITEM1+6, ITEM1+7, ITEM2+1*, ITEM2+2, ITEM2+3, ITEM2+4, PRCARD+2*
, PRCARD+3*, PRCARD+4*, PRCARD+5*, PRCARD+6, RM+3*
>> Z(1 VENDOR+13*
Z0 VENDOR+1~, VENDOR+8*, VENDOR+9, VENDOR+10
>> Z1 ITEM1+1, ITEM2+2, ITEM2+3, ITEM2+4, ITEM2+5, PRCARD+2*, PRCARD+4, PRCARD+5, VENDOR+2, VENDOR+4
, VENDOR+7, VENDOR+13*, RM, NEWP+1*
Z2 PRCARD+2*, PRCARD+5!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All