PSSDSEXE ;BIR/CMF-Exceptions for Dose call Continuation ;02/24/09
Source file <PSSDSEXE.m>
Package | Total | Call Graph |
---|---|---|
Pharmacy Data Management | 3 | ($$CHECKMSG,$$ISCMPLEX)^PSSDSEXD TWEAK200^PSSDSEXF IN^PSSHRQ2 |
Kernel | 1 | ($$REPLACE,$$UP)^XLFSTR |
VA FileMan | 1 | $$GET1^DIQ |
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 | 1 | PSSDSEXD |
Name | Comments | DBIA/ICR reference |
---|---|---|
TWEAK2 | ;; loop through exception then error globals, look for OR related tweaks
|
|
TWEAK21(NODE) | ;; test for OR inactive drug
|
|
TWEAK22 | ;; loop through initial entry array, look for drugs which may have not been excepted
|
|
TWEAK23(NODE) | ;; change CPRS message on bad dose route, bad dose type
|
|
TWEAK24(NODE) | ;; change CPRS message on bad frequency or bad frequency duration
|
|
TWEAK25(NODE) | ;; change CPRS message on Free Text Dosage could not be evaluated
|
|
TWEAK26(NODE) | ;; change CPRS message on Free Text Infusion Rate could not be evaluated
|
|
TWEAK27(PSSDWLP,PSSDWL1) | ||
TWEAK20(PSSDWEX2) | ||
TWEAK28(PSSDWLP) | ||
TWEAK29(PSSDWLP) | ||
TWEAK29A(PSSDWEX2) | ||
ORTEST(DRUGIEN) | ;; return 1 if Orderable Item is inactive
|
|
MSGEND(PSSDWEX2,DRUGNAME) | ;; build end of message, add dose to drugname if necessary, add route information if necessary
|
|
ROUTEMSG(PSSDWEX2,DRUGNAME) | ;; build end of message, add route information if necessary
|
|
TWEAK4 | ||
ISCMPLET(PSSLOOP) | ;; is completed
|
|
ISCMPLEB(PSSLOOP) | ;; is completed, both attempted, did both finish?
|
|
GETGNRL3(PSSDWEX2) | ;; ensure General Dosing set if intermittent + bad frequency
|
Name | Field # of Occurrence |
---|---|
$$GET1^DIQ | TWEAK23+12, ORTEST+4, ORTEST+6 |
$$CHECKMSG^PSSDSEXD | TWEAK21+6, TWEAK22+13, TWEAK23+14, TWEAK25+6, TWEAK26+6, TWEAK28+7, TWEAK29+7 |
$$ISCMPLEX^PSSDSEXD | MSGEND+2 |
TWEAK200^PSSDSEXF | TWEAK2+20 |
IN^PSSHRQ2 | GETGNRL3+11 |
$$REPLACE^XLFSTR | TWEAK29A+9 |
$$UP^XLFSTR | TWEAK24+3, TWEAK25+3, TWEAK26+3 |
FileNo | Call Tags |
---|---|
^PSDRUG - [#50] | GET1^DIQ |
^PS(50.7 - [#50.7] | GET1^DIQ |
^PS(51.2 - [#51.2] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PSDRUG - [#50] | ORTEST+3 |
^TMP($J | TWEAK2+3, TWEAK2+5, TWEAK2+6, TWEAK2+17, TWEAK21+8*, TWEAK21+11*, TWEAK21+12*, TWEAK21+14*, TWEAK21+15*, TWEAK22+10 , TWEAK22+15*, TWEAK22+16*, TWEAK22+18*, TWEAK22+19*, TWEAK22+21*, TWEAK22+22*, TWEAK23+16*, TWEAK23+19*, TWEAK23+20*, TWEAK23+22* , TWEAK23+23*, TWEAK24+3, TWEAK24+6!, TWEAK24+15*, TWEAK24+16*, TWEAK24+18*, TWEAK24+19*, TWEAK25+3, TWEAK25+11*, TWEAK25+12* , TWEAK25+14*, TWEAK25+15*, TWEAK26+3, TWEAK26+11*, TWEAK26+12*, TWEAK26+14*, TWEAK26+15*, TWEAK27+4, TWEAK27+6!, TWEAK27+7! , TWEAK27+8!, TWEAK20+4, TWEAK20+6!, TWEAK28+4, TWEAK28+5, TWEAK28+9*, TWEAK28+10*, TWEAK28+12, TWEAK28+13!, TWEAK29+4 , TWEAK29+5, TWEAK29+9*, TWEAK29+10*, TWEAK29+12, TWEAK29+13!, TWEAK29A+4, TWEAK29A+6, TWEAK29A+10*, TWEAK4+3, TWEAK4+5 , TWEAK4+6, GETGNRL3+5, GETGNRL3+6!, GETGNRL3+7*, GETGNRL3+8*, GETGNRL3+9*, GETGNRL3+10*, GETGNRL3+12, GETGNRL3+13*, GETGNRL3+14! , GETGNRL3+15, GETGNRL3+16*, GETGNRL3+17*, GETGNRL3+18! |
Name | Line Occurrences |
---|---|
$$ISCMPLEB | ISCMPLET+3 |
$$MSGEND | TWEAK21+6, TWEAK22+13, TWEAK23+14, TWEAK24+10, TWEAK25+6, TWEAK26+6, TWEAK28+7 |
$$ORTEST | TWEAK21+4, TWEAK22+7 |
$$ROUTEMSG | TWEAK29+7, MSGEND+3 |
$$TWEAK20 | TWEAK2+8 |
$$TWEAK21 | TWEAK2+9 |
$$TWEAK23 | TWEAK2+10 |
$$TWEAK24 | TWEAK2+11 |
$$TWEAK25 | TWEAK2+12 |
$$TWEAK26 | TWEAK2+13 |
$$TWEAK28 | TWEAK2+18 |
$$TWEAK29 | TWEAK2+19 |
$$TWEAK29A | TWEAK2+14 |
TWEAK22 | TWEAK2+15 |
Name | Field # of Occurrence |
---|---|
^( | TWEAK21+9*, TWEAK23+17*, TWEAK24+12*, TWEAK24+13*, TWEAK25+8*, TWEAK25+9*, TWEAK26+8*, TWEAK26+9* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DRUGIEN | TWEAK21+1~, TWEAK21+3*, TWEAK21+4, TWEAK22+1~, TWEAK22+5*, TWEAK22+6, TWEAK22+7, TWEAK23+1~, ORTEST~, ORTEST+2* , ORTEST+3, ORTEST+4, GETGNRL3+1~, GETGNRL3+3*, GETGNRL3+4, GETGNRL3+5, GETGNRL3+13, GETGNRL3+15, GETGNRL3+16, GETGNRL3+17 |
DRUGNAME | TWEAK21+1~, TWEAK21+5*, TWEAK21+6, TWEAK22+1~, TWEAK22+11*, TWEAK22+12, TWEAK22+13, TWEAK23+1~, TWEAK23+4*, TWEAK23+14 , TWEAK24+1~, TWEAK24+9*, TWEAK24+10, TWEAK25+1~, TWEAK25+5*, TWEAK25+6, TWEAK26+1~, TWEAK26+5*, TWEAK26+6, MSGEND~ , MSGEND+2*, MSGEND+3, ROUTEMSG~, ROUTEMSG+2*, ROUTEMSG+3, GETGNRL3+1~, GETGNRL3+2*, GETGNRL3+4, GETGNRL3+5, GETGNRL3+13 , GETGNRL3+15, GETGNRL3+16 |
DT | ORTEST+8 |
FLAG | TWEAK21+1~, TWEAK21+2*, TWEAK21+17*, TWEAK21+18, TWEAK23+1~, TWEAK23+2*, TWEAK23+25*, TWEAK23+26, TWEAK24+1~, TWEAK24+2* , TWEAK24+7*, TWEAK24+21*, TWEAK24+22, TWEAK25+1~, TWEAK25+2*, TWEAK25+17*, TWEAK25+19, TWEAK26+1~, TWEAK26+2*, TWEAK26+17* , TWEAK26+18, TWEAK27+1~, TWEAK27+2*, TWEAK27+10*, TWEAK27+11, TWEAK20+1~, TWEAK20+2*, TWEAK20+8*, TWEAK20+9, TWEAK28+1~ , TWEAK28+2*, TWEAK28+15*, TWEAK28+16, TWEAK29+1~, TWEAK29+2*, TWEAK29+15*, TWEAK29+16, TWEAK29A+1~, TWEAK29A+2*, TWEAK29A+12* , TWEAK29A+13 |
I | TWEAK22+1~, TWEAK22+3*, TWEAK22+4*, TWEAK22+5, TWEAK22+8, TWEAK22+11, TWEAK23+9* |
ITEMIEN | ORTEST+1~, ORTEST+4*, ORTEST+5, ORTEST+6 |
ITEMINCT | ORTEST+1~, ORTEST+6*, ORTEST+7, ORTEST+8 |
MESSAGE | TWEAK21+1~, TWEAK21+6*, TWEAK21+8, TWEAK21+11, TWEAK21+14, TWEAK22+1~, TWEAK22+13*, TWEAK22+15, TWEAK22+18, TWEAK22+21 , TWEAK23+1~, TWEAK23+14*, TWEAK23+16, TWEAK23+19, TWEAK23+22, TWEAK24+1~, TWEAK24+10*, TWEAK24+12, TWEAK24+15, TWEAK24+18 , TWEAK25+1~, TWEAK25+6*, TWEAK25+8, TWEAK25+11, TWEAK25+14, TWEAK26+1~, TWEAK26+6*, TWEAK26+8, TWEAK26+11, TWEAK26+14 , GETGNRL3+1~, GETGNRL3+15*, GETGNRL3+16, GETGNRL3+17 |
NODE | TWEAK2+1~, TWEAK2+6*, TWEAK2+7, TWEAK2+9, TWEAK2+10, TWEAK2+11, TWEAK2+12, TWEAK2+13, TWEAK21~, TWEAK23~ , TWEAK24~, TWEAK25~, TWEAK26~ |
>> PSSDBASA | TWEAK21+10, TWEAK22+17, TWEAK23+18, TWEAK24+14, TWEAK25+10, TWEAK26+10, TWEAK27+7, GETGNRL3+16 |
>> PSSDBASB | TWEAK21+13, TWEAK22+20, TWEAK23+21, TWEAK24+17, TWEAK25+13, TWEAK26+13, TWEAK27+8, GETGNRL3+17 |
>> PSSDBASE | TWEAK2+3, TWEAK2+5, TWEAK2+6, TWEAK21+8, TWEAK22+10, TWEAK22+15, TWEAK22+16, TWEAK23+16, TWEAK24+3, TWEAK24+6 , TWEAK25+3, TWEAK26+3, TWEAK27+4, TWEAK27+6, TWEAK4+3, TWEAK4+5, TWEAK4+6, GETGNRL3+5, GETGNRL3+7, GETGNRL3+13 , GETGNRL3+15 |
>> PSSDBASF | TWEAK2+17, TWEAK21+11, TWEAK21+12, TWEAK22+18, TWEAK22+19, TWEAK23+19, TWEAK23+20, TWEAK24+15, TWEAK24+16, TWEAK25+11 , TWEAK25+12, TWEAK26+11, TWEAK26+12, TWEAK27+7, TWEAK20+4, TWEAK20+6, TWEAK28+4, TWEAK28+5, TWEAK28+9, TWEAK28+10 , TWEAK28+12, TWEAK28+13, TWEAK29+4, TWEAK29+5, TWEAK29+9, TWEAK29+10, TWEAK29+12, TWEAK29+13, TWEAK29A+4, TWEAK29A+6 , TWEAK29A+10, GETGNRL3+16 |
>> PSSDBASG | TWEAK21+14, TWEAK21+15, TWEAK22+21, TWEAK22+22, TWEAK23+22, TWEAK23+23, TWEAK24+18, TWEAK24+19, TWEAK25+14, TWEAK25+15 , TWEAK26+14, TWEAK26+15, TWEAK27+8, GETGNRL3+17 |
>> PSSDBCAR( | TWEAK21+3, TWEAK21+5, TWEAK21+16*, TWEAK22+23*, TWEAK23+3, TWEAK23+4, TWEAK23+5, TWEAK23+6*, TWEAK23+7, TWEAK23+13* , TWEAK23+24*, TWEAK24+5, TWEAK24+8*, TWEAK24+9, TWEAK24+20*, TWEAK25+5, TWEAK25+16*, TWEAK26+5, TWEAK26+16*, TWEAK27+3 , TWEAK27+9*, TWEAK20+3, TWEAK20+7*, TWEAK28+7, TWEAK28+14*, TWEAK29+7, TWEAK29+14*, TWEAK29A+5, TWEAK29A+11*, ROUTEMSG+2 , TWEAK4+3, TWEAK4+4, TWEAK4+5*, TWEAK4+6*, ISCMPLET+2, ISCMPLEB+2, ISCMPLEB+3, ISCMPLEB+4, ISCMPLEB+5, GETGNRL3+2 , GETGNRL3+3 |
>> PSSDBDS( | TWEAK23+11 |
>> PSSDBFDB | TWEAK22+2 |
>> PSSDBFDB( | TWEAK22+4, TWEAK22+5, TWEAK22+8, TWEAK22+11, TWEAK23+9 |
PSSDEMSG | TWEAK20+1~, TWEAK20+4*, TWEAK20+5, TWEAK29A+1~, TWEAK29A+6*, TWEAK29A+7, TWEAK29A+9*, TWEAK29A+10 |
>> PSSDSDPL( | MSGEND+2 |
>> PSSDSWHE | TWEAK20+3 |
PSSDWCNT | TWEAK28+1~, TWEAK28+3*, TWEAK28+4*, TWEAK28+5, TWEAK28+9, TWEAK28+10, TWEAK28+11, TWEAK28+12*, TWEAK28+13, TWEAK29+1~ , TWEAK29+3*, TWEAK29+4*, TWEAK29+5, TWEAK29+9, TWEAK29+10, TWEAK29+11, TWEAK29+12*, TWEAK29+13 |
PSSDWDRG | TWEAK4+1~, TWEAK4+4*, TWEAK4+5, TWEAK4+6 |
PSSDWE2 | TWEAK2+1~, TWEAK2+4*, TWEAK2+5*, TWEAK2+6, TWEAK21+8, TWEAK21+9, TWEAK23+16, TWEAK23+17, TWEAK24+3, TWEAK24+6 , TWEAK24+12, TWEAK24+13, TWEAK25+3, TWEAK25+8, TWEAK25+9, TWEAK26+3, TWEAK26+8, TWEAK26+9, TWEAK29A+1~, TWEAK29A+3* , TWEAK29A+4*, TWEAK29A+6, TWEAK29A+10 |
PSSDWE5 | TWEAK4+1~, TWEAK4+2*, TWEAK4+3*, TWEAK4+4, TWEAK4+5, TWEAK4+6 |
PSSDWEX2 | TWEAK2+1~, TWEAK2+2*, TWEAK2+3*, TWEAK2+5, TWEAK2+6, TWEAK2+8, TWEAK2+14, TWEAK21+3, TWEAK21+5, TWEAK21+6 , TWEAK21+8, TWEAK21+11, TWEAK21+12, TWEAK21+14, TWEAK21+15, TWEAK21+16, TWEAK22+1~, TWEAK22+8*, TWEAK22+9, TWEAK22+10 , TWEAK22+13, TWEAK22+15, TWEAK22+16, TWEAK22+18, TWEAK22+19, TWEAK22+21, TWEAK22+22, TWEAK22+23, TWEAK23+3, TWEAK23+4 , TWEAK23+5, TWEAK23+6, TWEAK23+7, TWEAK23+10, TWEAK23+13, TWEAK23+14, TWEAK23+16, TWEAK23+19, TWEAK23+20, TWEAK23+22 , TWEAK23+23, TWEAK23+24, TWEAK24+3, TWEAK24+5, TWEAK24+6, TWEAK24+8, TWEAK24+9, TWEAK24+10, TWEAK24+15, TWEAK24+16 , TWEAK24+18, TWEAK24+19, TWEAK24+20, TWEAK25+3, TWEAK25+5, TWEAK25+6, TWEAK25+11, TWEAK25+12, TWEAK25+14, TWEAK25+15 , TWEAK25+16, TWEAK26+3, TWEAK26+5, TWEAK26+6, TWEAK26+11, TWEAK26+12, TWEAK26+14, TWEAK26+15, TWEAK26+16, TWEAK20~ , TWEAK20+3, TWEAK20+4, TWEAK20+6, TWEAK20+7, TWEAK29A~, TWEAK29A+4, TWEAK29A+5, TWEAK29A+6, TWEAK29A+10, TWEAK29A+11 , MSGEND~, MSGEND+2, MSGEND+3, ROUTEMSG~, ROUTEMSG+2, GETGNRL3~, GETGNRL3+2, GETGNRL3+3, GETGNRL3+5, GETGNRL3+8 , GETGNRL3+9, GETGNRL3+10, GETGNRL3+13, GETGNRL3+15, GETGNRL3+16, GETGNRL3+17 |
PSSDWIEN | TWEAK4+1~, TWEAK4+4*, TWEAK4+5, TWEAK4+6 |
PSSDWL1 | TWEAK27~, TWEAK27+4, TWEAK27+6, TWEAK27+7, TWEAK27+8 |
PSSDWLP | TWEAK2+1~, TWEAK2+16*, TWEAK2+17*, TWEAK2+18, TWEAK2+19, TWEAK27~, TWEAK27+3, TWEAK27+4, TWEAK27+6, TWEAK27+7 , TWEAK27+8, TWEAK27+9, TWEAK28~, TWEAK28+4, TWEAK28+5, TWEAK28+7, TWEAK28+9, TWEAK28+10, TWEAK28+12, TWEAK28+13 , TWEAK28+14, TWEAK29~, TWEAK29+4, TWEAK29+5, TWEAK29+7, TWEAK29+9, TWEAK29+10, TWEAK29+12, TWEAK29+13, TWEAK29+14 |
PSSDWMSG | TWEAK27+1~, TWEAK27+4*, TWEAK27+5, TWEAK28+1~, TWEAK28+7*, TWEAK28+9, TWEAK28+11, TWEAK29+1~, TWEAK29+7*, TWEAK29+9 , TWEAK29+11 |
PSSDWRSN | TWEAK28+1~, TWEAK28+5*, TWEAK28+6, TWEAK28+8*, TWEAK28+10, TWEAK29+1~, TWEAK29+5*, TWEAK29+6, TWEAK29+8*, TWEAK29+10 |
PSSLOOP | ISCMPLET~, ISCMPLET+2, ISCMPLET+3, ISCMPLEB~, ISCMPLEB+2, ISCMPLEB+3, ISCMPLEB+4, ISCMPLEB+5 |
PSSP1 | ISCMPLET+1~, ISCMPLET+2*, ISCMPLET+3 |
PSSP15 | ISCMPLEB+1~, ISCMPLEB+2*, ISCMPLEB+6 |
PSSP33 | ISCMPLEB+1~, ISCMPLEB+3*, ISCMPLEB+6, ISCMPLEB+7 |
PSSP34 | ISCMPLEB+1~, ISCMPLEB+4*, ISCMPLEB+6, ISCMPLEB+7 |
PSSP35 | ISCMPLEB+1~, ISCMPLEB+5*, ISCMPLEB+6, ISCMPLEB+7 |
PSSREPL | TWEAK29A+1~, TWEAK29A+9 |
PSSREPL("Dosi | ng checks" , TWEAK29A+8* |
REASON | TWEAK21+1~, TWEAK21+7*, TWEAK21+9, TWEAK21+12, TWEAK21+15, TWEAK22+1~, TWEAK22+14*, TWEAK22+16, TWEAK22+19, TWEAK22+22 , TWEAK23+1~, TWEAK23+15*, TWEAK23+17, TWEAK23+20, TWEAK23+23, TWEAK24+1~, TWEAK24+3*, TWEAK24+4, TWEAK24+11*, TWEAK24+13 , TWEAK24+16, TWEAK24+19, TWEAK25+1~, TWEAK25+3*, TWEAK25+4, TWEAK25+7*, TWEAK25+9, TWEAK25+12, TWEAK25+15, TWEAK26+1~ , TWEAK26+3*, TWEAK26+4, TWEAK26+7*, TWEAK26+9, TWEAK26+12, TWEAK26+15 |
RESULT | MSGEND+1~, ROUTEMSG+1~, ROUTEMSG+3*, ROUTEMSG+4 |
ROUTE | TWEAK23+1~, TWEAK23+7*, TWEAK23+8, TWEAK23+12*, TWEAK23+13 |
ROUTE( | TWEAK23+9* |
ROUTE("I" | TWEAK23+10*, TWEAK23+11 |
ROUTE("MR_IEN" | TWEAK23+11*, TWEAK23+12 |
ROUTE("RX_NUM" | TWEAK23+9*, TWEAK23+10 |
U | TWEAK21+3, TWEAK21+5, TWEAK21+8, TWEAK21+9, TWEAK21+16, TWEAK22+15, TWEAK22+16, TWEAK22+23, TWEAK23+3, TWEAK23+4 , TWEAK23+5, TWEAK23+6, TWEAK23+7, TWEAK23+13, TWEAK23+16, TWEAK23+17, TWEAK23+24, TWEAK24+3, TWEAK24+5, TWEAK24+8 , TWEAK24+9, TWEAK24+12, TWEAK24+13, TWEAK24+20, TWEAK25+3, TWEAK25+5, TWEAK25+8, TWEAK25+9, TWEAK25+16, TWEAK26+3 , TWEAK26+5, TWEAK26+8, TWEAK26+9, TWEAK26+16, TWEAK27+3, TWEAK27+9, TWEAK20+3, TWEAK20+7, TWEAK28+7, TWEAK28+14 , TWEAK29+7, TWEAK29+14, TWEAK29A+5, TWEAK29A+11, ROUTEMSG+2, ISCMPLET+2, ISCMPLEB+2, ISCMPLEB+3, ISCMPLEB+4, ISCMPLEB+5 , GETGNRL3+2, GETGNRL3+3, GETGNRL3+8, GETGNRL3+9, GETGNRL3+10 |