©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
APCLYV5 ; IHS/CMI/LAB - INPATIENT VISITS WITH ICD CODES ;
Source file <APCLYV5.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | DD^%DT C^%DTC ^DIC ^DIR |
| IHS VA Utilities | 1 | ^XBDBQUE |
| PCC Medical Query | 1 | PEP^AMQQGTX0 |
| Patient Care Component Reports | 1 | DEMOCHK^APCLUTL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BD | ;get beginning date
|
|
| END | ||
| ZIS | ;
|
|
| F | ;
|
|
| ED | ;get ending date
|
|
| TDATE | ;GET TYPE OF DATE
|
|
| ICD | ;
|
|
| GETDATES | ;
|
|
| SRV | ;
|
|
| DEMO | ;
|
|
| LKUP | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^AMQQ(5 - [#9009075] | Classic Fileman Calls |
| ^AUTTLOC - [#9999999.06] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^XTMP("APCLYV5" | LKUP+3, LKUP+4 |
| Name | Line Occurrences |
|---|---|
| BD | ED+2, SRV+1 |
| END | F+1, BD+2, LKUP+1 |
| F | TDATE+2 |
| ICD | SRV+1 |
| LKUP | DEMO+2 |
| SRV | SRV+2, ICD+3, LKUP+3 |
| ZIS | ICD+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | END! |
| %T | END! |
| %Y | END! |
| AMQQATN | END+1! |
| AMQQCOMP | END+1! |
| AMQQCTXS | END+1! |
| AMQQLINK | END+1! |
| AMQQTAX | END+1! |
| AMQQTXS | END+1! |
| AMQQUNK | END+1! |
| APCLAC | END! |
| APCLBD | BD+3*, ED+1, ED+4, END! |
| APCLBICD | END! |
| APCLBT | END! |
| APCLBTH | APCLYV5+6*, LKUP+3, LKUP+4, END! |
| >> APCLDEMO | DEMO+1, DEMO+2 |
| APCLED | ED+3*, END! |
| APCLEICD | END! |
| APCLHRCN | END! |
| APCLICD | ICD+4*, ICD+5, LKUP+1, LKUP+4*, END! |
| APCLJOB | APCLYV5+6*, LKUP+3, LKUP+4, END! |
| APCLLENG | END! |
| >> APCLLOC | F+2* |
| APCLPROV | END! |
| APCLSD | ED+4*, END! |
| APCLSRT | TDATE+3*, END! |
| APCLSTR | END! |
| APCLSTR1 | END! |
| APCLSV | SRV+1*, SRV+2*, END! |
| APCLTITL | TDATE+3*, END! |
| APCLX | TDATE+3*, BD+1, ED+1, END! |
| DA | F+1!, LKUP+1! |
| DIC | F+1*!, LKUP+1*! |
| DIC("A" | F+1* |
| DIC("S" | LKUP+1* |
| DIC(0 | F+1*, LKUP+1* |
| DIR | TDATE+1!, BD+1!, ED+1!, SRV+1!, SRV+2!, ICD+2! |
| DIR("A" | TDATE+1*, BD+1*, ED+1*, SRV+1*, ICD+2* |
| DIR("B" | TDATE+1*, SRV+1* |
| DIR(0 | TDATE+1*, BD+1*, ED+1*, SRV+1*, SRV+2*, ICD+2* |
| >> DIRUT | TDATE+1*, TDATE+2, BD+1*, BD+2, ED+1*, ED+2, SRV+1, SRV+2, ICD+2*, ICD+3 |
| >> DUOUT | TDATE+1, BD+1, ED+1, ICD+2 |
| IO("Q" | END! |
| IOF | APCLYV5+4 |
| POP | END! |
| >> X | ED+4, LKUP+1* |
| >> X1 | ED+4* |
| >> X2 | ED+4* |
| >> XBNS | DEMO+3* |
| >> XBNS("^XTMP(""APCLYV5"",APCLJOB,APCLBTH," | DEMO+3* |
| >> XBRC | DEMO+3* |
| >> XBRP | DEMO+3* |
| >> XBRX | DEMO+3* |
| Y | F+1, F+2, TDATE+3, BD+3, ED+1*, ED+3, SRV+1, SRV+2, ICD+4, LKUP+1 , LKUP+2, END! |
| Y(0 | TDATE+3 |
| ZTSK | END! |