PSDRPGS3.m

PSDRPGS3 ;BIR/JPW,LTL-Reprint Green Sheet (VA FORM 10-2638) cont'd ; 21 Jun 94

 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

 W !?6,"CONTROLLED SUBSTANCE ADMINISTRATION RECORD",?54

 K LN S $P(LN,"_",80)="" W !,LN,!?6

 W "| DATE   TIME     NAME OF PATIENT      DOSE  BALANCE  ADMINISTERED BY    |"

 F LINE=1:1:10 W !?6,"|_______|_____|_______________________|_____|______|_____________________|",!

 Q

PSDRPGS3  ;BIR/JPW,LTL-Reprint Green Sheet (VA FORM 10-2638) cont'd ; 21 Jun 94

 +1       ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

 +2        WRITE !?6,"CONTROLLED SUBSTANCE ADMINISTRATION RECORD",?54

 +3        KILL LN

           SET $PIECE(LN,"_",80)=""

           WRITE !,LN,!?6

 +4        WRITE "| DATE   TIME     NAME OF PATIENT      DOSE  BALANCE  ADMINISTERED BY    |"

 +5        FOR LINE=1:1:10

               WRITE !?6,"|_______|_____|_______________________|_____|______|_____________________|",!

 +6        QUIT