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

Package: National Drug File

Routine: PSNNFL


Information

PSNNFL ;BIR/WRT-Report of National Formulary Names from VA PRODUCT file ; 11/01/99 7:20

Source Information

Source file <PSNNFL.m>

Entry Points

Name Comments DBIA/ICR reference
PRELIM
ASK
DVC
QUEUE
ENQ ;ENTRY POINT WHEN QUEUED
ENQ1
TITLE
DONE
QUEUE1
LOOP
LOOPA
LOOP1
LOOP2
LOOP3
WRITE
CHECK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This report will print out all National Formulary marked for National",!,"Formulary. You may sort by National Formulary Name or by VA Class.",!
  • Line Location: PRELIM+0
Function Call: WRITE
  • Prompt: "This information comes from the VA Product file.",!,"This report requires 132 columns. You may queue the report to print,",!,"if you wish.",!!
  • Line Location: PRELIM+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENQ1+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+0
Function Call: WRITE
  • Prompt: !,?37,"VHA NATIONAL FORMULARY (BY NAME)"
  • Line Location: TITLE+1
Function Call: WRITE
  • Prompt: ?85,"Date printed: ",Y,!!,"R Indicates that a Restriction exists for the Product.",?85,"Page: ",PSNPGCT,!!
  • Line Location: TITLE+2
Function Call: WRITE
  • Prompt: !,"NATIONAL FORMULARY NAME",?100,"VA CLASS",?110,"RESTRICTION",!
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !,PSNATF
  • Condition for execution: PSNFLG
  • Line Location: WRITE+0
Function Call: WRITE
  • Prompt: ?100,CLASS,?110,REST,!
  • Line Location: WRITE+0
Info |  Source |  Entry Points |  Interaction Calls