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

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

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
Info |  Source |  Entry Points |  Interaction Calls