Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PRCE58P2

Package: IFCAP

Routine: PRCE58P2


Information

PRCE58P2 ;WISC/SAW,LDB-CONTROL POINT ACTIVITY 1358 PRINTOUT ;6/7/11 18:56

Source Information

Source file <PRCE58P2.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,PRCSTN,?36,Y,?72,"PAGE ",PRCSP
  • Line Location: P+1
Function Call: WRITE
  • Prompt: $P($G(^VA(200,TRNODE(14),0)),"^"),!
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !,"Requestor:",?41,"|Date Requested:",?62,"|Obligation No.:"
  • Line Location: P+3
Function Call: WRITE
  • Prompt: !
  • Line Location: P+4
Function Call: WRITE
  • Prompt: X
  • Line Location: P+4
Function Call: WRITE
  • Prompt: ?41,"|"
  • Line Location: P+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: P+5
Function Call: WRITE
  • Prompt: ?65,PRC("SITE")_"-"_PRCSPO
  • Line Location: P+6
Function Call: WRITE
  • Prompt: !,"Vendor:",?41,"|Contract Number:"
  • Line Location: P+7
Function Call: WRITE
  • Prompt: !
  • Line Location: P+8
Function Call: WRITE
  • Prompt: $P(TRNODE(2),U)
  • Line Location: P+8
Function Call: WRITE
  • Prompt: ?41,"|"
  • Line Location: P+9
Function Call: WRITE
  • Prompt: $P(PRCSG,U,10)
  • Line Location: P+9
Function Call: WRITE
  • Prompt: !
  • Line Location: P+10
Function Call: WRITE
  • Prompt: $P(TRNODE(2),U,2),?41,"|",!,$P(TRNODE(2),U,6)_", "
  • Line Location: P+10
Function Call: WRITE
  • Prompt: $P(TRNODE(2),U,2),?41,"|",!,$P(TRNODE(2),U,6)_", "
  • Line Location: P+10
Function Call: WRITE
  • Prompt: ?41,"|"
  • Line Location: P+11
Function Call: WRITE
  • Prompt: !,"Name and Title Approving Official:",?41,"|Signature/Date Signed:"
  • Line Location: P+11
Function Call: WRITE
  • Prompt: !
  • Line Location: P+12
Function Call: WRITE
  • Prompt: $E(X,1,30)
  • Line Location: P+12
Function Call: WRITE
  • Prompt: !
  • Line Location: P+13
Function Call: WRITE
  • Prompt: $E(X,1,30)
  • Line Location: P+13
Function Call: WRITE
  • Prompt: "/ES/"_$E(X,1,28)
  • Line Location: P+14
Function Call: WRITE
  • Prompt: ?62,"/"
  • Line Location: P+15
Function Call: WRITE
  • Prompt: Y
  • Line Location: P+15
Function Call: WRITE
  • Prompt: !
  • Line Location: P+16
Function Call: WRITE
  • Prompt: $P(P1,U,4)
  • Line Location: P+16
Function Call: WRITE
  • Prompt: ?41,"|"
  • Line Location: P+17
Function Call: WRITE
  • Prompt: !,"FUND CERTIFICATION:",!,"The supplies and services listed on this request are properly chargeable"
  • Line Location: P+17
Function Call: WRITE
  • Prompt: !,"to the following allotments, the available balances of which are"
  • Line Location: P+18
Function Call: WRITE
  • Prompt: !,"sufficient to cover the cost thereof, and funds have been obligated."
  • Line Location: P+19
Function Call: WRITE
  • Prompt: !,"Appropriation and Accounting Symbols:",?41,"|Obligated By: ",?62,"|Date Obligated:"
  • Line Location: P+20
Function Call: WRITE
  • Prompt: "/ES/"_$E(X,1,28)
  • Line Location: P+25
Function Call: WRITE
  • Prompt: ?62,"|"
  • Line Location: P+26
Function Call: WRITE
  • Prompt: Y
  • Line Location: P+26
Function Call: WRITE
  • Prompt: !,"AUTHORITY: "
  • Line Location: P+28
Function Call: WRITE
  • Prompt: $P($G(^PRCS(410.9,$P(TRNODE(11),U,4),0)),U)
  • Line Location: P+28
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: P+30
Function Call: WRITE
  • Prompt: !,"Purpose: "
  • Line Location: P+31
Function Call: WRITE
  • Prompt: !,^UTILITY($J,"W",DIWL,I,0)
  • Line Location: P+32
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(TRNODE(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
Info |  Source |  Entry Points |  Interaction Calls