PSOPOST8 ;BIR/EJW-Post install routine - patch PSO*7*129 ;11/14/02
Source file <PSOPOST8.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAIL2 | ;
|
|
| END | ;
|
|
| GETPT | ; GET PATIENT INFORMATION
|
|
| RES | ;
|
|
| GETLIST | ; PROCESS ENTRIES FROM ^XTMP("PSOPOST7" GLOBAL
|
|
| GETPA | ;
|
|
| GETIVUD | ;
|
|
| ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DILOCKTM" | PSOPOST8+7 |
| ^DPT - [#2] | GETLIST+5, GETPT+2, GETIVUD+2 |
| ^PSRX - [#52] | GETLIST+8, GETPA+2 |
| ^TMP($J | GETLIST+1!, GETLIST+8*, MAIL+10, MAIL+11, MAIL+13, MAIL+16, MAIL+17, GETPA+2*, GETIVUD+3*, END+1! |
| ^XTMP("PSOPOST7" | PSOPOST8+7, PSOPOST8+12, RES+2, GETLIST+2, GETLIST+3, GETLIST+6, GETLIST+8, GETPA+1, GETPA+2, GETIVUD+1 |
| ^XTMP("PSOTIMEX" | RES+3*, MAIL+2 |
| ^XUSEC("PSNMGR" | MAIL+5, MAIL2+2 |
| Name | Line Occurrences |
|---|---|
| END | MAIL+20, MAIL2+12 |
| GETIVUD | GETLIST+4 |
| GETPA | GETLIST+7 |
| GETPT | MAIL+12 |
| MAIL2 | PSOPOST8+11, RES+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | RES+3, MAIL+1 |
| CNT | MAIL+9*, MAIL+12*, MAIL+14*, MAIL+15*, MAIL+16*, MAIL+17*, MAIL+18*, END+2! |
| DFN | MAIL+11*, MAIL+13, MAIL+16, MAIL+17, GETPT+2, END+2! |
| DIFROM | MAIL+19~, MAIL2+11~ |
| DT | RES+1* |
| DUZ | MAIL+4, MAIL2+1 |
| MSG | PSOPOST8+11*, RES+2*, MAIL2+1, MAIL2+5, MAIL2+8, END+2! |
| NAM | GETLIST+5*, GETLIST+8, MAIL+10*, MAIL+11, MAIL+13, MAIL+16, MAIL+17, GETPA+2, GETIVUD+2*, GETIVUD+3 , END+2! |
| PSOCXPDA | MAIL+5*, MAIL2+2*, END+2! |
| PSODT | GETPA+1*, GETPA+2, END+2! |
| PSOJOB | GETLIST+2*, GETLIST+3, GETLIST+6, GETLIST+8, GETPA+1, GETPA+2, GETIVUD+1, END+2! |
| >> PSORX | GETLIST+8*, MAIL+16*, MAIL+17*, GETPA+2* |
| >> PSORXP | GETLIST+8*, GETPA+2* |
| PSOSQ | GETLIST+3*, GETLIST+4, GETLIST+5, GETLIST+6, GETLIST+8, MAIL+13*, MAIL+14, MAIL+15, MAIL+16, MAIL+17 , GETPA+1, GETPA+2, GETIVUD+1, GETIVUD+3, END+2! |
| PSOSQ1 | GETLIST+6*, GETLIST+7, GETLIST+8, GETPA+1, GETPA+2, GETIVUD+1*, GETIVUD+2, GETIVUD+3, END+2! |
| PSOTEXT | MAIL+6!, MAIL2+3!, END+2! |
| PSOTEXT( | MAIL+12*, MAIL+14*, MAIL+15*, MAIL+16*, MAIL+17*, MAIL+18* |
| PSOTEXT(1 | MAIL+6*, MAIL2+4* |
| PSOTEXT(2 | MAIL+6*, MAIL2+4* |
| PSOTEXT(3 | MAIL+6*, MAIL2+6*, MAIL2+9* |
| PSOTEXT(4 | MAIL+7*, MAIL2+7* |
| PSOTEXT(5 | MAIL+8*, MAIL2+10* |
| PSOTIMEA | MAIL+2*, MAIL+6, END+2! |
| PSOTIMEB | MAIL+1*, MAIL+3*, MAIL+6, END+2! |
| PSOTXT | MAIL+12, GETPT+2*, END+2! |
| >> VA("BID" | GETPT+2 |
| XMDUZ | MAIL+4*, MAIL2+1*, END+2! |
| XMSUB | MAIL+4*, MAIL2+1*, END+2! |
| XMTEXT | MAIL+19*, MAIL2+11*, END+2! |
| >> XMY( | MAIL+4*, MAIL+5*, MAIL2+1*, MAIL2+2* |
| >> Y | MAIL+2*, MAIL+3* |
| ZTDESC | PSOPOST8+19*! |
| ZTDTH | PSOPOST8+5*, PSOPOST8+6*, PSOPOST8+8, PSOPOST8+13, PSOPOST8+19! |
| ZTIO | PSOPOST8+19*! |
| >> ZTQUEUED | PSOPOST8+6, PSOPOST8+20, END+3 |
| >> ZTREQ | END+3* |
| ZTRTN | PSOPOST8+19*! |
| >> ZTSK | PSOPOST8+20 |