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

Package: National Drug File

Routine: PSNGPN


Information

PSNGPN ;BIR/SJA-Local Drug/VA Print Name Report ; 01/11/01 10:00

Source Information

Source file <PSNGPN.m>

Entry Points

Name Comments DBIA/ICR reference
EN
ASKA
DEV
DVC
QUEUE
START ;
LOOP
CHECK
TITLE
END
DONE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," This report shows a list of the active drugs in local DRUG file where the",!," GENERIC NAME does not match the VA PRINT NAME."
  • Line Location: PSNGPN+5
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"To see drugs beginning with the letter 'A', enter 'A', or whichever letter you",!,"wish to see. To see drugs in a range, for example drugs starting with the",!,"letters 'G', 'H', 'I' and 'J', enter in the format 'G-J'.",!
  • Line Location: ASKA+1
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: ASKA+3
Function Call: WRITE
  • Prompt: !!,"Invalid response , enter a letter, 'A', 'B', etc., or a range, 'C-F', 'M-R', etc.",!
  • Line Location: ASKA+4
Function Call: WRITE
  • Prompt: !!,"Invalid response.",!
  • Line Location: ASKA+5
Function Call: WRITE
  • Prompt: !!,"This report will include drugs starting with the letter "_$G(PSNBEG)_",",!,"and ending with drugs starting with the letter "_$G(PSNEND)_".",!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !!,"This report will be for drugs with leading numerics.",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"This report will be for all drugs.",!
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: DVC+0
Function Call: WRITE
  • Prompt: !,"Report queued to print.",!
  • Line Location: QUEUE+0
Function Call: WRITE
  • Prompt: !!,$P(^PSDRUG(PSNB,0),"^"),?43,PSNVA
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: !,?25,PSNAM,!,?(80-$L(PSNAM1)\2),PSNAM1,!
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: !,"Date printed: ",Y,?69,"Page: ",PSNPGCT,!
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !,"Generic Name",?43,"VA Print Name",!
  • Line Location: TITLE+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TITLE+6
Function Call: WRITE
  • Prompt: !!,"End of Report.",!
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Info |  Source |  Entry Points |  Interaction Calls