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

Package: National Drug File

Routine: PSNFRMLY


Information

PSNFRMLY ;BIR/WRT-formulary report routine ;09/26/98 11:08

Source Information

Source file <PSNFRMLY.m>

Entry Points

Name Comments DBIA/ICR reference
HEADER
BEGIN
HEAD1
KILL
ASKEM
SUPPLY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report gives you a printed copy of formulary drugs from your local file",!,"with synonyms marked as trade names. You"
  • Line Location: PSNFRMLY+2
Function Call: WRITE
  • Prompt: " will be asked if you want to include",!,"supply items. You are asked to type in a title for this report.",!,"You are then asked to print by Generic Name/Tradename or VA Class Code."
  • Line Location: PSNFRMLY+3
Function Call: WRITE
  • Prompt: !,"If you choose to print by VA Class Code, it"
  • Line Location: PSNFRMLY+4
Function Call: WRITE
  • Prompt: " will ask you to pick a range",!,"of VA Drug Class Codes."
  • Line Location: PSNFRMLY+5
Function Call: WRITE
  • Prompt: " Only active drugs will print. Drugs with",!,"a future inactive date will print as well."
  • Line Location: PSNFRMLY+6
Function Call: WRITE
  • Prompt: !,"You may queue the report to print, if you wish.",!!
  • Line Location: PSNFRMLY+7
Function Call: READ
  • Formatting: !
  • Prompt: "Enter title for report: HOSPITAL// "
  • Variable: PSNANS
  • Timeout: DTIME
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: !,"Your answer must 30 characters or less.",!
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"You cannot delete. This is a free text field. Please enter the name that you",!,"want to print at the top of this report.",!
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !!,"Enter the name you want to print. This name will print at the top of this report",!,"along with the word ""FORMULARY""."
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,PSNANS_" FORMULARY (BY VA CLASS)",!
  • Line Location: HEAD1+0
Function Call: WRITE
  • Prompt: !!,"You may print by DRUG GENERIC NAME/TRADENAME or VA CLASS CODE.",!,"Enter a <RET> or ""G"" to print by DRUG GENERIC NAME/TRADENAME or",!,"""C"" for VA CLASS CODE."
  • Line Location: ASKEM+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: ASKEM+1
Function Call: WRITE
  • Prompt: !!,"Print by:"
  • Line Location: ASKEM+1
Function Call: WRITE
  • Prompt: !!,?5,"Enter a ""<RET>"" or ""Gg"" to print by local generic name/tradename.",!?5,"Enter a ""C"" to print by VA Drug Class Code",!?5,"You may enter an ""^"" to exit."
  • Line Location: ASKEM+2
Function Call: WRITE
  • Prompt: ?40,"CLASS",!
  • Line Location: ASKEM+6
Function Call: WRITE
  • Prompt: ?40,"GENERIC/TRADE",!
  • Line Location: ASKEM+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call