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

Package: IFCAP

Routine: PRCHPAM1


Information

PRCHPAM1 ;WISC/AKS,ID/TKW/RSD-PRINT AMENDMENT ;4/22/99 18:40

Source Information

Source file <PRCHPAM1.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: PRCHUL,!,"12.ACCOUNTING AND APPROPRIATION DATA (If required)"
  • Line Location: ACC+0
Function Call: WRITE
  • Prompt: ?56,"TOTAL AMOUNT: $",$J($P(PRCHP0,U,15),10,2)
  • Line Location: ACC+0
Function Call: WRITE
  • Prompt: " $",$J($S(X<0:-X,1:X),10,2)
  • Line Location: ACC+2
Function Call: WRITE
  • Prompt: ?56,"/ES/"_X
  • Line Location: ACC+3
Function Call: WRITE
  • Prompt: !,PRCHUL,!?16,"13.THIS ITEM APPLIES ONLY TO MODIFICATIONS OF CONTRACTS/ORDERS.",!?19,"IT MODIFIES THE CONTRACT/ORDER NO. AS DESCRIBED IN ITEM 14.",!,PRCHUL,!
  • Line Location: ACC+4
Function Call: WRITE
  • Prompt: "IMPORTANT: Contractor __"_Y_"__ is not, __"_X_"__ is required to sign this document and return",!?14
  • Line Location: ACC+9
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, including solicita-",!?42,"tion/contract subject matter where feasible.)",!!
  • Line Location: ACC+12
Function Call: WRITE
  • Prompt: ?3,^(I,0),!
  • Line Location: ITEM+0
Function Call: WRITE
  • Prompt: !,"Except as provided herein, all terms and conditions of the document referenced in Item 9A or ,",!,"10A as heretofore changed, remains unchanged and in full force and effect.",!,PRCHUL,!
  • Line Location: ITEM+1
Function Call: WRITE
  • Prompt: "15A.NAME AND TITLE OF SIGNER (Type or print)",?46,"|16A.NAME AND TITLE OF CONTRACTING OFFICER (Type",!?46,"| or print)",!
  • Line Location: ITEM+2
Function Call: WRITE
  • Prompt: ?46,"| ",$$DECODE^PRCHES6(D0,D1)," Contracting Officer"
  • Line Location: ITEM+4
Function Call: WRITE
  • Prompt: !,$E(PRCHUL,1,46),"|",$E(PRCHUL,1,49),!
  • Line Location: ITEM+8
Function Call: WRITE
  • Prompt: "15B.CONTRACTOR/OFFEROR",?34,"|15C.DATE",?46,"|16B.UNITED STATES OF AMERICA",?82,"|16C.DATE",!,?34,"| SIGNED",?46,"|",?82,"| SIGNED",!
  • Line Location: ITEM+9
Function Call: WRITE
  • Prompt: ?2,$E(PRCHUL,1,28),?34,"|",?46,"| BY ",$E(PRCHUL,1,29),?82,"|",!
  • Line Location: ITEM+10
Function Call: WRITE
  • Prompt: ?1,"(Signature of person authorized",?34,"|",?46,"|(Signature of Contracting Officer)",?82,"|",!
  • Line Location: ITEM+11
Function Call: WRITE
  • Prompt: ?2,"to sign)",?34,"|",?46,"|",?82,"|",!,$E(PRCHUL,1,34),"|",$E(PRCHUL,1,11),"|",$E(PRCHUL,1,35),"|",$E(PRCHUL,1,13),!
  • Line Location: ITEM+12
Function Call: WRITE
  • Prompt: "Exception to SF-30",?75,"SF-30 ADP (Rev 10-83)",!,"Approved by OIRM ____",!
  • Line Location: ITEM+13
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,92),!
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !
  • Line Location: H+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,$S($D(PRCHREPR):$E(PRCHUL,1,35)_" **REPRINT** "_$E(PRCHUL,49,96),1:PRCHUL)
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,"AMENDMENT OF SOLICITATION/MODIFICATION OF CONTRACT",?55,"|1.CONTRACT ID CODE",?76,"|PAGE OF PAGES",!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $E(PRCHUL,1,55),"|",$E(PRCHUL,1,20),"|"
  • 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: $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
  • Condition for execution: $Y>0
  • Line Location: EN2H+0
Function Call: WRITE
  • Prompt: ?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
Info |  Source |  Entry Points |  Interaction Calls