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

Package: IFCAP

Routine: PRCHDAM


Information

PRCHDAM ;WISC/DJM,ID/RSD-DISPLAY AN AMENDMENT ;2/12/98 2:38 PM

Source Information

Source file <PRCHDAM.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
ACC
CO
Q ;exit point
ITEM
CONT
CHKP
PGE
DT
X8
EN2 ;ADJUSTMENT VOUCHER DISPLAY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: V+5
Function Call: WRITE
  • Prompt: !,"2. MOD. NO.: ",?15,"| 3. EFFECTIVE DATE: ",?46,"| 4. REQUISITION/P.O. REQ. NO.: "
  • Line Location: V+5
Function Call: WRITE
  • Prompt: !?6,$P(PRCHD0,U,1),?15,"| "
  • Line Location: V+6
Function Call: WRITE
  • Prompt: ?46,"| ",$S(Y:Y_"/",1:" "),$P($P($G(^PRC(443.6,D0,0)),U,1),"-",2),!,PRCHDUL
  • Line Location: V+8
Function Call: WRITE
  • Prompt: !,"8. NAME AND ADDRESS OF CONTRACTOR ",?40,"| 10A. MODIFICATION OF CONTRACT/ORDER",!?5,$P(X,U,1),?40,"| NO."
  • Line Location: V+9
Function Call: WRITE
  • Prompt: ?52,$P($G(^PRC(443.6,PRCHPO,0)),U)
  • Line Location: V+10
Function Call: WRITE
  • Prompt: !?5,$P(X,U,I),?40,"|"
  • Line Location: V+11
Function Call: WRITE
  • Prompt: !?5,$P(X,U,6),", ",$P($G(^DIC(5,+$P(X,U,7),0)),U,2)," ",$P(X,U,8),?40,"|"
  • Line Location: V+12
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>40
  • Line Location: V+13
Function Call: WRITE
  • Prompt: ?40,"|"
  • Line Location: V+13
Function Call: WRITE
  • Prompt: !
  • Line Location: V+13
Function Call: WRITE
  • Prompt: " $",$J($S(X<0:-X,1:X),10,2)
  • Condition for execution: X
  • Line Location: ACC+0
Function Call: WRITE
  • Prompt: ?50,"TOTAL AMOUNT: $",$J($P(PRCHDP0,U,15),10,2)
  • Line Location: ACC+1
Function Call: WRITE
  • Prompt: !,PRCHDUL
  • Line Location: ACC+2
Function Call: WRITE
  • Prompt: !,$P(Y,U,1),". ",$P(Y,U,2),!?3,$P(PRCHD0,U,7),!,PRCHDUL
  • Line Location: ACC+2
Function Call: WRITE
  • Prompt: !," IMPORTANT: Contractor is ",$S($P(PRCHD0,U,5)="Y":"",1:"not "),"required to sign this document and return"
  • Line Location: ACC+3
Function Call: WRITE
  • Prompt: !,?4,$S($P(PRCHD0,U,5)="Y":+$P(PRCHD0,U,6)_" ",1:""),"copies to the issuing office."
  • Line Location: ACC+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ACC+5
Function Call: WRITE
  • Prompt: !!?8,"ENTER '^' TO HALT: "
  • Line Location: ACC+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACC+5
Function Call: WRITE
  • Prompt: !,"14. DESCRIPTION OF MODIFICATION (organized by UCF section heading,",!?5," including contract subject matter where feasible.)",!,PRCHDUL,!!
  • Line Location: ACC+7
Function Call: WRITE
  • Prompt: !!,"Except as provided herein, all terms and conditions of the document referenced",!,"in Item 10A, as heretofore changed, remains unchanged and in full force and",!,"effect.",!,PRCHDUL
  • Line Location: ACC+9
Function Call: WRITE
  • Prompt: !,"CONTRACTING OFFICER: "
  • Line Location: CO+0
Function Call: WRITE
  • Prompt: ?22,$P(Y,",",2)," ",$P(Y,",",1),!!
  • Line Location: CO+0
Function Call: WRITE
  • Prompt: ?8,"ENTER '^' TO HALT: "
  • Line Location: CO+1
Function Call: WRITE
  • Prompt: !,^(I,0)
  • Line Location: CONT+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PGE+0
Function Call: WRITE
  • Prompt: !!?8,"ENTER '^' TO HALT: "
  • Line Location: PGE+0
Function Call: WRITE
  • Prompt: Y\100#100,"/",Y#100\1,"/",Y\10000+1700
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !?10,"ADJUSTMENT VOUCHER "
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !,PRCHDUL
  • Line Location: EN2+1
Info |  Source |  Entry Points |  Interaction Calls