Routine: PSNHELP

Call Graph

Call Graph Total: 6

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

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

Package

Total

Caller Graph

National Drug File

PSNBLD PSNCOMP PSNDRUG PSNFRMLY PSNHELP1 PSNHIT PSNSTCK PSNVFY

Entry Points

Name	Comments	DBIA/ICR reference
HIT1	; FOR MATCH PROMPT
SZ1	; FOR PKG SIZE
ASK1	; FOR MATCH PROMPT
REMTCH	; REMATCH PROMPT
TYP1	; FOR PKG TYPE
RES1	; FOR RESP PROMPT
NDC3	; NDC CODE
NDC2	; NDC CODE
NDC1	; NDC CODE
ING1
RES2	; MATCH PROMPT
UPAR
ING	; INGREDIENTS
BLD1	; WHERE TO BEGIN MATCHING
TR2	; TRADE NAME
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
CR	; FORCES CONVERSION REMATCH OPTION
TRD1	; TRADE NAME

Name	Field # of Occurrence
MATCH^PSNDRUG	REMTCH+17
START^PSNDRUG	REMTCH+8
SETNULL^PSNHELP1	REMTCH+9
INGRED^PSNOUT	ING+6
DRG^PSSHUIDG	REMTCH+10
^PSXREF	REMTCH+17
$$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	Prompt: "Do you wish to match/rematch it? N// " Formatting: ! Timeout: DTIME Variable: ANS 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	Prompt: "Display ingredients for this NDF drug? N//" Formatting: !! Timeout: DTIME Variable: ANS 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

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	REMTCH+17
^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!

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

>>	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+17!
DTIME	REMTCH+4, ING+1
>> PSNFL	REMTCH+4, ING+1
PSNID	REMTCH+9*!
>> X	REMTCH+17*
>> Y	REMTCH+1, REMTCH+2, REMTCH+3, REMTCH+9
>> Z9	ASK1+2, RES2+2

Customize PDF page

Package: National Drug File

Routine: PSNHELP

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: