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 |