PSSDSUTL ;BIR/MV-Dose Check utility routine (continued) ;27 Oct 2009 12:22 PM
Source file <PSSDSUTL.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 1 | $$UP^XLFSTR |
National Drug File | 1 | $$PSJING^PSNAPIS |
Pharmacy Data Management | 1 | ($$UNIT,$$UNITD)^PSSDSAPI |
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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
RANGE | ;Evaluate free text dosages for range patterns
|
|
RANGEOK | ;Retrieved all needed Dosing
|
|
MLTOK(PSSUTM1,PSSUTM3) | ;If multi ingredient, and all ingredients in VA Product have a Unit and it matches the unit from the order
|
|
UPCPRS | ;Update CPRS global
|
|
CFREQ | ;Add customized Frequency
|
|
PEROR | ;Per Orifice check
|
|
SADJ | ;Parse out Adjusted Frequency message
|
|
PTH | ;Local Dosage with parenthesis, extract data from before and within
|
|
RTEXT(PSSBAMRT,PSSBSPC) | ;Set Reason Header
|
|
ORDFREQ(PSSDADF) | ; -- in 2.1 get order frequency by converting FDB frequency patterns -- called from PSSHRQ23
|
|
ROUNDNUM(X) | ; -- in 2.1 if number is < or = 1, round to 4 decimals otherwise no decimals -- called from PSSHRQ23
|
|
PRNSCHD(PSSSCHD) | ;If 'PRN' appended to the schedule, return the schedule with 'PRN' remove
|
|
PRNMI(PSSMI) | ;If 'PRN' appended to the Med instruction, return the MI with 'PRN' remove
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(51 - [#51] | PRNMI+3, PRNMI+7 |
^PS(51.1 - [#51.1] | PRNSCHD+3, PRNSCHD+7, PRNSCHD+10 |
^TMP($J | UPCPRS+1, UPCPRS+4!*, UPCPRS+9, UPCPRS+10, UPCPRS+11, UPCPRS+12, UPCPRS+13*, UPCPRS+14*, UPCPRS+16, UPCPRS+18* , UPCPRS+19, UPCPRS+20!, UPCPRS+21*, UPCPRS+23*, UPCPRS+27, UPCPRS+28, UPCPRS+29*, UPCPRS+30*, UPCPRS+42*, UPCPRS+43* , UPCPRS+45, UPCPRS+46, UPCPRS+48, UPCPRS+50*, UPCPRS+51*, UPCPRS+53, UPCPRS+54*, UPCPRS+55*, UPCPRS+57, UPCPRS+58* , UPCPRS+59, UPCPRS+60*, UPCPRS+62!, CFREQ+2*, CFREQ+3* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | MLTOK+1~ |
N | ROUNDNUM+4~, ROUNDNUM+10*, ROUNDNUM+12, ROUNDNUM+13*, ROUNDNUM+14 |
ND | ROUNDNUM+4~, ROUNDNUM+8*, ROUNDNUM+13 |
PSSBAMRT | RTEXT~, RTEXT+2 |
PSSBSPC | RTEXT~, RTEXT+1 |
PSSBSPCS | RTEXT+1~*, RTEXT+2 |
PSSCPBMR | UPCPRS+2~, UPCPRS+39*, UPCPRS+40 |
PSSCPC5 | UPCPRS+2~, UPCPRS+8*, UPCPRS+9, UPCPRS+10, UPCPRS+11, UPCPRS+12, UPCPRS+13, UPCPRS+14, UPCPRS+15, UPCPRS+16 , UPCPRS+18, UPCPRS+19, UPCPRS+20, UPCPRS+21, UPCPRS+23, UPCPRS+26, UPCPRS+27, UPCPRS+28, UPCPRS+29, UPCPRS+30 , UPCPRS+32, UPCPRS+34, UPCPRS+35, UPCPRS+36, UPCPRS+37, UPCPRS+38, UPCPRS+39, UPCPRS+40, UPCPRS+42, UPCPRS+43 , UPCPRS+45, UPCPRS+46, UPCPRS+47, UPCPRS+48, UPCPRS+50, UPCPRS+51, UPCPRS+52, UPCPRS+53, UPCPRS+54, UPCPRS+55 , UPCPRS+57, UPCPRS+58, UPCPRS+59, UPCPRS+60, UPCPRS+61, CFREQ+1, CFREQ+2, CFREQ+3, PEROR+2, SADJ+3 , SADJ+4 |
PSSCPC6 | UPCPRS+2~, UPCPRS+9*, UPCPRS+10, UPCPRS+11, UPCPRS+12, UPCPRS+27*, UPCPRS+28, UPCPRS+45*, UPCPRS+46, UPCPRS+48 , UPCPRS+53, UPCPRS+57, UPCPRS+59 |
PSSCPC7 | UPCPRS+2~, UPCPRS+46*, UPCPRS+47, UPCPRS+48, UPCPRS+50, UPCPRS+52, UPCPRS+53, UPCPRS+54, UPCPRS+57, UPCPRS+59 |
PSSCPC8 | UPCPRS+2~, UPCPRS+48*, UPCPRS+53, UPCPRS+57, UPCPRS+59 |
PSSCPC9 | UPCPRS+2~, UPCPRS+57*, UPCPRS+59 |
>> PSSCPCAA | UPCPRS+56*, UPCPRS+60* |
PSSCPCAC | UPCPRS+2~, UPCPRS+45*, UPCPRS+53, SADJ+2* |
PSSCPCAJ | UPCPRS+2~, UPCPRS+45! |
PSSCPCAJ( | UPCPRS+52, UPCPRS+53, SADJ+3*, SADJ+4* |
PSSCPCAR | UPCPRS+2~ |
PSSCPCAR( | UPCPRS+26*, UPCPRS+29, UPCPRS+30*, UPCPRS+42, UPCPRS+43*, UPCPRS+50, UPCPRS+51, UPCPRS+54, UPCPRS+55*, UPCPRS+58 , UPCPRS+60*, CFREQ+2, CFREQ+3 |
PSSCPCE1 | UPCPRS+2~, UPCPRS+10*, UPCPRS+14, UPCPRS+18, UPCPRS+21 |
PSSCPCE2 | UPCPRS+2~, UPCPRS+11*, UPCPRS+14, UPCPRS+18, UPCPRS+21 |
PSSCPCG1 | UPCPRS+2~, UPCPRS+35*, UPCPRS+36, UPCPRS+37!, UPCPRS+38*, UPCPRS+40 |
>> PSSCPCGL | UPCPRS+5*, UPCPRS+9, UPCPRS+10, UPCPRS+11, UPCPRS+12, UPCPRS+16, UPCPRS+18, UPCPRS+19, UPCPRS+20, UPCPRS+21 , UPCPRS+23, UPCPRS+27, UPCPRS+28, UPCPRS+45, UPCPRS+46, UPCPRS+48, UPCPRS+53, UPCPRS+57, UPCPRS+59, UPCPRS+62 |
PSSCPCGN | UPCPRS+2~, UPCPRS+40*, UPCPRS+41*, UPCPRS+43 |
PSSCPCND | UPCPRS+2~, UPCPRS+28*, UPCPRS+30, UPCPRS+53*, UPCPRS+55, UPCPRS+59*, UPCPRS+60 |
PSSCPCNM | UPCPRS+2~, UPCPRS+9*, UPCPRS+13, UPCPRS+14, UPCPRS+26*, UPCPRS+29, UPCPRS+30, UPCPRS+42, UPCPRS+43, UPCPRS+46* , UPCPRS+50, UPCPRS+51, UPCPRS+54, UPCPRS+55, UPCPRS+58, UPCPRS+60, CFREQ+2, CFREQ+3 |
PSSCPCNN | UPCPRS+2~, UPCPRS+52*, UPCPRS+54, UPCPRS+55, UPCPRS+56*, UPCPRS+58 |
PSSCPCNX | UPCPRS+2~ |
PSSCPCO1 | UPCPRS+2~ |
PSSCPCO2 | UPCPRS+2~, UPCPRS+45*, UPCPRS+49, UPCPRS+51, PEROR+3* |
PSSCPCO3 | UPCPRS+2~, UPCPRS+45*, UPCPRS+52, UPCPRS+56, PEROR+3* |
PSSCPCO9 | PEROR+1~, PEROR+2*, PEROR+3 |
PSSCPCR1 | UPCPRS+2~, UPCPRS+9*, UPCPRS+16, UPCPRS+17* |
PSSCPCR2 | UPCPRS+2~, UPCPRS+9*, UPCPRS+18* |
PSSCPCR3 | UPCPRS+3~, UPCPRS+19! |
PSSCPCR3( | UPCPRS+20*, UPCPRS+22, UPCPRS+23 |
PSSCPCR3("" | UPCPRS+22 |
PSSCPCR4 | UPCPRS+3~, UPCPRS+19*, UPCPRS+20 |
PSSCPCR5 | UPCPRS+3~, UPCPRS+9*, UPCPRS+19, UPCPRS+21*, UPCPRS+23* |
PSSCPCR6 | UPCPRS+3~, UPCPRS+22*, UPCPRS+23 |
PSSCPCWA | UPCPRS+2~, UPCPRS+8*, UPCPRS+12*, UPCPRS+25 |
PSSCPGL | UPCPRS+2~ |
PSSDADF | ORDFREQ~, ORDFREQ+7, ORDFREQ+9, ORDFREQ+11, ORDFREQ+13, ORDFREQ+15, ORDFREQ+19, ORDFREQ+23 |
PSSDADL | ORDFREQ+5~, ORDFREQ+13*, ORDFREQ+23 |
PSSDADN | ORDFREQ+5~, ORDFREQ+19*, ORDFREQ+21, ORDFREQ+25, ORDFREQ+27, ORDFREQ+29, ORDFREQ+31, ORDFREQ+33, ORDFREQ+35, ORDFREQ+37 |
PSSDADS | ORDFREQ+5~, ORDFREQ+15*, ORDFREQ+17, ORDFREQ+25, ORDFREQ+27, ORDFREQ+29, ORDFREQ+31, ORDFREQ+33, ORDFREQ+35, ORDFREQ+37 |
PSSDADTM | ORDFREQ+5~, ORDFREQ+23*, ORDFREQ+25, ORDFREQ+27, ORDFREQ+29, ORDFREQ+31, ORDFREQ+33, ORDFREQ+35, ORDFREQ+37 |
>> PSSDBADJ( | UPCPRS+52, SADJ+3, SADJ+4 |
>> PSSDBAR("AMN" | RANGEOK+7*, RANGEOK+9*, RANGEOK+11*, RANGEOK+15*, RANGEOK+17*, RANGEOK+19* |
>> PSSDBAR("UNIT" | RANGEOK+7*, RANGEOK+9*, RANGEOK+11*, RANGEOK+15*, RANGEOK+17*, RANGEOK+19*, MLTOK+7 |
>> PSSDBASE | CFREQ+3 |
>> PSSDBASF | UPCPRS+1, UPCPRS+4, UPCPRS+13, UPCPRS+14, UPCPRS+29, UPCPRS+30, UPCPRS+42, UPCPRS+43, UPCPRS+50, UPCPRS+51 , UPCPRS+54, UPCPRS+55, UPCPRS+58, UPCPRS+60, CFREQ+2, CFREQ+3 |
>> PSSDBCAR( | UPCPRS+8, UPCPRS+12*, UPCPRS+15, UPCPRS+26, UPCPRS+32, UPCPRS+34, UPCPRS+35, UPCPRS+36, UPCPRS+37, UPCPRS+38 , UPCPRS+39, UPCPRS+40, UPCPRS+47, UPCPRS+61, CFREQ+1, CFREQ+3, PEROR+2, RTEXT+2 |
>> PSSDBFAL | RANGEOK+7*, RANGEOK+9*, RANGEOK+11*, RANGEOK+15*, RANGEOK+17*, RANGEOK+19* |
>> PSSDBIFL | RANGEOK+3 |
>> PSSDSDPL( | UPCPRS+34, UPCPRS+39 |
PSSDSLC1 | PTH+2! |
PSSDSLC1(1 | PTH+18*, PTH+19* |
PSSDSLC1(2 | PTH+11*, PTH+18! |
>> PSSDSLCL | RANGE+2, PTH+2 |
>> PSSDSLCT | PTH+11*, PTH+17, PTH+18*, PTH+19* |
>> PSSDWRSN | RTEXT+2* |
>> PSSENHK( | UPCPRS+32 |
>> PSSENHKZ( | UPCPRS+32 |
PSSMI | PRNMI~, PRNMI+2, PRNMI+3, PRNMI+4, PRNMI+5, PRNMI+6, PRNMI+7*, PRNMI+8 |
PSSPTH1 | PTH+1~, PTH+2*, PTH+6*, PTH+10, PTH+11, PTH+12, PTH+17, PTH+19 |
PSSPTH2 | PTH+1~, PTH+2*, PTH+7*, PTH+10, PTH+17, PTH+19 |
PSSPTH3 | PTH+1~, PTH+2*, PTH+6*, PTH+9 |
PSSPTH4 | PTH+1~, PTH+2*, PTH+7*, PTH+9 |
PSSPTHA | PTH+1~, PTH+4*, PTH+6, PTH+7 |
PSSPTHC | PTH+1~, PTH+4*, PTH+5, PTH+6 |
PSSPTHD | PTH+1~, PTH+2*, PTH+3, PTH+4, PTH+12, PTH+19 |
PSSPTHF | PTH+1~, PTH+2*, PTH+4, PTH+6*, PTH+7*, PTH+8 |
PSSPTHL | PTH+1~, PTH+3*, PTH+4 |
PSSPTHS1 | PTH+1~, PTH+11*, PTH+12*, PTH+13, PTH+15*, PTH+16* |
PSSPTHS2 | PTH+1~, PTH+12*, PTH+13, PTH+14 |
PSSPTHS3 | PTH+1~, PTH+13* |
PSSPTHS4 | PTH+1~, PTH+12*, PTH+13*, PTH+14, PTH+15, PTH+16 |
PSSRG1 | RANGE+1~, RANGE+5*, RANGE+31*, RANGE+32 |
PSSRG2 | RANGE+1~, RANGE+2*, RANGE+5*, RANGE+6, RANGE+11*, RANGE+12, RANGE+13, RANGE+15*, RANGE+16, RANGE+18* , RANGE+21, RANGE+22, RANGE+26*, RANGE+27, RANGE+33* |
PSSRG3 | RANGE+1~, RANGE+11*, RANGE+15*, RANGE+18*, RANGE+19, RANGE+26* |
PSSRG4 | RANGE+1~, RANGE+11*, RANGE+18*, RANGE+19 |
PSSRG5 | RANGE+1~, RANGE+15*, RANGE+18*, RANGE+19*, RANGE+20, RANGE+21, RANGE+22, RANGE+26* |
PSSRG6 | RANGE+1~, RANGE+19*, RANGE+29, RANGE+30*, RANGE+31, RANGE+32, RANGE+33 |
PSSRGAR | RANGE+1~, RANGE+14*, RANGE+25* |
PSSRGDOS | RANGE+1~, RANGE+2*, RANGE+3*, RANGE+4, RANGE+5, RANGE+7*, RANGE+9, RANGE+10, RANGE+11, RANGE+13* , RANGE+18, RANGE+21, RANGE+22, RANGE+29*, RANGE+30, RANGE+31, RANGE+32, RANGE+33 |
PSSRGLT | RANGE+1~, RANGE+4*, RANGE+5 |
PSSRGNM1 | RANGE+1~, RANGE+13*, RANGE+14, RANGE+15, RANGE+17*, RANGEOK+2 |
PSSRGNM2 | RANGE+1~, RANGE+21*, RANGE+22*, RANGE+23, RANGE+24, RANGE+25, RANGE+26, RANGE+28*, RANGEOK+2, RANGEOK+7 , RANGEOK+9, RANGEOK+11, RANGEOK+15, RANGEOK+17, RANGEOK+19 |
PSSRGUN1 | RANGE+1~, RANGE+32*, RANGE+33*, RANGEOK+4, RANGEOK+6, RANGEOK+8, RANGEOK+12, RANGEOK+14, RANGEOK+16 |
PSSRGUN2 | RANGE+1~, RANGE+21*, RANGEOK+5, RANGEOK+6, RANGEOK+10, RANGEOK+13, RANGEOK+14, RANGEOK+18 |
PSSRGUNA | RANGEOK+1~, RANGEOK+4*, RANGEOK+7, RANGEOK+11, RANGEOK+12*, RANGEOK+15, RANGEOK+19 |
PSSRGUNB | RANGEOK+1~, RANGEOK+5*, RANGEOK+7, RANGEOK+9, RANGEOK+13*, RANGEOK+15, RANGEOK+17 |
PSSSCHD | PRNSCHD~, PRNSCHD+2, PRNSCHD+3, PRNSCHD+4, PRNSCHD+5, PRNSCHD+6, PRNSCHD+7*, PRNSCHD+8, PRNSCHD+9, PRNSCHD+10* , PRNSCHD+11 |
PSSSDADJ | SADJ+1~, SADJ+3*, SADJ+4 |
PSSUTM1 | MLTOK~, MLTOK+3 |
PSSUTM3 | MLTOK~, MLTOK+3 |
PSSUTMAR | MLTOK+1~, MLTOK+3 |
PSSUTMAR( | MLTOK+4, MLTOK+5 |
PSSUTMCT | MLTOK+1~, MLTOK+3* |
PSSUTMLP | MLTOK+1~, MLTOK+4*, MLTOK+5 |
PSSUTMQT | MLTOK+1~, MLTOK+2*, MLTOK+4, MLTOK+5*, MLTOK+6*, MLTOK+7*, MLTOK+8 |
PSSUTMUX | MLTOK+1~, MLTOK+5*, MLTOK+6 |
PSSUTMUZ | MLTOK+1~, MLTOK+6*, MLTOK+7 |
PSSXL | PRNSCHD+1~, PRNSCHD+4*, PRNSCHD+5, PRNSCHD+6, PRNSCHD+8, PRNSCHD+9, PRNMI+1~, PRNMI+4*, PRNMI+5, PRNMI+6 |
PSSXMI | PRNMI+1~, PRNMI+6*, PRNMI+7 |
PSSXSCHD | PRNSCHD+1~, PRNSCHD+6*, PRNSCHD+7, PRNSCHD+9*, PRNSCHD+10 |
PSSXSCHN | PRNSCHD+1~, PRNSCHD+10* |
U | PRNSCHD+10 |
X | ROUNDNUM~, ROUNDNUM+6, ROUNDNUM+8, ROUNDNUM+10, ROUNDNUM+12, ROUNDNUM+13, ROUNDNUM+14 |