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

Package: IFCAP

Routine: PRCHDSP2


Information

PRCHDSP2 ;TKW/BOISE,ID/RSD,WISC/AKS-DISPLAY AMENDMENT ;2/12/98 2:46 PM

Source Information

Source file <PRCHDSP2.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
CONT
DT
AL
AL1 ;W ?8,$P(X,U,6),", ",$S($D(^DIC(5,+$P(X,U,7),0)):$P(^(0),U,2),1:"")," ",$P(X,U,8) Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "2.AMENDMENT/MODIFICATION NO. ",?29,"|3.EFFECTIVE DATE",?46,"|4.REQUISITION/PURCHASE REQ.NO."
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !?7,$P(PRCH0,U,1),?29,"| "
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: ?46,"| ",$S(Y:Y_"/",1:" "),$P($P(PRCHP0,U,1),"-",2)
  • Line Location: CONT+3
Function Call: WRITE
  • Prompt: !,$E(PRCHUL,1,29),"|",$E(PRCHUL,1,16),"|",$E(PRCHUL,1,30)
  • Line Location: CONT+4
Function Call: WRITE
  • Prompt: !,"6.ISSUED BY ",?31,"| 7.ADMINISTERED BY (If other than item 6)"
  • Line Location: CONT+5
Function Call: WRITE
  • Prompt: !?3,"A&MM SERVICE",?31,"|",!?3,"VA MEDICAL CENTER",?31,"|",!
  • Line Location: CONT+6
Function Call: WRITE
  • Prompt: ?3,$P(Y,U,I),?31,"|",!?3
  • Condition for execution: $P(Y,U,I)]""
  • Line Location: CONT+6
Function Call: WRITE
  • Prompt: !?31,"|"
  • Line Location: CONT+7
Function Call: WRITE
  • Prompt: $P(Y,U,3),", ",$P($G(^DIC(5,+$P(Y,U,4),0)),U,2)," ",$P(Y,U,5),?31,"|"
  • Line Location: CONT+8
Function Call: WRITE
  • Prompt: !?31,"|"
  • Line Location: CONT+8
Function Call: WRITE
  • Prompt: !,$E(PRCHUL,1,31),"|",$E(PRCHUL,1,47),!,"8.NAME & ADDRESS OF CONTRACTOR ",?34,"| | 9A.AMENDMENT OF SOLICITATION NO.",!
  • Line Location: CONT+9
Function Call: WRITE
  • Prompt: ?2,"(No.,street,county,St. and ZIP)",?34,"| |",!,?2,$P(X,U),?34,"| |",$E(PRCHUL,1,40),!
  • Line Location: CONT+10
Function Call: WRITE
  • Prompt: ?34,"| | 9B.DATED (See Item 11)",!
  • Line Location: CONT+11
Function Call: WRITE
  • Prompt: ?34,"|___|",$E(PRCHUL,1,40),!
  • Line Location: CONT+11
Function Call: WRITE
  • Prompt: ?34,"| X |",?43,$P(PRCHP0,U),!
  • Line Location: CONT+12
Function Call: WRITE
  • Prompt: ?34,"| |",$E(PRCHUL,1,40),!,$E(PRCHUL,1,34),?34,"| | 10B.DATED (See Item 13)",!,"CODE",?20,"|FACILITY CODE",?34,"| |",?45
  • Line Location: CONT+13
Function Call: WRITE
  • Prompt: !,$E(PRCHUL,1,20),"|",$E(PRCHUL,1,13),"|___|",$E(PRCHUL,1,40),!
  • Line Location: CONT+14
Function Call: WRITE
  • Prompt: Y\100#100,"/",Y#100\1,"/",Y\10000+1700
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: ?2,$P(X,U,J)
  • Line Location: AL+0
Function Call: WRITE
  • Prompt: ?2,$P(X,U,6),", ",$P($G(^DIC(5,+$P(X,U,7),0)),U,2)," ",$P(X,U,8)
  • Line Location: AL1+1
Info |  Source |  Entry Points |  Interaction Calls