Routine: PSNOCLS

Information

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

Source file <PSNOCLS.m>

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