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

Package: IFCAP

Routine: PRCSP11


Information

PRCSP11 ;WISC/SAW-CONTROL POINT ACTIVITY 1358 PRINTOUT ;6/17/11 17:59

Source Information

Source file <PRCSP11.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
IFCAP 5 $$AUTHR^PRCEMOA  $$DECODE^PRCSC1  $$DECODE^PRCSC2  ^PRCSP111  DIWP^PRCUTL  
Kernel 2 KILL^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 2 DD^%DT  NOW^%DTC  

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

Package Total Caller Graph
IFCAP 2 PRCE58P3  PRCSP111  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**158,161**;Oct 20, 2000;Build 19
QUE
P
UL
NEWP ;PRINT HEADER FOR NEW PAGE
NEWP1

External References

Name Field # of Occurrence
DD^%DT P, P+3, P+12, P+22
NOW^%DTC P
KILL^%ZTLOAD P+29
$$AUTHR^PRCEMOA NEWP1
$$DECODE^PRCSC1 P+11
$$DECODE^PRCSC2 P+21
^PRCSP111 P+28
DIWP^PRCUTL P+19
$$FMTE^XLFDT P+25

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !,PRCSTN,?36,Y,?72,"PAGE ",PRCSP
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !,"Requestor:",?41,"|Date Requested:",?62,"|Obligation No.:"
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !
  • Line Location: P+2
Function Call: WRITE
  • Prompt: X
  • Line Location: P+2
Function Call: WRITE
  • Prompt: ?41,"|"
  • Line Location: P+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: P+3
Function Call: WRITE
  • Prompt: ?65,PRC("SITE")_"-"_PRCSPO
  • Line Location: P+4
Function Call: WRITE
  • Prompt: !,"Vendor:",?41,"|Contract Number:"
  • Line Location: P+5
Function Call: WRITE
  • Prompt: !
  • Line Location: P+6
Function Call: WRITE
  • Prompt: $P(^(2),U)
  • Line Location: P+6
Function Call: WRITE
  • Prompt: $P(^(2),U)
  • Line Location: P+6
Function Call: WRITE
  • Prompt: ?41,"|"
  • Line Location: P+7
Function Call: WRITE
  • Prompt: $P(PRCSG,U,10)
  • Line Location: P+7
Function Call: WRITE
  • Prompt: !
  • Line Location: P+8
Function Call: WRITE
  • Prompt: $P(^(2),U,2),?41,"|",!,$P(^(2),U,6)_", "
  • Line Location: P+8
Function Call: WRITE
  • Prompt: $P(^(2),U,2),?41,"|",!,$P(^(2),U,6)_", "
  • Line Location: P+8
Function Call: WRITE
  • Prompt: ?41,"|"
  • Line Location: P+9
Function Call: WRITE
  • Prompt: !,"Name and Title Approving Official:",?41,"|Signature/Date Signed:"
  • Line Location: P+9
Function Call: WRITE
  • Prompt: !
  • Line Location: P+10
Function Call: WRITE
  • Prompt: $E(X,1,30)
  • Line Location: P+10
Function Call: WRITE
  • Prompt: "/ES/"_$$DECODE^PRCSC1(DA)
  • Line Location: P+11
Function Call: WRITE
  • Prompt: ?62,"/"
  • Line Location: P+12
Function Call: WRITE
  • Prompt: Y
  • Line Location: P+12
Function Call: WRITE
  • Prompt: !
  • Line Location: P+13
Function Call: WRITE
  • Prompt: $P(P1,U,4)
  • Line Location: P+13
Function Call: WRITE
  • Prompt: ?41,"|"
  • Line Location: P+14
Function Call: WRITE
  • Prompt: !,"FUND CERTIFICATION:",!,"The supplies and services listed on this request are properly chargeable"
  • Line Location: P+14
Function Call: WRITE
  • Prompt: !,"to the following allotments, the available balances of which are"
  • Line Location: P+15
Function Call: WRITE
  • Prompt: !,"sufficient to cover the cost thereof, and funds have been obligated."
  • Line Location: P+16
Function Call: WRITE
  • Prompt: !,"Appropriation and Accounting Symbols:",?41,"|Obligated By: ",?62,"|Date Obligated:"
  • Line Location: P+17
Function Call: WRITE
  • Prompt: "/ES/"_$$DECODE^PRCSC2(DA)
  • Line Location: P+21
Function Call: WRITE
  • Prompt: ?62,"|"
  • Line Location: P+22
Function Call: WRITE
  • Prompt: Y
  • Line Location: P+22
Function Call: WRITE
  • Prompt: !,"AUTHORITY: "
  • Line Location: P+23
Function Call: WRITE
  • Prompt: $P($G(^PRCS(410.9,Y,0)),U)
  • Line Location: P+23
Function Call: WRITE
  • Prompt: ?40,"SUB: ",$P($G(^PRCS(410.9,Y,0)),U)
  • Line Location: P+24
Function Call: WRITE
  • Prompt: !,"SERVICE START DATE: ",$$FMTE^XLFDT($P(Y,U,6),"2DZ"),?40,"SERVICE END DATE: ",$$FMTE^XLFDT($P(Y,U,7),"2DZ")
  • Line Location: P+25
Function Call: WRITE
  • Prompt: !,"Purpose:"
  • Line Location: P+26
Function Call: WRITE
  • Prompt: !,^UTILITY($J,"W",DIWL,I,0)
  • Line Location: P+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: P+29
Function Call: WRITE
  • Prompt: !
  • Line Location: UL+0
Function Call: WRITE
  • Prompt: @IOBS
  • Line Location: UL+0
Function Call: WRITE
  • Prompt: L
  • Line Location: UL+1
Function Call: WRITE
  • Prompt: !!,"VA FORM 4-1358a-ADP (NOV 1987)"
  • Line Location: NEWP+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: NEWP+1
Function Call: WRITE
  • Prompt: !,$P(^PRCS(410,DA,0),U)
  • Line Location: NEWP+2
Function Call: WRITE
  • Prompt: ?40,PRC("SITE")_"-"_PRCSPO
  • Condition for execution: $D(PRCSPO)
  • Line Location: NEWP+2
Function Call: WRITE
  • Prompt: ?72,"PAGE ",PRCSP
  • Line Location: NEWP+2
Function Call: WRITE
  • Prompt: !,"1358 OBLIGATION OR CHANGE"
  • Line Location: NEWP1+2
Function Call: WRITE
  • Prompt: ":",$P(PRCX,U)
  • Condition for execution: $P(PRCX,U)]""
  • Line Location: NEWP1+2
Function Call: WRITE
  • Prompt: !,"REQUEST 1358 OBLIG/ADJUST"
  • Line Location: NEWP1+6
Function Call: WRITE
  • Prompt: ":",$P(PRCX,U)
  • Condition for execution: $P(PRCX,U)]""
  • Line Location: NEWP1+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(410 P+10
^DIC(5 - [#5] P+8
^PRCS(410 - [#410] P, P+2, P+3, P+4, P+6, P+7, P+8, P+19, P+21, P+23
, P+24, P+25, NEWP+2, NEWP1
^PRCS(410.9 - [#410.9] P+23, P+24
^UTILITY($J P+18!, P+26, P+29!
^VA(200 - [#200] P+2, P+10

Label References

Name Line Occurrences
NEWP P+26, P+27
NEWP1 P+1
P V+2
UL P, P+5, P+9, P+14, P+17, P+23, P+26, NEWP+2, NEWP1+4, NEWP1+8

Naked Globals

Name Field # of Occurrence
^( P+19
^(0 P+2, P+8
^(1 P+3
^(2 P+6, P+8
^(20 P+10
^(3 P+7
^(4 P+4, P+21
^(7 P+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % P
%DT P+29!
CT P+29!
>> D0 QUE, QUE+1
DA QUE*, QUE+1*, P, P+2, P+3, P+4, P+6, P+7, P+8, P+11
, P+19, P+21, P+23, P+24, P+25, P+29!, NEWP+2, NEWP1
DIWF P+18*, P+29!
DIWL P+18*, P+26, P+29!
DIWR P+18*, P+29!
I P+19*, P+26*, P+29!
IO P
>> IOBS UL
IOF P, P+29, NEWP+1
IOSL P+26, P+27
JJ P+29!, UL*
L P*, P+29!, UL+1
P P+10!*, P+11, P+20*, P+21, P+29!
P1 P+2!*, P+10, P+11, P+12, P+13, P+29!
>> PRC("SITE" P*, P+4, P+20, NEWP+2
PRCSA P+29!
PRCSG P+7!*, P+20, P+21!*, P+22, P+29!
PRCSOB QUE+1*, P+29!, NEWP1+1
PRCSP P*, P+29!, NEWP+2*
PRCSPO P+4*, P+29!, NEWP+2
PRCSTN P*, P+20, P+29!
PRCX NEWP1~*, NEWP1+2, NEWP1+3, NEWP1+6, NEWP1+7
PRSHLD P+10~*
U P*, P+2, P+3, P+4, P+6, P+7, P+8, P+10, P+11, P+12
, P+13, P+20, P+21, P+22, P+23, P+24, P+25, NEWP+2, NEWP1, NEWP1+2
, NEWP1+3, NEWP1+6, NEWP1+7
UT P+29!
X P+2*, P+10*, P+19*, P+29!
X1 P+19*, P+29!
Y P*, P+3*, P+12*!, P+22*, P+23*, P+24*, P+25*, P+29!
Z P+26*, P+29!
>> ZTQUEUED QUE
>> ZTSK P+29
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All