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

External References

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

Used in RPC

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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!

Label References

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

Marked Items

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