Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSSDSBDB

PSSDSBDB.m

Go to the documentation of this file.
PSSDSBDB ;BIR/RTR-Data used to populate Dose Unit and Numeric Dose for Dose Check ;02/12/09
 ;;1.0;PHARMACY DATA MANAGEMENT;**117**;9/30/97;Build 101
 ;
 N PSSQVCEE,PSSQVCFF
 F PSSQVCEE=1:1 S PSSQVCFF=$T(SET5+PSSQVCEE) Q:$P(PSSQVCFF,";;",2)=""  S ^TMP($J,"PSSQVCS5",$P(PSSQVCFF,";;",2))=$P(PSSQVCFF,";;",3)_"^"_$P(PSSQVCFF,";;",4)
 Q
 ;
SET5 ;
 ;;1 ML;;1;;MILLILITER(S)
 ;;1 ML(S);;1;;MILLILITER(S)
 ;;1ML;;1;;MILLILITER(S)
 ;;1 MILLILITER;;1;;MILLILITER(S)
 ;;ONE MILLILITER;;1;;MILLILITER(S)
 ;;1 MILLILITER(S);;1;;MILLILITER(S)
 ;;ONE MILLILITER(S);;1;;MILLILITER(S)
 ;;2 ML;;2;;MILLILITER(S)
 ;;2 ML(S);;2;;MILLILITER(S)
 ;;2 MLS;;2;;MILLILITER(S)
 ;;2ML;;2;;MILLILITER(S)
 ;;2 MILLILITER(S);;2;;MILLILITER(S)
 ;;TWO MILLILITER(S);;2;;MILLILITER(S)
 ;;2 MILLILITERS;;2;;MILLILITER(S)
 ;;TWO MILLILITERS;;2;;MILLILITER(S)
 ;;ONE TABLESPOON;;1;;TABLESPOONFUL(S)
 ;;1 TABLESPOON;;1;;TABLESPOONFUL(S)
 ;;ONE TABLESPOON(S);;1;;TABLESPOONFUL(S)
 ;;1 TABLESPOON(S);;1;;TABLESPOONFUL(S)
 ;;ONE TABLESPOONFUL;;1;;TABLESPOONFUL(S)
 ;;1 TABLESPOONFUL;;1;;TABLESPOONFUL(S)
 ;;ONE TABLESPOONSFUL;;1;;TABLESPOONFUL(S)
 ;;1 TABLESPOONSFUL;;1;;TABLESPOONFUL(S)
 ;;ONE TABLESPOONFUL(S);;1;;TABLESPOONFUL(S)
 ;;1 TABLESPOONFUL(S);;1;;TABLESPOONFUL(S)
 ;;TWO TABLESPOONS;;2;;TABLESPOONFUL(S)
 ;;2 TABLESPOONS;;2;;TABLESPOONFUL(S)
 ;;TWO TABLESPOON(S);;2;;TABLESPOONFUL(S)
 ;;2 TABLESPOON(S);;2;;TABLESPOONFUL(S)
 ;;TWO TABLESPOONFULS;;2;;TABLESPOONFUL(S)
 ;;2 TABLESPOONFULS;;2;;TABLESPOONFUL(S)
 ;;TWO TABLESPOONSFUL;;2;;TABLESPOONFUL(S)
 ;;2 TABLESPOONSFUL;;2;;TABLESPOONFUL(S)
 ;;TWO TABLESPOONFUL(S);;2;;TABLESPOONFUL(S)
 ;;2 TABLESPOONFUL(S);;2;;TABLESPOONFUL(S)
 ;;ONE OR TWO TABLESPOONS;;2;;TABLESPOONFUL(S)
 ;;1 OR 2 TABLESPOONS;;2;;TABLESPOONFUL(S)
 ;;ONE TO TWO TABLESPOONS;;2;;TABLESPOONFUL(S)
 ;;1 TO 2 TABLESPOONS;;2;;TABLESPOONFUL(S)
 ;;ONE - TWO TABLESPOONS;;2;;TABLESPOONFUL(S)
 ;;ONE-TWO TABLESPOONS;;2;;TABLESPOONFUL(S)
 ;;1-2 TABLESPOONS;;2;;TABLESPOONFUL(S)
 ;;1 - 2 TABLESPOONS;;2;;TABLESPOONFUL(S)
 ;;ONE OR TWO TABLESPOON(S);;2;;TABLESPOONFUL(S)
 ;;1 OR 2 TABLESPOON(S);;2;;TABLESPOONFUL(S)
 ;;ONE TO TWO TABLESPOON(S);;2;;TABLESPOONFUL(S)
 ;;1 TO 2 TABLESPOON(S);;2;;TABLESPOONFUL(S)
 ;;ONE - TWO TABLESPOON(S);;2;;TABLESPOONFUL(S)
 ;;ONE-TWO TABLESPOON(S);;2;;TABLESPOONFUL(S)
 ;;1-2 TABLESPOON(S);;2;;TABLESPOONFUL(S)
 ;;1 - 2 TABLESPOON(S);;2;;TABLESPOONFUL(S)
 ;;ONE OR TWO TABLESPOONSFUL;;2;;TABLESPOONFUL(S)
 ;;1 OR 2 TABLESPOONSFUL;;2;;TABLESPOONFUL(S)
 ;;ONE OR TWO TABLESPOONFULS;;2;;TABLESPOONFUL(S)
 ;;1 OR 2 TABLESPOONFULS;;2;;TABLESPOONFUL(S)
 ;;ONE TO TWO TABLESPOONSFUL;;2;;TABLESPOONFUL(S)
 ;;1 TO 2 TABLESPOONSFUL;;2;;TABLESPOONFUL(S)
 ;;ONE TO TWO TABLESPOONFULS;;2;;TABLESPOONFUL(S)
 ;;1 TO 2 TABLESPOONFULS;;2;;TABLESPOONFUL(S)
 ;;ONE - TWO TABLESPOONSFUL;;2;;TABLESPOONFUL(S)
 ;;ONE-TWO TABLESPOONSFUL;;2;;TABLESPOONFUL(S)
 ;;1-2 TABLESPOONSFUL;;2;;TABLESPOONFUL(S)
 ;;1 - 2 TABLESPOONSFUL;;2;;TABLESPOONFUL(S)
 ;;ONE - TWO TABLESPOONFULS;;2;;TABLESPOONFUL(S)
 ;;ONE-TWO TABLESPOONFULS;;2;;TABLESPOONFUL(S)
 ;;1-2 TABLESPOONFULS;;2;;TABLESPOONFUL(S)
 ;;1 - 2 TABLESPOONFULS;;2;;TABLESPOONFUL(S)
 ;;ONE OR TWO TABLESPOONFUL(S);;2;;TABLESPOONFUL(S)
 ;;1 OR 2 TABLESPOONFUL(S);;2;;TABLESPOONFUL(S)
 ;;ONE TO TWO TABLESPOONFUL(S);;2;;TABLESPOONFUL(S)
 ;;1 TO 2 TABLESPOONFUL(S);;2;;TABLESPOONFUL(S)
 ;;ONE - TWO TABLESPOONFUL(S);;2;;TABLESPOONFUL(S)
 ;;ONE-TWO TABLESPOONFUL(S);;2;;TABLESPOONFUL(S)
 ;;1-2 TABLESPOONFUL(S);;2;;TABLESPOONFUL(S)
 ;;1 - 2 TABLESPOONFUL(S);;2;;TABLESPOONFUL(S)
 ;;ONE TEASPOON;;1;;TEASPOONFUL(S)
 ;;1 TEASPOON;;1;;TEASPOONFUL(S)
 ;;ONE TEASPOON(S);;1;;TEASPOONFUL(S)
 ;;1 TEASPOON(S);;1;;TEASPOONFUL(S)
 ;;ONE TEASPOONFUL;;1;;TEASPOONFUL(S)
 ;;1 TEASPOONFUL;;1;;TEASPOONFUL(S)
 ;;ONE TEASPOONSFUL;;1;;TEASPOONFUL(S)
 ;;1 TEASPOONSFUL;;1;;TEASPOONFUL(S)
 ;;ONE TEASPOONFUL(S);;1;;TEASPOONFUL(S)
 ;;1 TEASPOONFUL(S);;1;;TEASPOONFUL(S)
 ;;TWO TEASPOONS;;2;;TEASPOONFUL(S)
 ;;2 TEASPOONS;;2;;TEASPOONFUL(S)
 ;;TWO TEASPOON(S);;2;;TEASPOONFUL(S)
 ;;2 TEASPOON(S);;2;;TEASPOONFUL(S)
 ;;TWO TEASPOONFULS;;2;;TEASPOONFUL(S)
 ;;2 TEASPOONFULS;;2;;TEASPOONFUL(S)
 ;;TWO TEASPOONSFUL;;2;;TEASPOONFUL(S)
 ;;2 TEASPOONSFUL;;2;;TEASPOONFUL(S)
 ;;TWO TEASPOONFUL(S);;2;;TEASPOONFUL(S)
 ;;2 TEASPOONFUL(S);;2;;TEASPOONFUL(S)
 ;;ONE OR TWO TEASPOONS;;2;;TEASPOONFUL(S)
 ;;1 OR 2 TEASPOONS;;2;;TEASPOONFUL(S)
 ;;ONE TO TWO TEASPOONS;;2;;TEASPOONFUL(S)
 ;;1 TO 2 TEASPOONS;;2;;TEASPOONFUL(S)
 ;;ONE - TWO TEASPOONS;;2;;TEASPOONFUL(S)
 ;;ONE-TWO TEASPOONS;;2;;TEASPOONFUL(S)
 ;;1-2 TEASPOONS;;2;;TEASPOONFUL(S)
 ;;1 - 2 TEASPOONS;;2;;TEASPOONFUL(S)
 ;;ONE OR TWO TEASPOON(S);;2;;TEASPOONFUL(S)
 ;;1 OR 2 TEASPOON(S);;2;;TEASPOONFUL(S)
 ;;ONE TO TWO TEASPOON(S);;2;;TEASPOONFUL(S)
 ;;1 TO 2 TEASPOON(S);;2;;TEASPOONFUL(S)
 ;;ONE - TWO TEASPOON(S);;2;;TEASPOONFUL(S)
 ;;ONE-TWO TEASPOON(S);;2;;TEASPOONFUL(S)
 ;;1-2 TEASPOON(S);;2;;TEASPOONFUL(S)
 ;;1 - 2 TEASPOON(S);;2;;TEASPOONFUL(S)
 ;;ONE OR TWO TEASPOONSFUL;;2;;TEASPOONFUL(S)
 ;;1 OR 2 TEASPOONSFUL;;2;;TEASPOONFUL(S)
 ;;ONE OR TWO TEASPOONFULS;;2;;TEASPOONFUL(S)
 ;;1 OR 2 TEASPOONFULS;;2;;TEASPOONFUL(S)
 ;;ONE TO TWO TEASPOONSFUL;;2;;TEASPOONFUL(S)
 ;;1 TO 2 TEASPOONSFUL;;2;;TEASPOONFUL(S)
 ;;ONE TO TWO TEASPOONFULS;;2;;TEASPOONFUL(S)
 ;;1 TO 2 TEASPOONFULS;;2;;TEASPOONFUL(S)
 ;;ONE - TWO TEASPOONSFUL;;2;;TEASPOONFUL(S)
 ;;ONE-TWO TEASPOONSFUL;;2;;TEASPOONFUL(S)
 ;;1-2 TEASPOONSFUL;;2;;TEASPOONFUL(S)
 ;;1 - 2 TEASPOONSFUL;;2;;TEASPOONFUL(S)
 ;;ONE - TWO TEASPOONFULS;;2;;TEASPOONFUL(S)
 ;;ONE-TWO TEASPOONFULS;;2;;TEASPOONFUL(S)
 ;;1-2 TEASPOONFULS;;2;;TEASPOONFUL(S)
 ;;1 - 2 TEASPOONFULS;;2;;TEASPOONFUL(S)
 ;;ONE OR TWO TEASPOONFUL(S);;2;;TEASPOONFUL(S)
 ;;1 OR 2 TEASPOONFUL(S);;2;;TEASPOONFUL(S)
 ;;ONE TO TWO TEASPOONFUL(S);;2;;TEASPOONFUL(S)
 ;;1 TO 2 TEASPOONFUL(S);;2;;TEASPOONFUL(S)
 ;;ONE - TWO TEASPOONFUL(S);;2;;TEASPOONFUL(S)
 ;;ONE-TWO TEASPOONFUL(S);;2;;TEASPOONFUL(S)
 ;;1-2 TEASPOONFUL(S);;2;;TEASPOONFUL(S)
 ;;1 - 2 TEASPOONFUL(S);;2;;TEASPOONFUL(S)
 ;;ONE-HALF TABLET;;.5;;TABLET(S)
 ;;1/2 TABLET;;.5;;TABLET(S)
 ;;0.5 TABLET;;.5;;TABLET(S)
 ;;ONE-HALF TABLET(S);;.5;;TABLET(S)
 ;;1/2 TABLET(S);;.5;;TABLET(S)
 ;;0.5 TABLET(S);;.5;;TABLET(S)
 ;;ONE TABLET;;1;;TABLET(S)
 ;;1 TABLET;;1;;TABLET(S)
 ;;ONE TABLET(S);;1;;TABLET(S)
 ;;1 TABLET(S);;1;;TABLET(S)
 ;;TWO TABLETS;;2;;TABLET(S)
 ;;2 TABLETS;;2;;TABLET(S)
 ;;TWO TABLET(S);;2;;TABLET(S)
 ;;2 TABLET(S);;2;;TABLET(S)
 ;;ONE OR TWO TABLETS;;2;;TABLET(S)
 ;;1 OR 2 TABLETS;;2;;TABLET(S)
 ;;ONE TO TWO TABLETS;;2;;TABLET(S)
 ;;1 TO 2 TABLETS;;2;;TABLET(S)
 ;;ONE - TWO TABLETS;;2;;TABLET(S)
 ;;ONE-TWO TABLETS;;2;;TABLET(S)
 ;;1-2 TABLETS;;2;;TABLET(S)
 ;;1 - 2 TABLETS;;2;;TABLET(S)
 ;;ONE OR TWO TABLET(S);;2;;TABLET(S)
 ;;1 OR 2 TABLET(S);;2;;TABLET(S)
 ;;ONE TO TWO TABLET(S);;2;;TABLET(S)
 ;;1 TO 2 TABLET(S);;2;;TABLET(S)
 ;;ONE - TWO TABLET(S);;2;;TABLET(S)
 ;;ONE-TWO TABLET(S);;2;;TABLET(S)
 ;;1-2 TABLET(S);;2;;TABLET(S)
 ;;1 - 2 TABLET(S);;2;;TABLET(S)
 ;;ONE CAPSULE;;1;;CAPSULE(S)
 ;;1 CAPSULE;;1;;CAPSULE(S)
 ;;ONE CAPSULE(S);;1;;CAPSULE(S)
 ;;1 CAPSULE(S);;1;;CAPSULE(S)
 ;;TWO CAPSULES;;2;;CAPSULE(S)
 ;;2 CAPSULES;;2;;CAPSULE(S)
 ;;TWO CAPSULE(S);;2;;CAPSULE(S)
 ;;2 CAPSULE(S);;2;;CAPSULE(S)
 ;;ONE OR TWO CAPSULES;;2;;CAPSULE(S)
 ;;1 OR 2 CAPSULES;;2;;CAPSULE(S)
 ;;ONE TO TWO CAPSULES;;2;;CAPSULE(S)
 ;;1 TO 2 CAPSULES;;2;;CAPSULE(S)
 ;;ONE - TWO CAPSULES;;2;;CAPSULE(S)
 ;;ONE-TWO CAPSULES;;2;;CAPSULE(S)
 ;;1-2 CAPSULES;;2;;CAPSULE(S)
 ;;1 - 2 CAPSULES;;2;;CAPSULE(S)
 ;;ONE OR TWO CAPSULE(S);;2;;CAPSULE(S)
 ;;1 OR 2 CAPSULE(S);;2;;CAPSULE(S)
 ;;ONE TO TWO CAPSULE(S);;2;;CAPSULE(S)
 ;;1 TO 2 CAPSULE(S);;2;;CAPSULE(S)
 ;;ONE - TWO CAPSULE(S);;2;;CAPSULE(S)
 ;;ONE-TWO CAPSULE(S);;2;;CAPSULE(S)
 ;;1-2 CAPSULE(S);;2;;CAPSULE(S)
 ;;1 - 2 CAPSULE(S);;2;;CAPSULE(S)
 ;;ONE LOZENGE;;1;;LOZENGE(S)
 ;;1 LOZENGE;;1;;LOZENGE(S)
 ;;ONE LOZENGE(S);;1;;LOZENGE(S)
 ;;1 LOZENGE(S);;1;;LOZENGE(S)
 ;;TWO LOZENGES;;2;;LOZENGE(S)
 ;;2 LOZENGES;;2;;LOZENGE(S)
 ;;TWO LOZENGE(S);;2;;LOZENGE(S)
 ;;2 LOZENGE(S);;2;;LOZENGE(S)
 ;;ONE PACKET;;1;;PACKET(S)
 ;;1 PACKET;;1;;PACKET(S)
 ;;ONE PACKET(S);;1;;PACKET(S)
 ;;1 PACKET(S);;1;;PACKET(S)
 ;;TWO PACKETS;;2;;PACKET(S)
 ;;2 PACKETS;;2;;PACKET(S)
 ;;TWO PACKET(S);;2;;PACKET(S)
 ;;2 PACKET(S);;2;;PACKET(S)
 ;;ONE SUPPOSITORY;;1;;SUPPOSITORY/IES
 ;;1 SUPPOSITORY;;1;;SUPPOSITORY/IES
 ;;ONE SUPPOSITOR(IES);;1;;SUPPOSITORY/IES
 ;;1 SUPPOSITOR(IES);;1;;SUPPOSITORY/IES
 ;;ONE SUPPOSITORY(IES);;1;;SUPPOSITORY/IES
 ;;1 SUPPOSITORY(IES);;1;;SUPPOSITORY/IES
 ;;TWO SUPPOSITORIES;;2;;SUPPOSITORY/IES
 ;;2 SUPPOSITORIES;;2;;SUPPOSITORY/IES
 ;;TWO SUPPOSITOR(IES);;2;;SUPPOSITORY/IES
 ;;2 SUPPOSITOR(IES);;2;;SUPPOSITORY/IES
 ;;TWO SUPPOSITORY(IES);;2;;SUPPOSITORY/IES
 ;;2 SUPPOSITORY(IES);;2;;SUPPOSITORY/IES
 ;;ONE TROCHE;;1;;TROCHE(S)
 ;;1 TROCHE;;1;;TROCHE(S)
 ;;ONE TROCHE(S);;1;;TROCHE(S)
 ;;1 TROCHE(S);;1;;TROCHE(S)
 ;;TWO TROCHES;;2;;TROCHE(S)
 ;;2 TROCHES;;2;;TROCHE(S)
 ;;TWO TROCHE(S);;2;;TROCHE(S)
 ;;2 TROCHE(S);;2;;TROCHE(S)
 ;;
 Q