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

PSSDSBDA.m

Go to the documentation of this file.
PSSDSBDA ;BIR/RTR-Data used to populate Dose Unit and Numeric Dose ;02/12/09
 ;;1.0;PHARMACY DATA MANAGEMENT;**117**;9/30/97;Build 101
 ;
 K ^TMP($J,"PSSQVCS2")
 K ^TMP($J,"PSSQVCS4")
 K ^TMP($J,"PSSQVCS5")
 N PSSQVCAA,PSSQVCBB,PSSQVCCC,PSSQVCDD
 F PSSQVCAA=1:1 S PSSQVCBB=$T(SET4+PSSQVCAA) Q:$P(PSSQVCBB,";;",2)=""  S ^TMP($J,"PSSQVCS4",$P(PSSQVCBB,";;",2))=$P(PSSQVCBB,";;",3)_"^"_$P(PSSQVCBB,";;",4)
 F PSSQVCCC=1:1 S PSSQVCDD=$T(SET2+PSSQVCCC) Q:$P(PSSQVCDD,";;",2)=""  S ^TMP($J,"PSSQVCS2",$P(PSSQVCDD,";;",2),$P(PSSQVCDD,";;",3))=$P(PSSQVCDD,";;",4)_"^"_$P(PSSQVCDD,";;",5)
 ;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)
 D ^PSSDSBDB
 Q
 ;
