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

Package: IFCAP

Routine: PRCHPAM9


Information

PRCHPAM9 ;ID/TKW,RSD-PRINT AMENDMENT ;6/9/99 15:43

Source Information

Source file <PRCHPAM9.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
IFCAP 4 $$DECODE^PRCHES10  FAXEMAIL^PRCHFPT3  DT^PRCHPAM  DIWP^PRCUTL  
Kernel 1 KILL^%ZTLOAD  

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

Package Total Caller Graph
IFCAP 1 PRCHPAM8  

Entry Points

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

External References

Name Field # of Occurrence
KILL^%ZTLOAD EXIT
$$DECODE^PRCHES10 ITEM+4, EN2+4
FAXEMAIL^PRCHFPT3 ITEM+5
DT^PRCHPAM EN2+4, EN2+5
DIWP^PRCUTL A

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: !,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+3
Function Call: WRITE
  • Prompt: "IMPORTANT: Contractor __"_Y_"__ is not, __"_X_"__ is required to sign this document and return",!?14
  • Line Location: ACC+8
Function Call: WRITE
  • Prompt: "__"_Y_"__ copies to the issuing office.",!,PRCHUL
  • Line Location: ACC+9
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+11
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^PRCHES10(D0,D1)," Contracting Officer"
  • Line Location: ITEM+4
Function Call: WRITE
  • Prompt: !,$E(PRCHUL,1,46),"|",$E(PRCHUL,1,50),!
  • 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,14),!
  • 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,93),!
  • 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,98),1:PRCHUL)
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !?3,"AMENDMENT OF SOLICITATION/MODIFICATION OF CONTRACT",?58,"|1.CONTRACT ID CODE",?79,"|PAGE OF PAGES",!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $E(PRCHUL,1,58),"|",$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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCD(442.2 - [#442.2] ACC+4, ACC+6
^TMP($J ITEM, EXIT!, EN2+1
^UTILITY($J EXIT!, A!, A+1

Label References

Name Line Occurrences
A ACC+6
EN2H EN2+1
EXIT EN2+6
H ITEM
HDR ACC+10, ITEM+1, ITEM+2, H

Naked Globals

Name Field # of Occurrence
^( ACC+6, ITEM, A+1, EN2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D0 ITEM+3, ITEM+4, EXIT!, EN2+4
D1 ITEM+4, EXIT!, EN2+4
DA ITEM+3*, EXIT!, A
DIWF ACC+4*, EXIT!
DIWL ACC+4*, EXIT!
DIWR ACC+4*, EXIT!
I ITEM*, EXIT!, A+1*, EN2+1*, EN2+2*
IOF HDR, EN2H
J EXIT!, A+1*
P ITEM+3*, EXIT!
PRCEMAIL ITEM+5, ITEM+7!
PRCFAX ITEM+5, ITEM+6, ITEM+7!
PRCH0 ACC, ACC+4, ACC+7, ACC+9, EXIT!, A, EN2+5
PRCH1 ITEM+3, ITEM+5, EXIT!, EN2+4
PRCHAV EXIT!
PRCHDY ACC+11*, ITEM*, ITEM+1*, ITEM+2, EXIT!, H*, HDR+4*, EN2+1*, EN2+2, EN2H*
PRCHI ACC+5*, ACC+6*, EXIT!
PRCHP0 ACC, ACC+1, ACC+5, ACC+6, EXIT!
PRCHP1 EXIT!
PRCHPG EXIT!, HDR+3, HDR+4*
PRCHPGT EXIT!, HDR+3
PRCHREPR EXIT!, HDR, EN2H
PRCHTPG EXIT!
PRCHTYP ACC+6*, EXIT!, A, A+1
PRCHUL ACC, ACC+3, ACC+9, ITEM+1, ITEM+8, ITEM+10, ITEM+12, EXIT!, A+2, HDR
, HDR+2, HDR+3, EN2+3, EN2+5
PRCHX ACC+4*, EXIT!, A, A+1
U ACC, ACC+1, ACC+4, ACC+5, ACC+6, ACC+7, ACC+9, ITEM+3, A, EN2+4
, EN2+5
X ACC*, ACC+1, ACC+2, ACC+7*, ACC+8, ITEM+3*, EXIT!, A*, HDR+3*, EN2+4*
Y ACC+4*, ACC+6*, ACC+7*, ACC+8, ACC+9*, EXIT!, A, HDR+3*, EN2+4*, EN2+5*
>> Z HDR+3*
ZTSK EXIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All