PSSDSEXE ;BIR/CMF - Exceptions for Dose call Continuation ; Feb 24, 2009@16:00
Source file <PSSDSEXE.m>
| 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
|
| FileNo | Call Tags |
|---|---|
| ^PSDRUG - [#50] | GET1^DIQ |
| ^PS(50.7 - [#50.7] | GET1^DIQ |
| ^PS(51.2 - [#51.2] | GET1^DIQ |
