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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSNCOMP

Package: National Drug File

Routine: PSNCOMP


Information

PSNCOMP ;BIR/WRT-match local name with NDF finds matches ; 12/18/98 13:31

Source Information

Source file <PSNCOMP.m>

Entry Points

Name Comments DBIA/ICR reference
START
DONE
BLDIT ; START ATTEMPT TO MATCH
NAM
GOSYN ; Match by Synonym NDC
TRY1
NDC31 ; Match by NDC field 31
SETIT
TRY2
TRY3
TRADE
TRPIC
TRD
UPNDC
TRY4
NDC
PUNT ;Match by VA Generic
NDCSET
UCODE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Match local drug ",PSNNAM
  • Line Location: NAM+1
Function Call: WRITE
  • Prompt: ?64,"N/F",?70," with "
  • Condition for execution: $P(^PSDRUG(PSNB,0),"^",9)=1
  • Line Location: NAM+1
Function Call: WRITE
  • Prompt: !,?40,"ORDER UNIT: "
  • Line Location: NAM+2
Function Call: WRITE
  • Prompt: !,?24,"DISPENSE UNITS/ORDER UNITS: ",$S('$D(PSNODE):"",1:$P(PSNODE,"^",5)),!,?37,"DISPENSE UNIT: ",$S('$D(PSNODE):"",1:$P(PSNODE,"^",8))
  • Line Location: NAM+4
Function Call: WRITE
  • Prompt: !,?5
  • Line Location: TRY1+0
Function Call: WRITE
  • Prompt: !!,"Match on first word failed...",!
  • Line Location: TRY1+0
Function Call: WRITE
  • Prompt: !,"No NDC to match...",!
  • Line Location: NDC31+1
Function Call: WRITE
  • Prompt: !,"I will try to match NDC: ",CODE," to NDF."
  • Line Location: NDC31+2
Function Call: WRITE
  • Prompt: !!,"No match . . . attempting to match by Trade Name"
  • Line Location: TRY3+0
Function Call: WRITE
  • Prompt: !,"There are no Trade Names...unable to match",!
  • Line Location: TRY3+1
Function Call: WRITE
  • Prompt: !!,"Trade Names in YOUR local file for this drug are: "
  • Line Location: TRADE+0
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: TRADE+2
Function Call: WRITE
  • Prompt: !,JJ," ",$P(^PSDRUG(PSNB,1,JJ,0),"^",1)
  • Line Location: TRADE+2
Function Call: WRITE
  • Prompt: !,"There are no Trade Names...unable to match",!
  • Line Location: TRADE+3
Function Call: READ
  • Formatting: !!?10
  • Prompt: "Enter your choice: "
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: TRPIC+0
Function Call: WRITE
  • Prompt: !,"Invalid choice, try again!!"
  • Line Location: TRPIC+3
Function Call: WRITE
  • Prompt: !!,"Unable to match Trade Name",!
  • Line Location: TRD+1
Function Call: WRITE
  • Prompt: !,"Do you want to attempt to match by NDC or UPN:"
  • Line Location: UPNDC+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Please enter NDC Code <WITH DASHES>: "
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: TRY4+0
Function Call: WRITE
  • Prompt: !!,"Format should be MANUFACTURER'S CODE""-""PRODUCT CODE""-""PACKAGE CODE",!,"(i.e. 9999-999-99)"
  • Line Location: TRY4+3
Function Call: WRITE
  • Prompt: !,"NDC Code ("_ANS_") has been inactivated!!"
  • Line Location: NDC+4
Function Call: WRITE
  • Prompt: !!,"Unable to match by Name, Trade Name or NDC Code/UPN ",!
  • Line Location: PUNT+1
Function Call: WRITE
  • Prompt: !,"This entry has been inactivated!!"
  • Line Location: PUNT+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter UPN: "
  • Variable: PSNUP
  • Timeout: DTIME
  • Line Location: UCODE+0
Function Call: WRITE
  • Prompt: !,"Enter a UPN to attempt to match to NDF",!
  • Line Location: UCODE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSNDF(50.6 - [#50.6] Classic Fileman Calls
^PSNDF(50.67 - [#50.67] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call