Routine: BQIRGADD

Package	Total	Call Graph
VA Fileman	5	FILE^DICN FIELD^DID (,FILE,UPDATE,WP)^DIE $$ROOT^DILFD $$GET1^DIQ
Kernel	3	^%ZTER $$NOW^XLFDT $$STRIP^XLFSTR
IHS HIV Management System	2	($$BKMIEN,$$BKMREG,$$HIVIEN)^BKMIXX3 ($$ADDPAT,$$ADDREG)^BKMVCD
IHS Designated Provider	1	AEDAP^BDPAPI
iCare	1	$$DATE^BQIUL1

Name	Comments	DBIA/ICR reference
WP(WIENS)	;EP - Set up word-processing array
ERR	;
EN(DATA,BQIREG,BQIDFN,BQIEN,BQITYP,PARMS)	; EP - BQI SAVE REGISTER DATA ; Input parameters ; BQIREG - Register or sub-register name ; BQIDFN - Patient IEN ; BQIEN - Record IEN, if one was passed out to GUI ; BQITYP - What is to happen to the record (A=Add, E=Edit, D=Delete) ; PARMS - Parameters and their values
AST(BQDFN)	;EP - Add patient to Asthma Register
SAV(BQIUPD,IENS)	;EP - Set the data
DONE	;
HMS(BKMDFN,BQIEN,SUB,HFIL,HFLD)	; EP - Add patient to HMS register w/ status ; Taken from ACC^BKMVCD ; Replaced interactive messages with BMXSEC ; ; Input parameters: ; BKMDFN - patient ien ; BQIEN - record IENs

Name	Field # of Occurrence
^%ZTER	ERR+1
AEDAP^BDPAPI	HMS+113, HMS+116
$$BKMIEN^BKMIXX3	HMS+16, HMS+71
$$BKMREG^BKMIXX3	HMS+19, HMS+72
$$HIVIEN^BKMIXX3	HMS+14
$$ADDPAT^BKMVCD	HMS+17
$$ADDREG^BKMVCD	HMS+20
$$DATE^BQIUL1	EN+39
FILE^DICN	AST+4
FIELD^DID	HMS+35
^DIE	AST+8
FILE^DIE	HMS+31, HMS+40, HMS+94
UPDATE^DIE	HMS+57, HMS+126
WP^DIE	HMS+65, HMS+106
$$ROOT^DILFD	EN+65, EN+66
$$GET1^DIQ	HMS+38, HMS+111, HMS+114
$$NOW^XLFDT	ERR+3, HMS+56, HMS+77, HMS+81, HMS+85, HMS+89, HMS+124
$$STRIP^XLFSTR	HMS+37

RPC Name	Call Tags
BQI SAVE REGISTER DATA	EN

