©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
DG53213P ;BP-CIOFO/KEITH - NPCDB patient demographics extraction utility ; 07 Dec 98 12:05 PM
Source file <DG53213P.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | (,$$S,STAT)^%ZTLOAD $$NOW^XLFDT BMES^XPDUTL |
| Registration | 2 | XMITFLAG^VAFCDD01 $$PIVNW^VAFHPIVT |
| MailMan | 1 | ^XMD |
| Scheduling | 1 | $$OUTPTPR^SDUTL3 |
| VA Fileman | 1 | (C,NOW,YX)^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET(DGR) | ;Set patient list node
|
|
| BMSG | ||
| RUN | ;Exit if XTMP global exists
|
|
| DONE() | ;Determine if extraction is finished
|
|
| REQUE(ZTRTN) | ;Requeue for tomorrow's run
|
|
| S1 | ;Send a record
|
|
| STOP | ;Check for stop task request
|
|
| SEND | ;Send group of patient records to NPCDB
|
|
| ZQ() | ;Determine if process is already queued
|
|
| M1 | ;Message text
|
|
| BUILD | ;Build XTMP global with list of records to send
|
|
| CLEAN | ||
| LQ | ||
| MSG | ;Send mail message
|
|
| NOQ | ;Suppress option question
|
|
| TXT(DGT) | ;Build message line
|
|
| BQ | ;Queue extraction global build process
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | BQ+6, M1+1 |
| ^DGPM("APTT3" | BUILD+7 |
| ^DPT - [#2] | BUILD+4, BUILD+6, M1+18 |
| ^XTMP("DG53213P" | RUN+1, RUN+3, BQ+7!, BQ+9*, BQ+10*, LQ, ZQ+1, BUILD+1*, BUILD+11!, BUILD+13* , SEND+1, SEND+3, SEND+4, SEND+5*, SEND+6!, REQUE+7*, M1+5, M1+6, M1+15, M1+17 , DONE+1, S1+4*, S1+5, S1+6*, S1+7!, S1+9*, S1+10!, SET+2*, SET+3* |
| Name | Line Occurrences |
|---|---|
| $$DONE | SEND+6, M1+1, M1+3, M1+10, M1+15 |
| $$ZQ | RUN+3 |
| LQ | RUN+3, BQ+5 |
| M1 | BMSG+2 |
| MSG | BUILD+11, SEND+6, SEND+7 |
| REQUE | BUILD+11, SEND+7 |
| S1 | SEND+3 |
| SEND | SEND+4 |
| SET | BUILD+6, BUILD+7, BUILD+8 |
| STOP | BUILD+5, S1+1 |
| TXT | M1+2, M1+3, M1+4, M1+5, M1+6, M1+7, M1+8, M1+9, M1+11, M1+12 , M1+13, M1+16, M1+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | BQ+1~, REQUE+2~, REQUE+3 |
| %H | BQ+1~, REQUE+2~, REQUE+3* |
| %I | BQ+1~, REQUE+2~ |
| DA | MSG+1~ |
| DFN | BUILD+4*, BUILD+5, BUILD+6, BUILD+7, BUILD+8, SEND+2*, SEND+3*, CLEAN!, M1+17*, M1+18 , S1+2, S1+4, S1+5, S1+6, S1+7, S1+9, S1+10, SET+2 |
| DG | MSG+1~ |
| DG( | TXT+2* |
| DGCT | SEND+2*, SEND+3, SEND+4, SEND+5, CLEAN!, S1+1, S1+9* |
| DGERR | SEND+2*, REQUE+8*, BMSG*, CLEAN!, M1+4, M1+10 |
| DGFS | BUILD+1*, BUILD+11*, SEND+1*, CLEAN!, M1+3, M1+5, M1+6, M1+7, M1+8, M1+10 , M1+11, M1+12 |
| DGGP | SEND+1*, SEND+3, SEND+4, CLEAN! |
| DGI | BQ+1~, BQ+4*, BUILD+1*, REQUE+6*, CLEAN!, M1+1*, TXT+2* |
| DGOUT | BUILD+1*, BUILD+4, BUILD+5, BUILD+11, SEND+1*, SEND+3, SEND+4, CLEAN!, S1+1, STOP+1* |
| DGPDT | BQ+7~, BQ+8*, BQ+9 |
| DGPV | CLEAN!, S1+2*, S1+3, S1+8, S1+9 |
| DGQDT | BQ+3*, BQ+6, BQ+10, REQUE+5*, REQUE+7, CLEAN!, M1+1 |
| DGR | SET~, SET+2 |
| DGT | TXT~, TXT+2 |
| DIE | MSG+1~ |
| DR | MSG+1~ |
| DT | BQ+8, BQ+9 |
| DUZ | BQ+9, BMSG+2 |
| U | BQ+9, BQ+10, ZQ+1, BUILD+6, REQUE+7, M1+18 |
| X | RUN+1~*, BQ+8, REQUE+2~, REQUE+3, REQUE+5 |
| X1 | BQ+7~, BQ+8*, REQUE+2~, REQUE+5* |
| X2 | BQ+7~, BQ+8*, REQUE+2~, REQUE+5* |
| XMDUN | MSG+1~, BMSG+1* |
| XMDUZ | MSG+1~, BMSG+1* |
| XMSUB | MSG+1~, BMSG* |
| XMTEXT | MSG+1~, BMSG+2* |
| XMY | MSG+1~ |
| XMY( | BMSG+2* |
| XMZ | MSG+1~ |
| >> XPDDIQ("XPZ1" | NOQ+1* |
| >> XPDENV | NOQ+1 |
| >> XPDQUES("POS1" | BQ+3 |
| Y | BQ+1~, BQ+6*, BQ+11, REQUE+2~, M1+1*, M1+11, M1+12 |
| ZTDESC | BQ+1~, BQ+2*, REQUE+2~, REQUE+4* |
| ZTDTH | BQ+1~, BQ+3*, REQUE+3*, REQUE+5* |
| ZTIO | BQ+1~, BQ+3*, REQUE+2~, REQUE+5* |
| >> ZTQUEUED | STOP+1 |
| ZTRTN | BQ+1~, BQ+2*, REQUE~ |
| ZTSK | BQ+1~, BQ+4, BQ+5, BQ+10, BQ+12, ZQ+1~*, REQUE+6, REQUE+7, REQUE+8, M1+13 |
| ZTSK(0 | ZQ+2 |
| ZTSK(1 | ZQ+2 |
| >> ZTSTOP | STOP+1* |