©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
BQIPTRP1 ;VNGT/HS/ALA - Patient Reproductive Factors ; 06 May 2008 7:40 PM
Source file <BQIPTRP1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CMETH(DATA,DFN) | ; EP -- BQI GET PATIENT CON METH
|
|
| ERR | ;
|
|
| CONT(DFN) | ;EP - Return patients most recent contraceptive method info
|
|
| TRGPRG(DATA,BQICPREG) | ; EP - BQI REP FAC PRG TRIG
|
|
| EDFLD | ;EP - Assemble list of EDD fields
|
|
| UPDCM(DATA,BQIDFN,BQIIEN,BQIED,PARMS) | ; EP - BQI UPD PAT CMETH
; Input parameters ; BQIDFN - Patient DFN ; BQIIEN - Contraception Method Entry IEN ; BQIED - E for Add/Edit, D for Delete ; PARMS - Parameters and their values |
|
| VALS(DFN,VAL,DTCOL,PVCOL) | ;EP - Return date and provider values
|
|
| ADD(BQIDFN,RFFPMT) | ; EP - Create new Contraception Methods record
|
|
| DONE | ;
|
|
| UVDEF() | ;EP - Update Reproductive Factors VDEF
|
|
| REC | ||
| PFLD(DIEN,CIEN,EDT,FDATA) | ;EP - Process one field entry
|
|
| XUPDCM | ||
| REP(DATA,DFN,EDT) | ; EP -- BQI PATIENT REPRODUCTIVE FACS
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTER | ERR+1 |
| $$AGE^BQIAGE | REP+19 |
| $$DATE^BQIUL1 | UPDCM+48 |
| $$FMTE^BQIUL1 | CMETH+20, CMETH+21, CMETH+22, VALS+13, CONT+12, CONT+13, CONT+22, CONT+23 |
| FILE^DICN | ADD+5 |
| $$GET1^DID | VALS+10, VALS+11, UVDEF+45, UVDEF+46 |
| FILE^DIE | XUPDCM, UVDEF+13, UVDEF+37, UVDEF+89 |
| $$IENS^DILF | CMETH+17, UPDCM+37, UPDCM+57, PFLD+3, PFLD+18, CONT+20, UVDEF+10, UVDEF+21, UVDEF+35, UVDEF+49 , UVDEF+57, UVDEF+65, UVDEF+71, UVDEF+78, UVDEF+85 |
| $$GET1^DIQ | REP+19, CMETH+18, CMETH+19, CMETH+20, CMETH+21, CMETH+22, CMETH+23, CMETH+24, PFLD+4, PFLD+7 , PFLD+8, PFLD+9, PFLD+10, PFLD+11, PFLD+14, PFLD+20, VALS+13, VALS+14, VALS+15, CONT+12 , CONT+13, CONT+21, CONT+22, CONT+23, UVDEF+22 |
| $$NOW^XLFDT | UPDCM+68, ERR+3 |
| $$PATCH^XPDUTL | CONT+10, UVDEF+8, UVDEF+66, UVDEF+72, UVDEF+79, UVDEF+86 |
| $$VERSION^XPDUTL | VALS+4, CONT+7, UVDEF+26 |
| RPC Name | Call Tags |
|---|---|
| BQI PATIENT REPRODUCTIVE FACS | REP |
| BQI GET PATIENT CON METH | CMETH |
| BQI UPD PAT CMETH | UPDCM |
| BQI REP FAC PRG TRIG | TRGPRG |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^AUPNREP - [#9000017] | GET1^DID, GET1^DIQ |
| 9000017.02101 | GET1^DIQ |
| 90506.31 | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNREP - [#9000017] | CMETH+14, ADD+3*, CONT+18, CONT+19 |
| ^BQI(90506.3 - [#90506.3] | REP+17, REP+35, UPDCM+30, UPDCM+32, UPDCM+45, UPDCM+47, UPDCM+50, UPDCM+51, UPDCM+63, UPDCM+65 , UVDEF+9, UVDEF+18, UVDEF+19, UVDEF+64, UVDEF+70, UVDEF+77, UVDEF+84 |
| ^DD("DD" | ERR+3 |
| ^DD(9000017 | UVDEF+43 |
| ^TMP("BQIPTRP1" | REP+11, CMETH+4, UPDCM+10, TRGPRG+4 |
| Name | Line Occurrences |
|---|---|
| $$ADD | UPDCM+55 |
| EDFLD | REP+29, UVDEF+5 |
| PFLD | REP+35 |
| REC | TRGPRG+14, TRGPRG+15, TRGPRG+16, TRGPRG+17, TRGPRG+18, TRGPRG+19, TRGPRG+20, TRGPRG+21, TRGPRG+22, TRGPRG+23 |
| UVDEF | REP+32 |
| XUPDCM | UPDCM+35 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABLE | TRGPRG+1~, TRGPRG+12*, TRGPRG+13*, REC |
| ACTIVE | UVDEF+31~, UVDEF+32*, UVDEF+33*, UVDEF+36, UVDEF+44~, UVDEF+45*, UVDEF+46*, UVDEF+47*, UVDEF+50 |
| AGE | REP+8~, REP+19*, REP+38 |
| BGDT | CONT+11~, CONT+12*, CONT+14 |
| BJPC | UVDEF+2~, UVDEF+8*, UVDEF+11, UVDEF+14! |
| >> BMXSEC | REP+17*, UPDCM+31*, UPDCM+40, UPDCM+46*, UPDCM+54*, UPDCM+59, UPDCM+64*, UVDEF+9*, UVDEF+18*, ERR+4* |
| BN | UPDCM+23~, UPDCM+24*, UPDCM+25* |
| BQ | UPDCM+7~, UPDCM+8~, UPDCM+40*, UPDCM+42, UPDCM+59*, UPDCM+61 |
| BQIACT | REP+8~, UVDEF+14!, UVDEF+17~, UVDEF+29~, UVDEF+37, UVDEF+89 |
| BQIACT( | UVDEF+11*, UVDEF+12*, UVDEF+36*, UVDEF+50*, UVDEF+58*, UVDEF+66*, UVDEF+67*, UVDEF+72*, UVDEF+73*, UVDEF+79* , UVDEF+80*, UVDEF+86*, UVDEF+87* |
| BQICMT | UPDCM+8~, XUPDCM |
| BQICMT( | UPDCM+38*, UPDCM+67*, UPDCM+68* |
| BQICPREG | TRGPRG~, TRGPRG+12*, TRGPRG+13 |
| BQIDFN | UPDCM~, UPDCM+37, UPDCM+55, UPDCM+57, ADD~, ADD+2 |
| BQIED | UPDCM~, UPDCM+35 |
| BQIIEN | UPDCM~, UPDCM+17*, UPDCM+37, UPDCM+54, UPDCM+55*, UPDCM+57, XUPDCM+4 |
| CBEG | CMETH+16~, CMETH+20*, CMETH+25 |
| CCOM | CMETH+16~, CMETH+24*, CMETH+25 |
| CDIS | CMETH+16~, CMETH+23*, CMETH+25 |
| CEND | CMETH+16~, CMETH+21*, CMETH+25 |
| CEXEC | PFLD+2~, PFLD+11*, PFLD+22 |
| CHIEN | UPDCM+41~, UPDCM+50*, UPDCM+51 |
| CIEN | REP+8~, REP+35*, PFLD~, PFLD+3, UVDEF+17~, UVDEF+19*, UVDEF+21, UVDEF+23, UVDEF+31~, UVDEF+34* , UVDEF+35, UVDEF+44~, UVDEF+48*, UVDEF+49, UVDEF+55~, UVDEF+56*, UVDEF+57, UVDEF+63~, UVDEF+64*, UVDEF+65 , UVDEF+69~, UVDEF+70*, UVDEF+71, UVDEF+76~, UVDEF+77*, UVDEF+78, UVDEF+83~, UVDEF+84*, UVDEF+85 |
| CLDT | CMETH+16~, CMETH+22*, CMETH+25 |
| CLEAR | TRGPRG+1~, TRGPRG+14*, TRGPRG+15*, TRGPRG+16*, TRGPRG+17*, TRGPRG+18*, TRGPRG+19*, TRGPRG+20*, TRGPRG+21*, TRGPRG+22* , TRGPRG+23*, REC |
| CLFLAG | TRGPRG+1~, TRGPRG+14*, TRGPRG+15*, TRGPRG+16*, TRGPRG+17*, TRGPRG+18*, TRGPRG+19*, TRGPRG+20*, TRGPRG+21*, TRGPRG+22* , TRGPRG+23*, REC |
| CLIST | REP+8~, UVDEF+2~ |
| CLIST( | UVDEF+23*, UVDEF+30, UVDEF+34, UVDEF+48, UVDEF+51!, UVDEF+54, UVDEF+56, UVDEF+59! |
| CMIEN | UVDEF+2~, UVDEF+9*, UVDEF+10, UVDEF+14! |
| CODE | PFLD+2~, PFLD+8*, PFLD+27 |
| COL | PFLD+2~, PFLD+9*, PFLD+14, PFLD+27 |
| CONDT | CONT+16~, CONT+18*, CONT+19 |
| CONIEN | CONT+16~, CONT+19*, CONT+20 |
| CONLMD | CONT+16~, CONT+22*, CONT+25 |
| CONMET | CONT+16~, CONT+21*, CONT+25 |
| CONUPD | CONT+16~, CONT+23*, CONT+25 |
| DA | CMETH+16~, CMETH+17*, UPDCM+8~, UPDCM+36~, UPDCM+37*, UPDCM+57*, ADD+1~, PFLD+2~, PFLD+3*, PFLD+16! , PFLD+17~, PFLD+18*, CONT+16~, CONT+20*, UVDEF+2~, UVDEF+10*, UVDEF+14!, UVDEF+20~, UVDEF+21*, UVDEF+31~ , UVDEF+35*, UVDEF+44~, UVDEF+49*, UVDEF+55~, UVDEF+57*, UVDEF+63~, UVDEF+65*, UVDEF+69~, UVDEF+71*, UVDEF+76~ , UVDEF+78*, UVDEF+83~, UVDEF+85* |
| DA(1 | CMETH+17*, UPDCM+37*, UPDCM+57*, ADD+2*, ADD+3, ADD+4, PFLD+3*, CONT+20*, UVDEF+21*, UVDEF+35* , UVDEF+49*, UVDEF+57*, UVDEF+65*, UVDEF+71*, UVDEF+78*, UVDEF+85* |
| DATA | REP~, REP+11*, REP+12, REP+21, REP+22, REP+23, REP+26, REP+39, REP+40, REP+41 , REP+42, DONE+1, CMETH~, CMETH+4*, CMETH+5, CMETH+11, CMETH+25, CMETH+27, UPDCM~, UPDCM+10* , UPDCM+11, UPDCM+15, XUPDCM+4, XUPDCM+5, PFLD+27, TRGPRG~, TRGPRG+4*, TRGPRG+5, TRGPRG+10, TRGPRG+25 , REC, ERR+5 |
| DD | ADD+5! |
| DFN | REP~, REP+19, CMETH~, CMETH+14, CMETH+17, PFLD+14, PFLD+18, VALS~, VALS+13, VALS+14 , CONT~, CONT+4, CONT+12, CONT+13, CONT+18, CONT+19, CONT+20 |
| DIC | ADD+1~, ADD+4* |
| DIC("P" | ADD+4* |
| DIC(0 | ADD+4* |
| DIEN | REP+8~, REP+17*, REP+35, PFLD~, PFLD+3, UVDEF+17~, UVDEF+18*, UVDEF+19, UVDEF+21, UVDEF+35 , UVDEF+49, UVDEF+57, UVDEF+64, UVDEF+65, UVDEF+70, UVDEF+71, UVDEF+77, UVDEF+78, UVDEF+84, UVDEF+85 |
| DLAYGO | ADD+1~, ADD+4* |
| DO | ADD+5! |
| DORD | REP+8~, REP+35* |
| DTCOL | VALS~, VALS+6*, VALS+10*, VALS+13 |
| DTLM | CONT+11~, CONT+13*, CONT+14 |
| DTVAL | VALS+1~, VALS+7*, VALS+13*, VALS+17 |
| EDFLD | REP+8~, UVDEF+2~ |
| EDFLD( | PFLD+14 |
| EDFLD("Defini | tive EDD Documenting Provider" , EDFLD+7*, tive EDD" , EDFLD+2* |
| EDFLD("EDD (C | linical Parameters)" , EDFLD+5*, linical Parms) Documenting Provider" , EDFLD+10* |
| EDFLD("EDD (L | MP) Documenting Provider" , EDFLD+8*, MP)" , EDFLD+3* |
| EDFLD("EDD (M | eth Unk) Documenting Provider" , EDFLD+11*, ethod Unknown)" , EDFLD+6* |
| EDFLD("EDD (U | ltrasound) Documenting Provider" , EDFLD+9*, ltrasound)" , EDFLD+4* |
| EDT | REP~, REP+18*, REP+35, PFLD~, PFLD+7, PFLD+14 |
| ERRDTM | ERR+2~, ERR+3*, ERR+4 |
| ERROR | REP+8~, UPDCM+8~, XUPDCM+3, UVDEF+2~, UVDEF+14!, UVDEF+17~, UVDEF+29~ |
| FDATA | REP+8~, REP+25*, REP+35, REP+38, PFLD~, PFLD+25* |
| FIEN | REP+8~, UVDEF+17~, UVDEF+43*, UVDEF+45, UVDEF+46, UVDEF+48, UVDEF+51, UVDEF+54*, UVDEF+56, UVDEF+59 |
| FILE | UPDCM+7~, UPDCM+32*, UPDCM+38, UPDCM+67, UPDCM+68 |
| FMN | UPDCM+60~, UPDCM+65*, UPDCM+66, UPDCM+67, PFLD+2~, PFLD+10*, PFLD+20, UVDEF+20~, UVDEF+22*, UVDEF+23 , UVDEF+29~, UVDEF+30*, UVDEF+32, UVDEF+34 |
| HDR | CMETH+2~, CMETH+10*, CMETH+11 |
| HELP | TRGPRG+1~, TRGPRG+14*, TRGPRG+15*, TRGPRG+16*, TRGPRG+17*, TRGPRG+18*, TRGPRG+19*, TRGPRG+20*, TRGPRG+21*, TRGPRG+22* , TRGPRG+23*, REC |
| IENS | CMETH+16~, CMETH+17*, CMETH+18, CMETH+19, CMETH+20, CMETH+21, CMETH+22, CMETH+23, CMETH+24, UPDCM+8~ , UPDCM+36~, UPDCM+37*, UPDCM+38, UPDCM+57*, UPDCM+67, UPDCM+68, ADD+1~, PFLD+2~, PFLD+3*, PFLD+4 , PFLD+7, PFLD+8, PFLD+9, PFLD+10, PFLD+11, PFLD+16!, PFLD+17~, PFLD+18*, PFLD+20, CONT+16~ , CONT+20*, CONT+21, CONT+22, CONT+23, UVDEF+2~, UVDEF+10*, UVDEF+11, UVDEF+12, UVDEF+14!, UVDEF+20~ , UVDEF+21*, UVDEF+22, UVDEF+31~, UVDEF+35*, UVDEF+36, UVDEF+44~, UVDEF+49*, UVDEF+50, UVDEF+55~, UVDEF+57* , UVDEF+58, UVDEF+63~, UVDEF+65*, UVDEF+66, UVDEF+67, UVDEF+69~, UVDEF+71*, UVDEF+72, UVDEF+73, UVDEF+76~ , UVDEF+78*, UVDEF+79, UVDEF+80, UVDEF+83~, UVDEF+85*, UVDEF+86, UVDEF+87 |
| II | REP+8~, REP+14*, REP+21, REP+22*, REP+23*, REP+26, REP+40, REP+41*, REP+42*, DONE+1* , CMETH+2~, CMETH+7*, CMETH+11, CMETH+25*, CMETH+27*, UPDCM+7~, UPDCM+13*, UPDCM+15, XUPDCM+4*, XUPDCM+5* , PFLD+27*, TRGPRG+1~, TRGPRG+6*, TRGPRG+10, TRGPRG+25*, REC*, ERR+5* |
| INACTIVE | PFLD+2~, PFLD+4* |
| LIST | UPDCM+23~, UPDCM+24*, UPDCM+25*, UPDCM+27, UPDCM+28! |
| METH | CMETH+16~, CMETH+18*, CMETH+25 |
| MIEN | CMETH+2~, CMETH+14*, CMETH+17, CMETH+25 |
| NAME | UPDCM+41~, UPDCM+43*, UPDCM+45, UPDCM+46, UPDCM+52, UPDCM+60~, UPDCM+62*, UPDCM+63, UPDCM+64, UPDCM+67 |
| PARMS | UPDCM~, UPDCM+18*, UPDCM+22, UPDCM+26!, UPDCM+27*, UPDCM+40, UPDCM+42, UPDCM+59, UPDCM+61 |
| PARMS( | UPDCM+25 |
| PDATA | UPDCM+41~, UPDCM+42*, UPDCM+43, UPDCM+60~, UPDCM+61*, UPDCM+62 |
| PFIEN | UPDCM+41~, UPDCM+45*, UPDCM+46, UPDCM+47, UPDCM+50, UPDCM+51, UPDCM+60~, UPDCM+63*, UPDCM+64, UPDCM+65 |
| PTYP | UPDCM+41~, UPDCM+47*, UPDCM+48, UPDCM+49, UPDCM+60~ |
| PVCOL | VALS~, VALS+6*, VALS+11*, VALS+14*, VALS+15 |
| PVVAL | VALS+1~, VALS+7*, VALS+15*, VALS+17 |
| REQ | TRGPRG+1~, TRGPRG+14*, TRGPRG+15*, TRGPRG+16*, TRGPRG+17*, TRGPRG+18*, TRGPRG+19*, TRGPRG+20*, TRGPRG+21*, TRGPRG+22* , TRGPRG+23*, REC |
| RESULT | UPDCM+8~, XUPDCM+2*, XUPDCM+3*, XUPDCM+4 |
| RFCFUPD | UPDCM+7~, UPDCM+20* |
| RFCMCMT | UPDCM+7~, UPDCM+20* |
| RFCMDSC | UPDCM+7~, UPDCM+20* |
| RFFPBDT | UPDCM+7~, UPDCM+19* |
| RFFPEDT | UPDCM+7~, UPDCM+19* |
| RFFPMT | UPDCM+7~, UPDCM+19*, UPDCM+54, UPDCM+55, ADD~, ADD+2 |
| SEX | REP+8~, REP+19*, REP+20 |
| SOURCE | TRGPRG+1~, TRGPRG+14*, TRGPRG+15*, TRGPRG+16*, TRGPRG+17*, TRGPRG+18*, TRGPRG+19*, TRGPRG+20*, TRGPRG+21*, TRGPRG+22* , TRGPRG+23*, REC |
| TYPE | TRGPRG+1~, TRGPRG+14*, TRGPRG+15*, TRGPRG+16*, TRGPRG+17*, TRGPRG+18*, TRGPRG+19*, TRGPRG+20*, TRGPRG+21*, TRGPRG+22* , TRGPRG+23*, REC |
| U | CMETH+25, UPDCM+32, UPDCM+47, UPDCM+51, UPDCM+65, PFLD+25, PFLD+27, VALS+4, VALS+16, VALS+17 , CONT+14, CONT+25, REC |
| UID | REP+8~, REP+10*, REP+11, CMETH+2~, CMETH+3*, CMETH+4, UPDCM+7~, UPDCM+9*, UPDCM+10, TRGPRG+1~ , TRGPRG+3*, TRGPRG+4 |
| VAL | PFLD+17~, PFLD+19*, PFLD+20*, PFLD+25, PFLD+27, VALS~, VALS+4, VALS+6*, VALS+16*, VALS+17* , VALS+18 |
| VALUE | UPDCM+41~, UPDCM+43*, UPDCM+44*, UPDCM+48*, UPDCM+50, UPDCM+51*, UPDCM+52, CONT+2~, CONT+10, CONT+14* , TRGPRG+1~, TRGPRG+14*, TRGPRG+15*, TRGPRG+16*, TRGPRG+17*, TRGPRG+18*, TRGPRG+19*, TRGPRG+20*, TRGPRG+21*, TRGPRG+22* , TRGPRG+23*, REC |
| VER | REP+8~, UVDEF+2~, UVDEF+26*, UVDEF+28, UVDEF+40 |
| VFIEN | UPDCM+7~, UPDCM+30*, UPDCM+31, UPDCM+32, UPDCM+45, UPDCM+47, UPDCM+50, UPDCM+51, UPDCM+63, UPDCM+65 |
| X | ADD+1~, ADD+2* |
| XMTH | CMETH+16~, CMETH+19*, CMETH+25 |
| Y | ADD+1~, ADD+6, ERR+2~, ERR+3* |
| >> ZTSK | REP+10, CMETH+3, UPDCM+9, TRGPRG+3 |