FileNo	Call Tags
^BATREG - [#90181.01]	Classic Fileman Calls
90451.01	GET1^DIQ, WP^DIE

Name	Line Occurrences (* Changed, ! Killed)
^BQI(90506.1 - [#90506.1]	EN+41, EN+42, EN+43
^BQI(90506.3 - [#90506.3]	EN+29, EN+37, EN+38, EN+52, EN+54, EN+55, EN+56, EN+57, EN+58
^BQI(90507 - [#90507]	EN+59, EN+61, EN+63
^DD("DD"	ERR+3
^TMP("BQIRGADD"	EN+12

Name	Line Occurrences
SAV	HMS+53, HMS+93
WP	SAV+9, HMS+63

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	HMS+127!
ADD	EN+8~, EN+63*, EN+74
>> BKMCMGR	HMS+111, HMS+112, HMS+113
BKMDFN	EN+73*, HMS~, HMS+16, HMS+17, HMS+71, HMS+113, HMS+116
BKMHIV	HMS+9~, HMS+14*, HMS+15, HMS+20
BKMIEN	HMS+9~, HMS+16, HMS+17, HMS+18, HMS+19, HMS+20, HMS+22, HMS+71, HMS+118~, HMS+119 , HMS+120, HMS+123
>> BKMIENS	HMS+11, HMS+22, HMS+51, HMS+61, HMS+62, HMS+75, HMS+77, HMS+78, HMS+79, HMS+80 , HMS+81, HMS+82, HMS+83, HMS+85, HMS+86, HMS+87, HMS+88, HMS+89, HMS+90, HMS+93 , HMS+111, HMS+114, HMS+119
BKMOK	HMS+9~
>> BKMPRV	HMS+114, HMS+115, HMS+116
BKMREG	HMS+9~, HMS+19, HMS+20, HMS+21, HMS+22, HMS+72, HMS+118~, HMS+119, HMS+120, HMS+123
BKMSTAT	EN+9~, HMS+76, HMS+79, HMS+84, HMS+87
BKMVUP	HMS+9~
>> BMXSEC	EN+28, EN+30, ERR+4, HMS+15, HMS+18, HMS+21
BN	EN+8~, EN+21, EN+22
BQ	EN+8~, EN+32*, EN+33
BQDFN	AST~, AST+2
>> BQFIL	SAV+3, SAV+4, SAV+6, SAV+7, WP+1, WP+2, WP+4, WP+6, WP+7
BQFLD	EN+10~, SAV+5, SAV+6, SAV+7, WP+3, WP+4, WP+6, WP+7, HMS+103, HMS+104 , HMS+105, HMS+106
BQIASRG	EN+9~, EN+51, EN+59, EN+60, EN+61, EN+63
BQIDATA	EN+9~, HMS+59!
BQIDATA(	EN+45, EN+48, SAV+4, SAV+6, SAV+7
BQIDFN	EN~, EN+73, HMS+72
BQIEN	EN~, HMS~, HMS+10*, HMS+11, HMS+13, HMS+31, HMS+38, HMS+40, HMS+52
BQIREG	EN~, EN+28, EN+29, EN+30, EN+54*, EN+59
BQITYP	EN~, EN+27, HMS+28, HMS+50, HMS+51, HMS+52, HMS+61, HMS+62
BQIUPD	SAV~, HMS+45!, HMS+93, HMS+94, HMS+95!
BQIUPD(	SAV+7, HMS+31, HMS+40, HMS+77, HMS+78, HMS+79, HMS+80!, HMS+81, HMS+82, HMS+85* , HMS+86, HMS+87, HMS+88!, HMS+89, HMS+90
BQIWP	SAV+2!, HMS+100
BQIWP(	WP+7*, HMS+64, HMS+102, HMS+104, HMS+105
BQJ	EN+10~, EN+46*, EN+47
>> BQN	WP+5, WP+6, WP+7
BQQI	EN+9~, EN+46*, EN+47
BQQIEN	HMS+49!
BQQIEN(1	HMS+61
BQWP	EN+8~, EN+31!, SAV+9, HMS+60
BQWP(	EN+47*, WP+2, WP+4, WP+6, WP+7
BWDATA	EN+10~, HMS+64, HMS+65, HMS+105, HMS+106
DA	EN+9~, AST+1~, AST+5*
DATA	EN~, EN+12*, EN+13, EN+17, DONE+1, ERR+5, HMS+32, HMS+33, HMS+39, HMS+42 , HMS+43, HMS+58, HMS+68, HMS+98, HMS+107, HMS+109
DD	AST+4!
DFIELD	EN+10~, EN+43*, EN+45, EN+47, EN+48
DFILE	EN+10~, EN+42*, EN+45, EN+47, EN+48
DIADD	AST+3*, AST+4!
DIC	AST+1~, AST+2*, AST+6
DIC("DR"	AST+3*
DIC(0	AST+2*
DIE	AST+1~, AST+6*
DIK	EN+9~
DINUM	AST+1~, AST+2*, AST+4!
DLAYGO	AST+1~, AST+3*, AST+4!
DO	AST+4!
DR	AST+1~, AST+7*
DUZ	HMS+38, HMS+55, HMS+78, HMS+82, HMS+86, HMS+90, HMS+120, HMS+125
ERRDTM	ERR+2~, ERR+3*, ERR+4
ERROR	HMS+32, HMS+42!, HMS+48, HMS+49!, HMS+58!, HMS+68!, HMS+92!, HMS+97, HMS+107
ERROR("DIERR"	HMS+32, HMS+42, HMS+58, HMS+68, HMS+98, HMS+107
FDA	HMS+49!, HMS+53, HMS+59!, HMS+122!, HMS+127!
FDA(	HMS+55, HMS+56, HMS+124, HMS+125
FDA(""	HMS+54
FIELD	EN+8~
FILE	EN+8~, EN+62*, EN+65, EN+66, HMS+31
GLBNOD	EN+9~, EN+66*, EN+67, EN+70
GLBREF	EN+9~, EN+65*
>> HARRAY("SPECIFIER"	HMS+36
HFIL	EN+55, EN+57, EN+73*, HMS~, HMS+35
HFLD	EN+56, EN+58, EN+73*, HMS~, HMS+35
IENS	SAV~, SAV+7, SAV+9, HMS+29~, HMS+31, HMS+40, HMS+51, HMS+52, HMS+53, HMS+55 , HMS+56, HMS+101, HMS+102, HMS+104, HMS+105, HMS+106, HMS+118~, HMS+123*, HMS+124, HMS+125
II	EN+8~, EN+15, EN+17, DONE+1, ERR+5, HMS+32, HMS+33, HMS+39, HMS+42, HMS+43 , HMS+58, HMS+68, HMS+98, HMS+107, HMS+109*
LIST	EN+21, EN+22, EN+24, EN+25!
NAME	EN+8~, EN+34*, EN+36, EN+37, EN+41
NWIENS	EN+10~, HMS+61, HMS+62, HMS+63, HMS+64, HMS+65
PARMS	EN~, EN+19, EN+20, EN+23!, EN+24, EN+27, EN+32, EN+33
PARMS(	EN+22
PDATA	EN+8~, EN+33*, EN+34
PFIEN	EN+8~, EN+37*, EN+38
>> PTYP	EN+38*, EN+39, EN+44
PTYPE	EN+8~
>> RESULT	HMS+113, HMS+116
RGDATA	EN+9~, EN+61*, EN+62, EN+64
RVIEN	EN+8~, EN+41*, EN+42, EN+43
>> SBFIL	HMS+36, HMS+37, HMS+38, HMS+40, HMS+54*, HMS+55, HMS+56, HMS+64, HMS+65
SUB	EN+9~, EN+52*, EN+53, EN+54, EN+55, EN+56, SAV+9, HMS~, HMS+30, HMS+34 , HMS+48, HMS+70
SUBREG	EN+9~, EN+64*
U	EN+38, EN+42, EN+43, EN+52, EN+54, EN+55, EN+56, EN+57, EN+58, EN+62 , EN+64, HMS+32, HMS+33, HMS+42, HMS+43, HMS+58, HMS+68, HMS+98, HMS+107, HMS+109
UID	EN+8~, EN+11*, EN+12
VALUE	EN+8~, EN+34, EN+35, EN+39*, EN+45, EN+46, EN+48
VFIEN	EN+8~, EN+29*, EN+30, EN+37, EN+38, EN+52, EN+57, EN+58
WIENS	WP~, WP+7
X	AST+1~, AST+2*, HMS+127!
XREF	EN+9~, EN+62*, EN+65
Y	ERR+2~, ERR+3*, AST+5, HMS+127!
>> ZTSK	EN+11

Customize PDF page

Package: iCare

Routine: BQIRGADD

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: