PSSDSUTA ;BIR/RTR-Dosing Utility Routine ;11/24/14
Source file <PSSDSUTA.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 | 4 | PSSDSAPA PSSDSAPD PSSHRQ24 PSSHRQ25 |
Name | Comments | DBIA/ICR reference |
---|---|---|
FCY() | ;Validate Frequency, leading and trailing spaces already stripped off, and uppercase conversion done
|
|
MAXD(PSSDADO,PSSDADB,PSSDADNM,PSSDADI,PSSDBCAR) | ; -- in 2.1 Perform Max Daily Dose check when Frequency is Out of Range - called from PSSHRQ24
|
|
MAXDQ | ; -- set frequency flag=0 if unable to complete max daily dose check
|
|
CALCDDA(PSSDADF,PSSDADD) | ; -- in 2.1 calculate daily dose amount by converting FDB frequency patterns into numeric daily dose amount
|
|
CALCDDAT(PSSDADTM,PSSDADN,PSSDADD) | ; -- in 2.1 calculate daily dose amount based on time per day, week or month
|
|
GETUNIT(PSSDADE,PSSDADU) | ; -- in 2.1 FDB not sending Dose Unit in Standard format try and derive
|
|
CONVMDDA(PSSDADU,PSSFDBU,PSSDADC1) | ; -- in 2.1 Convert FDB Max Daily Dose or Dose Form Amount using Dose Unit Conversion file (#51.25)
|
|
MAXDMSG(PSSDADO,PSSDADB,PSSDADNM,PSSDADI,PSSDADH,PSSDADU,PSSDADC1,PSSDADFF,PSSDBCAR) | ; -- in 2.1 build customized max daily dose message
|
|
FMTNUM(X,PSSGDIF) | ; -- in 2.1 format number for display
|
|
ERRMSG(PSSDADO,PSSDADB,PSSERRT) | ; -- in 2.1 update max daily dose error message if BSA or weight missing
|
|
CHKCFREQ(PSSDADO,PSSDBASE,PSSDBASG,PSSDBCAR) | ; -- in 2.1 check for custom frequency -- called from PSSDSAPA
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(51.24 - [#51.24] | GETUNIT+22, GETUNIT+24, GETUNIT+25, GETUNIT+27, GETUNIT+28 |
^PS(51.25 - [#51.25] | CONVMDDA+14, CONVMDDA+16, CONVMDDA+18 |
^TMP($J | MAXD+19, MAXD+32, MAXD+34, MAXD+50, MAXD+52, MAXD+63, MAXD+65, MAXDMSG+23*, MAXDMSG+30, MAXDMSG+32 , MAXDMSG+36!, ERRMSG+13, ERRMSG+15, ERRMSG+19, ERRMSG+21, ERRMSG+23*, CHKCFREQ+15, CHKCFREQ+16* |
Name | Line Occurrences |
---|---|
$$CALCDDA | MAXD+28 |
$$CALCDDAT | CALCDDA+14, CALCDDA+16, CALCDDA+18, CALCDDA+32 |
$$CONVMDDA | MAXD+44 |
$$FMTNUM | MAXDMSG+21 |
$$GETUNIT | MAXD+39 |
ERRMSG | MAXD+57, MAXD+70 |
MAXDMSG | MAXD+73 |
MAXDQ | MAXD+23, MAXD+30, MAXD+36, MAXD+41, MAXD+44, MAXD+48, MAXD+61 |
Name | Field # of Occurrence |
---|---|
^( | CHKCFREQ+15 |
^("TEXT" | ERRMSG+19 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ND | FMTNUM+25~, FMTNUM+29*, FMTNUM+32, FMTNUM+34 |
PSSCFMSG | CHKCFREQ+5~, CHKCFREQ+15*, CHKCFREQ+16 |
PSSCMDDA | CONVMDDA+7~, CONVMDDA+20*, CONVMDDA+21 |
PSSCMDDF | MAXD+12~, MAXD+17*, MAXD+75*, MAXDQ+1 |
PSSCNTR | CHKCFREQ+5~, CHKCFREQ+13*, CHKCFREQ+16 |
PSSDADB | MAXD~, MAXD+14, MAXD+19, MAXD+32, MAXD+34, MAXD+50, MAXD+52, MAXD+57, MAXD+63, MAXD+65 , MAXD+70, MAXD+73, MAXDMSG~, MAXDMSG+16, MAXDMSG+23, MAXDMSG+30, MAXDMSG+32, MAXDMSG+36, ERRMSG~, ERRMSG+6 , ERRMSG+13, ERRMSG+15, ERRMSG+19, ERRMSG+21, ERRMSG+23 |
PSSDADC1 | MAXD+12~, MAXD+34*, MAXD+36, MAXD+44*, MAXD+48, MAXD+52*, MAXD+55*, MAXD+61, MAXD+65*, MAXD+68* , MAXD+73, CONVMDDA~, CONVMDDA+9, CONVMDDA+12, CONVMDDA+20, MAXDMSG~, MAXDMSG+16, MAXDMSG+19, MAXDMSG+21 |
PSSDADD | MAXD+12~, MAXD+21*, MAXD+23, MAXD+28, CALCDDA~, CALCDDA+8, CALCDDA+10, CALCDDA+12, CALCDDA+14, CALCDDA+16 , CALCDDA+18, CALCDDA+32, CALCDDA+36, CALCDDA+38, CALCDDA+40, CALCDDA+42, CALCDDAT~, CALCDDAT+8, CALCDDAT+12, CALCDDAT+14 , CALCDDAT+16 |
PSSDADE | MAXD+12~, MAXD+32*, MAXD+36, MAXD+39, MAXD+48, MAXD+61, GETUNIT~, GETUNIT+8, GETUNIT+11, GETUNIT+12 , GETUNIT+13*, GETUNIT+14*, GETUNIT+15*, GETUNIT+17*, GETUNIT+19, GETUNIT+22, GETUNIT+24, GETUNIT+27 |
PSSDADF | MAXD+12~, MAXD+21*, MAXD+23, MAXD+28, CALCDDA~, CALCDDA+8, CALCDDA+10, CALCDDA+12, CALCDDA+14, CALCDDA+16 , CALCDDA+18, CALCDDA+20, CALCDDA+22, CALCDDA+26, CALCDDA+30 |
PSSDADFF | MAXD+12~, MAXD+25*, MAXD+32, MAXD+34, MAXD+73, MAXDMSG~, MAXDMSG+21 |
PSSDADH | MAXD+12~, MAXD+28*, MAXD+30, MAXD+73, MAXDMSG~, MAXDMSG+16, MAXDMSG+19, MAXDMSG+21 |
PSSDADI | MAXD~, MAXD+14, MAXD+32, MAXD+34, MAXD+73, MAXDMSG~, MAXDMSG+16, MAXDMSG+23 |
PSSDADL | CALCDDA+6~, CALCDDA+20*, CALCDDA+30, GETUNIT+10~, GETUNIT+12*, GETUNIT+13, GETUNIT+14 |
PSSDADM | CONVMDDA+7~, CONVMDDA+18*, CONVMDDA+20 |
PSSDADN | CALCDDA+6~, CALCDDA+26*, CALCDDA+28, CALCDDA+32, CALCDDA+36, CALCDDA+38, CALCDDA+40, CALCDDA+42, CALCDDAT~, CALCDDAT+8 , CALCDDAT+12, CALCDDAT+14, CALCDDAT+16 |
PSSDADNM | MAXD~, MAXD+14, MAXD+32, MAXD+34, MAXD+73, MAXDMSG~, MAXDMSG+16, MAXDMSG+23, CHKCFREQ+5~, CHKCFREQ+13* , CHKCFREQ+15 |
PSSDADO | MAXD~, MAXD+14, MAXD+15, MAXD+19, MAXD+32, MAXD+34, MAXD+57, MAXD+70, MAXD+73, MAXDQ+1 , MAXDMSG~, MAXDMSG+16, MAXDMSG+17, MAXDMSG+23, MAXDMSG+25, MAXDMSG+30, MAXDMSG+32, MAXDMSG+36, ERRMSG~, ERRMSG+6 , ERRMSG+13, ERRMSG+15, ERRMSG+19, ERRMSG+21, ERRMSG+23, CHKCFREQ~, CHKCFREQ+7, CHKCFREQ+8, CHKCFREQ+11, CHKCFREQ+13 , CHKCFREQ+15, CHKCFREQ+16 |
PSSDADS | CALCDDA+6~, CALCDDA+22*, CALCDDA+24, CALCDDA+32 |
PSSDADTM | CALCDDA+6~, CALCDDA+30*, CALCDDA+32, CALCDDA+34, CALCDDA+36, CALCDDA+38, CALCDDA+40, CALCDDAT~, CALCDDAT+8, CALCDDAT+10 , CALCDDAT+12, CALCDDAT+14 |
PSSDADU | MAXD+12~, MAXD+21*, MAXD+23, MAXD+39, MAXD+44, MAXD+73, GETUNIT~, GETUNIT+8, GETUNIT+19, CONVMDDA~ , CONVMDDA+9, CONVMDDA+12, CONVMDDA+16, MAXDMSG~, MAXDMSG+16, MAXDMSG+21 |
PSSDADZ | MAXD+12~, MAXD+19*, MAXD+21, MAXD+25 |
PSSDBASE | CHKCFREQ~, CHKCFREQ+7, CHKCFREQ+15 |
PSSDBASG | CHKCFREQ~, CHKCFREQ+7, CHKCFREQ+16 |
PSSDBCAR | MAXD~, MAXD+73, MAXDMSG~, CHKCFREQ~ |
PSSDBCAR( | MAXD+15, MAXDQ+1*, MAXDMSG+17, MAXDMSG+25*, CHKCFREQ+8, CHKCFREQ+11, CHKCFREQ+13 |
>> PSSDBCAZ( | FCY+3 |
>> PSSDBEB1 | FCY+3 |
>> PSSDBEB2 | FCY+2 |
PSSDUC2I | CONVMDDA+7~, CONVMDDA+16*, CONVMDDA+18 |
PSSDUCI | CONVMDDA+7~, CONVMDDA+14*, CONVMDDA+16, CONVMDDA+18 |
PSSDUIEN | GETUNIT+10~, GETUNIT+22*, GETUNIT+24*, GETUNIT+25, GETUNIT+27*, GETUNIT+28 |
PSSDWIEN | CHKCFREQ+5~, CHKCFREQ+13*, CHKCFREQ+15 |
PSSDWL1 | MAXDMSG+14~, MAXDMSG+29*, MAXDMSG+30*, MAXDMSG+32, MAXDMSG+34, ERRMSG+4~, ERRMSG+12*, ERRMSG+13*, ERRMSG+15, ERRMSG+17 , ERRMSG+19, ERRMSG+21 |
PSSERRM | ERRMSG+4~, ERRMSG+10*, ERRMSG+21*, ERRMSG+23 |
PSSERRN | MAXDMSG+14~, MAXDMSG+27*, MAXDMSG+30, MAXDMSG+34*, MAXDMSG+36, ERRMSG+4~, ERRMSG+8*, ERRMSG+13, ERRMSG+17*, ERRMSG+23 |
PSSERRT | ERRMSG~, ERRMSG+6, ERRMSG+10, ERRMSG+19 |
PSSFCY1 | FCY+1~, FCY+7*, FCY+8, FCY+9, FCY+10 |
PSSFCY2 | FCY+1~, FCY+7*, FCY+9, FCY+10 |
PSSFCYA | FCY+1~, FCY+11* |
PSSFCYB | FCY+1~, FCY+13* |
PSSFCYF | FCY+1~, FCY+2*, FCY+3, FCY+4, FCY+5, FCY+6, FCY+7, FCY+11, FCY+13 |
PSSFCYL | FCY+1~, FCY+6*, FCY+7, FCY+12 |
PSSFDBU | MAXD+12~, MAXD+39*, MAXD+41, MAXD+44, GETUNIT+10~, GETUNIT+24, GETUNIT+25*, GETUNIT+27, GETUNIT+28*, CONVMDDA~ , CONVMDDA+9, CONVMDDA+12, CONVMDDA+14 |
PSSGDIF | FMTNUM~, FMTNUM+31 |
PSSMSG | MAXDMSG+14~, MAXDMSG+21*, MAXDMSG+23 |
X | FMTNUM~, FMTNUM+27, FMTNUM+29, FMTNUM+32, FMTNUM+34, FMTNUM+36, FMTNUM+38*, FMTNUM+40*, FMTNUM+42*, FMTNUM+44 , FMTNUM+45 |
X2 | FMTNUM+25~, FMTNUM+32*, FMTNUM+34*, FMTNUM+36*, FMTNUM+38, FMTNUM+44* |
X3 | FMTNUM+25~, FMTNUM+44* |