PSODEAUJ ;ALB/MFR - DEA NIGHTLY UPDATE JOB ; 11 Jul 2025 7:08 PM
Source file <PSODEAUJ.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 |
| Package | Total | Caller Graph |
|---|---|---|
| Outpatient Pharmacy | 2 | PSO DEA/DOJ NIGHTLY DATA UPD PSOHELP1 |
| Kernel | 1 | ^DIC(19 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AUTO | ; DEA Nightly Update Scheduled Background Job Edit
|
|
| DEAUPD | ; Update DEA #'s that are about to expire in the DEA NUMBERS file (#8991.9)
|
|
| ADD2MSG(DEANUM,OLDDEA,NEWDEA) | ; Builds the Mailman Message to be sent to PSDRPH key holders
|
|
| ADDTXT(TXT) | ; Setting Plain Text
|
|
| DATALINE(LABEL,BEFORE,AFTER) | ;
|
|
| TRUNC(TXT,LEN) | ; Truncates Text
|
|
| SENDMSG | ; Sends Mailman message
|
|
| MAILMSG(MSGSUBJ,MSGFROM,MSGTEXT) | ; Build and send a MailMan message
|
| Name | Field # of Occurrence |
|---|---|
| ^DIC | AUTO+1 |
| $$GET1^DIQ | DEAUPD+7, DEAUPD+9, DEAUPD+16, ADD2MSG+23 |
| GETS^DIQ | DEAUPD+10 |
| DEADOJ^PSODEAUT | DEAUPD+12 |
| FILEFM^PSODEAUT | DEAUPD+24 |
| $$FMADD^XLFDT | AUTO+3, DEAUPD+8 |
| $$FMTE^XLFDT | ADD2MSG+12 |
| $$HL7TFM^XLFDT | DEAUPD+13 |
| SENDMSG^XMXAPI | MAILMSG+6 |
| $$PROD^XUPROD | DEAUPD+3 |
| EDIT^XUTMOPT | AUTO+2, AUTO+4 |
| RESCH^XUTMOPT | AUTO+3 |
| FileNo | Call Tags |
|---|---|
| ^DIC(19.2 - [#19.2] | Classic Fileman Calls |
| ^PS(59.7 - [#59.7] | GET1^DIQ |
| ^XTV(8991.9 - [#8991.9] | GET1^DIQ, GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^XTV(8991.9 - [#8991.9] | DEAUPD+6 |
| ^XUSEC("PSDRPH" | MAILMSG+4 |
| Name | Line Occurrences |
|---|---|
| $$DATALINE | ADD2MSG+12, ADD2MSG+13, ADD2MSG+14, ADD2MSG+15, ADD2MSG+16, ADD2MSG+17, ADD2MSG+18, ADD2MSG+19, ADD2MSG+20, ADD2MSG+21 , ADD2MSG+22, ADD2MSG+24, ADD2MSG+25, ADD2MSG+26, ADD2MSG+27, ADD2MSG+28, ADD2MSG+29 |
| $$TRUNC | DATALINE+2 |
| ADD2MSG | DEAUPD+25 |
| ADDTXT | DEAUPD+28, ADD2MSG+8, ADD2MSG+9, ADD2MSG+10, ADD2MSG+12, ADD2MSG+13, ADD2MSG+14, ADD2MSG+15, ADD2MSG+16, ADD2MSG+17 , ADD2MSG+18, ADD2MSG+19, ADD2MSG+20, ADD2MSG+21, ADD2MSG+22, ADD2MSG+24, ADD2MSG+25, ADD2MSG+26, ADD2MSG+27, ADD2MSG+28 , ADD2MSG+29 |
| MAILMSG | SENDMSG+4 |
| SENDMSG | DEAUPD+29 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AFTER | DATALINE~, DATALINE+2 |
| BEFORE | DATALINE~, DATALINE+2 |
| COUNT | DEAUPD+1~, DEAUPD+5*, DEAUPD+6, DEAUPD+26*, DEAUPD+27, DEAUPD+28 |
| >> DA | AUTO+2* |
| DATA | DEAUPD+1~ |
| DATA( | DEAUPD+11 |
| DATALINE | DATALINE+1~, DATALINE+2*, DATALINE+3 |
| >> DEAEXP | DEAUPD+7*, DEAUPD+8, DEAUPD+14 |
| DEAIEN | DEAUPD+1~, DEAUPD+5*, DEAUPD+6*, DEAUPD+7, DEAUPD+9, DEAUPD+10, DEAUPD+11 |
| DEANUM | DEAUPD+1~, DEAUPD+9*, DEAUPD+12, DEAUPD+25, ADD2MSG~, ADD2MSG+9 |
| DIC | AUTO+1~* |
| DIC(0 | AUTO+1* |
| DT | AUTO+3, DEAUPD+8 |
| DUZ | MAILMSG+5, MAILMSG+6 |
| LABEL | DATALINE~, DATALINE+2 |
| LEN | TRUNC~, TRUNC+4, TRUNC+5 |
| MSGFROM | MAILMSG~, MAILMSG+2 |
| MSGLINE | DEAUPD+1~, DEAUPD+5*, ADDTXT+1* |
| MSGSUBJ | MAILMSG~, MAILMSG+6 |
| MSGTEXT | MAILMSG~, MAILMSG+6 |
| MSGTXT | DEAUPD+1~, ADD2MSG+4 |
| MSGTXT( | ADDTXT+1* |
| MSGTXT(1 | ADD2MSG+5* |
| MSGTXT(2 | ADD2MSG+6* |
| MSGTXT(99999 | ADDTXT+1 |
| NEWDEA | DEAUPD+12, ADD2MSG~, ADD2MSG+12, ADD2MSG+13, ADD2MSG+14, ADD2MSG+15, ADD2MSG+16, ADD2MSG+17, ADD2MSG+18, ADD2MSG+19 , ADD2MSG+20, ADD2MSG+21, ADD2MSG+22, ADD2MSG+24, ADD2MSG+25, ADD2MSG+26, ADD2MSG+27, ADD2MSG+28, ADD2MSG+29 |
| NEWDEA(0 | DEAUPD+12 |
| NEWDEA(1 | DEAUPD+13*, DEAUPD+14, DEAUPD+17*, DEAUPD+18*, DEAUPD+19*, DEAUPD+20*, DEAUPD+21*, DEAUPD+22*, DEAUPD+23*, DEAUPD+24 , DEAUPD+25 |
| OLDDEA | DEAUPD+1~, DEAUPD+11*, DEAUPD+25, ADD2MSG~ |
| OLDDEA( | DEAUPD+17, DEAUPD+18, DEAUPD+19, DEAUPD+20, DEAUPD+21, DEAUPD+22, DEAUPD+23, ADD2MSG+12, ADD2MSG+13, ADD2MSG+14 , ADD2MSG+15, ADD2MSG+16, ADD2MSG+17, ADD2MSG+18, ADD2MSG+19, ADD2MSG+20, ADD2MSG+21, ADD2MSG+22, ADD2MSG+24, ADD2MSG+25 , ADD2MSG+26, ADD2MSG+27, ADD2MSG+28, ADD2MSG+29 |
| >> PSOFROM | SENDMSG+2*, SENDMSG+4 |
| PSOMIN | MAILMSG+1~, MAILMSG+6 |
| PSOMIN("FROM" | MAILMSG+2* |
| PSOMY | MAILMSG+1~, MAILMSG+6 |
| PSOMY( | MAILMSG+4*, MAILMSG+5* |
| PSOMZ | MAILMSG+1~, MAILMSG+6 |
| PSOREC | MAILMSG+1~, MAILMSG+3*, MAILMSG+4* |
| >> PSOSUB | SENDMSG+1*, SENDMSG+4 |
| >> PSOTEXT | SENDMSG+3*, SENDMSG+4 |
| >> RET | DEAUPD+24 |
| TXT | ADD2MSG+11*, ADDTXT~, ADDTXT+1, TRUNC~, TRUNC+4, TRUNC+5 |
| >> X | AUTO+1* |
| Y | AUTO+1~, AUTO+2 |
