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

Package: IFCAP

Routine: PRCHDSP1


Information

PRCHDSP1 ;BOISE/TKW,ID/RSD,WISC/AKS-DISPLAY AMENDMENT ;8/26/94 13:41

Source Information

Source file <PRCHDSP1.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
ACC
ITEM
EXIT
A
H
HDR
EN2 ;ADJUSTMENT VOUCHER
EN2H
PAUSE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "12.ACCOUNTING AND APPROPRIATION DATA (If required)"
  • Line Location: ACC+1
Function Call: WRITE
  • Prompt: ?50,"TOTAL AMOUNT: $",$J($P(PRCHP0,U,15),10,2)
  • Line Location: ACC+1
Function Call: WRITE
  • Prompt: " $",$J($S(X<0:-X,1:X),10,2)
  • Line Location: ACC+3
Function Call: WRITE
  • Prompt: ?51,"/ES/"_X
  • Line Location: ACC+4
Function Call: WRITE
  • Prompt: !,PRCHUL
  • Line Location: ACC+5
Function Call: WRITE
  • Prompt: "__"_Y_"__ copies to the issuing office.",!,PRCHUL
  • Line Location: ACC+10
Function Call: WRITE
  • Prompt: !!,"14.DESCRIPTION OF AMENDMENT/MODIFICATION (Organized by UCF section headings,",!?42,"including solicitation/contract",!?42,"subject matter where feasible.)",!
  • Line Location: ACC+11
Function Call: WRITE
  • Prompt: ?3,^(I,0),!
  • Line Location: ITEM+0
Function Call: WRITE
  • Prompt: !,PRCHUL,!,"15A.NAME AND TITLE OF SIGNER(Type or print)",?43,"|16A.NAME AND TITLE OF CONTRACTING",!?43,"| OFFICER (Type or print)",!
  • Line Location: ITEM+2
Function Call: WRITE
  • Prompt: ?43,"| ",$$DECODE^PRCHES6(D0,D1)," Contracting Officer",!,$E(PRCHUL,1,43),"|",$E(PRCHUL,1,35),!
  • Line Location: ITEM+4
Function Call: WRITE
  • Prompt: ?3,"|"
  • Line Location: A+1
Function Call: WRITE
  • Prompt: PRCHTYP,"."
  • Condition for execution: J=1
  • Line Location: A+1
Function Call: WRITE
  • Prompt: ?6,^(I,0),!
  • Line Location: A+1
Function Call: WRITE
  • Prompt: "___|",$E(PRCHUL,1,75),!
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !
  • Line Location: H+0
Function Call: WRITE
  • Prompt: @IOF,$S($D(PRCHREPR):$E(PRCHUL,1,35)_" **REPRINT** "_$E(PRCHUL,49,80),1:PRCHUL)
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !?2,"AMENDMENT OF SOLICITATION/MODIFICATION OF CONTRACT",?54,"| PAGE",!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $E(PRCHUL,1,54),"|"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: $E(PRCHUL,1,Y)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "_________"
  • Condition for execution: Z
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: PRCHPG,$E(PRCHUL,1,Y),"________"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: PRCHPG,$E(PRCHUL,1,Y),"________"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: PRCHPG,$E(PRCHUL,1,Y),"________"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $E(PRCHUL,1,X)
  • Condition for execution: X>0
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?3,^(I,0),!
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !,PRCHUL,!,"Approve subject to final action on R/S on items indicated.",?65,"| DATE | P.O. NO.",!,$E(PRCHUL,1,65),"|",?77,"|",!
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: "SIGNATURE OF CONTRACTING OFFICER",?65,"|",?77,"|",!,?65,"|",?77,"|",!
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: "/ES/"_X_" "
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: ?65,"| "
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: ?77,"|",!,$E(PRCHUL,1,65),"|",$E(PRCHUL,1,11),"|",$E(PRCHUL,1,19),!
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: @IOF,?5,"SUBJECT: ADJUSTMENT VOUCHER"
  • Line Location: EN2H+0
Function Call: WRITE
  • Prompt: " **REPRINT**"
  • Condition for execution: $D(PRCHREPR)
  • Line Location: EN2H+0
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: EN2H+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAUSE+0
Function Call: WRITE
  • Prompt: " ^ TO QUIT"
  • Line Location: PAUSE+0
Info |  Source |  Entry Points |  Interaction Calls