©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGROMAIL ;DJH/AMA - ROM HL7 MAIL MESSAGE PROCESSING ; 28 Apr 2004 4:16 PM
Source file <DGROMAIL.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | ^%DT $$OREF^DILF $$GET1^DIQ |
| Kernel | 2 | $$FMTE^XLFDT $$REPEAT^XLFSTR |
| MailMan | 1 | ^XMD |
| Registration | 1 | $$SITE^VASITE |
| Uncategorized | 1 | EXC^RGHLLOG |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MPIMAIL(DGQRY) | ;LOG MPI EXCEPTION FROM LAST SITE TREATED
|
|
| ADDLINE(DGTEXT,DGINDENT,DGMAXLEN,DGCNT,DGXMTXT) | ;add text line to message array
|
|
| SPMAIL(DFN) | ;SEND MAIL MESSAGE REGARDING A SENSITIVE PATIENT
|
|
| DODMAIL(DGDATA,DFN,LSTDFN) | ;SEND MAIL MESSAGE TO DATE OF DEATH MAIL GROUP
|
|
| BLDMSG(LINE,DGXMTXT) | ;build MailMan message array
|
|
| SNDMSG(DGXMTXT,MAILGRP,MPIFL) | ;send the MailMan message
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | DODMAIL+27, DODMAIL+47 |
| $$OREF^DILF | SNDMSG+17 |
| $$GET1^DIQ | DODMAIL+15, DODMAIL+16, DODMAIL+17, DODMAIL+18, SPMAIL+14, SPMAIL+15, SPMAIL+16, SPMAIL+17 |
| EXC^RGHLLOG | MPIMAIL+21 |
| $$SITE^VASITE | MPIMAIL+15 |
| $$FMTE^XLFDT | DODMAIL+17, DODMAIL+28, DODMAIL+48, SPMAIL+16 |
| $$REPEAT^XLFSTR | ADDLINE+23 |
| ^XMD | SNDMSG+20 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| Name | Line Occurrences |
|---|---|
| ADDLINE | BLDMSG+16, BLDMSG+17, BLDMSG+19 |
| BLDMSG | DODMAIL+56, SPMAIL+20 |
| SNDMSG | DODMAIL+57, SPMAIL+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | DODMAIL+24!, DODMAIL+26*, DODMAIL+44!, DODMAIL+46*, DODMAIL+58! |
| DFN | DODMAIL~, DODMAIL+15, DODMAIL+16, DODMAIL+17, DODMAIL+18, SPMAIL~, SPMAIL+14, SPMAIL+15, SPMAIL+16, SPMAIL+17 |
| DGAVAIL | ADDLINE+11~, ADDLINE+26*, ADDLINE+30, ADDLINE+33 |
| DGCNT | BLDMSG+10~, BLDMSG+15*, BLDMSG+17, ADDLINE~, ADDLINE+21*, ADDLINE+39*, ADDLINE+40 |
| DGDATA | DODMAIL~, DODMAIL+21, DODMAIL+25, DODMAIL+30, DODMAIL+33, DODMAIL+37, DODMAIL+39, DODMAIL+41, DODMAIL+45, DODMAIL+51 , DODMAIL+53 |
| DGINDENT | ADDLINE~, ADDLINE+17*, ADDLINE+20*, ADDLINE+23, ADDLINE+26 |
| DGLIN | BLDMSG+8~, BLDMSG+12*, BLDMSG+16, BLDMSG+17, BLDMSG+19 |
| DGLINE | ADDLINE+12~, ADDLINE+34*, ADDLINE+37*, ADDLINE+40 |
| DGLOC | ADDLINE+13~, ADDLINE+30*, ADDLINE+33, ADDLINE+34, ADDLINE+35 |
| DGMAX | BLDMSG+9~, BLDMSG+13*, BLDMSG+16, BLDMSG+17, BLDMSG+19 |
| DGMAXLEN | ADDLINE~, ADDLINE+18*, ADDLINE+19*, ADDLINE+20, ADDLINE+26 |
| DGPAD | ADDLINE+14~, ADDLINE+23*, ADDLINE+40 |
| DGQRY | MPIMAIL~ |
| DGQRY("ICN" | MPIMAIL+20 |
| DGQRY("RCVAC" | MPIMAIL+17 |
| DGQRY("RCVFAC" | MPIMAIL+14, MPIMAIL+16* |
| DGSET | DODMAIL+31~ |
| DGSRCE | DODMAIL+31~, DODMAIL+33*, DODMAIL+35 |
| DGTEXT | ADDLINE~, ADDLINE+16*, ADDLINE+27, ADDLINE+30, ADDLINE+33, ADDLINE+34, ADDLINE+35*, ADDLINE+37* |
| DGXMTXT | MPIMAIL+8~, DODMAIL+10~, DODMAIL+55*, DODMAIL+56, DODMAIL+57, SPMAIL+9~, SPMAIL+19*, SPMAIL+20, SPMAIL+21, BLDMSG~ , BLDMSG+16, BLDMSG+17, BLDMSG+19, ADDLINE~, ADDLINE+40, SNDMSG~, SNDMSG+17 |
| DIFROM | SNDMSG+8~ |
| DUZ | SNDMSG+19 |
| FACNAM | MPIMAIL+8~, MPIMAIL+13* |
| >> HL("MID" | MPIMAIL+9, MPIMAIL+13*, MPIMAIL+22* |
| >> HL("RFN" | MPIMAIL+10 |
| >> HL("SAF" | MPIMAIL+11 |
| HLMID | MPIMAIL+8~, MPIMAIL+9*, MPIMAIL+22 |
| LINE | MPIMAIL+8~, MPIMAIL+13*, DODMAIL+10~, DODMAIL+12*, DODMAIL+56, SPMAIL+9~, SPMAIL+11*, SPMAIL+20, BLDMSG~ |
| LINE( | DODMAIL+20*, DODMAIL+28*, DODMAIL+35*, DODMAIL+39*, DODMAIL+48*, DODMAIL+53*, BLDMSG+15, BLDMSG+17 |
| LINE(1 | DODMAIL+13*, SPMAIL+12* |
| LINE(2 | DODMAIL+14*, SPMAIL+13* |
| LINE(3 | DODMAIL+15*, SPMAIL+14* |
| LINE(4 | DODMAIL+16*, SPMAIL+15* |
| LINE(5 | DODMAIL+17*, SPMAIL+16* |
| LINE(6 | DODMAIL+18*, SPMAIL+17* |
| LNCNT | DODMAIL+10~, DODMAIL+12*, DODMAIL+20, DODMAIL+22*, DODMAIL+28, DODMAIL+34*, DODMAIL+35, DODMAIL+38*, DODMAIL+39, DODMAIL+42* , DODMAIL+48, DODMAIL+52*, DODMAIL+53 |
| LST | MPIMAIL+8~, MPIMAIL+10*, MPIMAIL+20 |
| LSTDFN | DODMAIL~, DODMAIL+21, DODMAIL+25, DODMAIL+30, DODMAIL+33, DODMAIL+37, DODMAIL+39, DODMAIL+41, DODMAIL+45, DODMAIL+51 , DODMAIL+53 |
| MAILGRP | SNDMSG~, SNDMSG+18 |
| MPIFL | MPIMAIL+8~, MPIMAIL+13*, DODMAIL+10~, DODMAIL+12*, DODMAIL+57, SPMAIL+9~, SPMAIL+11*, SPMAIL+21, SNDMSG~, SNDMSG+19 |
| QS | MPIMAIL+8~, MPIMAIL+11*, MPIMAIL+17*, MPIMAIL+20 |
| >> RGEXC | MPIMAIL+19*, MPIMAIL+21 |
| SITE | MPIMAIL+8~, MPIMAIL+15*, MPIMAIL+16 |
| TEXT | MPIMAIL+8~, MPIMAIL+20*, MPIMAIL+21, DODMAIL+10~, DODMAIL+55, SPMAIL+9~, SPMAIL+19 |
| U | MPIMAIL+16, DODMAIL+10~, DODMAIL+12*, SPMAIL+9~, SPMAIL+11* |
| X | DODMAIL+24!, DODMAIL+25*, DODMAIL+44!, DODMAIL+45*, DODMAIL+58! |
| XMDUZ | SNDMSG+9~, SNDMSG+15* |
| XMSUB | SNDMSG+10~, SNDMSG+16* |
| XMTEXT | SNDMSG+11~, SNDMSG+17* |
| XMY | SNDMSG+12~ |
| XMY( | SNDMSG+19* |
| XMY("G." | SNDMSG+18* |
| XMZ | SNDMSG+13~ |
| Y | DODMAIL+24!, DODMAIL+28, DODMAIL+44!, DODMAIL+48, DODMAIL+58! |