©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
LRDPAREX ;VA/DALOI/FHS -VALIDATE PENDING ORDER FILE PATIENT LOOKUP ;JUL 06, 2010 3:14 PM
Source file <LRDPAREX.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | FILE^DICN ^DIE ^DIR |
| Registration | 1 | $$CODE2PTR^DGUTL4 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET | ;Create new entry in ^LRT(67
|
|
| END | ;
|
|
| ERR | ||
| KEYIN | ;
|
|
| RDDIR | ;
|
|
| UPDATE | ; Store updated demographics
|
|
| EN | ;
|
|
| LINK | ; Create back pointer for existing LRT(67 entries
|
|
| SET1 | ||
| DUP | ;
|
|
| ERR1 | ||
| RACE | ; Resolve race pointer
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^LRT(67 - [#67] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | SET1+11* |
| ^LRT(67 - [#67] | EN+10, EN+13, EN+16, EN+19, EN+20!, SET1+1, SET1+9, LINK+2, LINK+7 |
| Name | Line Occurrences |
|---|---|
| DUP | EN+16 |
| ERR | EN+25 |
| LINK | EN+22 |
| RACE | SET1+5, LINK+5, UPDATE+5 |
| RDDIR | KEYIN+7, KEYIN+10, KEYIN+12, KEYIN+13 |
| SET | EN+25 |
| SET1 | KEYIN+14 |
| UPDATE | EN+8, EN+14 |
| Name | Field # of Occurrence |
|---|---|
| ^( | EN+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | EN+1~, SET1~, LINK+1~, LINK+2*, UPDATE+1~, UPDATE+2* |
| DD | SET1+7! |
| >> DFN | EN+7*, EN+26*, SET1+12*, LINK+2*, LINK+8*, UPDATE+2*, UPDATE+7* |
| DIC | EN+1~, SET1~, SET1+3*, LINK+1~, LINK+7*, UPDATE+1~ |
| DIC("DR" | SET1+4*, SET1+6*, RACE+7* |
| DIC(0 | SET1+2*, LINK+3* |
| DIE | EN+1~, SET1~, LINK+1~, LINK+3*, LINK+7, UPDATE+1~, UPDATE+3* |
| DIR | EN+1~, KEYIN+3!, KEYIN+9!, KEYIN+12!, KEYIN+13!, RDDIR+3! |
| DIR("?" | KEYIN+5*, KEYIN+6* |
| DIR("A" | KEYIN+5*, KEYIN+9* |
| DIR(0 | KEYIN+4*, KEYIN+9*, KEYIN+12*, KEYIN+13* |
| DIRUT | EN+1~ |
| DLAYGO | EN+1~, SET1+2*, SET1+8! |
| DO | SET1+7! |
| >> DOB | EN+2*, SET1+4, LINK+4, UPDATE+4, KEYIN+13* |
| DR | EN+1~, LINK+1~, LINK+4*, LINK+6*, UPDATE+1~, UPDATE+4*, RACE+6* |
| DTOUT | EN+1~, RDDIR+3 |
| DUOUT | EN+1~, RDDIR+3 |
| >> LRDFN | SET1+10* |
| >> LRDPF | EN+4*, EN+26* |
| >> LREND | EN+13*, EN+14, EN+22, EN+25, SET+2*, SET1+10*, LINK+7*, LINK+8, UPDATE+6*, UPDATE+7 , DUP+1*, KEYIN+7, KEYIN+10, KEYIN+12, KEYIN+13, RDDIR+1*, RDDIR+3*, RDDIR+4* |
| >> LRSB("ERROR" | SET1+10* |
| >> LRSD("DFN" | EN+4 |
| >> LRSD("DOB" | EN+2, KEYIN+13* |
| >> LRSD("DPF" | EN+4 |
| >> LRSD("ERROR" | EN+10*, EN+13*, EN+21*, SET+2*, SET1+12*, LINK+8*, UPDATE+7*, DUP+1*, DUP+2, KEYIN+1* |
| >> LRSD("LRXDPF" | KEYIN+14* |
| >> LRSD("PNM" | EN+2, KEYIN+10* |
| >> LRSD("RACE" | SET1+5, LINK+5, UPDATE+5, RACE+3, RACE+4 |
| >> LRSD("RIEN" | EN+10, EN+12, EN+13, EN+16*, EN+18, EN+19, EN+20, EN+21, EN+23, EN+25 , EN+26, SET1+11*, SET1+12*, LINK+2, LINK+7, LINK+8, UPDATE+2 |
| >> LRSD("SEX" | EN+2, KEYIN+12* |
| >> LRSD("SSN" | EN+2, KEYIN+8* |
| >> LRXDFN | EN+4*, EN+6, EN+7, EN+13, EN+23, SET+1, SET1+6, SET1+11, LINK+6 |
| >> LRXDPF | EN+4*, EN+6, EN+13, EN+23, SET+1, SET1+6, SET1+11, LINK+6, KEYIN+14* |
| >> PNM | EN+2*, SET1+3, SET1+4, LINK+4, UPDATE+4, KEYIN+10* |
| RACE | UPDATE+1~, RACE+1~, RACE+2*, RACE+3*, RACE+4*, RACE+5, RACE+6, RACE+7 |
| >> SEX | EN+2*, SET1+4, LINK+4, UPDATE+4, KEYIN+12* |
| >> SSN | EN+2*, EN+16, EN+20, SET1+4, LINK+4, UPDATE+4, DUP+1, KEYIN+8* |
| U | DUP+2 |
| >> X | EN+23*, SET1+3* |
| Y | SET1~, SET1+10, SET1+11, SET1+12, LINK+7, UPDATE+6, KEYIN+8*, KEYIN+10, KEYIN+12, KEYIN+13 , RDDIR+4 |