©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
PSUDEM7 ;BIR/DAM - Inpatient PTF Record Extract ;20 DEC 2001
Source file <PSUDEM7.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Benefits Management | 4 | INST^PSUDEM1 PTF^PSUDEM5 EN^PSUDEM8 $$VAL^PSUTL |
| Uncategorized | 1 | $$GETICN^MPIF001 |
| VA Fileman | 1 | C^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SSNICN | ;Find patient Admission date, SSN and ICN for inpatient record
|
|
| EN | ;EN
|
|
| XMD | ;Format mailman message and send.
|
|
| DAT | ;Find discharge dates that fall within the extract date range
|
|
| CONF | ;Construct globals for confirmation message
|
|
| REC | ;If "^" is contained in any record, replace it with (')
|
|
| NODATA | ;Generate a 'No Data' message if there is no data in the extract
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPT - [#45] | DAT+17, SSNICN+4 |
| ^DGPT("ADS" | DAT+5, DAT+14 |
| ^DPT - [#2] | SSNICN+8 |
| ^XTMP( | CONF+8*, CONF+9* |
| ^XTMP("PSU_" | EN+3, EN+5!, EN+6!, DAT+12*, DAT+15*, DAT+18*, DAT+20*, DAT+21*, SSNICN+9*, SSNICN+12* , NODATA+5*, XMD+3, XMD+4*, XMD+11, XMD+14*, XMD+16*, XMD+18*, XMD+22 |
| Name | Line Occurrences |
|---|---|
| CONF | XMD+25 |
| DAT | EN+1 |
| NODATA | EN+3 |
| REC | SSNICN+8 |
| SSNICN | DAT+22 |
| XMD | EN+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> I | XMD+15*, XMD+16, XMD+18 |
| >> NONE | NODATA+2*, CONF+3 |
| >> PSUAB | XMD+2*, XMD+3*, XMD+4 |
| >> PSUDD | DAT+4*, DAT+5*, DAT+6, DAT+14 |
| >> PSUDDT | DAT+6*, DAT+11, DAT+12, DAT+15 |
| PSUDIVIS | CONF+4~, CONF+6*, CONF+8, CONF+9 |
| PSUDT | DAT+16~, DAT+17*, DAT+18 |
| >> PSUEDT | DAT+11 |
| PSUICN | SSNICN+3~, SSNICN+10*, SSNICN+11, SSNICN+12 |
| PSUICN1 | SSNICN+3~ |
| >> PSUIEN | DAT+13*, DAT+14*, DAT+15, DAT+17, DAT+18, DAT+20, DAT+21, SSNICN+4, SSNICN+9, SSNICN+12 |
| >> PSUJOB | EN+3, EN+5, EN+6, DAT+12, DAT+15, DAT+18, DAT+20, DAT+21, SSNICN+9, SSNICN+12 , NODATA+5, XMD+3, XMD+4, XMD+11, XMD+14, XMD+16, XMD+18, XMD+22, CONF+7 |
| PSULC | XMD+7~, XMD+11*, XMD+13* |
| >> PSUM | NODATA+4*, NODATA+5, XMD+22*, XMD+24* |
| PSUMAX | XMD+7~, XMD+8*, XMD+9*, XMD+13 |
| PSUMC | XMD+7~, XMD+10*, XMD+13*, XMD+14, XMD+16, XMD+18, XMD+22, XMD+24, CONF+8 |
| >> PSUMLC | XMD+10*, XMD+12*, XMD+13*, XMD+14, XMD+16, XMD+17*, XMD+18 |
| >> PSUPL | XMD+2*, XMD+4, XMD+5* |
| PSUPT | SSNICN+3~, SSNICN+4*, SSNICN+7, SSNICN+8, SSNICN+10 |
| PSUREC | SSNICN+6~, SSNICN+8*, SSNICN+9, REC+2* |
| >> PSUSDT | DAT+7 |
| >> PSUSDT1 | DAT+10*, DAT+11 |
| >> PSUSIT | DAT+20, DAT+21 |
| >> PSUSNDR | CONF+6 |
| >> PSUSUB | CONF+7*, CONF+8, CONF+9 |
| PSUTLC | XMD+7~, XMD+21*, XMD+22*, CONF+3*, CONF+9 |
| PSUTMC | XMD+7~ |
| >> PSUXMYH | NODATA+3* |
| >> PSUXMYS1 | NODATA+3 |
| U | DAT+15, DAT+17, DAT+18, DAT+20, DAT+21, SSNICN+4, SSNICN+8, SSNICN+9, SSNICN+12 |
| >> X | DAT+10, XMD+11*, XMD+14, XMD+15, XMD+16, XMD+18, XMD+22* |
| >> X1 | DAT+7* |
| >> X2 | DAT+8* |
| >> Z | XMD+15* |