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 |