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

Package: IFCAP

Routine: PRCSD121


Information

PRCSD121 ;WISC/SAW/BMM-CONTROL POINT ACTIVITY 2237 DISPLAY CON'T ;6/25/12 12:59

Source Information

Source file <PRCSD121.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?13,P,":"
  • Line Location: PRCSD121+9
Function Call: WRITE
  • Prompt: !,$E(P(4),1,13),!,$E(P(4),13,24)
  • Line Location: ITEM1+2
Function Call: WRITE
  • Prompt: !,P(4)
  • Line Location: ITEM1+3
Function Call: WRITE
  • Prompt: ?13,^UTILITY($J,"W",DIWL,J,0)
  • Line Location: ITEM2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM2+2
Function Call: WRITE
  • Prompt: ?13,^UTILITY($J,"W",DIWL,Z,0),?52,P(0)
  • Line Location: ITEM2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM2+3
Function Call: WRITE
  • Prompt: ?13,^UTILITY($J,"W",DIWL,1,0),?52,P(0)
  • Line Location: ITEM2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM2+4
Function Call: WRITE
  • Prompt: ?13,"eCMS Item Line ID ",$P(^PRCS(410,DA,"IT",P(1),4),U,3),!
  • Line Location: ITEM2+5
Function Call: WRITE
  • Prompt: !,?13,"TOTAL COST: ","$"_$J($P(^(4),U,1),0,2)
  • Line Location: VENDOR+3
Function Call: WRITE
  • Prompt: !,L
  • 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:Z(1)=$Y
  • Condition for execution: $P(^PRCS(410,DA,2),U,3)'="" !,?8,$P(^(2),U,3) S Z1=$P(^(3),U,4) I Z1,$D(^PRC(440,Z1,2)),$P(^(2),U,1)'=""
  • Line Location: VENDOR+13
Function Call: WRITE
  • Prompt: !
  • Condition for execution: Z(1)=$Y
  • Line Location: VENDOR+13
Function Call: WRITE
  • Prompt: ?42,"ACCT. #: ",$P(^(2),U,1)
  • Line Location: VENDOR+13
Function Call: WRITE
  • Prompt: !,?8,$P(^(2),U,6)
  • Line Location: VENDOR+15
Function Call: WRITE
  • Prompt: " ",$P(^(2),U,8)
  • Condition for execution: +$P(^(2),U,7)'=0 ",",$P($G(^DIC(5,$P(^(2),U,7),0)),U,2) W:$P(^PRCS(410,DA,2),U,8)'=""
  • Line Location: VENDOR+15
Function Call: WRITE
  • Prompt: $P(^(445),"^"),!
  • Line Location: VENDOR+16
Function Call: WRITE
  • Prompt: !
  • Line Location: RM+2
Function Call: WRITE
  • Prompt: !,^UTILITY($J,"W",DIWL,K,0)
  • Line Location: RM+3
Function Call: WRITE
  • Prompt: !,?6,"DELIVER TO: ",$P(^(9),U,1)
  • Line Location: DEL+0
Function Call: WRITE
  • Prompt: !,L
  • Line Location: DEL+1
Function Call: READ
  • Variable: Z1
  • Timeout: DTIME
  • Line Location: NEWP+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEWP+1
Function Call: WRITE
  • Prompt: !,?31,$P(^PRCS(410,DA,0),U,1)
  • Line Location: NEWP+2
Function Call: WRITE
  • Prompt: !,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: !,L
  • Line Location: NEWP+3
Info |  Source |  Entry Points |  Interaction Calls