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 |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: ECXNDC

Package: DSS Extracts

Routine: ECXNDC


Information

ECXNDC ;ALB/JAP BIR/CML - Lookup Routine for NDC's ;5/9/19 17:25

Source Information

Source file <ECXNDC.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 1 $$UP^XLFSTR  
National Drug File 1 ^PSNAPIS  
Pharmacy Data Management 1 (EN,MIX)^PSSDI  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
DSS Extracts 1 ECXNDC  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point from option
ASK ;select ndc for lookup
NDF3 ;before ndf v4
NDF4 ;after ndf v4

External References

Name Field # of Occurrence
^DIR ASK+3, NDF3+11
^PSNAPIS EN+2
EN^PSSDI ASK+10
MIX^PSSDI ASK+6
$$UP^XLFSTR ASK+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: "Pharmacy Feeder Keys for DSS are built in the following manner."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"This option will allow lookups on the local DRUG file (#50) using "
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"NDCs from DSS Pharmacy Feeder Keys that have been rejected because"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"This would occur when a pharmacy item has not been matched to the"
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"the National Drug File (NDF)."
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!,"Enter the NDC (last twelve characters) from a rejected feeder key"
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !,"to display information from the local DRUG file for any drug which"
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !,"has that NDC."
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !!!,"Enter 12 digits or LCL and 9 digits or",!,"LCD and 9 digits at the prompt or <cr> to exit.",!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,DRGNM,!,LN
  • Line Location: ASK+12
Function Call: WRITE
  • Prompt: !,"NDC: ",ECXDIQ(50,DRG,31,"E"),?40,"VA Classification: ",ECXDIQ(50,DRG,2,"E")
  • Line Location: ASK+13
Function Call: WRITE
  • Prompt: !,"Dispense Unit: ",ECXDIQ(50,DRG,14.5,"E"),?40,"Price per Dispense Unit: ",ECXDIQ(50,DRG,16,"E")
  • Line Location: ASK+14
Function Call: WRITE
  • Prompt: !!,"Your site is running NATIONAL DRUG FILE (NDF) v3.18, so"
  • Line Location: NDF3+2
Function Call: WRITE
  • Prompt: !,"PHA Feeder Keys are composed of 19 numeric characters."
  • Line Location: NDF3+3
Function Call: WRITE
  • Prompt: !!?5,"Ex. ""0016006000003073531"" where characters:"
  • Line Location: NDF3+4
Function Call: WRITE
  • Prompt: !!?5,"1-4 (0016) = pointer to the NATIONAL DRUG file (#50.6)"
  • Line Location: NDF3+5
Function Call: WRITE
  • Prompt: !?5,"5-7 (006) = pointer to VA PRODUCT NAME subfile (#50.68)"
  • Line Location: NDF3+6
Function Call: WRITE
  • Prompt: !?5," of the NATIONAL DRUG file (#50.6)"
  • Line Location: NDF3+7
Function Call: WRITE
  • Prompt: !?5,"8-19 (000003073531) = NDC from the local DRUG file (#50)"
  • Line Location: NDF3+8
Function Call: WRITE
  • Prompt: !
  • Line Location: NDF3+10
Function Call: WRITE
  • Prompt: !,"PHA Feeder Keys are composed of 17 numeric characters."
  • Line Location: NDF4+2
Function Call: WRITE
  • Prompt: !!?5,"Ex. ""12006000003073531"" where characters:"
  • Line Location: NDF4+3
Function Call: WRITE
  • Prompt: !?5,"1-5 (12006) = pointer to VA PRODUCT NAME file (#50.68)"
  • Line Location: NDF4+4
Function Call: WRITE
  • Prompt: !?5,"6-17 (000003073531) = NDC from the local DRUG file (#50)"
  • Line Location: NDF4+5
Routine Call
  • DIR
  • Line Location:
    • ASK+3
    • NDF3+11

Label References

Name Line Occurrences
ASK EN+19, ASK+16
NDF3 EN+5
NDF4 EN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D EN+1~, ASK+4*, ASK+6, ASK+15!
DIC EN+1~, ASK+4*, ASK+6, ASK+10, ASK+15!
DIC(0 ASK+4*
DIQ EN+1~, ASK+10*, ASK+15!
DIQ(0 ASK+10*
DIR EN+1~, NDF3+11!
DIR("?" ASK+2*
DIR("A" ASK+2*
DIR(0 ASK+2*, NDF3+11*
DIRUT EN+1~
DRG EN+1~, ASK+8*, ASK+10, ASK+11, ASK+13, ASK+14, ASK+15!
DRGNM EN+1~, ASK+11*, ASK+12
DTOUT EN+1~, ASK+7
DUOUT EN+1~, ASK+7
ECXDIQ EN+1~, ASK+15!
ECXDIQ(50 ASK+11, ASK+13, ASK+14
F5068 EN+1~, EN+2*, EN+5, EN+6, EN+9, EN+11
IOF EN+3
IOST NDF3+9
JJ EN+1~, NDF3+10*
LN EN+1~, ASK+11!*, ASK+12
QFLG EN+1~, EN+5, EN+6, NDF3+1*, NDF3+11*, NDF4+1*
SS EN+1~, NDF3+10*
X EN+1~, ASK+3*, ASK+6, ASK+15!
Y EN+1~, ASK+3*, ASK+7, ASK+8, ASK+15!, NDF3+11

Marked Items

Name Field # of Occurrence
$T(PSNAPIS+1^PSNAPIS EN+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  Marked Items  | All