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

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
IFCAP 5 $$DECODE^PRCHES6  $$DECODE^PRCHES7  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 PRCHPAM  

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

External References

Name Field # of Occurrence
KILL^%ZTLOAD EXIT
$$DECODE^PRCHES6 ITEM+4, EN2+4
$$DECODE^PRCHES7 ACC+3
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: ?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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name Field # of Occurrence
^( ACC+7, ITEMA+1, EN2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D0 ACC+3, ITEM+3, ITEM+4, EXIT!, EN2+4
D1 ACC+3, ITEM+4, EXIT!, EN2+4
DA ITEM+3*, EXIT!, A
DIWF ACC+5*, EXIT!
DIWL ACC+5*, EXIT!
DIWR ACC+5*, EXIT!
I ITEM*, EXIT!, A+1*, EN2+1*, EN2+2*
IOF HDREN2H
J EXIT!, A+1*
P ITEM+3*, EXIT!
PRCEMAIL ITEM+5, ITEM+7!
PRCFAX ITEM+5, ITEM+6, ITEM+7!
PRCH0 ACCACC+5, ACC+8, ACC+10, EXIT!, AEN2+5
PRCH1 ACC+3, ITEM+3, ITEM+5, EXIT!, EN2+4
PRCHAV EXIT!
PRCHDY ACC+12*, ITEM*, ITEM+1*, ITEM+2, EXIT!, H*, HDR+4*, EN2+1*, EN2+2, EN2H*
PRCHI ACC+6*, ACC+7*, EXIT!
PRCHP0 ACCACC+1, ACC+6, ACC+7, EXIT!
PRCHP1 EXIT!
PRCHPG EXIT!, HDR+3, HDR+4*
PRCHPGT EXIT!, HDR+3
PRCHREPR EXIT!, HDREN2H
PRCHTPG EXIT!
PRCHTYP ACC+7*, EXIT!, AA+1
PRCHUL ACCACC+4, ACC+10, ITEM+1, ITEM+8, ITEM+10, ITEM+12, EXIT!, A+2, HDR
HDR+2, HDR+3, EN2+3, EN2+5
PRCHX ACC+5*, EXIT!, AA+1
U ACCACC+1, ACC+3, ACC+5, ACC+6, ACC+7, ACC+8, ACC+10, ITEM+3, A
EN2+4, EN2+5
X ACC*, ACC+1, ACC+2, ACC+3*, ACC+8*, ACC+9, ITEM+3*, EXIT!, A*, HDR+3*
EN2+4*
Y ACC+5*, ACC+7*, ACC+8*, ACC+9, ACC+10*, EXIT!, AHDR+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