Routine: BQIPTRP1

Package	Total	Call Graph
VA Fileman	5	FILE^DICN $$GET1^DID FILE^DIE $$IENS^DILF $$GET1^DIQ
Kernel	3	^%ZTER $$NOW^XLFDT ($$PATCH,$$VERSION)^XPDUTL
iCare	2	$$AGE^BQIAGE ($$DATE,$$FMTE)^BQIUL1

Package	Total	Caller Graph
iCare	2	BQI23POS BQIPTRPF

Entry Points

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

External References

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

Used in RPC

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>>	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

Customize PDF page

Package: iCare

Routine: BQIPTRP1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: