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

Package: IFCAP

Routine: PRCE58P0


Information

PRCE58P0 ;WISC/SAW/LDB-DISPLAY 1358 FORM CONT. 19-FEB-92 ;6/7/11 16:26

Source Information

Source file <PRCE58P0.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
IFCAP 5 ^PRCE58P1  $$AUTHR^PRCEMOA  $$DECODE^PRCSC1  $$DECODE^PRCSC2  DIWP^PRCUTL  
Kernel 3 ^%ZISC  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: 8

Package Total Caller Graph
IFCAP 8 PRCE58P  PRCE58P1  PRCFDPVI  PRCFDPVT  PRCFFERI  PRCFFERT  PRCSAPP2  PRCSP1  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**148,158,161**;Oct 20, 2000;Build 19
PRCSD11 ;Entry for print
TST
EXIT
NEWP ;PRINT HEADER FOR NEW PAGE
NEWP1
HOLD
W2
W1
W

External References

Name Field # of Occurrence
DD^%DT PRCSD11+1, PRCSD11+5, PRCSD11+13, TST+6
NOW^%DTC PRCSD11+1
^%ZISC W+1
KILL^%ZTLOAD EXIT
^PRCE58P1 TST+14
$$AUTHR^PRCEMOA NEWP1
$$DECODE^PRCSC1 PRCSD11+12
$$DECODE^PRCSC2 TST+5
DIWP^PRCUTL TST+1
$$FMTE^XLFDT TST+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRCSD11+1
Function Call: WRITE
  • Prompt: !,$P(TRNODE(0),U),?34,Y,?73,"PAGE ",PRCSP
  • Line Location: PRCSD11+1
Function Call: WRITE
  • Prompt: !,$P(TRNODE(0),U),?34,Y,?73,"PAGE ",PRCSP
  • Line Location: PRCSD11+1
Function Call: WRITE
  • Prompt: $P($G(^VA(200,+TRNODE(14),0)),"^"),!
  • Line Location: PRCSD11+2
Function Call: WRITE
  • Prompt: !,"Requestor:",?34,"|Date Requested:",?62,"|Obligation No.:"
  • Line Location: PRCSD11+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCSD11+4
Function Call: WRITE
  • Prompt: X
  • Line Location: PRCSD11+4
Function Call: WRITE
  • Prompt: ?34,"|"
  • Line Location: PRCSD11+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: PRCSD11+5
Function Call: WRITE
  • Prompt: ?65,PRC("SITE")_"-"_PRCSPO
  • Line Location: PRCSD11+6
Function Call: WRITE
  • Prompt: !,L
  • Line Location: PRCSD11+7
Function Call: WRITE
  • Prompt: !,"Vendor:",?34,"|Contract Number:"
  • Line Location: PRCSD11+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCSD11+8
Function Call: WRITE
  • Prompt: $E(X,1,31)
  • Line Location: PRCSD11+8
Function Call: WRITE
  • Prompt: ?34,"|"
  • Line Location: PRCSD11+9
Function Call: WRITE
  • Prompt: $P(PRCSG,U,10)
  • Line Location: PRCSD11+9
Function Call: WRITE
  • Prompt: !,L
  • Line Location: PRCSD11+10
Function Call: WRITE
  • Prompt: !,"Name and Title Approving Off.:",?41,"|Signature:",?62,"|Date Signed:"
  • Line Location: PRCSD11+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCSD11+11
Function Call: WRITE
  • Prompt: $E(X,1,30)
  • Line Location: PRCSD11+11
Function Call: WRITE
  • Prompt: "/ES/"_$E(X,1,23)
  • Line Location: PRCSD11+12
Function Call: WRITE
  • Prompt: ?62,"|"
  • Line Location: PRCSD11+13
Function Call: WRITE
  • Prompt: Y
  • Line Location: PRCSD11+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCSD11+14
Function Call: WRITE
  • Prompt: $P(P1,U,4)
  • Line Location: PRCSD11+14
Function Call: WRITE
  • Prompt: ?41,"|",?62,"|"
  • Line Location: PRCSD11+15
Function Call: WRITE
  • Prompt: !,L
  • Line Location: PRCSD11+15
Function Call: WRITE
  • Prompt: !,L
  • Line Location: PRCSD11+15
Function Call: WRITE
  • Prompt: !,"properly chargeable to the following allotments, the available balances of"
  • Line Location: PRCSD11+16
Function Call: WRITE
  • Prompt: !,"which are sufficient to cover the cost thereof, and funds have been obligated."
  • Line Location: PRCSD11+17
Function Call: WRITE
  • Prompt: !,L
  • Line Location: PRCSD11+18
Function Call: WRITE
  • Prompt: !,"Appropriation & Acct. Symbols:",?41,"|Obligated By: ",?62,"|Date Obligated:"
  • Line Location: PRCSD11+19
Function Call: WRITE
  • Prompt: "/ES/"_$E(X,1,27)
  • Line Location: TST+5
Function Call: WRITE
  • Prompt: ?62,"|"
  • Line Location: TST+6
Function Call: WRITE
  • Prompt: Y
  • Line Location: TST+6
Function Call: WRITE
  • Prompt: !,L
  • Line Location: TST+7
Function Call: WRITE
  • Prompt: !,"AUTHORITY: "
  • Line Location: TST+8
Function Call: WRITE
  • Prompt: $P($G(^PRCS(410.9,$P(TRNODE(11),U,4),0)),U)
  • Line Location: TST+8
Function Call: WRITE
  • Prompt: !,"SERVICE START DATE: ",$$FMTE^XLFDT($P($G(TRNODE(1)),U,6),"2DZ"),?40,"SERVICE END DATE: ",$$FMTE^XLFDT($P($G(TRNODE(1)),U,7),"2DZ")
  • Line Location: TST+10
Function Call: WRITE
  • Prompt: !,L,!,"Purpose: "
  • Line Location: TST+11
Function Call: WRITE
  • Prompt: !,^UTILITY($J,"W",DIWL,I,0)
  • Line Location: TST+12
Function Call: WRITE
  • Prompt: !,L
  • Line Location: TST+12
Function Call: WRITE
  • Prompt: !,L
  • Line Location: TST+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEWP+1
Function Call: WRITE
  • Prompt: !,$P(TRNODE(0),U)
  • Line Location: NEWP+1
Function Call: WRITE
  • Prompt: ?35,PRC("SITE")_"-"_PRCSPO
  • Condition for execution: $D(PRCSPO)
  • Line Location: NEWP+1
Function Call: WRITE
  • Prompt: ?73,"PAGE ",PRCSP
  • Line Location: NEWP+1
Function Call: WRITE
  • Prompt: !,$P(TRNODE(0),U)
  • Line Location: NEWP+1
Function Call: WRITE
  • Prompt: !,"1358 OBLIGATION OR CHANGE"
  • Line Location: NEWP1+1
Function Call: WRITE
  • Prompt: ":",$P(PRCX,U)
  • Condition for execution: $P(PRCX,U)]""
  • Line Location: NEWP1+1
Function Call: WRITE
  • Prompt: !,?5,$P(PRCX,U,2)
  • Condition for execution: $P(PRCX,U,2)]""
  • Line Location: NEWP1+2
Function Call: WRITE
  • Prompt: !,L
  • Line Location: NEWP1+2
Function Call: READ
  • Timeout: DTIME
  • Line Location: HOLD+0
Function Call: WRITE
  • Prompt: !!,"Enter information for another report or an uparrow to return to the menu.",!
  • Line Location: W2+0
Function Call: READ
  • Variable: X
  • Timeout: 5
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: !!,"You are not an authorized control point user.",!,"Contact your control point official."
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: I
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!,"Press return to continue: "
  • Line Location: W+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCS(410.9 - [#410.9] TST+8, TST+9
^UTILITY($J TST!, TST+12, EXIT!
^VA(200 - [#200] PRCSD11+2, PRCSD11+4, PRCSD11+11

Label References

Name Line Occurrences
EXIT PRCSD11+18, TST+13, W1
HOLD PRCSD11+18, TST+12, TST+13, TST+14
NEWP PRCSD11+18, TST+12, TST+13
NEWP1 PRCSD11+2

Naked Globals

Name Field # of Occurrence
^(20 PRCSD11+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRCSD11+1
%DT EXIT!
CT EXIT!
DA PRCSD11+12, TST+1*, TST+5, EXIT!
DIWF TST*, EXIT!
DIWL TST*, TST+12, EXIT!
DIWR TST*, EXIT!
DTIME HOLDW
I TST+1*, TST+12*, EXIT!
IO PRCSD11+1, W+1
IO(0 W+1
IOF PRCSD11+1, NEWP+1
IOM PRCSD11+1
IOSL TST+12, TST+13
IOST W
L PRCSD11+1*, PRCSD11+7, PRCSD11+10, PRCSD11+15, PRCSD11+18, TST+7, TST+11, TST+12, TST+13, EXIT!
NEWP+1, NEWP1+2
P PRCSD11+11!*, PRCSD11+12, TST+3*, TST+4*, TST+5, EXIT!
P1 PRCSD11+4!*, PRCSD11+11, PRCSD11+12Press return to continue:, PRCSD11+13, PRCSD11+14, EXIT!
>> PRC("SITE" PRCSD11+6, TST+3, NEWP+1
PRCSA EXIT!
PRCSA1 EXIT!
PRCSA2 EXIT!
PRCSDAA TST+1*!
PRCSG PRCSD11+9!*, TST+3, TST+5!*, TST+6, EXIT!
PRCSP PRCSD11+1*, EXIT!, NEWP+1*
PRCSPO PRCSD11+6*, EXIT!, NEWP+1
PRCSY EXIT!
PRCX NEWP1~*, NEWP1+1, NEWP1+2
PROJ TST+4~*
TRNODE EXIT!
TRNODE(0 PRCSD11+1, NEWP+1
TRNODE(1 PRCSD11+5, TST+10
TRNODE(11 TST+8, TST+9, NEWP1
TRNODE(14 PRCSD11+2
TRNODE(2 PRCSD11+8
TRNODE(3 PRCSD11+9, TST+4
TRNODE(4 PRCSD11+6, TST+5
TRNODE(7 PRCSD11+4
TRNODE(8 TST+1
U PRCSD11+1*, PRCSD11+4, PRCSD11+5, PRCSD11+6, PRCSD11+8, PRCSD11+9, PRCSD11+11, PRCSD11+12, PRCSD11+13, PRCSD11+14
PRCSD11+18, TST+3, TST+5, TST+6, TST+8, TST+9, TST+10, TST+12, TST+13, TST+14
NEWP+1, NEWP1NEWP1+1, NEWP1+2, HOLD
UT EXIT!
X PRCSD11+4*, PRCSD11+8*, PRCSD11+11*, PRCSD11+12*, TST+1*, TST+5*, EXIT!, W1*, W*
X1 TST+1*, EXIT!
Y PRCSD11+1*, PRCSD11+5*, PRCSD11+13*!, TST+6*, EXIT!
Z TST+12*, EXIT!
Z1 EXIT!
Z2 EXIT!
Z3 PRCSD11+18, TST+12, TST+13, TST+14, EXIT!, HOLD*
>> ZTQUEUED EXIT
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All