BQIIPBNL ;VNGT/HS/ALA-IPC Bundle Logic ; 24 Jun 2011 11:53 AM
Source file <BQIIPBNL.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EN(CRSN,BNIEN,BQDATE,CODE,BQFROM,BQTHRU) | ;EP - do the bundle for monthly update ; Input ; CRSN - Current IPC IEN ; BNIEN - Bundle IEN ; CODE - Code name ; BQI(90508,1,22,CRN,1,MSN,1 | |
| BUN(CRSN,BNIEN,XX) | ;EP - Get values for bundle | |
| PAT(DFN,XX) | ;EP - See if patient meets bundle criteria | |
| PT(DFN,IPCN,CDN) | ;EP | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| FileNo | Call Tags | 
|---|---|
| ^DPT - [#2] | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AUPNPAT("AK" | EN+15, EN+18 | 
| ^BQI(90508 - [#90508] | BUN+3, BUN+4 | 
| ^BQIPAT( | EN+28, EN+31, EN+32, PAT+8, PAT+9, PAT+10 | 
| ^VA(200 - [#200] | EN+16 | 
| Name | Line Occurrences | 
|---|---|
| $$PAT | EN+21, PT+2 | 
| BUN | EN+11, PT+1 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| BCODE | BUN+1~, BUN+4*, BUN+5 | 
| BCT | EN+26*, EN+34*, EN+36*, EN+40, PAT+1~, PAT+2*, PAT+11*, PAT+13* | 
| BN | BUN+1~, BUN+2*, BUN+3*, BUN+4 | 
| BNIEN | EN~, EN+11, BUN~, BUN+3, BUN+4 | 
| BQDATE | EN~, EN+8*, EN+41, EN+46 | 
| BQFROM | EN~, EN+8*, EN+42, EN+47 | 
| BQIDOD | EN+7~, EN+29*, EN+30, PAT+1~, PAT+3*, PAT+4 | 
| BQTHRU | EN~, EN+8*, EN+42, EN+47 | 
| CD | EN+7~, EN+12*, EN+26*, EN+27*, EN+28, PAT+1~, PAT+5*, PAT+6*, PAT+7, PAT+8 | 
| CDN | PT~, PT+1 | 
| CNT | EN+7~, EN+9*, EN+12*, EN+40, PAT+1~, PAT+2*, PAT+5*, PAT+15, PAT+16 | 
| CODE | EN~, EN+41, EN+42, EN+43, EN+46, EN+47, EN+48 | 
| CRSN | EN~, EN+11, BUN~, BUN+3, BUN+4 | 
| >> DEBUG | EN+43, EN+48 | 
| DEN | EN+32*, EN+34, EN+35, EN+36, PAT+1~, PAT+10*, PAT+11, PAT+12, PAT+13 | 
| DFN | EN+17*, EN+18*, EN+20, EN+21, EN+28, EN+29, EN+31, EN+32, PAT~, PAT+3 , PAT+8, PAT+9, PAT+10, PT~, PT+2 | 
| >> FAC | EN+45*, EN+46, EN+47, EN+48 | 
| IEN | EN+28*, EN+31, EN+32, PAT+1~, PAT+8*, PAT+9, PAT+10 | 
| IPCN | PT~, PT+1 | 
| NA | EN+7~, EN+26*, EN+34*, EN+37*, PAT+1~, PAT+2*, PAT+7*, PAT+11*, PAT+15 | 
| NDA | EN+7~, EN+26*, EN+28*, EN+37, PAT+1~, PAT+2*, PAT+8*, PAT+14 | 
| NO | EN+7~, EN+26*, EN+35*, EN+38, PAT+1~, PAT+2*, PAT+12*, PAT+17 | 
| NUM | EN+31*, EN+34, EN+35, EN+36, PAT+1~, PAT+9*, PAT+11, PAT+12, PAT+13 | 
| PCT | EN+17*, EN+24*, EN+38*, EN+40*, EN+41, EN+42, EN+43, EN+44, PAT+1~, PAT+2* | 
| >> PRV | EN+14*, EN+15*, EN+16, EN+18, EN+41, EN+42, EN+43 | 
| TDEN | EN+7~, EN+9*, EN+44*, EN+46, EN+47, EN+48 | 
| TNUM | EN+7~, EN+9*, EN+44*, EN+46, EN+47, EN+48 | 
| >> TP | EN+17*, EN+23*, EN+33*, EN+41, EN+42, EN+43, EN+44 | 
| U | EN+16, EN+31, EN+32, BUN+4, PAT+9, PAT+10 | 
| >> VAL | EN+21*, EN+22, EN+24, PT+2*, PT+3 | 
| >> WEEK | EN+41, EN+42, EN+46, EN+47 | 
| XX | EN+10!, EN+11, EN+21, BUN~, PAT~, PT+1, PT+2 | 
| XX( | EN+12, EN+27, BUN+5*, PAT+5, PAT+6 | 
| YES | EN+7~, EN+26*, EN+36*, PAT+1~, PAT+2*, PAT+13*, PAT+16 |