SET2 ;
 ;;ONE TEASPOON;;1;;5;;M
 ;;ONE TEASPOON;;5;;1;;M
 ;;ONE TEASPOON;;10;;2;;D
 ;;ONE TEASPOON;;15;;3;;D
 ;;1 TEASPOON;;1;;5;;M
 ;;1 TEASPOON;;5;;1;;M
 ;;1 TEASPOON;;10;;2;;D
 ;;1 TEASPOON;;15;;3;;D
 ;;ONE TEASPOON(S);;1;;5;;M
 ;;ONE TEASPOON(S);;5;;1;;M
 ;;ONE TEASPOON(S);;10;;2;;D
 ;;ONE TEASPOON(S);;15;;3;;D
 ;;1 TEASPOON(S);;1;;5;;M
 ;;1 TEASPOON(S);;5;;1;;M
 ;;1 TEASPOON(S);;10;;2;;D
 ;;1 TEASPOON(S);;15;;3;;D
 ;;ONE TEASPOONFUL;;1;;5;;M
 ;;ONE TEASPOONFUL;;5;;1;;M
 ;;ONE TEASPOONFUL;;10;;2;;D
 ;;ONE TEASPOONFUL;;15;;3;;D
 ;;ONE TEASPOONSFUL;;1;;5;;M
 ;;ONE TEASPOONSFUL;;5;;1;;M
 ;;ONE TEASPOONSFUL;;10;;2;;D
 ;;ONE TEASPOONSFUL;;15;;3;;D
 ;;1 TEASPOONFUL;;1;;5;;M
 ;;1 TEASPOONFUL;;5;;1;;M
 ;;1 TEASPOONFUL;;10;;2;;D
 ;;1 TEASPOONFUL;;15;;3;;D
 ;;1 TEASPOONSFUL;;1;;5;;M
 ;;1 TEASPOONSFUL;;5;;1;;M
 ;;1 TEASPOONSFUL;;10;;2;;D
 ;;1 TEASPOONSFUL;;15;;3;;D
 ;;ONE TEASPOONFUL(S);;1;;5;;M
 ;;ONE TEASPOONFUL(S);;5;;1;;M
 ;;ONE TEASPOONFUL(S);;10;;2;;D
 ;;ONE TEASPOONFUL(S);;15;;3;;D
 ;;1 TEASPOONFUL(S);;1;;5;;M
 ;;1 TEASPOONFUL(S);;5;;1;;M
 ;;1 TEASPOONFUL(S);;10;;2;;D
 ;;1 TEASPOONFUL(S);;15;;3;;D
 ;;TWO TEASPOONS;;1;;10;;M
 ;;TWO TEASPOONS;;5;;2;;M
 ;;TWO TEASPOONS;;10;;1;;M
 ;;2 TEASPOONS;;1;;10;;M
 ;;2 TEASPOONS;;5;;2;;M
 ;;2 TEASPOONS;;10;;1;;M
 ;;TWO TEASPOON(S);;1;;10;;M
 ;;TWO TEASPOON(S);;5;;2;;M
 ;;TWO TEASPOON(S);;10;;1;;M
 ;;2 TEASPOON(S);;1;;10;;M
 ;;2 TEASPOON(S);;5;;2;;M
 ;;2 TEASPOON(S);;10;;1;;M
 ;;TWO TEASPOONFULS;;1;;10;;M
 ;;TWO TEASPOONFULS;;5;;2;;M
 ;;TWO TEASPOONFULS;;10;;1;;M
 ;;TWO TEASPOONSFUL;;1;;10;;M
 ;;TWO TEASPOONSFUL;;5;;2;;M
 ;;TWO TEASPOONSFUL;;10;;1;;M
 ;;2 TEASPOONFULS;;1;;10;;M
 ;;2 TEASPOONFULS;;5;;2;;M
 ;;2 TEASPOONFULS;;10;;1;;M
 ;;2 TEASPOONSFUL;;1;;10;;M
 ;;2 TEASPOONSFUL;;5;;2;;M
 ;;2 TEASPOONSFUL;;10;;1;;M
 ;;TWO TEASPOONFUL(S);;1;;10;;M
 ;;TWO TEASPOONFUL(S);;5;;2;;M
 ;;TWO TEASPOONFUL(S);;10;;1;;M
 ;;2 TEASPOONFUL(S);;1;;10;;M
 ;;2 TEASPOONFUL(S);;5;;2;;M
 ;;2 TEASPOONFUL(S);;10;;1;;M
 ;;ONE TABLESPOON;;1;;15;;M
 ;;ONE TABLESPOON;;5;;3;;M
 ;;ONE TABLESPOON;;15;;1;;M
 ;;ONE TABLESPOON;;30;;2;;D
 ;;1 TABLESPOON;;1;;15;;M
 ;;1 TABLESPOON;;5;;3;;M
 ;;1 TABLESPOON;;15;;1;;M
 ;;1 TABLESPOON;;30;;2;;D
 ;;ONE TABLESPOON(S);;1;;15;;M
 ;;ONE TABLESPOON(S);;5;;3;;M
 ;;ONE TABLESPOON(S);;15;;1;;M
 ;;ONE TABLESPOON(S);;30;;2;;D
 ;;1 TABLESPOON(S);;1;;15;;M
 ;;1 TABLESPOON(S);;5;;3;;M
 ;;1 TABLESPOON(S);;15;;1;;M
 ;;1 TABLESPOON(S);;30;;2;;D
 ;;ONE TABLESPOONFUL;;1;;15;;M
 ;;ONE TABLESPOONFUL;;5;;3;;M
 ;;ONE TABLESPOONFUL;;15;;1;;M
 ;;ONE TABLESPOONFUL;;30;;2;;D
 ;;ONE TABLESPOONSFUL;;1;;15;;M
 ;;ONE TABLESPOONSFUL;;5;;3;;M
 ;;ONE TABLESPOONSFUL;;15;;1;;M
 ;;ONE TABLESPOONSFUL;;30;;2;;D
 ;;1 TABLESPOONFUL;;1;;15;;M
 ;;1 TABLESPOONFUL;;5;;3;;M
 ;;1 TABLESPOONFUL;;15;;1;;M
 ;;1 TABLESPOONFUL;;30;;2;;D
 ;;1 TABLESPOONSFUL;;1;;15;;M
 ;;1 TABLESPOONSFUL;;5;;3;;M
 ;;1 TABLESPOONSFUL;;15;;1;;M
 ;;1 TABLESPOONSFUL;;30;;2;;D
 ;;ONE TABLESPOONFUL(S);;1;;15;;M
 ;;ONE TABLESPOONFUL(S);;5;;3;;M
 ;;ONE TABLESPOONFUL(S);;15;;1;;M
 ;;ONE TABLESPOONFUL(S);;30;;2;;D
 ;;1 TABLESPOONFUL(S);;1;;15;;M
 ;;1 TABLESPOONFUL(S);;5;;3;;M
 ;;1 TABLESPOONFUL(S);;15;;1;;M
 ;;1 TABLESPOONFUL(S);;30;;2;;D
 ;;TWO TABLESPOONS;;1;;30;;M
 ;;TWO TABLESPOONS;;15;;2;;M
 ;;TWO TABLESPOONS;;30;;1;;M
 ;;TWO TABLESPOONS;;5;;6;;M
 ;;2 TABLESPOONS;;1;;30;;M
 ;;2 TABLESPOONS;;15;;2;;M
 ;;2 TABLESPOONS;;30;;1;;M
 ;;2 TABLESPOONS;;5;;6;;M
 ;;TWO TABLESPOON(S);;1;;30;;M
 ;;TWO TABLESPOON(S);;15;;2;;M
 ;;TWO TABLESPOON(S);;30;;1;;M
 ;;TWO TABLESPOON(S);;5;;6;;M
 ;;2 TABLESPOON(S);;1;;30;;M
 ;;2 TABLESPOON(S);;15;;2;;M
 ;;2 TABLESPOON(S);;30;;1;;M
 ;;2 TABLESPOON(S);;5;;6;;M
 ;;TWO TABLESPOONFULS;;1;;30;;M
 ;;TWO TABLESPOONFULS;;15;;2;;M
 ;;TWO TABLESPOONFULS;;30;;1;;M
 ;;TWO TABLESPOONFULS;;5;;6;;M
 ;;TWO TABLESPOONSFUL;;1;;30;;M
 ;;TWO TABLESPOONSFUL;;15;;2;;M
 ;;TWO TABLESPOONSFUL;;30;;1;;M
 ;;TWO TABLESPOONSFUL;;5;;6;;M
 ;;2 TABLESPOONFULS;;1;;30;;M
 ;;2 TABLESPOONFULS;;15;;2;;M
 ;;2 TABLESPOONFULS;;30;;1;;M
 ;;2 TABLESPOONFULS;;5;;6;;M
 ;;2 TABLESPOONSFUL;;1;;30;;M
 ;;2 TABLESPOONSFUL;;15;;2;;M
 ;;2 TABLESPOONSFUL;;30;;1;;M
 ;;2 TABLESPOONSFUL;;5;;6;;M
 ;;TWO TABLESPOONFUL(S);;1;;30;;M
 ;;TWO TABLESPOONFUL(S);;15;;2;;M
 ;;TWO TABLESPOONFUL(S);;30;;1;;M
 ;;TWO TABLESPOONFUL(S);;5;;6;;M
 ;;2 TABLESPOONFUL(S);;1;;30;;M
 ;;2 TABLESPOONFUL(S);;15;;2;;M
 ;;2 TABLESPOONFUL(S);;30;;1;;M
 ;;2 TABLESPOONFUL(S);;5;;6;;M
 ;;1 ML;;1;;1;;M
 ;;1 ML(S);;1;;1;;M
 ;;1ML;;1;;1;;M
 ;;1 MILLILITER;;1;;1;;M
 ;;1 MILLILITER(S);;1;;1;;M
 ;;ONE MILLILITER;;1;;1;;M
 ;;ONE MILLILITER(S);;1;;1;;M
 ;;2 ML;;1;;2;;M
 ;;2 ML(S);;1;;2;;M
 ;;2 MLS;;1;;2;;M
 ;;2ML;;1;;2;;M
 ;;2 MILLILITER(S);;1;;2;;M
 ;;2 MILLILITERS;;1;;2;;M
 ;;TWO MILLILITERS;;1;;2;;M
 ;;TWO MILLILITER(S);;1;;2;;M
 ;;
