Routine: BQIRPL

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC FILE^DIE $$IENS^DILF $$GET1^DIQ
Kernel	3	^%ZTER ($$DT,$$FMADD,$$FMTE,$$NOW)^XLFDT ($$PATCH,$$VERSION)^XPDUTL
iCare	3	($$DATE,$$FMTE,$$TRIM)^BQIUL1 $$ICD9^BQIUL3 EN^BQIVFADD
IHS Patient	1	$$PNPROB^AUPNVUTL
Patient Care Component	1	($$ADDPROB,$$DELPROB)^APCDALV2
Patient Care Component Reports	1	$$LASTPLU^APCLAPI6

Package	Total	Caller Graph
iCare	1	BQIRPLN

Entry Points

Name	Comments	DBIA/ICR reference
DNE	; EP
EN(DATA,DFN,DRANGE,BQPIEN,DEL)	; EP - BQI PATIENT PROBLEM LIST
GETDATA(BQPIEN)	;EP
HDR	;
UPD(DATA,DFN,TYPE,PBLIEN,PARMS)	;EP - BQI UPDATE PROBLEM LIST
ERR	;
PBVAL(IEN,DFN)	; Validate problem ien
PID(BQPIEN)	;EP - Return problem ID
SET	; Report results
DONE	;
NOT(BQPIEN)	;EP - Return notes
UNLOCK(DATA,DFN,PBIEN)	; EP - BQI UNLOCK PROBLEM ; Description ; Unlock the problem record specified by PBIEN which was ; previously locked for exclusive editing access. ; If the entry in the 'LAST LOCKED BY' field is for this DUZ then ; delete it (so another user can't accidentally update it). ; Input: ; DFN - Patient IEN ; PBIEN - Problem IEN to be locked ; Output: ; DATA = name of global (passed by reference) in which the data is stored ; RESULT = 1 (unlock will always succeed) ; RESULT = -1 if problem identified with file 90507 (shouldn't happen) ; or ; BMXSEC - if M error encountered ;
EMSG	;
VUP(VUP)	;EP - Log V UPDATED/REVIEWED entry for PROBLEM LIST UPDATED
LOCK(DATA,DFN,PBIEN)	; EP - BQI LOCK PROBLEM ; Description ; Attempt to lock a problem record specified by PBIEN for ; exclusive editing access. ; This will only be used for edits and deletions of problem records. ; If successful, sets 'LAST LOCKED BY' with the current DUZ ; and returns a RESULT of 1 and the current DUZ. ; If unsuccessful, returns a RESULT of 0 and the DUZ from the ; 'LAST LOCKED BY' field. ; Input: ; DFN - Patient IEN ; PBIEN - Problem IEN to be locked ; Output: ; DATA = name of global (passed by reference) in which the data is stored

Name	Field # of Occurrence
NOW^%DTC	VUP+6
^%ZTER	ERR+1
$$ADDPROB^APCDALV2	UPD+71, UPD+72, UPD+75
$$DELPROB^APCDALV2	UPD+24
$$LASTPLU^APCLAPI6	GETDATA+25
$$PNPROB^AUPNVUTL	GETDATA+41
$$DATE^BQIUL1	EN+30, UPD+43
$$FMTE^BQIUL1	GETDATA+6, GETDATA+20, GETDATA+21, GETDATA+34, VUP+6, NOT+8
$$TRIM^BQIUL1	PID+5
$$ICD9^BQIUL3	GETDATA+13, GETDATA+15
EN^BQIVFADD	VUP+19
FILE^DIE	UPD+58, UPD+84, UPD+96
$$IENS^DILF	GETDATA+3
$$GET1^DIQ	GETDATA+4, GETDATA+8, GETDATA+18, GETDATA+19, GETDATA+22, GETDATA+31, GETDATA+34, GETDATA+38, GETDATA+43, LOCK+44 , PBVAL+2
$$DT^XLFDT	LOCK+49
$$FMADD^XLFDT	LOCK+49
$$FMTE^XLFDT	UPD+74
$$NOW^XLFDT	ERR+3
$$PATCH^XPDUTL	GETDATA+41, UPD+71, UPD+72
$$VERSION^XPDUTL	GETDATA+13, GETDATA+14, GETDATA+15, GETDATA+16, UPD+69

