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

Package: IFCAP

Routine: PRCHP18


Information

PRCHP18 ;SF/FKV-PRINT REQUEST FOR QUOTATIONS--STANDARD FORM 18 ;7/21/99 13:35

Source Information

Source file <PRCHP18.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
EN
RDV
ENDRPT
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"**** MISSING SITE ADDRESS--SITE "_SITE_" PROGRAM PRCHP18 **** !!!"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!,"*** MISSING REQUEST NUMBER "_PRCHD0_" -- PROGRAM PRCHP18 ***"
  • Line Location: RDV+2
Function Call: WRITE
  • Prompt: !!,"*** MISSING VENDOR NUMBER "_PRCHVCNT_" -- PROGRAM PRCHP18 ***"
  • Line Location: RDV+4
Function Call: WRITE
  • Prompt: !!,"*** MISSING P.A. INFORMATION FOR REQUEST "_$P(^PRCS(410,PRCHD0,0),U,1)_" ***"
  • Line Location: RDV+10
Function Call: WRITE
  • Prompt: @IOF,?65,"FORM APPROVED OMB NO. 2900-0445",!,PRCHUNDL,!,"REQUEST FOR QUOTATIONS |",?28,"The Notice of Small Business-Small Purchase Set-Aside",?82,"|",?85,"PAGE OF PAGES",!
  • Line Location: RDV+21
Function Call: WRITE
  • Prompt: ?1,"(this is not an order)",?25,"|",?29,"on the last page of this form",?82,"|",?90,"|",!,?25,"|",?28,"_____is _____is not applicable.",?82,"| 1",?90,"|",!
  • Line Location: RDV+22
Function Call: WRITE
  • Prompt: $E(PRCHUNDL,1,25),"|",$E(PRCHUNDL,1,56),"|",$E(PRCHUNDL,1,7),"|",$E(PRCHUNDL,1,7),!
  • Line Location: RDV+23
Function Call: WRITE
  • Prompt: "1.REQUEST NO.",?14,"|2.DATE ISSUED",?30,"|3.REQUISITION/PURCHASE REQUEST",?63,"|4.CERT.FOR NAT.DEF.",?84,"|RATING",!
  • Line Location: RDV+24
Function Call: WRITE
  • Prompt: ?14,"|",?30,"|",?33,"NO.",?63,"|",?66,"UNDER BDSA REG.2",?84,"|",!
  • Line Location: RDV+25
Function Call: WRITE
  • Prompt: ?14,"|",?16,PRCHDT,?30,"|",?36,$P(^PRCS(410,PRCHD0,0),U,1),?63,"|",?66,"AND/OR DMS REG.1->",?84,"|",!
  • Line Location: RDV+26
Function Call: WRITE
  • Prompt: $E(PRCHUNDL,1,14)_"|"_$E(PRCHUNDL,1,15)_"|"_$E(PRCHUNDL,1,32)_"|"_$E(PRCHUNDL,1,20),"|",$E(PRCHUNDL,1,13),!
  • Line Location: RDV+27
Function Call: WRITE
  • Prompt: "5A.ISSUED BY",?14,PRCHS(1),?63,"|6.DELIVER BY (Date)",!
  • Line Location: RDV+28
Function Call: WRITE
  • Prompt: ?14,PRCHS(2),?63,"|",!,?14,PRCHS(3),?63,"| ",PRCHDT2,!,?14,PRCHS(4),?63,"|",$E(PRCHUNDL,1,34),!,$E(PRCHUNDL,1,63)_"|7.DELIVERY",!
  • Line Location: RDV+29
Function Call: WRITE
  • Prompt: "5B.FOR INFORMATION CALL:(Name & phone no.) (No collect calls)",?63,"|(Unless otherwise specified)"
  • Line Location: RDV+30
Function Call: WRITE
  • Prompt: !,?4,$G(PRCHPA)," PHONE: ",$G(PRCHPAP),?63,"|",?68,"FOB",?84,"OTHER",!
  • Line Location: RDV+31
Function Call: WRITE
  • Prompt: ?9,"FAX: ",$G(PRCPAFAX),?63,"|",?64,"_X__DESTINATION",?80,"____(See Schedule)",!
  • Line Location: RDV+32
Function Call: WRITE
  • Prompt: "E-MAIL: ",PRCEMAIL
  • Condition for execution: $G(PRCEMAIL)]""
  • Line Location: RDV+33
Function Call: WRITE
  • Prompt: ?63,"|",!
  • Line Location: RDV+33
Function Call: WRITE
  • Prompt: $E(PRCHUNDL,1,63),"|",$E(PRCHUNDL,1,34),!
  • Line Location: RDV+34
Function Call: WRITE
  • Prompt: "8.TO: NAME AND ADDRESS, INCLUDING ZIP CODE",?63,"|9.DESTINATION (Consignee and ad-",!
  • Line Location: RDV+35
Function Call: WRITE
  • Prompt: ?10,PRCHV(1),?63,"|",?69,"dress, including ZIP code)",!
  • Line Location: RDV+36
Function Call: WRITE
  • Prompt: ?10,PRCHV(I),?63,"| ",PRCHD(I-1),!
  • Line Location: RDV+36
Function Call: WRITE
  • Prompt: "PHONE: "_$G(PRCHVPH),?32,"FAX: "_$G(PRCHVFX),?63,"|",!
  • Line Location: RDV+37
Function Call: WRITE
  • Prompt: $E(PRCHUNDL,1,63),"|",$E(PRCHUNDL,1,34),!
  • Line Location: RDV+38
Info |  Source |  Entry Points |  Interaction Calls