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

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
National Drug File 3 (MATCH,START)^PSNDRUG  SETNULL^PSNHELP1  INGRED^PSNOUT  
Pharmacy Data Management 2 DRG^PSSDGUPD  DRG^PSSHUIDG  
CMOP 1 ^PSXREF  
Kernel 1 $$PATCH^XPDUTL  
VA FileMan 1 $$GET1^DIQ  

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

Package Total Caller Graph
National Drug File 8 PSNBLD  PSNCOMP  PSNDRUG  PSNFRMLY  PSNHELP1  PSNHIT  PSNSTCK  PSNVFY  

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

External References

Name Field # of Occurrence
$$GET1^DIQ REMTCH+13, REMTCH+14
MATCH^PSNDRUG REMTCH+15
START^PSNDRUG REMTCH+8
SETNULL^PSNHELP1 REMTCH+9
INGRED^PSNOUT ING+6
DRG^PSSDGUPD REMTCH+14
DRG^PSSHUIDG REMTCH+10
^PSXREF REMTCH+15
$$PATCH^XPDUTL REMTCH+10

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" REMTCH+15
^PS(59 - [#59] REMTCH+12
^PS(59.7 - [#59.7] CR+1
^PSDRUG - [#50] REMTCH+1, REMTCH+2, REMTCH+3, REMTCH+9*
^PSDRUG("AQ" REMTCH+9!
^PSDRUG("AQ1" REMTCH+9!

Label References

Name Line Occurrences
ING ING+2, ING+3
ING1 ING+3
NDC2 HIT1+1
REMTCH REMTCH+5, REMTCH+6, REMTCH+7
UPAR TRD1+2, TR2+2, NDC1+1, NDC2+1, NDC3+2, RES1+2, TYP1+1, SZ1+1, ASK1+2, BLD1+2
, ING1, RES2+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS TR2+2!, NDC1+1!, NDC2+1!, REMTCH+4*, REMTCH+5, REMTCH+6!, REMTCH+7!, REMTCH+8!, REMTCH+9!, BLD1+2!
, ING+1*, ING+2, ING+3, ING+4*, ING1!, RES2+2!
DA REMTCH+9*, REMTCH+10, REMTCH+14, REMTCH+15!
DMFU REMTCH+11~, REMTCH+13*, REMTCH+14
DNSNAM REMTCH+11~, REMTCH+14*
DNSPORT REMTCH+11~, REMTCH+14*
DTIME REMTCH+4, ING+1
DVER REMTCH+11~, REMTCH+13*, REMTCH+14
>> PSNFL REMTCH+4*, ING+1*
PSNID REMTCH+9*!
>> X REMTCH+15*
XX REMTCH+11~*, REMTCH+12*, REMTCH+13, REMTCH+14
>> Y REMTCH+1, REMTCH+2, REMTCH+3, REMTCH+9
>> Z9 ASK1+2, RES2+2
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