Routine: PSNSUPLY

Information

PSNSUPLY ;BIR/WRT-Print report of drugs with an "XA" classification- SORT BY CLASS CODE ;01/12/98 5:18 PM

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report should be run if you have already classed your local drugs/items",!,"using Version 1.0 of NDF. After the installation of Version 2.0 of NDF and the",!,"VA DRUG CLASS file is re-installed, you may wish " Line Location: PSNSUPLY+2
Function Call: WRITE	Prompt: "to re-class your local items",!,"with an ""XA"" classification using the newly expanded ""XA000"" classification. It" Line Location: PSNSUPLY+3
Function Call: WRITE	Prompt: !,"gives you a hard copy of the items from your local drug file which are ""active"" and have an ""XA"" VA Drug Classification.",!,"You may queue the report to print, if you wish.",! Line Location: PSNSUPLY+4
Function Call: WRITE	Prompt: @IOF Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+0
Function Call: WRITE	Prompt: !,?8,"LOCAL ITEMS WITH A ""PROSTHETICS/SUPPLIES/DEVICES"" 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",?57,"VA CLASS",?70,"NEW CLASS",! Line Location: TITLE+3
Function Call: WRITE	Prompt: "-" Line Location: TITLE+4
Function Call: WRITE	Prompt: !!,PSNB,?10,$P(^PSDRUG(PSNB,0),"^",1),?57,$P(^PS(50.605,$P(^PSDRUG(PSNB,"ND"),"^",6),0),"^",1),?70,"_______" Line Location: REPRT+0