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

Package: IFCAP

Routine: PRCPDAP2


Information

PRCPDAP2 ;WISC/RFJ-drug accountability/prime vendor (check items) ;15 Mar 94

Source Information

Source file <PRCPDAP2.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ; print items on invoice
; prcpferr=1 for errors, do not create repetitive item lists
DQ ; queue starts here
DATE(DATE)
WHO(WHODATA)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"<*> please wait <*>"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!,"INVOICE : ",$P(INVDATA,"^",2),?40,"DATE: ",$$DATE($P(INVDATA,"^"))
  • Line Location: DQ+7
Function Call: WRITE
  • Prompt: !,"PURCHASE ORDER: ",$P(INVDATA,"^",4),?40,"DATE: ",$$DATE($P(INVDATA,"^",3))
  • Line Location: DQ+8
Function Call: WRITE
  • Prompt: !?5,"PRIME VENDOR: ",$P($G(^PRC(440,PRCPVEND,0)),"^")
  • Line Location: DQ+9
Function Call: WRITE
  • Prompt: !?5,"TERMS DISCOUNT PERCENT: ",$P(INVDATA,"^",6),?40,"DUE DATE: ",$$DATE($P(INVDATA,"^",7)),?60,"DAYS DUE: ",$P(INVDATA,"^",8)
  • Line Location: DQ+10
Function Call: WRITE
  • Prompt: !?5,"TERMS DISCOUNT AMOUNT : ",$J($P(INVDATA,"^",11),0,2),?40,"DUE DATE: ",$$DATE($P(INVDATA,"^",9)),?60,"NET DAYS: ",$P(INVDATA,"^",10),!
  • Line Location: DQ+11
Function Call: WRITE
  • Prompt: !?5,"DELIVERY DATE REQUESTED: ",$$DATE($P(INVDATA,"^",12))
  • Line Location: DQ+12
Function Call: WRITE
  • Prompt: !?5,"DELIVERED ON DATE : ",$$DATE($P(INVDATA,"^",13))
  • Line Location: DQ+13
Function Call: WRITE
  • Prompt: !!?5,"BUYER INFORMATION: "
  • Line Location: DQ+15
Function Call: WRITE
  • Prompt: "(SAME AS SHIPPING INFORMATION)"
  • Line Location: DQ+16
Function Call: WRITE
  • Prompt: !!?5,"SHIPPING INFORMATION: "
  • Line Location: DQ+19
Function Call: WRITE
  • Prompt: "(SAME AS BUYER INFORMATION)"
  • Line Location: DQ+20
Function Call: WRITE
  • Prompt: !!?5,"DISTRIBUTER INFORMATION: "
  • Line Location: DQ+23
Function Call: WRITE
  • Prompt: !?8,"NAME: ",$P(WHODATA,"^"),?62,"ID: ",$P(WHODATA,"^",2)
  • Line Location: WHO+1
Function Call: WRITE
  • Prompt: !?8,"ADDR: ",$P(WHODATA,"^",3)
  • Line Location: WHO+2
Function Call: WRITE
  • Prompt: !?8,"CITY: ",$P(WHODATA,"^",4),?40,"STATE: ",$P(WHODATA,"^",5),?62,"ZIPCODE: ",$P(WHODATA,"^",6)
  • Line Location: WHO+3
Info |  Source |  Entry Points |  Interaction Calls