RPC Name	Call Tags
BQI PATIENT PROBLEM LIST	EN
BQI UPDATE PROBLEM LIST	UPD
BQI LOCK PROBLEM	LOCK
BQI UNLOCK PROBLEM	UNLOCK

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^AUPNVRUP - [#9000010.54]	GET1^DIQ
^AUPNPROB - [#9000011]	GET1^DIQ
^AUTTLOC - [#9999999.06]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	GETDATA+9, UPD+57, UPD+80, UPD+83, UPD+90, UPD+91, LOCK+38, UNLOCK+37, NOT+3, NOT+4 , NOT+5, NOT+7, NOT+8, NOT+9, PID+2
^AUPNPROB("AC"	EN+32, EN+36, UPD+79, UPD+89
^AUTNPOV - [#9999999.27]	GETDATA+39
^AUTTCRA("B"	VUP+13
^AUTTLOC - [#9999999.06]	GETDATA+11, GETDATA+12, NOT+7, PID+4
^BQI(90506.3 - [#90506.3]	UPD+18, UPD+20, UPD+41, UPD+42, UPD+46, UPD+47, UPD+48, UPD+49, UPD+66
^DD("DD"	ERR+3
^DD(9000011	GETDATA+37
^ICD9 - [#80]	GETDATA+14, GETDATA+16
^TMP("BQIPBLK"	LOCK+24, LOCK+25!, UNLOCK+18, UNLOCK+19!
^TMP("BQIRPL"	EN+19
^TMP("BQIRPLU"	UPD+12
^TMP("BQISPL"	EN+19
^XTMP("BQIPBLK"	LOCK+43, LOCK+49, LOCK+50, UNLOCK+30, UNLOCK+33!

Name	Line Occurrences
$$NOT	GETDATA+42
$$PBVAL	LOCK+32, UNLOCK+26
$$PID	NOT+1
DNE	UPD+23
DONE	EN+32, EN+34
GETDATA	EN+34, EN+36
HDR	EN+28
SET	LOCK+33, LOCK+52, UNLOCK+27, UNLOCK+38
VUP	DNE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	VUP+1~, VUP+6
APCDCAT	VUP+1~, VUP+9*
APCDCLAS	UPD+8~, UPD+57, UPD+75, UPD+83
APCDCLS	UPD+7~, UPD+71, UPD+72, UPD+75
APCDDATE	VUP+1~, VUP+6*
APCDDLM	UPD+7~, UPD+71, UPD+72, UPD+75
APCDDOO	UPD+7~, UPD+71, UPD+72, UPD+74*, UPD+75
APCDDTE	UPD+7~, UPD+71, UPD+72, UPD+75
APCDDX	UPD+7~, UPD+71, UPD+72, UPD+75, UPD+80, UPD+90
APCDEBU	UPD+8~, UPD+75
APCDEC1	UPD+10~, UPD+75
APCDEC2	UPD+10~, UPD+75
APCDEC3	UPD+10~, UPD+75
APCDFAC	UPD+7~, UPD+71, UPD+72, UPD+75
APCDLOC	VUP+1~, VUP+5*
APCDLOOK	VUP+1~, VUP+15*
APCDN	UPD+8~, UPD+72, UPD+75
APCDOLOC	VUP+1~, VUP+7*
APCDP	UPD+7~, UPD+10~, UPD+64*, UPD+71, UPD+72, UPD+75
APCDSTAT	UPD+7~, UPD+71, UPD+72, UPD+75
APCDTCDT	UPD+10~, VUP+16*
APCDTCLA	VUP+1~, VUP+13*, VUP+14, VUP+15
APCDTEPR	UPD+10~, VUP+17*
APCDTOPR	VUP+1~, VUP+10*
APCDTYPE	VUP+1~, VUP+8*
>> BMXSEC	ERR+4, UPD+19
BN	UPD+8~, UPD+31, UPD+32
BQ	UPD+8~, UPD+37*, UPD+39
BQAPID	EN+13~, GETDATA+12*, GETDATA+45
BQCLS	EN+14~, GETDATA+8*, GETDATA+45
BQCNT	EN+15~, NOT+3, NOT+6
BQDL	EN+15~, NOT+3*, NOT+4, NOT+5, NOT+7, NOT+8, NOT+9
BQDX	EN+14~, GETDATA+13, GETDATA+14, GETDATA+15, GETDATA+16, GETDATA+45
BQICLAS	EN+16~, GETDATA+36, GETDATA+38, GETDATA+45
BQID	EN+13~, DONE+3, DONE+4, DONE+6, DONE+8
BQIDATA	UPD+8~
BQIDATA(	UPD+52*, UPD+93, UPD+94
BQIDFN	VUP+1~, VUP+4*, VUP+19
BQIEN	EN+13~, DONE+5, DONE+6, DONE+8
BQII	EN+13~, EN+22, DONE+7, DONE+8, DONE+9, HDR+1, HDR+2, ERR+5, UPD+15, UPD+17 , DNE+3, DNE+4, LOCK+22~, LOCK+30, UNLOCK+16~, UNLOCK+24, SET+1, SET+2*
BQITCDT	EN+16~, GETDATA+23, GETDATA+25, GETDATA+28, GETDATA+30, GETDATA+32, GETDATA+34, GETDATA+45
BQITEPR	EN+16~, GETDATA+23, GETDATA+34, GETDATA+45
BQIUPD	UPD+10~, UPD+56, UPD+59!, UPD+85!, UPD+97!
BQIUPD(	UPD+53, UPD+56, UPD+57, UPD+82, UPD+83, UPD+94, UPD+95*
BQIUPDT	EN+13~, GETDATA+21*, GETDATA+45
BQIUSUP	EN+15~, GETDATA+22*, GETDATA+45
BQNARR	EN+14~, GETDATA+39, GETDATA+41, GETDATA+45
BQNDE0	EN+15~, GETDATA+9, GETDATA+10, GETDATA+11, GETDATA+12, GETDATA+13, GETDATA+14, GETDATA+15, GETDATA+16, GETDATA+20 , GETDATA+21, GETDATA+39, PID+1~, PID+2, PID+3, PID+4
BQNDX	EN+15~, NOT+5*, NOT+7, NOT+8, NOT+9
BQNIEN	EN+16~, GETDATA+39*, GETDATA+40, GETDATA+41
BQNOTE	EN+15~, GETDATA+42, GETDATA+45, NOT+2, NOT+7, NOT+8, NOT+9*, NOT+10
BQNOTEF	EN+14~
BQONSET	EN+14~, GETDATA+20*, GETDATA+45
BQPIEN	EN~, EN+26, EN+32, EN+34, EN+36, GETDATA~, GETDATA+2, GETDATA+9, GETDATA+18, GETDATA+19 , GETDATA+22, GETDATA+38, GETDATA+42, GETDATA+45, NOT~, NOT+1, NOT+3, NOT+4, NOT+5, NOT+7 , NOT+8, NOT+9, PID~, PID+2
BQPRB	EN+14~
BQPRBDT	EN+15~, GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+45
BQPRID	EN+14~, GETDATA+11, GETDATA+45, NOT+1, NOT+7, PID+1~, PID+4, PID+5, PID+6
BQPRV	EN+15~
BQST	EN+14~, DONE+1, DONE+2, DONE+4, DONE+6, DONE+8, GETDATA+18, GETDATA+44, GETDATA+45
BQSTN	EN+15~, GETDATA+19*, GETDATA+45
CHIEN	UPD+8~, UPD+46*, UPD+47
DA	EN+13~, GETDATA+2*, GETDATA+3
DATA	EN~, EN+19, EN+20, DONE+8, DONE+9, HDR+1, HDR+2, ERR+5, UPD~, UPD+12 , UPD+13, UPD+17, DNE+3, DNE+4, LOCK~, LOCK+24, LOCK+30, UNLOCK~, UNLOCK+18, UNLOCK+24 , SET+1, SET+2
DEL	EN~, EN+26*, GETDATA+24
DFN	EN~, EN+26*, EN+32, EN+36, GETDATA+25, GETDATA+45, UPD~, UPD+64, UPD+79, UPD+89 , VUP+4, LOCK~, LOCK+32, UNLOCK~, UNLOCK+26, PBVAL~, PBVAL+2
DRANGE	EN~, EN+26, EN+30, GETDATA+5
DT	GETDATA+25, UPD+56, LOCK+49
DTM	GETDATA+29~, GETDATA+31*, GETDATA+32
DUZ	UPD+56, UPD+80, UPD+82, UPD+91, UPD+95, LOCK+50, UNLOCK+33
DUZ(2	VUP+5
EPARMS	VUP+1~, VUP+14, VUP+15, VUP+16, VUP+17, VUP+19
ERRDTM	ERR+2~, ERR+3*, ERR+4
ERROR	UPD+9~, UPD+61
ERROR("DIERR"	UPD+61
EXEC	UPD+38~, UPD+49*, UPD+50
FIELD	UPD+9~, UPD+48, UPD+52, UPD+53, UPD+94
FILE	UPD+9~, UPD+20*, UPD+53, UPD+56, UPD+57, UPD+82, UPD+83, UPD+94, UPD+95
FNME	UPD+9~, UPD+65, UPD+66, UPD+67
HBQNARR	EN+16~, GETDATA+40*, GETDATA+45
IEN	GETDATA+29~, GETDATA+30, GETDATA+31, UPD+78, UPD+79, UPD+80, UPD+87~, UPD+88, UPD+89*, UPD+90 , UPD+91, PBVAL~, PBVAL+1, PBVAL+2
IENS	EN+13~, GETDATA+3*, GETDATA+4, GETDATA+8
II	UPD+7~
LIST	UPD+9~, UPD+31, UPD+32, UPD+34, UPD+35!
LOC	EN+13~, GETDATA+10, GETDATA+11, GETDATA+12, GETDATA+43, GETDATA+45, PID+1~, PID+3*, PID+4
MSG	UPD+9~, UPD+24, UPD+26, UPD+27, UPD+76, UPD+98, VUP+1~, LOCK+22~, LOCK+32, LOCK+46* , UNLOCK+16~, UNLOCK+26*, SET+1
NAME	UPD+9~, UPD+40, UPD+41, UPD+52, UPD+53, LOCK+44, LOCK+45*, LOCK+46
NLOC	EN+14~, NOT+4*, NOT+7
NM	UPD+10~, UPD+92, UPD+93, UPD+94
PARMS	UPD~, UPD+29, UPD+30, UPD+33!, UPD+34, UPD+37, UPD+39
PARMS(	UPD+32
PBIEN	LOCK~, LOCK+32, LOCK+38, LOCK+43, LOCK+50, UNLOCK~, UNLOCK+26, UNLOCK+30, UNLOCK+33, UNLOCK+37
PBLID	UPD+8~
PBLIEN	UPD~, UPD+22, UPD+24, UPD+53, UPD+56, UPD+57, UPD+80, UPD+81, UPD+82, UPD+83 , UPD+91*, UPD+94, UPD+95, DNE+3
PBLNB	UPD+8~
PBLPR	UPD+8~
PDATA	UPD+9~, UPD+39*, UPD+40
PFIEN	UPD+9~, UPD+41*, UPD+42, UPD+46, UPD+47, UPD+48, UPD+49
PRVNAR	UPD+8~, UPD+71
PTYP	UPD+9~, UPD+42*, UPD+43, UPD+45
QFL	UPD+10~, UPD+78, UPD+79, UPD+80, UPD+88, UPD+89, UPD+91
RDATA	UNLOCK+16~
REGIEN	UNLOCK+16~
RESULT	UPD+9~, UPD+24, UPD+25, UPD+26, UPD+27, UPD+60, UPD+61, UPD+71, UPD+72, UPD+75 , UPD+77, UPD+86, UPD+98, DNE+1, DNE+3, VUP+1~, LOCK+22~, LOCK+33, LOCK+37, LOCK+38 , LOCK+41, LOCK+48, UNLOCK+25~, UNLOCK+27, UNLOCK+36, SET+1
SDATA	EN+13~, EN+19*, EN+20, DONE+2, DONE+4, DONE+6, DONE+8, DONE+10, GETDATA+45
TYPE	UPD~, UPD+22*, UPD+23, UPD+51, UPD+53, UPD+55, UPD+63
U	DONE+8, GETDATA+10, GETDATA+11, GETDATA+12, GETDATA+13, GETDATA+14, GETDATA+15, GETDATA+16, GETDATA+20, GETDATA+21 , GETDATA+28, GETDATA+30, GETDATA+32, GETDATA+34, GETDATA+39, GETDATA+45, UPD+20, UPD+27, UPD+42, UPD+47 , UPD+48, UPD+57, UPD+60, UPD+61, UPD+80, UPD+83, UPD+90, UPD+91, UPD+98, DNE+3 , LOCK+32, LOCK+49, UNLOCK+26, NOT+4, NOT+7, NOT+8, NOT+9, PID+3, PID+4
UID	EN+13~, EN+18, EN+19, UPD+7~, UPD+11, UPD+12, LOCK+22~, LOCK+23, LOCK+24, LOCK+25 , UNLOCK+16~, UNLOCK+17, UNLOCK+18, UNLOCK+19
USER	LOCK+35~, LOCK+43, LOCK+44, UNLOCK+25~, UNLOCK+30, UNLOCK+33
VAL	LOCK+22~, LOCK+32, LOCK+33, UNLOCK+16~, UNLOCK+26, UNLOCK+27
VALUE	UPD+9~, UPD+40, UPD+43, UPD+46, UPD+47*, UPD+52, UPD+53
VER	UPD+10~, UPD+69*, UPD+70, UPD+73
VFIEN	UPD+9~, UPD+18*, UPD+19, UPD+20, UPD+41, UPD+42, UPD+46, UPD+47, UPD+48, UPD+49 , UPD+66
VFILE	VUP+1~, VUP+4, VUP+5, VUP+6, VUP+7, VUP+8, VUP+9, VUP+10*, VUP+19
VUP	VUP~, VUP+13
X	EN+13~, LOCK+22~, UNLOCK+16~
Y	ERR+2~, ERR+3*
>> ZTSK	EN+18, UPD+11, LOCK+23, UNLOCK+17

Customize PDF page

Package: iCare

Routine: BQIRPL

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items