PSSDSUTL ;BIR/MV - Dose Check utility routine (continued) ; Oct 27, 2009@12:22
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+3*, CFREQ+4, CFREQ+5* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | MLTOK+1~ |
| DRGNAM | CFREQ+1~, CFREQ+4*, CFREQ+5 |
| 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+2, CFREQ+3, CFREQ+4, CFREQ+5, PEROR+3 , 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+3, CFREQ+5 |
| 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+3, CFREQ+5 |
| 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+5* |
| PSSCPCO3 | UPCPRS+2~, UPCPRS+45*, UPCPRS+52, UPCPRS+56, PEROR+5* |
| PSSCPCO9 | PEROR+1~, PEROR+3*, PEROR+4, PEROR+5 |
| 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+6*, ORDFREQ+8, ORDFREQ+10, ORDFREQ+12, ORDFREQ+14, ORDFREQ+16, ORDFREQ+18, ORDFREQ+20, ORDFREQ+22 , ORDFREQ+24, ORDFREQ+26, ORDFREQ+28, ORDFREQ+30, ORDFREQ+32, ORDFREQ+33, ORDFREQ+34, ORDFREQ+38, ORDFREQ+40, ORDFREQ+42 , ORDFREQ+44, ORDFREQ+46, ORDFREQ+48, ORDFREQ+50 |
| PSSDADL | ORDFREQ+5~, ORDFREQ+28*, ORDFREQ+38 |
| PSSDADN | ORDFREQ+5~, ORDFREQ+33*, ORDFREQ+34*, ORDFREQ+36, ORDFREQ+40, ORDFREQ+42, ORDFREQ+44, ORDFREQ+46, ORDFREQ+48, ORDFREQ+50 |
| PSSDADTM | ORDFREQ+5~, ORDFREQ+38*, ORDFREQ+40, ORDFREQ+42, ORDFREQ+44, ORDFREQ+46 |
| >> 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+4 |
| >> 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+3, CFREQ+5 |
| >> 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+2, CFREQ+4, PEROR+3, 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* |
| TSTVAL | CFREQ+1~, CFREQ+4*, CFREQ+5 |
| U | PRNSCHD+10 |
| X | ROUNDNUM~, ROUNDNUM+6, ROUNDNUM+8, ROUNDNUM+10, ROUNDNUM+12, ROUNDNUM+13, ROUNDNUM+14 |