Last change
on this file since 1042 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
464 bytes
|
Line | |
---|
1 | PSNHEADR ;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
|
---|
3 | BEGIN D TITLE
|
---|
4 | DONE K MJT
|
---|
5 | Q
|
---|
6 | TITLE 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.