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

Package: National Drug File

Routine: PSNONDF


Information

PSNONDF ;BIR/WRT-Print report of drugs with no match to NDF (all or only OP) ; 11/22/98 15:11

Source Information

Source file <PSNONDF.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
DVC
QUEUE
ENQ ;ENTRY POINT WHEN QUEUED
DONE
TITLE
LOOP
CHECK
OUTPAT
NOTHG
MCLS
REPRT
OUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report should be run after executing the menu option ""Merge National Drug",!,"File Data Into Local File""."
  • Line Location: PSNONDF+5
Function Call: WRITE
  • Prompt: " It gives you a hard copy of the drugs from your",!,"local DRUG file which are ""active"" and have"
  • Line Location: PSNONDF+6
Function Call: WRITE
  • Prompt: " no match to NDF. You have the choice",!,"to print ALL drugs or only drugs marked for Outpatient use. If you answer ""yes"" to the question, you will print all. If you answer ""no"", you will print only",!,"Outpatient use drugs."
  • Line Location: PSNONDF+7
Function Call: WRITE
  • Prompt: !,"You may queue the report to print, if you wish.",!
  • Line Location: PSNONDF+8
Function Call: WRITE
  • Prompt: !!,"Do you wish to print ALL drugs from your local file? "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+0
Function Call: WRITE
  • Prompt: !,?23,"LOCAL DRUGS WITH NO MATCH TO NDF",!
  • Line Location: TITLE+1
Function Call: WRITE
  • Prompt: !,"Date printed: ",Y,?55,"Page: ",PSNPGCT,!
  • Line Location: TITLE+2
Function Call: WRITE
  • Prompt: !?54,"DEA,",!?46,"MANUAL",?54,"SPCL",?61,"INACTIVE"
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: !,"LOCAL DRUG GENERIC NAME",?46,"CLASS",?54,"HDLG",?61,"DATE",!
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TITLE+5
Function Call: WRITE
  • Prompt: !!,PSNLCL,?46,PSNVCL,?54,DEA
  • Line Location: REPRT+0
Function Call: WRITE
  • Prompt: ?61,Y
  • Line Location: REPRT+0
Info |  Source |  Entry Points |  Interaction Calls