Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 8

Package Total Call Graph
National Drug File 5 ^PSNDEA  (NDC1,TR2,TRD1)^PSNHELP  (,KILL,OOPS,SET)^PSNHIT  (STRT0,SYN)^PSNNDC  ASK^PSNSTCK  
VA Fileman 2 (,IX)^DIC  ^DIR  
Kernel 1 T0^%ZOSV  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
National Drug File 5 PSNBLD  PSNDRUG  PSNHIT  PSNOUT  PSNVFY  

Entry Points

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

External References

Name Field # of Occurrence
T0^%ZOSV NAM
^DIC TRY1, TRY2+1, PUNT+2
IX^DIC TRD
^DIR UPNDC
^PSNDEA BLDIT+4
NDC1^PSNHELP TRY4+2
TR2^PSNHELP TRPIC+2
TRD1^PSNHELP TRADE+5
^PSNHIT TRY1, TRY2+1, TRD, PUNT+4
KILL^PSNHIT DONE, BLDIT+4
OOPS^PSNHIT PUNT+4
SET^PSNHIT NDC+7, UCODE+7
STRT0^PSNNDC NDC31+2
SYN^PSNNDC GOSYN+1
ASK^PSNSTCK NDC+7, UCODE+7

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
  • Timeout: DTIME
  • Variable: ANS
  • 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
  • Prompt: "Enter your choice: "
  • Formatting: !!?10
  • Timeout: DTIME
  • Variable: ANS
  • 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
  • Prompt: "Please enter NDC Code <WITH DASHES>: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: ANS
  • 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
  • Prompt: "Enter UPN: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: PSNUP
  • Line Location: UCODE+0
Function Call: WRITE
  • Prompt: !,"Enter a UPN to attempt to match to NDF",!
  • Line Location: UCODE+2
Routine Call
  • DIC
  • Line Location:
    • TRY1
    • TRY2+1
    • PUNT+2
Routine Call
  • DIR
  • Line Location:
    • UPNDC
Routine Call
  • DIC
  • Line Location:
    • TRD

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(51.5 - [#51.5] NAM+3
^PSDRUG - [#50] START, BLDIT+1, BLDIT+2, NAM+1, NAM+3, NDC31+1, NDC31+2, TRY3+1, TRY3+2, TRADE+1
, TRADE+2, TRPIC+3, TRPIC+4
^PSNDF(50.6 - [#50.6] PUNT+3
^PSNDF(50.67 - [#50.67] TRD, NDC+2, NDC+3, UCODE+3, UCODE+4
^PSNDF(50.68 - [#50.68] TRD, NDC+4, NDC+5, UCODE+5, UCODE+6
^PSNTRAN - [#50.612] START+1*, BLDIT+3
^PSNTRAN("END" START+1*
^TMP($J PUNT+2!

Label References

Name Line Occurrences
BLDIT START
NDC31 NAM+5
NDCSET NDC
PUNT TRY4, NDC+2, PUNT+3, UCODE, UCODE+3
TRADE TRADE+4, TRADE+5, TRPIC+3
TRD TRY3+2
TRPIC TRPIC+1, TRPIC+2
TRY3 TRY1
TRY4 TRY4+1, TRY4+2, TRY4+3, NDC+4
UCODE UPNDC, UCODE+1, UCODE+2
UPNDC TRY3, TRY3+1, TRADE+3, TRPIC+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS NDC31+2*, TRADE!, TRADE+2*, TRADE+4, TRADE+5, TRADE+6!, TRPIC*, TRPIC+1!, TRPIC+2, TRPIC+3
, TRPIC+4, TRY4!*, TRY4+1!, TRY4+2, TRY4+3, NDC+1*, NDC+2!, NDC+3, NDC+4, NDC+7
, NDCSET*, UCODE+7
>> CODE NDC31+2*
>> D TRD*
DIC TRY1*!, TRY2+1*!, TRD*!, PUNT+2*!
DIC("W" PUNT+2*
DIC(0 TRY1*, TRY2+1*, TRD*, PUNT+2*
>> DIR("B" UPNDC*
>> DIR(0 UPNDC*
>> DIRUT NAM+5, GOSYN+1, UPNDC
DT NDC+4, UCODE+5
DTIME TRADE+2, TRPIC, TRY4, UCODE
>> DUNCE NAM+4*
>> END TRADE+1*, TRADE+2
>> FL TRADE+1*, TRADE+2*, TRADE+3
>> IFN START+1*
>> JJ TRADE+2*
LIST PUNT+2!
>> MJL SETIT*, TRY2*
>> NBR START
>> NO31 NAM+5*, NDC31+1*
>> NOM31 NAM+4*, NAM+5, NDC31+2*
>> NOMSYM GOSYN+1*
>> NOMSYN GOSYN+1*
PSNB START*, START+1*, DONE!, BLDIT+1, BLDIT+2, BLDIT+3, NAM+1, NAM+3, NDC31+1, NDC31+2
, TRY3+1, TRY3+2, TRADE+1, TRADE+2, TRPIC+3, TRPIC+4
>> PSNCLASS NDC+5*, UCODE+6*
>> PSNDA TRY1*, TRD*, PUNT+2*
PSNDEA BLDIT+4!
>> PSNFL START, TRADE+1*, TRADE+2*, TRADE+6, TRPIC+2*, TRY4*, PUNT+4*, UCODE*
>> PSNFLB BLDIT+3
>> PSNFNM NDC+3*, NDC+4, NDC+5, UCODE+4*, UCODE+5, UCODE+6
>> PSNFORM NDC+5*, UCODE+6*
>> PSNIEN NDC+3*, UCODE+4*
>> PSNINACT BLDIT+4
>> PSNINQ UPNDC*
>> PSNLOC NAM+1*
>> PSNNAM NAM+1*, TRY1, SETIT*, SETIT+1*, TRY2, TRY3+2*, TRPIC+4*
>> PSNNAME SETIT*
>> PSNNDF NDC+5*, UCODE+6*
>> PSNODE NAM+3*, NAM+4
>> PSNOU NAM+3*
>> PSNPD NDC+4*, UCODE+5*
>> PSNSIZE NDC+3*, UCODE+4*
>> PSNSP SETIT+1*
>> PSNTRFL TRY3, TRY3+1*, TRY3+2*, TRADE+3*, TRPIC+4*
>> PSNTYPE NDC+3*, UCODE+4*
PSNUP UCODE!*, UCODE+1!, UCODE+2, UCODE+3!, UCODE+4
>> PSNVAR NDC+7*, UCODE+7*
>> TT NAM+1*, NDC31+2*
>> TTT NAM+1*
VV NDC*, NDC+1!, NDCSET
VV1 NDC*, NDC+1!, NDCSET
>> WR TRADE+1*, TRADE+2
>> X TRY1*, SETIT*, TRY2*, TRY3+1*, TRY3+2*, TRPIC+4*, PUNT+4
>> XRTL NAM
>> Y TRY1, TRY2+1, TRD, PUNT+2, PUNT+3, PUNT+4
>> Y(0 NAM+5, GOSYN+1, UPNDC
>> ZZXX TRD*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All