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

Package: National Drug File

Routine: PSNHELP


Information

PSNHELP ;BIR/CCH&WRT-Help text routine ;08/21/98 14:25

Source Information

Source file <PSNHELP.m>

Entry Points

Name Comments DBIA/ICR reference
TRD1 ; TRADE NAME
TR2 ; TRADE NAME
UPAR
NDC1 ; NDC CODE
NDC2 ; NDC CODE
NDC3 ; NDC CODE
HIT1 ; FOR MATCH PROMPT
RES1 ; FOR RESP PROMPT
TYP1 ; FOR PKG TYPE
SZ1 ; FOR PKG SIZE
MRG1 ; FOR MERGE OPTION
; W !!,"This routine will merge the following data from the National Drug File",!,"into your local drug file: ",!,"(1) PTR TO NDF",!,"(2) VA PRODUCT NAME FROM NDF",!,"(3) PTR TO NDF VA PRODUCT NAME"
; W !,"(4) PTR TO PACKAGE SIZE IN NDF",!,"(5) PTR TO PACKAGE TYPE IN NDF AND",!,"(6) NEW VA DRUG CLASSIFICATION." K ANS G RESP^PSNMRG Q
ASK1 ; FOR MATCH PROMPT
REMTCH ; REMATCH PROMPT
BLD1 ; WHERE TO BEGIN MATCHING
ING ; INGREDIENTS
ING1
RES2 ; MATCH PROMPT
CR ; FORCES CONVERSION REMATCH OPTION

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter number of one of the trade names displayed"
  • Line Location: TRD1+1
Function Call: WRITE
  • Prompt: !,"Or press return to view more"
  • Line Location: TRD1+2
Function Call: WRITE
  • Prompt: !!,"Enter number of one of the trade names displayed",!,"If none of them match, press return to proceed"
  • Line Location: TR2+1
Function Call: WRITE
  • Prompt: !,"to next step in matching process"
  • Line Location: TR2+2
Function Call: WRITE
  • Prompt: !,"or enter ""^"" to exit",!
  • Line Location: UPAR+0
Function Call: WRITE
  • Prompt: !!,"Enter NDC Code for drug from your drug file",!,"Format should be MANUFACTURER'S CODE""-""PRODUCT CODE""-""PACKAGE CODE",!,"(i.e. 9999-999-99)"
  • Line Location: NDC1+1
Function Call: WRITE
  • Prompt: !!,"Enter number of one of the drugs displayed or press",!,"return to view more.",!,"You may enter ""^NDC"" to skip this step and go directly to the",!,"""enter NDC Code <WITH DASHES>:"" prompt"
  • Line Location: NDC2+1
Function Call: WRITE
  • Prompt: !!,"Enter number of one of the drugs displayed",!,"If none of them match, press return to proceed"
  • Line Location: NDC3+1
Function Call: WRITE
  • Prompt: !,"to next step in matching process"
  • Line Location: NDC3+2
Function Call: WRITE
  • Prompt: !!,"The drugs displayed are ""matches"" found in the National",!,"Drug File"
  • Line Location: HIT1+1
Function Call: WRITE
  • Prompt: !!,"If the drug from the National Drug File matches the drug ",!," from your drug file enter ""Y""",!,"If an incorrect response was entered, respond ""N"""
  • Line Location: RES1+1
Function Call: WRITE
  • Prompt: !," or press return to proceed to next step in matching process"
  • Line Location: RES1+2
Function Call: WRITE
  • Prompt: !!,"Enter Package Type which matches the Package Type of the drug",!,"in your drug file"
  • Line Location: TYP1+1
Function Call: WRITE
  • Prompt: !!,"Enter Package Size matches the Package Size",!,"of the drug in your drug file",!,"If none of them match, enter ""NONE"""
  • Line Location: SZ1+1
Function Call: WRITE
  • Prompt: !!,"This routine will merge the following data from the National Drug File",!,"into your local drug file: ",!,"(1) PTR TO NDF",!,"(2) VA PRODUCT NAME FROM NDF",!,"(3) PTR TO NDF VA PRODUCT NAME"
  • Line Location: MRG1+1
Function Call: WRITE
  • Prompt: !,"(4) PTR TO PACKAGE SIZE IN NDF",!,"(5) PTR TO PACKAGE TYPE IN NDF AND",!,"(6) NEW VA DRUG CLASSIFICATION."
  • Line Location: MRG1+2
Function Call: WRITE
  • Prompt: !!,"If drugs match, enter ""Y"" for YES",!,"If you would like to rematch drug, enter ""N"" for NO",!,"If no match is possible, press return and the drug will remain unmatched"
  • Line Location: ASK1+1
Function Call: READ
  • Formatting: !
  • Prompt: "Do you wish to match/rematch it? N// "
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: REMTCH+4
Function Call: WRITE
  • Prompt: !!,"Answer ""Yy"" to rematch this drug.",!,"Answer ""Nn"" or ""^"" or press <RET> to quit."
  • Line Location: REMTCH+6
Function Call: WRITE
  • Prompt: !,"ANSWER MUST BE YES OR NO"
  • Line Location: REMTCH+7
Function Call: WRITE
  • Prompt: !!,"If you wish to begin matching process from beginning of your local drug file,",!,"enter ""B"". This will allow you to match drugs which may have been re-activated."
  • Line Location: BLD1+1
Function Call: WRITE
  • Prompt: !,"Press return to continue with next drug following the one last matched"
  • Line Location: BLD1+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Display ingredients for this NDF drug? N//"
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: ING+1
Function Call: WRITE
  • Prompt: !!,"Displays ingredients (including strengths and units)"
  • Line Location: ING1+0
Function Call: WRITE
  • Prompt: !!,"If the drug from the National Drug File matches the drug",!," from your local file, respond ""Y""",!,"If it is not a match, respond ""N"""
  • Line Location: RES2+1
Function Call: WRITE
  • Prompt: !!,"You must use the Conversion Rematch option first before using this option.",!
  • Line Location: CR+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(59 - [#59] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call