©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
IBCOPV2 ;ALB/LDB - ROUTINE TO LIST PATIENT VISITS ;30 APR 90
Source file <IBCOPV2.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 1 | CAT^IBCU61 |
| Registration | 1 | $$LST^DGMTU |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHKREV | ||
| ELIG | ||
| CHG | ||
| PROD1 | ||
| PROD2 | ||
| PROD3 | ||
| 1 | ||
| MT | ;S (DGMT,DGMT1)=0 I $D(^DG(41.3,DFN)) F DGMT1=9999999-(I+1):0 S DGMT1=$O(^DG(41.3,DFN,2,DGMT1)) Q:'DGMT1 I $P($P(^(DGMT1,0),"^",7),".")'>I S DGMT=$P(^(0),"^",2) Q
|
|
| PROD |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | CHG+1, PROD, PROD1, PROD3 |
| ^DGCR(399.1 - [#399.1] | CHG |
| ^DGCR(399.5 - [#399.5] | CHG+2, 1, CHKREV |
| ^DIC(40.7 - [#40.7] | ELIG, ELIG+1 |
| ^DIC(8 - [#8] | ELIG+2 |
| ^DPT - [#2] | ELIG+2 |
| ^SC - [#44] | ELIG, ELIG+1 |
| ^UTILITY($J | CHKREV+2*, PROD, PROD2*, PROD3* |
| Name | Line Occurrences |
|---|---|
| 1 | CHG+2 |
| CHKREV | 1 |
| PROD1 | PROD |
| PROD2 | PROD1 |
| PROD3 | PROD |
| Name | Field # of Occurrence |
|---|---|
| ^( | ELIG+2 |
| ^("C" | PROD3 |
| ^(0 | ELIG+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DFN | ELIG+2, MT+2 |
| >> DGACTDT | CHG*, CHG+2*, 1 |
| >> DGBR | CHG*, 1*, CHKREV |
| >> DGBRN | CHKREV*, CHKREV+1, CHKREV+2 |
| >> DGBSI | CHG*, CHG+2, 1 |
| >> DGCNT | CHKREV+2 |
| >> DGCOD | ELIG*, ELIG+1* |
| >> DGCPT0 | PROD1*, PROD2 |
| >> DGCPT2 | PROD*, PROD1, PROD2 |
| >> DGDT | CHG |
| >> DGFIL | ELIG, ELIG+1 |
| >> DGJJ | CHG+2* |
| >> DGKK | 1* |
| >> DGLL | CHG+2* |
| >> DGMT | ELIG+3*, MT+2* |
| >> DGNO | ELIG |
| >> DGNOD | ELIG, ELIG+1 |
| >> DGREV | CHG*, CHG+2*, 1 |
| >> DGTYP | ELIG+2*, ELIG+3 |
| >> I | MT+2 |
| >> I7 | PROD, PROD2, PROD3 |
| >> I8 | PROD3* |
| IBCHG | CHG!, CHG+2, 1, CHKREV+2* |
| >> IBIDS( | CHG+1*, CHKREV+1 |
| >> IBIFN | CHG+1, PROD, PROD1, PROD3 |
| >> P | PROD*, PROD2, PROD3 |