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! |