BQITDPRC ;PRXM/HC/ALA-Process Diagnosis Tag ; 11 May 2007 5:43 PM
Source file <BQITDPRC.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
NPAT(BQIDFN,BQITAG,BQISTA,DATE,USR,SCOM,BQTX) | ;EP - Create new patient record
|
|
NREC | ;EP - Create new factor record
|
|
ERR | ;
|
|
MOV(BQIDFN,BQITAG) | ;EP - Move factors
|
|
EN(DATA,DFN,TAG,STAT,DATE,USR,SCOM,OCOM) | ;EP -- BQI UPDATE DX CAT
; Input ; DFN - Patient internal entry number ; TAG - the diagnosis tag internal entry number which is being updated ; STAT - status of the tag management ; DATE - Date of the update, assumes current date if not passed ; may be the date that the tag was last updated by nightly or ; weekly job ; USR - User updating the tag, assumes DUZ if not passed ; SCOM - Standard comment value, should always be passed ; OCOM - Other comment value |
|
CF | ; Set the factor into the CURRENT FACTORS multiple in ^BQIREG
|
|
CHKR | ;EP - Check for record
|
|
DONE | ;
|
|
HIER | ; Check for hierarchy and if BQISTA="N", set the next lower one
|
|
DEL | ;Delete proposed tag data from BQIPAT
|
|
UPAT(BQIRDA,BQIDFN,BQISTA,DATE,USR,SCOM,BQTX) | ;EP - Update patient record
|
Name | Field # of Occurrence |
---|---|
^%ZTER | ERR+1 |
$$LASTSEV^APCHSAST | EN+40, EN+44 |
$$LOW^BQITDUTL | HIER+6, HIER+29 |
$$FIND1^DIC | EN+34 |
FILE^DICN | NPAT+4, UPAT+13, NREC+4, CF+6 |
FILE^DIE | NPAT+12, UPAT+20, UPAT+40, NREC+15 |
WP^DIE | NPAT+13, UPAT+22, UPAT+43 |
^DIK | DEL+3 |
$$IENS^DILF | UPAT+15 |
$$GET1^DIQ | EN+23 |
$$NOW^XLFDT | EN+24, ERR+3, UPAT+12 |
RPC Name | Call Tags |
---|---|
BQI UPDATE DX CAT | EN |
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^BQI(90506.2 - [#90506.2] | FIND1^DIC |
^BQIREG - [#90509] | Classic Fileman Calls, WP^DIE |
90509.01 | WP^DIE |
^BQIFACT - [#90509.5] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BQI(90506.2 - [#90506.2] | HIER+3 |
^BQIFACT - [#90509.5] | CHKR+5 |
^BQIFACT("C" | CHKR+3, CHKR+4 |
^BQIPAT( | MOV+3, MOV+4, MOV+6, MOV+7, MOV+8!, MOV+11, MOV+12, MOV+13, MOV+14, MOV+15 , MOV+16 |
^BQIREG - [#90509] | UPAT+6, UPAT+7, UPAT+8, UPAT+11*, UPAT+19, UPAT+25, UPAT+26*, UPAT+27*, UPAT+28!, UPAT+29* , UPAT+30!, CF+3*, HIER+2, HIER+13, HIER+15, HIER+16*, HIER+17*, HIER+18*, HIER+22, HIER+24 , HIER+25*, HIER+26*, HIER+27* |
^BQIREG("C" | EN+47, NPAT+17, CF+2, HIER+12 |
^DD("DD" | ERR+3 |
^TMP("BQITDPRC" | EN+14 |
Name | Line Occurrences |
---|---|
CHKR | MOV+9, MOV+20, MOV+22 |
DONE | EN+48 |
EN | HIER+10, HIER+32 |
HIER | NPAT+18, UPAT+45 |
MOV | NPAT+15, UPAT+32 |
NPAT | EN+48 |
NREC | CHKR+3, CHKR+11, CHKR+12 |
UPAT | EN+50 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADD | MOV+1~ |
BI | EN+12~, EN+29* |
>> BMXSEC | EN+19*, EN+20*, EN+21*, EN+22*, ERR+4* |
BQIASRG | MOV+2~ |
BQIDFN | NPAT~, NPAT+7, NPAT+15, NPAT+17, UPAT~, UPAT+32, MOV~, MOV+3, MOV+4, MOV+6 , MOV+7, MOV+8, MOV+11, MOV+12, MOV+13, MOV+14, MOV+15, MOV+16, DEL+2, NREC+6 , CF+2, CHKR+3, CHKR+4, HIER+6, HIER+10, HIER+12, HIER+29, HIER+32 |
BQIDID | MOV+1~, MOV+4*, NREC+14 |
BQIFAC | MOV+1~, MOV+7*, MOV+8, MOV+9, MOV+22, NREC+3, CHKR+11, CHKR+12 |
BQIFIL | MOV+2~, MOV+16*, NREC+12 |
BQIFN | MOV+1~, MOV+5*, MOV+6*, MOV+7, MOV+8, MOV+11, MOV+12, MOV+13, MOV+14, MOV+15 , MOV+16 |
BQII | MOV+2~, CHKR+2*, CHKR+3, CHKR+4*, CHKR+5 |
BQIIEN | MOV+1~, MOV+15*, NREC+11 |
BQIIFAC | CHKR+1~, CHKR+6*, CHKR+9 |
BQIIFACT | CHKR+1~, CHKR+5*, CHKR+6, CHKR+7, CHKR+8 |
BQIISR | CHKR+1~ |
BQIISR( | CHKR+9*, CHKR+11, CHKR+12 |
BQIITG | CHKR+1~, CHKR+7*, CHKR+9 |
BQIIVPR | CHKR+1~, CHKR+8*, CHKR+9 |
BQIRDA | NPAT+17*, NPAT+18, UPAT~, UPAT+6, UPAT+7, UPAT+8, UPAT+10, UPAT+19, UPAT+35, UPAT+36 , UPAT+37, UPAT+38, UPAT+39, UPAT+43, HIER+2, HIER+22, HIER+24, HIER+25, HIER+26, HIER+27 |
BQIRDT | MOV+1~, MOV+13*, NREC+10 |
BQIREC | MOV+1~, MOV+12*, MOV+17, MOV+18, MOV+19 |
BQIREX | MOV+1~, MOV+14*, NREC+13 |
BQIRN | MOV+1~, MOV+10*, MOV+11*, MOV+12, MOV+13, MOV+14, MOV+15, MOV+16 |
BQISTA | NPAT~, NPAT+8, NPAT+15, UPAT~, UPAT+35, HIER+5, HIER+20 |
BQITAG | NPAT~, NPAT+3, NPAT+15, NPAT+17, MOV~, MOV+3, MOV+4, MOV+6, MOV+7, MOV+8 , MOV+11, MOV+12, MOV+13, MOV+14, MOV+15, MOV+16, DEL+2, NREC+7, CF+2, CHKR+3 , CHKR+4, CHKR+11, CHKR+12 |
BQIUPD | NPAT+1~, UPAT+1~, NREC+1~ |
BQIUPD( | NREC+6*, NREC+7*, NREC+8*, NREC+9*, NREC+10*, NREC+11*, NREC+12*, NREC+13*, NREC+14* |
BQIUPD(90509 | NPAT+7*, NPAT+8*, NPAT+9*, NPAT+10*, NPAT+11*, UPAT+35*, UPAT+36*, UPAT+37*, UPAT+38*, UPAT+39* |
BQIVPR | MOV+2~, MOV+9*, MOV+17*, MOV+18*, NREC+9, CHKR+12 |
BQTX | EN+27!, EN+48, EN+50, NPAT~, NPAT+13, UPAT~, UPAT+43 |
BQTX( | EN+29*, EN+44* |
BQTX(0 | EN+43 |
BQTX(1 | EN+31* |
DA | NPAT+1~, NPAT+5*, NPAT+6, NPAT+7, NPAT+8, NPAT+9, NPAT+10, NPAT+11, NPAT+13, UPAT+1~ , UPAT+13*, UPAT+15, UPAT+26, UPAT+27, UPAT+29, DEL+1~, DEL+2*, NREC+1~, NREC+5*, NREC+6 , NREC+7, NREC+8, NREC+9, NREC+10, NREC+11, NREC+12, NREC+13, NREC+14, CF+1~ |
DA(1 | UPAT+10*, UPAT+11, UPAT+25, UPAT+26, UPAT+27, UPAT+28, UPAT+29, UPAT+30, DEL+2*, CF+4* , CF+5 |
DATA | EN~, EN+14*, EN+15, EN+33, DONE+1, ERR+5, NPAT+6, NPAT+14, NPAT+20, UPAT+47 , UPAT+48 |
DATE | EN~, EN+24*, EN+48, EN+50, NPAT~, NPAT+9, UPAT~, UPAT+36, NREC+2*, NREC+8 |
DD | NPAT+4!, UPAT+13!, NREC+4!, CF+6! |
DFN | EN~, EN+21*, EN+40, EN+44, EN+47, EN+48, EN+50 |
DIC | NPAT+1~, NPAT+3*, UPAT+1~, UPAT+10*, NREC+1~, NREC+3*, CF+1~, CF+5* |
DIC(0 | NPAT+3*, UPAT+10*, NREC+3*, CF+5* |
>> DIE | UPAT+10* |
DIK | DEL+1~, DEL+2* |
>> DINUM | CF+5* |
DLAYGO | NPAT+1~, NPAT+3*, NREC+1~, NREC+3*, CF+1~, CF+5* |
DO | NPAT+4!, UPAT+13!, NREC+4!, CF+6! |
DT | NREC+2 |
DUZ | EN+23 |
ERRDTM | ERR+2~, ERR+3*, ERR+4 |
ERROR | NPAT+2!, NPAT+14, UPAT+1~, UPAT+41!, UPAT+47, NREC+1~ |
ERROR("DIERR" | NPAT+14 |
FCN | HIER+1~, HIER+14*, HIER+15*, HIER+16, HIER+17, HIER+23*, HIER+24*, HIER+25, HIER+26 |
FDA | UPAT+3! |
FDA( | UPAT+16*, UPAT+17*, UPAT+18*, UPAT+19* |
GLBNOD | MOV+2~ |
HIEN | HIER+1~, HIER+12*, HIER+13, HIER+15, HIER+16, HIER+17, HIER+18 |
HSN | HIER+1~, HIER+12*, HIER+13*, HIER+15, HIER+16, HIER+18, HIER+21*, HIER+22*, HIER+24, HIER+25 , HIER+27 |
HTAG | HIER+1~, HIER+8*, HIER+9, HIER+10, HIER+12, HIER+30*, HIER+32 |
>> IENS | UPAT+15*, UPAT+16, UPAT+17, UPAT+18, UPAT+19, UPAT+22 |
II | EN+12~, EN+16*, EN+33, DONE+1*, ERR+5*, NPAT+6*, NPAT+14*, NPAT+20*, UPAT+47*, UPAT+48* |
>> NDA | UPAT+24*, UPAT+25*, UPAT+26, UPAT+27, UPAT+28 |
NSTAT | HIER+1~, HIER+9*, HIER+10 |
OCOM | EN~, EN+25*, EN+28, EN+29, EN+31 |
OK | HIER+1~, HIER+6*, HIER+7, HIER+8, HIER+29*, HIER+30, HIER+31 |
PCOM | UPAT+1~, UPAT+8*, UPAT+18 |
PSTAT | UPAT+1~, UPAT+6*, UPAT+16, UPAT+32 |
PUSR | UPAT+1~, UPAT+7*, UPAT+17 |
>> QFL | HIER+12*, HIER+13, HIER+17*, HIER+18, HIER+21*, HIER+22, HIER+26*, HIER+27 |
RDA | EN+12~, EN+47*, EN+48, EN+50, NREC+5*, CF+5 |
>> RDATA | HIER+10, HIER+32 |
RGDATA | MOV+2~ |
RIEN | CF+1~, CF+2*, CF+3, CF+4 |
SCOM | EN~, EN+22*, EN+48, EN+50, NPAT~, NPAT+11, UPAT~, UPAT+38 |
SEV | EN+38~, EN+40*, EN+41 |
STAT | EN~, EN+20*, EN+39, EN+42*, EN+48, EN+50 |
STFILE | MOV+2~ |
STFLD | MOV+2~ |
SUBREG | MOV+2~ |
TAG | EN~, EN+19*, EN+34*, EN+37, EN+47, EN+48, UPAT+32, HIER+1~, HIER+2*, HIER+3 , HIER+6, HIER+29 |
THCFL | HIER+1~, HIER+3*, HIER+4 |
TXN | EN+38~, EN+43*, EN+44 |
TXT | EN+12~, EN+29* |
U | UPAT+6, UPAT+7, UPAT+8, UPAT+19, MOV+4, MOV+7, MOV+12, MOV+13, MOV+14, MOV+15 , MOV+16, CHKR+6, CHKR+7, CHKR+8, HIER+2, HIER+3, HIER+8, HIER+30, HIER+31 |
UID | EN+12~, EN+13*, EN+14 |
USR | EN~, EN+23*, EN+48, EN+50, NPAT~, NPAT+10, UPAT~, UPAT+37 |
X | NPAT+3*, UPAT+12*, NREC+1~, NREC+3*, CF+1~, CF+5* |
Y | ERR+2~, ERR+3*, NPAT+5, UPAT+13, NREC+5 |
>> ZTSK | EN+13 |