PSSDSAPL ;BIR/RTR-Free Text Dosage Logic ;06/21/10
Source file <PSSDSAPL.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Pharmacy Data Management | 3 | PSSDSAPD PSSDSAPL PSSDSAPM |
Name | Comments | DBIA/ICR reference |
---|---|---|
NUM | ;Determine Dose Amount and Dose Unit from Free Text Dose
|
|
NUMF() | ;
|
|
8() | ;Look for Unit - PSSDBIFL set in PSSSAPD, indicates if Order has a Dispense Drug, or just an Orderable Item
|
|
7() | ;Validate text follow the numeric part of the text
|
|
TEST | ;used for testing numeric dose multiplier from Local Possible Dosage
|
|
TEST1 | ;
|
|
TESTE | ;
|
|
QORDLEM() | ; prevent DOSE calls for CPRS when prior drug interaction/drug therapy (DIDT) call
; has flagged a drug level error message for the orderable item for a free text dose ; "OR-TRANSIENT" node set in GCNREASN^PSSHRVL1 ; relies on arrays from CPRS use of DIDT call being present ; RTC #163264, RTC #163290 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PSDRUG("ASP" | QORDLEM+13 |
^TMP($J | QORDLEM+11, QORDLEM+12 |
Name | Line Occurrences |
---|---|
$$7 | NUMF+1, NUMF+2, NUMF+3, NUMF+4, NUMF+6, NUMF+7, NUMF+8, NUMF+9, NUMF+11, NUMF+12 , NUMF+13, NUMF+14, NUMF+16, NUMF+17, NUMF+18, NUMF+19, NUMF+20, NUMF+21, NUMF+22, NUMF+23 , NUMF+24, NUMF+25, NUMF+26, NUMF+27, NUMF+28, NUMF+29, NUMF+31, NUMF+32, NUMF+34, NUMF+35 , NUMF+36, NUMF+37, NUMF+38, NUMF+39, NUMF+41, NUMF+42, NUMF+43, NUMF+44, NUMF+45, NUMF+46 , NUMF+48, NUMF+49, NUMF+50, NUMF+51, NUMF+52, NUMF+53, NUMF+55, NUMF+56, NUMF+57, NUMF+58 , NUMF+59, NUMF+60, NUMF+61, NUMF+62, NUMF+64, NUMF+65, NUMF+67, NUMF+68, NUMF+69, NUMF+70 , NUMF+71, NUMF+72, NUMF+74, NUMF+75, NUMF+76, NUMF+77, NUMF+78, NUMF+79, NUMF+81, NUMF+82 , NUMF+83, NUMF+84, NUMF+85, NUMF+86, NUMF+88, NUMF+89, NUMF+90, NUMF+91, NUMF+92, NUMF+93 , NUMF+94, NUMF+95, NUMF+97, NUMF+98, NUMF+100, NUMF+101, NUMF+102, NUMF+103, NUMF+104, NUMF+105 , NUMF+107, NUMF+108, NUMF+109, NUMF+110, NUMF+111, NUMF+112, NUMF+114, NUMF+115, NUMF+116, NUMF+117 , NUMF+118, NUMF+119 |
$$8 | NUMF+1, NUMF+2, NUMF+3, NUMF+4, NUMF+6, NUMF+7, NUMF+8, NUMF+9, NUMF+11, NUMF+12 , NUMF+13, NUMF+14, NUMF+16, NUMF+17, NUMF+18, NUMF+19, NUMF+20, NUMF+21, NUMF+22, NUMF+23 , NUMF+24, NUMF+25, NUMF+26, NUMF+27, NUMF+28, NUMF+29, NUMF+31, NUMF+32, NUMF+34, NUMF+35 , NUMF+36, NUMF+37, NUMF+38, NUMF+39, NUMF+41, NUMF+42, NUMF+43, NUMF+44, NUMF+45, NUMF+46 , NUMF+48, NUMF+49, NUMF+50, NUMF+51, NUMF+52, NUMF+53, NUMF+55, NUMF+56, NUMF+57, NUMF+58 , NUMF+59, NUMF+60, NUMF+61, NUMF+62, NUMF+64, NUMF+65, NUMF+67, NUMF+68, NUMF+69, NUMF+70 , NUMF+71, NUMF+72, NUMF+74, NUMF+75, NUMF+76, NUMF+77, NUMF+78, NUMF+79, NUMF+81, NUMF+82 , NUMF+83, NUMF+84, NUMF+85, NUMF+86, NUMF+88, NUMF+89, NUMF+90, NUMF+91, NUMF+92, NUMF+93 , NUMF+94, NUMF+95, NUMF+97, NUMF+98, NUMF+100, NUMF+101, NUMF+102, NUMF+103, NUMF+104, NUMF+105 , NUMF+107, NUMF+108, NUMF+109, NUMF+110, NUMF+111, NUMF+112, NUMF+114, NUMF+115, NUMF+116, NUMF+117 , NUMF+118, NUMF+119 |
$$NUMF | NUM+12, NUM+15, NUM+16 |
TEST1 | TEST1+4 |
TESTE | TEST1+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DIR | TEST+1~, TEST1+1!, TEST1+3! |
DIR("A" | TEST1+1* |
DIR(0 | TEST1+1* |
DIRUT | TEST+1~, TEST1+2 |
DTOUT | TEST+1~, TEST1+2 |
>> PSSDBAR("AMN" | NUM+12*, NUM+15*, NUM+16* |
>> PSSDBAR("UNIT" | NUM+12*, NUM+15*, NUM+16* |
>> PSSDBDS("CONTEXT" | QORDLEM+6 |
>> PSSDBFAL | NUM+12*, NUM+15*, NUM+16* |
>> PSSDBFDB("OI" | QORDLEM+7 |
>> PSSDBFDB("PACKAGE" | QORDLEM+9, QORDLEM+10 |
PSSDBIFL | 8+2, TEST+1~, TEST+2* |
PSSDBV1 | NUM+10~, NUMF+1*, NUMF+2*, NUMF+3*, NUMF+4*, NUMF+6*, NUMF+7*, NUMF+8*, NUMF+9*, NUMF+11* , NUMF+12*, NUMF+13*, NUMF+14*, NUMF+16*, NUMF+17*, NUMF+18*, NUMF+19*, NUMF+20*, NUMF+21*, NUMF+22* , NUMF+23*, NUMF+24*, NUMF+25*, NUMF+26*, NUMF+27*, NUMF+28*, NUMF+29*, NUMF+31*, NUMF+32*, NUMF+34* , NUMF+35*, NUMF+36*, NUMF+37*, NUMF+38*, NUMF+39*, NUMF+41*, NUMF+42*, NUMF+43*, NUMF+44*, NUMF+45* , NUMF+46*, NUMF+48*, NUMF+49*, NUMF+50*, NUMF+51*, NUMF+52*, NUMF+53*, NUMF+55*, NUMF+56*, NUMF+57* , NUMF+58*, NUMF+59*, NUMF+60*, NUMF+61*, NUMF+62*, NUMF+64*, NUMF+65*, NUMF+67*, NUMF+68*, NUMF+69* , NUMF+70*, NUMF+71*, NUMF+72*, NUMF+74*, NUMF+75*, NUMF+76*, NUMF+77*, NUMF+78*, NUMF+79*, NUMF+81* , NUMF+82*, NUMF+83*, NUMF+84*, NUMF+85*, NUMF+86*, NUMF+88*, NUMF+89*, NUMF+90*, NUMF+91*, NUMF+92* , NUMF+93*, NUMF+94*, NUMF+95*, NUMF+97*, NUMF+98*, NUMF+100*, NUMF+101*, NUMF+102*, NUMF+103*, NUMF+104* , NUMF+105*, NUMF+107*, NUMF+108*, NUMF+109*, NUMF+110*, NUMF+111*, NUMF+112*, NUMF+114*, NUMF+115*, NUMF+116* , NUMF+117*, NUMF+118*, NUMF+119*, 7+1, TEST+1~ |
PSSDBV2 | NUM+10~, NUMF+1*, NUMF+2*, NUMF+3*, NUMF+4*, NUMF+6*, NUMF+7*, NUMF+8*, NUMF+9*, NUMF+11* , NUMF+12*, NUMF+13*, NUMF+14*, NUMF+16*, NUMF+17*, NUMF+18*, NUMF+19*, NUMF+20*, NUMF+21*, NUMF+22* , NUMF+23*, NUMF+24*, NUMF+25*, NUMF+26*, NUMF+27*, NUMF+28*, NUMF+29*, NUMF+31*, NUMF+32*, NUMF+34* , NUMF+35*, NUMF+36*, NUMF+37*, NUMF+38*, NUMF+39*, NUMF+41*, NUMF+42*, NUMF+43*, NUMF+44*, NUMF+45* , NUMF+46*, NUMF+48*, NUMF+49*, NUMF+50*, NUMF+51*, NUMF+52*, NUMF+53*, NUMF+55*, NUMF+56*, NUMF+57* , NUMF+58*, NUMF+59*, NUMF+60*, NUMF+61*, NUMF+62*, NUMF+64*, NUMF+65*, NUMF+67*, NUMF+68*, NUMF+69* , NUMF+70*, NUMF+71*, NUMF+72*, NUMF+74*, NUMF+75*, NUMF+76*, NUMF+77*, NUMF+78*, NUMF+79*, NUMF+81* , NUMF+82*, NUMF+83*, NUMF+84*, NUMF+85*, NUMF+86*, NUMF+88*, NUMF+89*, NUMF+90*, NUMF+91*, NUMF+92* , NUMF+93*, NUMF+94*, NUMF+95*, NUMF+97*, NUMF+98*, NUMF+100*, NUMF+101*, NUMF+102*, NUMF+103*, NUMF+104* , NUMF+105*, NUMF+107*, NUMF+108*, NUMF+109*, NUMF+110*, NUMF+111*, NUMF+112*, NUMF+114*, NUMF+115*, NUMF+116* , NUMF+117*, NUMF+118*, NUMF+119*, 8+2, 8+3, TEST+1~ |
PSSDBV3 | NUM+10~, NUM+11*, NUM+12, NUM+15, NUM+16, 8+1*, 8+2*, 8+3*, 8+4, TEST+1~ , TEST+2* |
PSSDBV7 | NUM+10~, NUMF+122*, NUMF+123*, NUMF+124*, TEST+1~ |
PSSDBV8 | NUM+10~, NUM+12*, NUM+15*, NUM+16*, TEST+1~ |
PSSDBV9 | NUM+4~, NUM+5*, NUM+6, NUM+7*, NUM+15*, NUM+16*, NUMF+1, NUMF+2, NUMF+3, NUMF+4 , NUMF+6, NUMF+7, NUMF+8, NUMF+9, NUMF+11, NUMF+12, NUMF+13, NUMF+14, NUMF+16, NUMF+17 , NUMF+18, NUMF+19, NUMF+20, NUMF+21, NUMF+22, NUMF+23, NUMF+24, NUMF+25, NUMF+26, NUMF+27 , NUMF+28, NUMF+29, NUMF+31, NUMF+32, NUMF+34, NUMF+35, NUMF+36, NUMF+37, NUMF+38, NUMF+39 , NUMF+41, NUMF+42, NUMF+43, NUMF+44, NUMF+45, NUMF+46, NUMF+48, NUMF+49, NUMF+50, NUMF+51 , NUMF+52, NUMF+53, NUMF+55, NUMF+56, NUMF+57, NUMF+58, NUMF+59, NUMF+60, NUMF+61, NUMF+62 , NUMF+64, NUMF+65, NUMF+67, NUMF+68, NUMF+69, NUMF+70, NUMF+71, NUMF+72, NUMF+74, NUMF+75 , NUMF+76, NUMF+77, NUMF+78, NUMF+79, NUMF+81, NUMF+82, NUMF+83, NUMF+84, NUMF+85, NUMF+86 , NUMF+88, NUMF+89, NUMF+90, NUMF+91, NUMF+92, NUMF+93, NUMF+94, NUMF+95, NUMF+97, NUMF+98 , NUMF+100, NUMF+101, NUMF+102, NUMF+103, NUMF+104, NUMF+105, NUMF+107, NUMF+108, NUMF+109, NUMF+110 , NUMF+111, NUMF+112, NUMF+114, NUMF+115, NUMF+116, NUMF+117, NUMF+118, NUMF+119, 7+1, TEST1+3* |
PSSDIDTB | QORDLEM+5~, QORDLEM+10*, QORDLEM+11, QORDLEM+12 |
PSSDIDTD | QORDLEM+5~, QORDLEM+12*, QORDLEM+13 |
PSSDIDTO | QORDLEM+5~, QORDLEM+7*, QORDLEM+8, QORDLEM+13 |
>> PSSDSLCL | NUM+5, TEST+2*, TEST1+3* |
X | TEST+1~, TEST1+2 |
Y | TEST+1~, TEST1+3 |