©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
DGEN408 ;ALB/RKS - SEED THE HEC ; 5/3/02 3:04pm
Source file <DGEN408.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | ^%ZTLOAD $$NOW^XLFDT |
| VA Fileman | 2 | $$GET1^DIQ ^DIR |
| MailMan | 1 | ^XMD |
| Registration | 1 | $$SITE^VASITE |
| Uncategorized | 1 | ($$GETICN,$$GETVCCI,$$IFLOCAL,$$IFVCCI,GETICN)^MPIF001 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NOTIFY(DGDATA) | ; Send notification message to local mailgroup.
|
|
| SEND(DGDATA,DGMSG,DGDEST) | ; Build and send individual mailman messages
|
|
| EN | ; Main entry point for collection of MPI fields & transmission to HEC
|
|
| BUILD(DGEXTRCT,DGDATA,MAX,DGDEST) | ; Build mailman messages of MPI data
|
|
| QUE | ;Background task entry point for Production option
|
|
| COLLECT(DGEXTRCT,DGDATA) | ; Collect valid MPI data
|
|
| TEST | ; Test entry point for development testing. This entry point is
; not supported for user use. |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | COLLECT+7 |
| Name | Line Occurrences |
|---|---|
| BUILD | QUE+10, TEST+16 |
| COLLECT | QUE+9, TEST+15 |
| NOTIFY | QUE+11, TEST+17 |
| SEND | BUILD+21, BUILD+31 |
| TEST | EN+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| COUNT | BUILD+1~, BUILD+13*, BUILD+14*, BUILD+16 |
| DFN | COLLECT+1~, COLLECT+3*, COLLECT+7*, COLLECT+8, COLLECT+9, COLLECT+10 |
| DGDATA | QUE+1~, QUE+9, QUE+10, QUE+11, TEST+2~, TEST+15, TEST+16, TEST+17, COLLECT~, BUILD~ , BUILD+21, BUILD+31, SEND~, NOTIFY~ |
| DGDATA("MSG" | BUILD+20*, BUILD+30*, SEND+16, NOTIFY+12, NOTIFY+13 |
| DGDATA("MSGNUM" | BUILD+19*, BUILD+20, BUILD+29*, BUILD+30, SEND+14, SEND+15, SEND+16, NOTIFY+7 |
| DGDATA("NUMREC" | COLLECT+13*, BUILD+10, BUILD+11, SEND+17, NOTIFY+7 |
| DGDATA("SITE" | QUE+6*, TEST+12*, SEND+13, SEND+15 |
| DGDATA("TEST" | TEST+9* |
| DGDATA("TOSEND" | BUILD+10*, BUILD+11*, SEND+14, SEND+15 |
| DGDEST | EN+2~, EN+13*, EN+14, QUE+10, TEST+8*, TEST+14, TEST+16, BUILD~, BUILD+21, BUILD+31 , SEND~, SEND+4, SEND+8 |
| DGEXTRCT | QUE+1~, QUE+3*, QUE+4, QUE+9, QUE+10, QUE+13, TEST+2~, TEST+10*, TEST+11, TEST+15 , TEST+16, TEST+19, COLLECT~, COLLECT+9, COLLECT+10, BUILD~, BUILD+14, BUILD+16 |
| DGMSG | BUILD+1~, BUILD+6*, BUILD+7, BUILD+16, BUILD+21, BUILD+22, BUILD+31, SEND~, SEND+15, SEND+16 , SEND+17, SEND+19 |
| DGTXT | NOTIFY+1~ |
| DGTXT( | NOTIFY+7*, NOTIFY+8*, NOTIFY+9*, NOTIFY+13* |
| DGX | BUILD+1~ |
| DIR | EN+2~, EN+11!, TEST+3!, TEST+7! |
| DIR("?" | EN+9*, EN+10*, TEST+6* |
| DIR("A" | EN+8*, TEST+5* |
| DIR("B" | EN+8* |
| DIR(0 | EN+8*, TEST+4* |
| DIRUT | EN+2~, EN+12, TEST+7 |
| >> IVMQUERY("LTD" | QUE+7! |
| >> IVMQUERY("OVIS" | QUE+7! |
| LINE | TEST+2~, COLLECT+1~, COLLECT+3*, COLLECT+9, COLLECT+10, COLLECT+11*, COLLECT+13, BUILD+1~, BUILD+13*, BUILD+15* , BUILD+16, BUILD+18, BUILD+20, BUILD+23*, BUILD+26, BUILD+30 |
| MAX | BUILD~, BUILD+3*, BUILD+4*, BUILD+10, BUILD+11, BUILD+18 |
| MSG | SEND+1~, SEND+19* |
| TMP | SEND+7~, SEND+8*, SEND+9 |
| U | QUE+6, TEST+12, COLLECT+9, SEND+15, SEND+16 |
| >> X | NOTIFY+11*, NOTIFY+12*, NOTIFY+13 |
| XMDUZ | SEND+1~, SEND+3*, NOTIFY+1~, NOTIFY+3* |
| XMERR | SEND+1~, NOTIFY+1~ |
| XMSUB | SEND+1~, SEND+13*, SEND+14*, NOTIFY+1~, NOTIFY+5* |
| XMTEXT | SEND+1~, SEND+18*, NOTIFY+1~, NOTIFY+14* |
| XMY | SEND+1~, NOTIFY+1~ |
| XMY( | SEND+9*, SEND+11* |
| XMY("G.IVMB H | EC MPI NOTIFICATION" , SEND+12*, NOTIFY+4* |
| XMY("S.IVMB M | PI SERVER@IVM.MED.VA.GOV" , SEND+5* |
| XMZ | SEND+1~, NOTIFY+1~ |
| >> Y | EN+13, TEST+8 |
| ZTDESC | EN+2~, EN+18* |
| ZTDTH | EN+2~, EN+20* |
| ZTIO | EN+2~, EN+19* |
| ZTRTN | EN+2~, EN+17* |
| ZTSAVE | EN+2~ |
| ZTSAVE("DGDEST" | EN+16* |
| ZTSK | EN+2~, EN+23 |
| Name | Field # of Occurrence |
|---|---|
| $T(GETICN^MPIF001 | EN+5 |