©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
APCLYV21 ; IHS/CMI/LAB - PRINT OUTPT VISITS WITH ICD CODES (CALC) ;
Source file <APCLYV21.m>
| Package | Total | Call Graph |
|---|---|---|
| Patient Care Component Reports | 2 | XTMP^APCLOSUT $$DEMO^APCLUTL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VST1 | ||
| END | ;
|
|
| GETPROV | ;check to see if correct provider is either primary or secondary
|
|
| INIT | ;initialize variables
|
|
| VST | ||
| CALC | ;find visits by date then store by patient name
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^APCLCNTL(4 | VST1+8 |
| ^AUPNVPRV - [#9000010.06] | GETPROV+1 |
| ^AUPNVPRV("AD" | GETPROV+1 |
| ^AUPNVSIT - [#9000010] | VST1+2 |
| ^AUPNVSIT("B" | VST, VST1 |
| ^DIC(40.7 - [#40.7] | INIT+3 |
| ^DPT - [#2] | VST1+12 |
| ^XTMP("APCLYV2" | VST1+13* |
| Name | Line Occurrences |
|---|---|
| END | VST+1 |
| GETPROV | VST1+9 |
| VST | VST1 |
| VST1 | VST1+2, VST1+3, VST1+4, VST1+5, VST1+7, VST1+8, VST1+9, VST1+10, VST1+13 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | VST1+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> APCLBD | CALC+2 |
| >> APCLBT | INIT+1*, VST1+13 |
| >> APCLDEMO | VST1+4 |
| >> APCLDEN | INIT+3*, VST1+10 |
| >> APCLDFN | VST1+12*, VST1+13 |
| >> APCLED | VST+1 |
| >> APCLET | END+1* |
| >> APCLFOUN | VST1+9*, GETPROV+1* |
| >> APCLJOB | INIT+1*, VST1+13 |
| >> APCLLOC | VST1+5 |
| APCLNAME | VST1+12*, VST1+13, END+2! |
| >> APCLPROV | VST1+9, GETPROV+1 |
| APCLSTR | VST1+2*, VST1+3, VST1+4, VST1+5, VST1+7, VST1+8, VST1+10, VST1+12, END+2! |
| >> APCLVDFN | VST+1*, VST1*, VST1+2, VST1+13, GETPROV+1 |
| >> APCLVDT | CALC+2*, VST*, VST+1, VST1, VST1+13 |
| U | VST1+4, VST1+5, GETPROV+1 |
| X | VST1+7*, GETPROV+1~* |