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

Package: IFCAP

Routine: PRCSP121


Information

PRCSP121 ;WISC/SAW/BMM-CONTROL POINT ACTIVITY 2237 PRINTOUT CON'T ;6/25/12 14:00

Source Information

Source file <PRCSP121.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
IFCAP 1 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 PRCSP12  PRCSP122  PRCSP123  

Entry Points

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

External References

Name Field # of Occurrence
DIWP^PRCUTL ITEM1+4, PRCARD+1, PRCARD+6, PRCARD+9
$$FMTE^XLFDT PRCARD+9
$$GET^XPAR PRCARD+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?12,"|",P,":",?38,"|",?48,"|",?53,"|",?63,"|",?73,"|",?84,"|"
  • Line Location: PRCSP121+9
Function Call: WRITE
  • Prompt: !,$E(P(4),1,12),"|",?38,"|",?48,"|",?53,"|",?63,"|",?73,"|",?84,"|",!,$E(P(4),13,24)
  • Line Location: ITEM2+2
Function Call: WRITE
  • Prompt: !,P(4)
  • Line Location: ITEM2+3
Function Call: WRITE
  • Prompt: ?12,"|",^UTILITY($J,"W",DIWL,J,0),?38,"|",?48,"|",?53,"|",?63,"|",?73,"|",?84,"|"
  • Line Location: ITEM2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM2+4
Function Call: WRITE
  • Prompt: ?12,"|",^UTILITY($J,"W",DIWL,Z,0),?38,P(0),?73,"|",?84,"|"
  • Line Location: ITEM2+5
Function Call: WRITE
  • Prompt: ?12,"|",^UTILITY($J,"W",DIWL,1,0),?38,P(0),?73,"|",?84,"|"
  • Line Location: ITEM2+6
Function Call: WRITE
  • Prompt: !?12,"|","eCMS Line ID ",$P(^PRCS(410,DA,"IT",P(1),4),U,3),?38,"|",?48,"|",?53,"|",?63,"|",?73,"|",?84,"|"
  • Line Location: ITEM2+7
Function Call: WRITE
  • Prompt: !,?12,"|",?38,"|",?48,"|",?53,"|",?63,"|",?73,"|",?84,"|"
  • Line Location: ITEM2+8
Function Call: WRITE
  • Prompt: !,?12,"|TOTAL COST: ","$"_$J($P(^(4),U),0,2),?38,"|",?48,"|",?53,"|",?63,"|",?73,"|",?84,"|"
  • Line Location: VENDOR+3
Function Call: WRITE
  • Prompt: !,$E(L,1,12),"|",$E(L,1,25),"|",$E(L,1,9),"|",$E(L,1,4),"|",$E(L,1,9),"|",$E(L,1,9),"|",$E(L,1,10),"|",$E(L,1,5)
  • 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
  • Condition for execution: $P(X,U,3)'="" !,?8,$P(X,U,3) S Z1=$P(^PRCS(410,DA,3),U,4) I Z1,$D(^PRC(440,Z1,2)),$P(^(2),U)'=""
  • Line Location: VENDOR+13
Function Call: WRITE
  • Prompt: ?42,"ACCT. #: ",$P(^(2),U)
  • Line Location: VENDOR+13
Function Call: WRITE
  • Prompt: !,?8,$P(X,U,6)
  • Line Location: VENDOR+15
Function Call: WRITE
  • Prompt: " ",$P(X,U,8)
  • Condition for execution: +$P(X,U,7)'=0 ",",$P($G(^DIC(5,$P(X,U,7),0)),U,2) W:$P(X,U,8)'=""
  • Line Location: VENDOR+15
Function Call: WRITE
  • Prompt: !,"VA FORM 90-2237-ADP MAR 1985"
  • Line Location: NEWP+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: NEWP+1
Function Call: WRITE
  • Prompt: !,?36,$P(^PRCS(410,DA,0),U),?83,"PAGE ",PRCS("P"),!,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: ?37,"**REPRINT**",!
  • Line Location: NEWP+3
Function Call: WRITE
  • Prompt: !,L
  • Line Location: NEWP+4

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+1, PRCARD+4
^PRCS(410 - [#410] PRCSP121+9, PRCSP121+11, ITEM1, ITEM1+4, ITEM2+7, PRCARD, PRCARD+1, PRCARD+2, PRCARD+8, PRCARD+9
, VENDOR+3, VENDOR+5, VENDOR+6, VENDOR+8, VENDOR+11, VENDOR+13, VENDOR+16, NEWP+2
^PRCS(410.2 - [#410.2] PRCSP121+9
^UTILITY($J PRCSP121+11!, ITEM2, ITEM2+1, ITEM2+4, ITEM2+5, ITEM2+6

Label References

Name Line Occurrences
ITEM1 PRCSP121+11
ITEM2 PRCARD, PRCARD+10
NEWP ITEM2+4, ITEM2+7, ITEM2+8, VENDOR+2, VENDOR+4, VENDOR+7, RM
PRCARD ITEM1+3
RM VENDOR+5, VENDOR+6
VENDOR PRCSP121+11

Naked Globals

Name Field # of Occurrence
^( ITEM1+4, ITEM2*, PRCARD+1
^(0 ITEM1, ITEM1+1, PRCARD+2, PRCARD+4, PRCARD+5
^(1 PRCSP121+9
^(10 VENDOR+10
^(2 VENDOR+6, VENDOR+13
^(3 PRCARD+3, VENDOR+9
^(4 PRCARD+9, VENDOR+3
^(445 VENDOR+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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