PSODOSUN ;BIR/RTR - Dose Check Utility routine ;11/18/08
Source file <PSODOSUN.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 2 | EN^PSODOSU2 $$GETGN^PSODOSUN |
| VA FileMan | 2 | ^DIR ^DIWP |
| Kernel | 1 | SIG^XUSESIG |
| Pharmacy Data Management | 1 | DATA^PSS50 |
| 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 |
|---|---|---|
| DOSE() | ;Write Dose output for renew, finish, copy, etc.
|
|
| END | ;
|
|
| SIG1 | ;
|
|
| END2 | ;
|
|
| EVAL(PSODLINS,PSODLINR,PSODLINX) | ;
|
|
| DOSEX(PSODLXNT) | ;Write Dose exceptions for order entry/edit
|
|
| ENDX | ;
|
|
| ENDX2 | ;
|
|
| DOSEZ() | ;Write Dose output summary for complex orders
|
|
| ENDZ | ;
|
|
| ENDZC | ;
|
|
| SIG2 | ;
|
|
| ENDZ2 | ;
|
|
| HD | ;
|
|
| MESG | ;Write out System error heading
|
|
| GETGN(PSODRIEN) | ;get generic name
|
|
| PROMPT | ;
|
|
| RETURN | ;
|
|
| HD3(PSOLINES,OVRRID) | ;
|
|
| MSG1 | ;
|
|
| MSG2 | ;
|
|
| MSG3 | ;
|
| 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 |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP($J | DOSE+7, DOSE+9, END+12!, DOSEX+6, DOSEX+8, DOSEZ+12, DOSEZ+14, ENDZC+5!, GETGN+1!, GETGN+3 |
| ^UTILITY($J | DOSE+9!, DOSE+10, DOSE+11!, DOSEX+8!, DOSEX+9, DOSEX+10!, DOSEZ+14!, DOSEZ+15, DOSEZ+16! |
| ^XUSEC("PSORPH" | END+7, END+10, ENDX+9, ENDX+14, ENDX+22, ENDX+25, ENDZ+8, ENDZC+2, HD+3, PROMPT+6 , PROMPT+8, PROMPT+13, PROMPT+14, PROMPT+17, PROMPT+18, RETURN+1 |
| Name | Line Occurrences |
|---|---|
| $$EVAL | END+10, ENDX+22, ENDZC+2 |
| $$GETGN | ENDZC+5 |
| END | DOSE+7 |
| ENDX | DOSEX+6 |
| ENDX2 | ENDX+24 |
| ENDZ | DOSEZ+12 |
| ENDZ2 | ENDZC+3 |
| HD | DOSE+8, DOSE+10, DOSEX+7, DOSEX+9, DOSEZ+13, DOSEZ+15, MESG+1 |
| MESG | DOSE+8, DOSEX+7, DOSEZ+13 |
| MSG1 | SIG1+2, SIG2+2 |
| MSG2 | SIG1+3, SIG2+3 |
| PROMPT | END+5, ENDZ+4 |
| RETURN | ENDX+10, ENDX+18, PROMPT+4, PROMPT+10, PROMPT+15, PROMPT+19 |
| SIG1 | SIG1+2 |
| SIG2 | SIG2+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIR | DOSE+1~, END+4!, END+8!, END+11!, END+14!, DOSEX+1~, ENDX+25!, DOSEZ+3~, ENDZ+9!, ENDZC+4! , ENDZC+7!, HD+2~, HD+4!, RETURN+2!, HD3+1~, HD3+4~!, MSG3+1~, MSG3+2! |
| DIR("?" | END+13*, ENDZC+6* |
| DIR("A" | END+8*, END+12*, ENDX+25*, ENDZ+9*, ENDZC+5*, HD+4*, RETURN+2*, HD3+4*, MSG3+2* |
| DIR("B" | END+8*, END+11*, ENDX+25*, ENDZ+9*, ENDZC+4*, HD+4* |
| DIR(0 | END+8*, END+11*, ENDX+25*, ENDZ+9*, ENDZC+4*, HD+4*, RETURN+2*, HD3+4*, MSG3+2* |
| DIROUT | DOSE+1~, DOSEX+1~, DOSEZ+3~, HD+2~, HD3+4~ |
| DIRUT | DOSE+1~, DOSEX+1~, DOSEZ+3~, HD+2~, HD3+4~ |
| DIWF | DOSE+8~, DOSEX+7~, DOSEZ+13~ |
| DIWL | DOSE+8~, DOSE+9*, DOSE+10, DOSEX+7~, DOSEX+8*, DOSEX+9, DOSEZ+13~, DOSEZ+14*, DOSEZ+15 |
| DIWR | DOSE+8~, DOSE+9*, DOSEX+7~, DOSEX+8*, DOSEZ+13~, DOSEZ+14* |
| DTOUT | DOSE+1~, END+7, END+15, DOSEX+1~, ENDX+25, DOSEZ+3~, ENDZ+8, ENDZC+8, HD+2~, HD+3 , HD3+1~, HD3+4~, HD3+5 |
| DUOUT | DOSE+1~, END+7, END+15, DOSEX+1~, ENDX+25, DOSEZ+3~, ENDZ+8, ENDZC+8, HD+2~, HD+3 , HD3+1~, HD3+4~, HD3+5 |
| DUZ | END+7, END+10, ENDX+9, ENDX+14, ENDX+22, ENDX+25, ENDZ+8, ENDZC+2, HD+3, PROMPT+6 , PROMPT+8, PROMPT+13, PROMPT+14, PROMPT+17, PROMPT+18, RETURN+1 |
| IOF | DOSE+7, DOSEX+3, DOSEZ+5, HD+5, RETURN+2, HD3+6 |
| IOSL | HD+1, PROMPT+4, HD3+3 |
| MSGX | MSG3+1~ |
| OVRRID | HD3~, HD3+2*, HD3+3, HD3+4! |
| >> PSOCKCON | ENDX+8 |
| >> PSOCOPY | DOSE+7, ENDX+15, ENDX+16, DOSEZ+7, ENDZC+3 |
| >> PSOCPXB | DOSE+6, DOSEX+5, ENDX+17, DOSEZ+8, DOSEZ+10, DOSEZ+11, ENDZ+6, PROMPT+9, PROMPT+14, PROMPT+18 |
| PSOCPXC | DOSE+2~, DOSE+4*, DOSE+5*, DOSE+6*, DOSEX+5*, DOSEZ+2~, DOSEZ+6*, DOSEZ+8*, DOSEZ+10*, DOSEZ+13 , DOSEZ+15 |
| >> PSOCPXD | ENDX+15 |
| PSOCPXF | DOSE+2~, DOSE+4*, DOSEZ+2~, DOSEZ+6*, ENDZ+6 |
| PSOCPXG | DOSE+2~, DOSE+4*, DOSEZ+2~ |
| PSOCPXH | DOSEZ+2~, DOSEZ+6* |
| PSOCPXRR | DOSE+2~, DOSE+13!, ENDX+3!, DOSEZ+2~ |
| >> PSOCPXV | ENDX+16, ENDX+17, ENDX+23 |
| PSODAILY | END+4!, ENDZ+2! |
| >> PSODCAN | PROMPT+14, PROMPT+18 |
| PSODCONT | DOSEX+2~, DOSEX+3*, ENDX+23 |
| PSODELNX | DOSE+2~, DOSEX+2~, DOSEZ+2~ |
| PSODELXF | DOSE+8~, DOSE+10*, DOSEX+7~, DOSEX+9*, DOSEZ+13~, DOSEZ+15* |
| PSODELXR | DOSE+8~, DOSE+10*, DOSEX+7~, DOSEX+9*, DOSEZ+13~, DOSEZ+15* |
| PSODLALZ | DOSE+1~, DOSE+4*, END+2, ENDX+4, ENDX+24, ENDZ+3 |
| >> PSODLBD4 | ENDX+24, DOSEZ+7, ENDZC+3 |
| PSODLECT | DOSE+2~, DOSEZ+4~ |
| PSODLERA | DOSE+1~, DOSEX+1~, DOSEZ+3~ |
| PSODLERB | DOSE+1~, DOSEX+1~, DOSEZ+3~ |
| PSODLERF | DOSE+1~, DOSE+4*, DOSEX+1~, DOSEX+3*, DOSEZ+3~, DOSEZ+6* |
| PSODLERR | DOSE+2~, DOSE+4*, END+2, ENDX+4, ENDZ+3 |
| PSODLERX | DOSE+2~, DOSEX+2~, DOSEZ+4~ |
| PSODLERZ | DOSE+1~, DOSE+4*, DOSEX+1~, DOSEX+3*, DOSEZ+3~, DOSEZ+6* |
| PSODLESM | DOSEZ+2~ |
| PSODLEXR | DOSE+2~, DOSEZ+4~ |
| PSODLFLG | DOSE+1~, DOSE+7*, END+2, END+3, DOSEX+6*, ENDX+4, ENDX+9, ENDX+14, ENDX+21, ENDX+22 , DOSEZ+11, DOSEZ+12*, ENDZ+3, PROMPT+7, PROMPT+12, PROMPT+17 |
| PSODLINR | DOSE+1~, DOSE+4*, END+6, END+9, END+10, END+17, END2+2, EVAL~, EVAL+1, DOSEX+1~ , DOSEX+3*, ENDX+22, ENDX+24, DOSEZ+3~, DOSEZ+6*, ENDZ+5, ENDZC+1, ENDZC+2, ENDZ2+2 |
| PSODLINS | DOSE+1~, DOSE+4*, END+6, END+9, END+10, END+17, END2+2, EVAL~, EVAL+1, DOSEX+1~ , DOSEX+3*, ENDX+22, ENDX+24, DOSEZ+3~, DOSEZ+6*, ENDZ+5, ENDZC+1, ENDZC+2, ENDZ2+2 |
| PSODLINX | DOSE+1~, DOSE+4*, END+6, END+9, END+10, END+17, END2+2, EVAL~, EVAL+1, DOSEX+1~ , DOSEX+3*, ENDX+22, ENDX+24, DOSEZ+3~, DOSEZ+6*, ENDZ+5, ENDZC+1, ENDZC+2, ENDZ2+2 |
| PSODLMSG | DOSE+1~, DOSEX+1~, DOSEZ+3~ |
| PSODLNN1 | DOSE+2~, DOSEX+2~, DOSEZ+4~ |
| PSODLOFF | DOSE+1~, DOSE+4*, DOSE+7*, END+2, DOSEX+2~, DOSEX+3*, DOSEX+6*, ENDX+4, DOSEZ+4~, DOSEZ+6* , DOSEZ+12*, ENDZ+3, PROMPT+4 |
| PSODLP1 | DOSE+1~, DOSEX+1~, DOSEZ+3~ |
| PSODLPL | DOSE+1~, DOSEX+1~, DOSEZ+3~ |
| PSODLQT | DOSE+2~, DOSE+4*, DOSE+10, DOSE+13*, END+5, DOSEX+2~, DOSEX+3*, DOSEX+9, ENDX+11, ENDX+19 , DOSEZ+4~, DOSEZ+6*, DOSEZ+12*, DOSEZ+13, DOSEZ+15, ENDZ+4, HD+1, MESG+1, RETURN+2*, HD3+2* , HD3+3, HD3+5*, MSG3+3* |
| PSODLXNT | DOSEX~ |
| PSODOSEX | END+4!, END+7*, END+15*, END+18!, ENDX+25*, ENDX2+1!, ENDZ+7!, ENDZ+8*, ENDZC+7!, ENDZC+8* , HD+3* |
| >> PSODOSNW | ENDX+15 |
| PSODOSX | DOSEX+2~, ENDX+1*, PROMPT+9, PROMPT+14, PROMPT+18 |
| PSODRIEN | GETGN~, GETGN+2, GETGN+3 |
| >> PSODRUG("IEN" | END+12, ENDZC+5 |
| PSODSEQ | DOSE+2~, DOSEX+2~, DOSEZ+2~ |
| PSODTYPE | DOSE+2~, DOSE+4*, DOSEX+2~, DOSEX+3*, DOSEZ+2~, DOSEZ+6* |
| >> PSOEDDOS | DOSE+5, DOSEX+4, DOSEX+5, DOSEZ+1, DOSEZ+7, ENDZC+3 |
| >> PSOEDIT | DOSE+7, ENDX+15, ENDX+16 |
| PSOEDOUT | DOSE+2~, DOSE+4*, DOSEZ+2~, DOSEZ+6*, DOSEZ+7*, DOSEZ+8, ENDZ+6, PROMPT+8, PROMPT+13 |
| PSOERROR | DOSE+3~, DOSE+4*, DOSEX+2~, DOSEX+3*, DOSEZ+4~, DOSEZ+6* |
| PSOEXCPT | DOSE+3~, DOSE+4*, DOSEX+2~, DOSEX+3*, DOSEZ+4~, DOSEZ+6* |
| >> PSOFOERR | DOSE+7, ENDX+8, ENDX+13, DOSEZ+11, PROMPT+5, PROMPT+12 |
| PSOINTRO | DOSE+3~, DOSE+4*, DOSEX+2~, DOSEX+3*, DOSEZ+4~, DOSEZ+6* |
| PSOLASTD | DOSEZ+2~, DOSEZ+6* |
| PSOLASTS | DOSE+2~, DOSE+4*, DOSEZ+2~, DOSEZ+6*, ENDZ+6 |
| PSOLINES | HD3~, HD3+2*, HD3+3, HD3+4! |
| PSOQTOUT | DOSE+2~, DOSE+4*, END+5, ENDX+8, ENDX+11, ENDX+13, ENDX+19, DOSEZ+2~, DOSEZ+6*, ENDZ+4 , RETURN+2*, MSG3+3* |
| >> PSOQUIT | END+7*, END+15*, ENDX+25*, ENDZ+8*, ENDZC+8*, HD+3* |
| >> PSOREINS | END+7, END+15, ENDX+25, ENDZ+8, ENDZC+8, HD+3 |
| >> PSORENWD | PROMPT+6, PROMPT+8, PROMPT+9, PROMPT+13, PROMPT+14, PROMPT+18 |
| >> PSORX("DFLG" | END+1, END+5, END2+1, ENDX+2, ENDX+11, ENDX+19, ENDZ+1, ENDZ+4, ENDZ2+1, HD+3* , RETURN+2*, HD3+5*, MSG3+3* |
| >> PSORX("EDIT" | DOSEZ+7, ENDZC+3 |
| >> PSORXED | DOSE+5, DOSEX+5, DOSEZ+7, ENDZC+3 |
| >> PSORXED("CONJUNCTION" | DOSEX+4, DOSEZ+1 |
| PSOSIGC | DOSE+3~, END+19*, SIG1+2*, ENDZC+9*, SIG2+2* |
| >> PSOTOF | DOSEZ+5 |
| >> PSRX("DFLG" | END+7, ENDZ+8 |
| X | DOSE+1~, DOSE+8~, DOSE+9*, DOSEX+1~, DOSEX+7~, DOSEX+8*, DOSEZ+3~, DOSEZ+13~, DOSEZ+14*, HD+2~ , HD3+1~, HD3+4~ |
| X1 | DOSE+1~, SIG1+2, SIG1+3, DOSEX+1~, DOSEZ+3~, SIG2+2, SIG2+3 |
| Y | DOSE+1~, END+4!, END+7, END+11!, END+15, END+17, DOSEX+1~, ENDX+24*, ENDX+25!, DOSEZ+3~ , ENDZ+8, ENDZ+9!, ENDZC+4!, ENDZC+8, HD+2~, HD+3, HD+4!, RETURN+2!, HD3+1~, HD3+4~! , HD3+5 |