©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
DPTDZFIX ; IHS/ANMC/LJF - RESET MERGE TO RUN AGAIN; [ 10/03/2001 8:13 AM ]
Source file <DPTDZFIX.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | IX1^DIK EN^DIQ ^DIR |
| Kernel | 2 | $$FMTE^XLFDT $$STRIP^XLFSTR |
| IHS VA Utilities | 1 | ^XBKVAR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LRFIND | ;EP; -- finds all LRDFN entries in Lab without matching entries in DPT
|
|
| PAUSE | ;EP -- ask user to press return - no form feed
; called by option DPTD IHS MERGE VIEW |
|
| SCHED | ;EP; -- find all merged patients with Scheduling data
; and set "S" nodes in DPT for those found |
|
| READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN,DIRA) | ; calls reader, returns response
|
|
| RESET(IEN) | ; -- make changes to entry in files 15 and 2
|
|
| MSG(DATA,PRE,POST,BEEP) | ; -- writes line to device
|
|
| ASK | ;EP; resets entry that merged but produced errors to ready state
|
|
| LOOP | ;EP; -- called to reset all past merges to ready status
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^VA(15 - [#15] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | RESET+14*, RESET+20, RESET+21, RESET+22*, RESET+23*, LRFIND+9, LRFIND+10, SCHED+7, SCHED+9 |
| ^DPT("B" | RESET+21!, RESET+22* |
| ^LR - [#63] | RESET+14, LRFIND+5, LRFIND+6, LRFIND+7, LRFIND+8 |
| ^SC - [#44] | SCHED+3, SCHED+4, SCHED+5, SCHED+6, SCHED+9* |
| ^VA(15 - [#15] | ASK+12, RESET+1, RESET+4, RESET+8*, RESET+9, RESET+10*, LOOP+3, LOOP+4, LOOP+5 |
| ^XTMP("DPTDZFIX" | ASK+1, ASK+4, RESET+13, LRFIND+2!, LRFIND+3*, LRFIND+10* |
| Name | Line Occurrences |
|---|---|
| $$READ | ASK+7, ASK+10 |
| LRFIND | ASK+3 |
| MSG | ASK+2, ASK+4, ASK+13, ASK+19, ASK+20 |
| PAUSE | ASK+13, ASK+21 |
| RESET | ASK+15, LOOP+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BEEP | MSG~, MSG+5 |
| CLINIC | SCHED+2~, SCHED+3*, SCHED+4, SCHED+5, SCHED+6, SCHED+9 |
| DA | ASK+6~, ASK+8*, ASK+17*, RESET+17* |
| DATA | MSG~, MSG+3 |
| >> DATE | SCHED+4*, SCHED+5, SCHED+6, SCHED+9 |
| DEFAULT | READ~, READ+5 |
| DFN | LRFIND+4~, LRFIND+8*, LRFIND+9, LRFIND+10 |
| DIC | ASK+6~, ASK+8*, ASK+17* |
| >> DIK | RESET+17* |
| DIQ | ASK+6~ |
| DIQ(0 | ASK+8*, ASK+17* |
| DIR | PAUSE+2~, READ+1~ |
| DIR("?" | READ+6* |
| DIR("A" | PAUSE+3*, READ+4*, READ+7* |
| DIR("B" | READ+5* |
| DIR("S" | READ+3* |
| DIR(0 | PAUSE+3*, READ+2* |
| DIRA | READ~ |
| DIRA( | READ+7 |
| DIRA(1 | READ+7 |
| DPTDN | ASK+6~, ASK+7~*, ASK+8, ASK+12, ASK+15, ASK+17 |
| DPTDZN | LOOP+1~, LOOP+2*, LOOP+3*, LOOP+4, LOOP+5, LOOP+6, LOOP+7 |
| DR | ASK+6~ |
| DT | LRFIND+3 |
| >> FROM | RESET+4*, RESET+5, RESET+13, RESET+14, RESET+20, RESET+21, RESET+22, RESET+23 |
| HELP | READ~, READ+6 |
| I | MSG+1~, MSG+2*, MSG+4*, MSG+5* |
| IEN | RESET~, RESET+1, RESET+4, RESET+8, RESET+9, RESET+10, RESET+17 |
| IOST | PAUSE+2 |
| LR | LRFIND+4~, LRFIND+5*, LRFIND+6, LRFIND+7, LRFIND+8, LRFIND+10 |
| >> N | SCHED+5*, SCHED+6, SCHED+9 |
| >> PAT | SCHED+6*, SCHED+7, SCHED+9 |
| POST | MSG~, MSG+4 |
| PRE | MSG~, MSG+2 |
| PROMPT | READ~, READ+4 |
| SCREEN | READ~, READ+3 |
| TYPE | READ~, READ+2 |
| U | ASK+12, RESET+1, RESET+4, RESET+8, RESET+9, RESET+10, RESET+14, RESET+20, RESET+21, RESET+22 , RESET+23, LOOP+4, LOOP+5, LRFIND+7, LRFIND+8, SCHED+2*, SCHED+7, SCHED+9 |
| >> X | RESET+4*, RESET+9*, RESET+10, RESET+13*, RESET+14, RESET+20*, RESET+22 |
| Y | READ+1~, READ+7*, READ+9 |