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

Package: National Drug File

Routine: PSNOCLS


Information

PSNOCLS ;BIR/CCH&WRT-Print report of drugs with no classification ;01/12/98 5:18 PM

Source Information

Source file <PSNOCLS.m>

Entry Points

Name Comments DBIA/ICR reference
DVC
QUEUE
ENQ ;ENTRY POINT WHEN QUEUED
DONE
TITLE
LOOP
REPRT
WRTDEA

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"". It may be useful to print this report before and",!,"after executing the ""Allow Unmatched Drugs To Be Classed"" option."
  • Line Location: PSNOCLS+2
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: PSNOCLS+3
Function Call: WRITE
  • Prompt: "no VA Drug Classification.",!,"You may queue the report to print, if you wish.",!
  • Line Location: PSNOCLS+4
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 VA CLASSIFICATION",!
  • Line Location: TITLE+1
Function Call: WRITE
  • Prompt: !,"Date printed: ",Y,?55,"Page: ",PSNPGCT,!
  • Line Location: TITLE+2
Function Call: WRITE
  • Prompt: !,"NUMBER",?10,"LOCAL DRUG GENERIC NAME",?67,"DEA",!
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !!,PSNB,?10,$P(^PSDRUG(PSNB,0),"^",1)
  • Line Location: REPRT+0
Function Call: WRITE
  • Prompt: ?67,$P(^PSDRUG(PSNB,0),"^",3)
  • Line Location: WRTDEA+0
Info |  Source |  Entry Points |  Interaction Calls