PSODOSUT ;BIR/RTR - PRE Dose Check Utility routine ;11/18/08
Source file <PSODOSUT.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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
SUMM | ;
|
|
SUB | ;Write sub header; called from PSODOSUN
|
|
DAILY | ;
|
|
COMPLEX | ;called from DOSEZ^PSODOSUN
|
|
HD | ;
|
|
SFD | ;
|
|
SBAD | ;Set Bad Drug flag just in case not set in enhanced check, possibly because Dosage edits are done first
|
|
EXCEPT | ;don't show "not matched to NDF" or "no GCNSEQNO" errors for dosing - when dosage is edited enhanced order checks are performed again so we don't want to display these type messages for dosing.
|
|
FEED() | ; Write Line feed after Exceptions if no message globals follow, and next order has no errors or exceptions, only a message
|
|
DCHKN | ;Called from PSOORNEW, PSOORNE1 & PSOORNEW; Dose Check for Copying an Order
|
|
DCHKR | ;Renewal Dose Check; Called from PSORENW0
|
|
DCHKC | ;Dose Check on reinstate; Called from PSOCAN2
|
|
DCHK() | ;Dose check after entering Null at the conjunction prompt
|
|
DCHK2 | ;Finishing of a complex order
|
|
DCHK1 | ;Dose check after entering a value at the Conjunction prompt
|
|
CONVMSG(MESS) | ;Convert DOSE CHECK message to numeric value for field 8 of ^PS(52.4
|
|
DCHKV | ;Dose check when verifying an order
|
|
DOSIV | ;DOSE INTERVENTION
|
|
DOSIV1 | ;
|
|
CANCEL(PSONV) | ;CR2724 - where PSONV = RXIEN
|
|
DOSCK(PSOFROM,MSG) | ;
|
|
RCONVMS(MESS) | ;Convert DOSE CHECK from numeric to alpha
|
|
DOSEOFF | ;
|
|
DOSEOFF2 | ;
|
Name | Field # of Occurrence |
---|---|
$$GET1^DIQ | DCHKC+3 |
^DIR | HD+3, DCHKN+13, DCHK2+13, DCHK1+23, DOSIV1+4, DOSEOFF2+11 |
^DIWP | COMPLEX+7, DOSEOFF2+7 |
NOOR^PSOCAN4 | DCHKV+13, CANCEL+2 |
DEL^PSODGDG1 | DCHKV+16, CANCEL+4 |
INV^PSODGDG1 | DCHKV+16, CANCEL+4 |
KILL^PSODGDG1 | DCHKV+14, CANCEL+3 |
PSDEL^PSODGDG1 | DCHKV+16, CANCEL+4 |
RXV^PSODGDG1 | DCHKV+16 |
UPOUT^PSODGDG1 | DCHKV+14, CANCEL+3 |
FIN^PSODOSCL | DCHKN+4, DCHKR+4, DCHK+16, DCHK1+13 |
RX^PSODOSCL | DCHKC+5, DCHKV+5 |
HD^PSODOSU2 | SUB+1 |
$$DOSE^PSODOSUN | DCHKN+5, DCHKR+5, DCHKC+7, DCHKV+8 |
$$DOSEX^PSODOSUN | DCHK+19, DCHK1+16 |
$$DOSEZ^PSODOSUN | DCHK2+5 |
$$EN3^PSORXI | DCHKN+13, DCHK2+13, DCHK1+23, DOSIV1+2 |
$$DS^PSSDSAPI | DOSEOFF+1 |
$$EXMT^PSSDSAPI | DCHK+10, DCHK1+8, DOSCK+5 |
SIG^XUSESIG | DCHKV+12, CANCEL+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^PSRX - [#52] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PSRX - [#52] | DCHKC+4, DCHKV+4, DCHKV+20 |
^TMP("PSODOSF" | DCHKN+8*, DCHKR+6*, DCHK+14!, DCHK+19*, DCHK2+8*, DCHK1+20*, DCHKV+9*, DOSIV+2*, DOSCK+7! |
^TMP($J | COMPLEX+10, SBAD+3, SBAD+4, EXCEPT+2, EXCEPT+3, EXCEPT+5!, FEED+3, FEED+4, FEED+6, FEED+7 , DCHKN+5!, DCHKR+7!, DCHKC+7!, DCHK+15!, DCHK+21!, DCHK2+5!, DCHK1+12!, DCHK1+18!, DCHKV+8!, DOSCK+7! |
^UTILITY($J | COMPLEX+7!, COMPLEX+8, COMPLEX+9!, DOSEOFF2+7!, DOSEOFF2+8, DOSEOFF2+12! |
^XUSEC("PSORPH" | DCHKN+8, DCHKR+6, DCHK+19, DCHK2+8, DCHK1+20, DCHKV+9, DOSIV+1, DOSIV+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> DA | DCHKV+16*, DCHKV+20*, CANCEL+4* |
DIK | DCHKV+17!, CANCEL+5! |
DIR | HD+2~, HD+3!, DCHKN+13!, DCHK+5~, DCHK2+13!, DCHK1+4~, DCHK1+23!, DOSIV1+4!, DOSCK+4~, DOSEOFF2+9~ , DOSEOFF2+11! |
DIR("?" | DCHKN+13*, DCHK2+13*, DCHK1+23*, DOSIV1+4*, DOSEOFF2+10* |
DIR("A" | HD+3*, DCHKN+13*, DCHK2+13*, DCHK1+23*, DOSIV1+4*, DOSEOFF2+10* |
DIR(0 | HD+3*, DCHKN+13*, DCHK2+13*, DCHK1+23*, DOSIV1+4*, DOSEOFF2+9* |
DIROUT | HD+2~, DCHK+5~, DCHK1+4~, DOSCK+4~ |
DIRUT | HD+2~, HD+3, DCHK+5~, DCHK1+4~, DCHKV+14, CANCEL+3, DOSCK+4~, DOSCK+8!, DOSEOFF2+9~, DOSEOFF2+11! |
DIWF | COMPLEX+7~ |
DIWL | COMPLEX+7~*, COMPLEX+8, DOSEOFF2+7*, DOSEOFF2+8 |
DIWR | COMPLEX+7~*, DOSEOFF2+7* |
DTOUT | HD+2~, HD+3, DCHK+5~, DCHK1+4~, DOSCK+4~, DOSCK+8! |
DUOUT | HD+2~, HD+3, DCHK+5~, DCHK1+4~, DOSCK+4~, DOSCK+8!, DOSEOFF2+9~, DOSEOFF2+11! |
DUZ | DCHKN+8, DCHKR+6, DCHK+19, DCHK2+8, DCHK1+20, DCHKV+9, DOSIV+1, DOSIV+2 |
>> ENT | DCHK+17, DCHK1+14 |
IOF | HD+4 |
IOSL | HD+1, DCHK+20, DCHK2+6, DCHK1+17 |
LST | DCHKV+17!, CANCEL+5! |
MESS | CONVMSG~, CONVMSG+3*, CONVMSG+4, RCONVMS~, RCONVMS+2*, RCONVMS+3 |
MSG | DOSCK~ |
>> PSOCOPY | DAILY+3, COMPLEX+4, DCHK2+11 |
PSOCPXA | DCHKN+3*, DCHKR+3*, DCHKC+4*, DCHK+5~, DCHK+18*, DCHK1+15*, DCHKV+4*, DOSCK+4~ |
PSOCPXB | COMPLEX+1, COMPLEX+4, DCHKN+3*, DCHKR+3*, DCHKC+4*, DCHK+5~, DCHK+17*, DCHK+18*, DCHK1+4~, DCHK1+14* , DCHK1+15*, DCHKV+4*, DOSCK+4~, DOSCK+10* |
PSOCPXC | DAILY+2, COMPLEX+1, COMPLEX+2, COMPLEX+4, DCHK2+1~, DOSCK+4~ |
PSOCPXD | DCHK2+1~, DCHK2+3* |
>> PSOCPXF | SUMM+2*, COMPLEX+1 |
>> PSOCPXG | SUB+4, SUB+5, COMPLEX+1*, COMPLEX+2*, COMPLEX+3, COMPLEX+4, COMPLEX+10 |
>> PSOCPXH | COMPLEX+1*, COMPLEX+4* |
>> PSOCPXRR( | SUB+5*, COMPLEX+3, COMPLEX+4 |
PSOCPXV | DCHK+5~, DCHK+17* |
PSODAILY | DAILY+4*, COMPLEX+1!, COMPLEX+3! |
PSODCAN | DCHKC+1~, DCHKC+6* |
>> PSODELNX | COMPLEX+10* |
PSODELXF | COMPLEX+8~*, SFD+1* |
PSODELXR | COMPLEX+8~* |
PSODLBD1 | SBAD+1~, SBAD+3*, SBAD+4 |
PSODLBD3 | SBAD+1~, SBAD+4* |
>> PSODLBD4 | DCHK2+11 |
PSODLBS1 | DCHKN+4, DCHKR+4, DCHKC+5, DCHK+5~, DCHK+16, DCHK1+4~, DCHK1+13, DCHKV+5, DOSCK+4~ |
PSODLBS1(1 | DCHK+15*, DCHK1+12*, DOSCK+7* |
PSODLBS1(3 | DCHK+15*, DCHK1+12*, DOSCK+7* |
PSODLENT | DCHK+5~, DCHK+17*, DCHK+19, DCHK1+4~, DCHK1+14*, DCHK1+16 |
PSODLER1 | EXCEPT+1~, EXCEPT+2*, EXCEPT+3, EXCEPT+5 |
PSODLER2 | EXCEPT+1~, EXCEPT+3*, EXCEPT+4 |
PSODLER3 | EXCEPT+1~, EXCEPT+5* |
>> PSODLERB | SBAD+2 |
>> PSODLERX | SFD+1 |
>> PSODLERZ | SFD+1* |
>> PSODLEXR | SUB+1, SUB+2, SUB+3* |
>> PSODLMSG | COMPLEX+7 |
>> PSODLNN1 | COMPLEX+1, COMPLEX+2, COMPLEX+3, COMPLEX+10, SBAD+3, SBAD+4, EXCEPT+2, EXCEPT+3, EXCEPT+5, FEED+3 , FEED+4 |
PSODLNN2 | FEED+2~, FEED+4*, FEED+5, FEED+6, FEED+7 |
PSODLNNN | DCHKC+6*, DCHK+5~, DCHK1+4~, DCHKV+7*, DOSCK+4~ |
PSODLNVL | DCHKN+5*, DCHKN+6, DCHKN+7, DCHKN+8, DCHKN+9, DCHKN+10, DCHKR+5*, DCHKR+6, DCHKR+7, DCHKC+7* , DCHKC+8, DCHKC+10, DCHK+5~, DCHK+19*, DCHK+21, DCHK2+2!, DCHK2+5*, DCHK2+7, DCHK2+8, DCHK2+9 , DCHK2+10, DCHK1+4~, DCHK1+16*, DCHK1+18, DCHK1+19, DCHK1+20, DCHK1+21, DCHKV+8*, DCHKV+9, DCHKV+10 , DCHKV+11, DCHKV+18, DCHKV+19, DOSIV+2, DOSIV+3, DOSIV+4, DOSCK+4~ |
PSODLNVT | DCHKN+9*, DCHKN+13, DCHK+5~, DCHK2+10*, DCHK2+13, DCHK1+4~, DCHK1+21*, DCHK1+23, DCHKV+18*, DOSIV+4* , DOSIV1+2, DOSCK+4~ |
PSODLQT | SUMM+1, SUB+1, SUB+4, DAILY+3, COMPLEX+7, COMPLEX+8, COMPLEX+10, HD+1, HD+3*, FEED+1 , DCHK1+1, DOSCK+8! |
>> PSODLQTC | SUB+1 |
PSODOFFC | DOSEOFF2+5~, DOSEOFF2+8* |
PSODONOF | DCHK+2~*, DCHK1+2~*, DOSCK+2~*, DOSEOFF+1*, DOSEOFF2+1, DOSEOFF2+2, DOSEOFF2+3, DOSEOFF2+6, DOSEOFF2+7 |
PSODOSD | DOSCK+3! |
PSODOSF | CONVMSG+2~, CONVMSG+4*, CONVMSG+5, DCHKV+1~, DCHKV+18*, RCONVMS+1~, RCONVMS+3*, RCONVMS+4 |
>> PSODRUG | DCHKN+4, DCHKR+4, DCHK+16, DCHK1+13 |
>> PSODRUG("BAD" | SBAD+4*, DCHK+11, DCHK1+9, DOSCK+6 |
>> PSODRUG("IEN" | DCHKC+3*, DCHK+10, DCHK+11, DCHK1+8, DCHK1+9, DOSCK+5, DOSCK+6 |
>> PSODSEQ | COMPLEX+10, SBAD+3, SBAD+4, EXCEPT+2, EXCEPT+3, EXCEPT+5, FEED+3, FEED+4, FEED+6, FEED+7 |
PSOEDDOS | DCHK+5~, DCHK+7*, DCHK+20, DCHK2+6, DCHK2+11 |
>> PSOEDIT | DCHK+7 |
PSOFROM | DOSIV+1, DOSCK~, DOSCK+11, DOSCK+12, DOSCK+13, DOSCK+14 |
PSOGENF | DCHKN+1~, DCHKN+2*, DCHKN+12, DCHKR+1~, DCHKR+2*, DCHKC+1~, DCHKC+2*, DCHK+5~, DCHK+6*, DCHK2+12 , DCHK1+4~, DCHK1+5*, DCHK1+22, DCHKV+1~, DCHKV+3*, DOSIV1+1 |
>> PSOINTRO | SUB+2 |
PSOLINE | DCHKV+1~, DCHKV+6* |
>> PSONEW | DCHKN+4 |
>> PSONEW("DFLG" | HD+3* |
>> PSONEW("DOSE" | DCHKN+3 |
PSONOOR | DCHKV+17!, CANCEL+5! |
PSONORR | DCHKV+14!, CANCEL+3! |
PSONV | DCHKV+4, DCHKV+5, DCHKV+7, DCHKV+16, DCHKV+20, CANCEL~, CANCEL+4 |
PSOONOFC | DOSEOFF2+1!, DOSEOFF2+3, DOSEOFF2+13* |
PSOREINF | DOSEOFF2+1!, DOSEOFF2+3, DOSEOFF2+13* |
>> PSOREINS | DOSEOFF2+13 |
>> PSORENW | DAILY+3, COMPLEX+4, DCHKR+4 |
>> PSORENW("DOSE" | DCHKR+3 |
>> PSORENW("OIRXN" | DCHKC+3, DCHKC+4, DCHKC+5, DCHKC+6 |
>> PSORX("DFLG" | HD+1, HD+3*, DCHKN+6*, DCHKN+10*, DCHKR+7*, DCHKC+8*, DCHKC+10*, DCHK+3, DCHK+20, DCHK2+6 , DCHK1+1, DCHK1+17, DCHKV+8*, DCHKV+12*, DCHKV+19*, CANCEL+1*, DOSCK+3*, DOSCK+8! |
>> PSORX("DOSING | OFF" , DOSEOFF2+1!, DOSEOFF2+3*, DOSEOFF2+4, DOSEOFF2+13* |
>> PSORX("EDIT" | DCHK2+11 |
>> PSORX("INTERVENE" | DCHKV+14!, CANCEL+3! |
>> PSORXED | DAILY+3, DCHK+16, DCHK2+11, DCHK1+13 |
>> PSORXED("DFLG" | DCHK1+18* |
>> PSORXED("DOSE" | DCHK+18, DCHK1+15 |
PSOTOF | DCHK+5~, DCHK+19* |
PSOVCAN | DCHKV+1~, DCHKV+11, DCHKV+15* |
PSOVERFL | DCHKV+1~, DCHKV+2* |
>> PSVERFLG | DCHKV+12*, DCHKV+17* |
>> RX | DCHKV+20* |
X | COMPLEX+7~*, HD+2~, DCHK+5~, DCHK1+4~, DOSCK+4~, DOSEOFF2+7*, DOSEOFF2+9~, DOSEOFF2+11! |
>> X1 | DCHKV+12, CANCEL+1 |
Y | HD+2~, HD+3!, DCHK+5~, DCHK1+4~, DOSCK+4~, DOSEOFF2+9~, DOSEOFF2+11! |