source: WorldVistAEHR/trunk/r/NATIONAL_DRUG_FILE-PSN/PSNHEADR.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 464 bytes
RevLine 
[613]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.