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

Package: IFCAP

Routine: PRCSP121


Information

PRCSP121 ;WISC/SAW/BMM-CONTROL POINT ACTIVITY 2237 PRINTOUT CON'T ;6/25/12 14:00

Source Information

Source file <PRCSP121.m>

Entry Points

Name Comments DBIA/ICR reference
ITEM1
ITEM2
PRCARD
VENDOR ;PRINT VENDOR AND REQ MESSAGES
RM
NEWP ;PRINT HEADER FOR NEW PAGE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?12,"|",P,":",?38,"|",?48,"|",?53,"|",?63,"|",?73,"|",?84,"|"
  • Line Location: PRCSP121+9
Function Call: WRITE
  • Prompt: !,$E(P(4),1,12),"|",?38,"|",?48,"|",?53,"|",?63,"|",?73,"|",?84,"|",!,$E(P(4),13,24)
  • Line Location: ITEM2+2
Function Call: WRITE
  • Prompt: !,P(4)
  • Line Location: ITEM2+3
Function Call: WRITE
  • Prompt: ?12,"|",^UTILITY($J,"W",DIWL,J,0),?38,"|",?48,"|",?53,"|",?63,"|",?73,"|",?84,"|"
  • Line Location: ITEM2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM2+4
Function Call: WRITE
  • Prompt: ?12,"|",^UTILITY($J,"W",DIWL,Z,0),?38,P(0),?73,"|",?84,"|"
  • Line Location: ITEM2+5
Function Call: WRITE
  • Prompt: ?12,"|",^UTILITY($J,"W",DIWL,1,0),?38,P(0),?73,"|",?84,"|"
  • Line Location: ITEM2+6
Function Call: WRITE
  • Prompt: !?12,"|","eCMS Line ID ",$P(^PRCS(410,DA,"IT",P(1),4),U,3),?38,"|",?48,"|",?53,"|",?63,"|",?73,"|",?84,"|"
  • Line Location: ITEM2+7
Function Call: WRITE
  • Prompt: !,?12,"|",?38,"|",?48,"|",?53,"|",?63,"|",?73,"|",?84,"|"
  • Line Location: ITEM2+8
Function Call: WRITE
  • Prompt: !,?12,"|TOTAL COST: ","$"_$J($P(^(4),U),0,2),?38,"|",?48,"|",?53,"|",?63,"|",?73,"|",?84,"|"
  • Line Location: VENDOR+3
Function Call: WRITE
  • Prompt: !,$E(L,1,12),"|",$E(L,1,25),"|",$E(L,1,9),"|",$E(L,1,4),"|",$E(L,1,9),"|",$E(L,1,9),"|",$E(L,1,10),"|",$E(L,1,5)
  • Line Location: VENDOR+4
Function Call: WRITE
  • Prompt: !,X
  • Line Location: VENDOR+8
Function Call: WRITE
  • Prompt: ?38,"EDI"
  • Line Location: VENDOR+9
Function Call: WRITE
  • Prompt: ?46,"FAX: "_$P(^(10),U,6)
  • Line Location: VENDOR+10
Function Call: WRITE
  • Prompt: W
  • Condition for execution: $P(X,U,3)'="" !,?8,$P(X,U,3) S Z1=$P(^PRCS(410,DA,3),U,4) I Z1,$D(^PRC(440,Z1,2)),$P(^(2),U)'=""
  • Line Location: VENDOR+13
Function Call: WRITE
  • Prompt: ?42,"ACCT. #: ",$P(^(2),U)
  • Line Location: VENDOR+13
Function Call: WRITE
  • Prompt: !,?8,$P(X,U,6)
  • Line Location: VENDOR+15
Function Call: WRITE
  • Prompt: " ",$P(X,U,8)
  • Condition for execution: +$P(X,U,7)'=0 ",",$P($G(^DIC(5,$P(X,U,7),0)),U,2) W:$P(X,U,8)'=""
  • Line Location: VENDOR+15
Function Call: WRITE
  • Prompt: !,"VA FORM 90-2237-ADP MAR 1985"
  • Line Location: NEWP+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: NEWP+1
Function Call: WRITE
  • Prompt: !,?36,$P(^PRCS(410,DA,0),U),?83,"PAGE ",PRCS("P"),!,L
  • Line Location: NEWP+2
Function Call: WRITE
  • Prompt: !,?16,"REQUEST, TURN-IN, AND RECEIPT FOR PROPERTY OR SERVICES",!
  • Line Location: NEWP+3
Function Call: WRITE
  • Prompt: ?37,"**REPRINT**",!
  • Line Location: NEWP+3
Function Call: WRITE
  • Prompt: !,L
  • Line Location: NEWP+4
Info |  Source |  Entry Points |  Interaction Calls