PSNHEADR.m

PSNHEADR ;BIR/WRT-Header routine for NDF Info From Your Local Drug File Report ;01/12/98   5:18 PM

 ;;4.0; NATIONAL DRUG FILE;; 30 Oct 98

BEGIN D TITLE

DONE K MJT

 Q

TITLE W !,?33,"NATIONAL DRUG INFO FROM YOUR LOCAL FILE"

 S %DT="",X="T" D ^%DT X ^DD("DD") W !?100,"Date printed: ",Y,!?100,"Page: ",DC,!

 W !,"LOCAL DRUG INFO",?42,"NDF INFO",?110,"NDF",?122,"NDF",!,"LOCAL DRUG NAME",?42,"VA PRODUCT NAME",?108,"PKG SIZE",?120,"PKG TYPE",!

 F MJT=1:1:132 W "-"

 Q

PSNHEADR  ;BIR/WRT-Header routine for NDF Info From Your Local Drug File Report ;01/12/98   5:18 PM

 +1       ;;4.0; NATIONAL DRUG FILE;; 30 Oct 98

BEGIN      DO TITLE

DONE       KILL MJT

 +1        QUIT 

TITLE      WRITE !,?33,"NATIONAL DRUG INFO FROM YOUR LOCAL FILE"

 +1        SET %DT=""

           SET X="T"

           DO ^%DT

           XECUTE ^DD("DD")

           WRITE !?100,"Date printed: ",Y,!?100,"Page: ",DC,!

 +2        WRITE !,"LOCAL DRUG INFO",?42,"NDF INFO",?110,"NDF",?122,"NDF",!,"LOCAL DRUG NAME",?42,"VA PRODUCT NAME",?108,"PKG SIZE",?120,"PKG TYPE",!

 +3        FOR MJT=1:1:132

               WRITE "-"

 +4        QUIT