SET4 ;
 ;;ONE DROP;;1;;DROP(S)
 ;;1 DROP;;1;;DROP(S)
 ;;ONE DROP(S);;1;;DROP(S)
 ;;1 DROP(S);;1;;DROP(S)
 ;;TWO DROPS;;2;;DROP(S)
 ;;2 DROPS;;2;;DROP(S)
 ;;TWO DROP(S);;2;;DROP(S)
 ;;2 DROP(S);;2;;DROP(S)
 ;;ONE OR TWO DROP(S);;2;;DROP(S)
 ;;1 OR 2 DROP(S);;2;;DROP(S)
 ;;ONE TO TWO DROP(S);;2;;DROP(S)
 ;;1 TO 2 DROP(S);;2;;DROP(S)
 ;;ONE - TWO DROP(S);;2;;DROP(S)
 ;;ONE-TWO DROP(S);;2;;DROP(S)
 ;;1-2 DROP(S);;2;;DROP(S)
 ;;1 - 2 DROP(S);;2;;DROP(S)
 ;;ONE OR TWO DROPS;;2;;DROP(S)
 ;;1 OR 2 DROPS;;2;;DROP(S)
 ;;ONE TO TWO DROPS;;2;;DROP(S)
 ;;1 TO 2 DROPS;;2;;DROP(S)
 ;;ONE - TWO DROPS;;2;;DROP(S)
 ;;ONE-TWO DROPS;;2;;DROP(S)
 ;;1-2 DROPS;;2;;DROP(S)
 ;;1 - 2 DROPS;;2;;DROP(S)
 ;;ONE PATCH;;1;;PATCH(ES)
 ;;1 PATCH;;1;;PATCH(ES)
 ;;ONE PATCH(ES);;1;;PATCH(ES)
 ;;1 PATCH(ES);;1;;PATCH(ES)
 ;;TWO PATCHES;;2;;PATCH(ES)
 ;;2 PATCHES;;2;;PATCH(ES)
 ;;TWO PATCH(ES);;2;;PATCH(ES)
 ;;2 PATCH(ES);;2;;PATCH(ES)
 ;;ONE PUFF;;1;;INHALATION(S)
 ;;1 PUFF;;1;;INHALATION(S)
 ;;ONE PUFF(S);;1;;INHALATION(S)
 ;;1 PUFF(S);;1;;INHALATION(S)
 ;;TWO PUFFS;;2;;INHALATION(S)
 ;;2 PUFFS;;2;;INHALATION(S)
 ;;TWO PUFF(S);;2;;INHALATION(S)
 ;;2 PUFF(S);;2;;INHALATION(S)
 ;;ONE OR TWO PUFF(S);;2;;INHALATION(S)
 ;;1 OR 2 PUFF(S);;2;;INHALATION(S)
 ;;ONE TO TWO PUFF(S);;2;;INHALATION(S)
 ;;1 TO 2 PUFF(S);;2;;INHALATION(S)
 ;;ONE - TWO PUFF(S);;2;;INHALATION(S)
 ;;ONE-TWO PUFF(S);;2;;INHALATION(S)
 ;;1-2 PUFF(S);;2;;INHALATION(S)
 ;;1 - 2 PUFF(S);;2;;INHALATION(S)
 ;;ONE OR TWO PUFFS;;2;;INHALATION(S)
 ;;1 OR 2 PUFFS;;2;;INHALATION(S)
 ;;ONE TO TWO PUFFS;;2;;INHALATION(S)
 ;;1 TO 2 PUFFS;;2;;INHALATION(S)
 ;;ONE - TWO PUFFS;;2;;INHALATION(S)
 ;;ONE-TWO PUFFS;;2;;INHALATION(S)
 ;;1-2 PUFFS;;2;;INHALATION(S)
 ;;1 - 2 PUFFS;;2;;INHALATION(S)
 ;;ONE INHALATION;;1;;INHALATION(S)
 ;;1 INHALATION;;1;;INHALATION(S)
 ;;ONE INHALATION(S);;1;;INHALATION(S)
 ;;1 INHALATION(S);;1;;INHALATION(S)
 ;;TWO INHALATIONS;;2;;INHALATION(S)
 ;;2 INHALATIONS;;2;;INHALATION(S)
 ;;TWO INHALATION(S);;2;;INHALATION(S)
 ;;2 INHALATION(S);;2;;INHALATION(S)
 ;;ONE OR TWO INHALATIONS;;2;;INHALATION(S)
 ;;1 OR 2 INHALATIONS;;2;;INHALATION(S)
 ;;ONE TO TWO INHALATIONS;;2;;INHALATION(S)
 ;;1 TO 2 INHALATIONS;;2;;INHALATION(S)
 ;;ONE - TWO INHALATIONS;;2;;INHALATION(S)
 ;;ONE-TWO INHALATIONS;;2;;INHALATION(S)
 ;;1-2 INHALATIONS;;2;;INHALATION(S)
 ;;1 - 2 INHALATIONS;;2;;INHALATION(S)
 ;;ONE OR TWO INHALATION(S);;2;;INHALATION(S)
 ;;1 OR 2 INHALATION(S);;2;;INHALATION(S)
 ;;ONE TO TWO INHALATION(S);;2;;INHALATION(S)
 ;;1 TO 2 INHALATION(S);;2;;INHALATION(S)
 ;;ONE - TWO INHALATION(S);;2;;INHALATION(S)
 ;;ONE-TWO INHALATION(S);;2;;INHALATION(S)
 ;;1-2 INHALATION(S);;2;;INHALATION(S)
 ;;1 - 2 INHALATION(S);;2;;INHALATION(S)
 ;;ONE SPRAY;;1;;SPRAY(S)
 ;;1 SPRAY;;1;;SPRAY(S)
 ;;ONE SPRAY(S);;1;;SPRAY(S)
 ;;1 SPRAY(S);;1;;SPRAY(S)
 ;;TWO SPRAYS;;2;;SPRAY(S)
 ;;2 SPRAYS;;2;;SPRAY(S)
 ;;TWO SPRAY(S);;2;;SPRAY(S)
 ;;2 SPRAY(S);;2;;SPRAY(S)
 ;;ONE OR TWO SPRAYS;;2;;SPRAY(S)
 ;;1 OR 2 SPRAYS;;2;;SPRAY(S)
 ;;ONE TO TWO SPRAYS;;2;;SPRAY(S)
 ;;1 TO 2 SPRAYS;;2;;SPRAY(S)
 ;;ONE - TWO SPRAYS;;2;;SPRAY(S)
 ;;ONE-TWO SPRAYS;;2;;SPRAY(S)
 ;;1-2 SPRAYS;;2;;SPRAY(S)
 ;;1 - 2 SPRAYS;;2;;SPRAY(S)
 ;;ONE OR TWO SPRAY(S);;2;;SPRAY(S)
 ;;1 OR 2 SPRAY(S);;2;;SPRAY(S)
 ;;ONE TO TWO SPRAY(S);;2;;SPRAY(S)
 ;;1 TO 2 SPRAY(S);;2;;SPRAY(S)
 ;;ONE - TWO SPRAY(S);;2;;SPRAY(S)
 ;;ONE-TWO SPRAY(S);;2;;SPRAY(S)
 ;;1-2 SPRAY(S);;2;;SPRAY(S)
 ;;1 - 2 SPRAY(S);;2;;SPRAY(S)
 ;;ONE SQUIRT;;1;;SPRAY(S)
 ;;1 SQUIRT;;1;;SPRAY(S)
 ;;ONE SQUIRT(S);;1;;SPRAY(S)
 ;;1 SQUIRT(S);;1;;SPRAY(S)
 ;;TWO SQUIRTS;;2;;SPRAY(S)
 ;;2 SQUIRTS;;2;;SPRAY(S)
 ;;TWO SQUIRT(S);;2;;SPRAY(S)
 ;;2 SQUIRT(S);;2;;SPRAY(S)
 ;;ONE OR TWO SQUIRTS;;2;;SPRAY(S)
 ;;1 OR 2 SQUIRTS;;2;;SPRAY(S)
 ;;ONE TO TWO SQUIRTS;;2;;SPRAY(S)
 ;;1 TO 2 SQUIRTS;;2;;SPRAY(S)
 ;;ONE - TWO SQUIRTS;;2;;SPRAY(S)
 ;;ONE-TWO SQUIRTS;;2;;SPRAY(S)
 ;;1-2 SQUIRTS;;2;;SPRAY(S)
 ;;1 - 2 SQUIRTS;;2;;SPRAY(S)
 ;;ONE OR TWO SQUIRT(S);;2;;SPRAY(S)
 ;;1 OR 2 SQUIRT(S);;2;;SPRAY(S)
 ;;ONE TO TWO SQUIRT(S);;2;;SPRAY(S)
 ;;1 TO 2 SQUIRT(S);;2;;SPRAY(S)
 ;;ONE - TWO SQUIRT(S);;2;;SPRAY(S)
 ;;ONE-TWO SQUIRT(S);;2;;SPRAY(S)
 ;;1-2 SQUIRT(S);;2;;SPRAY(S)
 ;;1 - 2 SQUIRT(S);;2;;SPRAY(S)
 ;;ONE WAFER;;1;;WAFER(S)
 ;;1 WAFER;;1;;WAFER(S)
 ;;ONE WAFER(S);;1;;WAFER(S)
 ;;1 WAFER(S);;1;;WAFER(S)
 ;;TWO WAFERS;;2;;WAFER(S)
 ;;2 WAFERS;;2;;WAFER(S)
 ;;TWO WAFER(S);;2;;WAFER(S)
 ;;2 WAFER(S);;2;;WAFER(S)
 ;;
 Q