source: FOIAVistA/tag/r/NATIONAL_DRUG_FILE-PSN/PSNHEADR.m@ 628

Last change on this file since 628 was 628, checked in by George Lilly, 14 years ago

initial load of FOIAVistA 6/30/08 version

File size: 464 bytes
Line 
1PSNHEADR ;BIR/WRT-Header routine for NDF Info From Your Local Drug File Report ;01/12/98 5:18 PM
2 ;;4.0; NATIONAL DRUG FILE;; 30 Oct 98
3BEGIN D TITLE
4DONE K MJT
5 Q
6TITLE W !,?33,"NATIONAL DRUG INFO FROM YOUR LOCAL FILE"
7 S %DT="",X="T" D ^%DT X ^DD("DD") W !?100,"Date printed: ",Y,!?100,"Page: ",DC,!
8 W !,"LOCAL DRUG INFO",?42,"NDF INFO",?110,"NDF",?122,"NDF",!,"LOCAL DRUG NAME",?42,"VA PRODUCT NAME",?108,"PKG SIZE",?120,"PKG TYPE",!
9 F MJT=1:1:132 W "-"
10 Q
Note: See TracBrowser for help on using the repository browser.