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

Call Graph

Call Graph Total: 4

Package Total Call Graph
National Drug File 2 UPAR^PSNHELP  ^PSNHFRM  
VA Fileman 2 EN1^DIP  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
National Drug File 1 PSNFRMLY  

Entry Points

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

External References

Name Field # of Occurrence
EN1^DIP BEGIN
^DIR SUPPLY
UPAR^PSNHELP HEADER+4
^PSNHFRM ASKEM+7

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
  • Prompt: "Enter title for report: HOSPITAL// "
  • Formatting: !
  • Timeout: DTIME
  • Variable: PSNANS
  • 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
Routine Call
  • DIR
  • Line Location:
    • SUPPLY

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J BEGIN!, KILL!, ASKEM+7!

Label References

Name Line Occurrences
ASKEM HEADER+5, ASKEM+2, ASKEM+4, ASKEM+5
BEGIN ASKEM+6
HEADER HEADER+1, HEADER+2, HEADER+3, HEADER+4
KILL HEADER, BEGIN+1
SUPPLY PSNFRMLY+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BY BEGIN*
>> DHD BEGIN*
>> DIC BEGIN*
>> DIOEND BEGIN*
DIR SUPPLY!
DIR("A" SUPPLY*
DIR("B" SUPPLY*
DIR(0 SUPPLY*
>> DIRUT PSNFRMLY+7, SUPPLY
DTIME HEADER, ASKEM+1
>> FLDS BEGIN*
>> L BEGIN*
PSNANS HEADER*, HEADER+1!, HEADER+2!, HEADER+3!, HEADER+4!, HEADER+5!, HEAD1, KILL!, ASKEM+7*
PSNANSR HEADER+5!, HEAD1, KILL!, ASKEM+1*, ASKEM+2!, ASKEM+3, ASKEM+4, ASKEM+5!, ASKEM+6, ASKEM+7
PSNB KILL!
PSNDATE KILL!
>> SF SUPPLY+1*, SUPPLY+2*
>> Y(0 SUPPLY+1, SUPPLY+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