Routine: BKMQUTL

Package	Total	Call Graph
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS HIV Management System	7	BKMQQCRA BKMQQCRU BKMQSSR BKMQSSR3 BKMQSSR4 BKMQSSR5 BKMQSSR6

Entry Points

Name	Comments	DBIA/ICR reference
COLHDR	;
UPD(LINE,NUM,SUPP)	;EP ; Update global with line of text ; NUM - Number of blank lines that follow text ; SUPP - Suppress line feed carriage return
CTR(TEXT)	; EP - Center data.
HMSIENS(DFN)	; Retrieve HMS Register IENS for specified patient
LINE(TEXT,STR,POS)	; Set text to match printed report formatting
ACT(DFN,DXCAT,STAT)	;EP - Check for Dx tag status for a patient ; DFN - Patient ien ; DXCAT - ien of diagnostic category ; STAT - desired status; if blank either A or P
HMSDEN(HMSIEN,DFN)	; EP -- Is patient in HMS denominator?

Name	Field # of Occurrence
$$GET1^DIQ	HMSDEN+18, HMSDEN+23, HMSIENS+2

Name	Line Occurrences (* Changed, ! Killed)
^BQI(90507 - [#90507]	HMSIENS+1
^BQIREG - [#90509]	ACT+8
^BQIREG("C"	HMSDEN+16, ACT+7

Name	Field # of Occurrence
ACT	ACT+5~, ACT+6, ACT+9, ACT+10*, ACT+11
>> BQII	UPD+5, UPD+8, COLHDR+1
CENTER	CTR+6~, CTR+8*, CTR+9
CLINE	CTR+6~, CTR+8*, CTR+9
CSTAT	ACT+5~, ACT+6, ACT+8, ACT+9, ACT+10, ACT+11
>> DATA	UPD+5, UPD+8, COLHDR+1
DFN	HMSDEN~, HMSDEN+16, HMSDEN+22, HMSIENS~, ACT~, ACT+7
DXCAT	ACT~, ACT+7
>> EXEC	HMSIENS+2*, HMSIENS+3
HMSIEN	HMSDEN~, HMSDEN+16
IENS	HMSDEN+15~, HMSDEN+22*, HMSDEN+23, HMSIENS+4
II	UPD+7~, UPD+8*
LEN	CTR+6~, CTR+7*, CTR+8
LINE	UPD~, UPD+5
>> LNLEN	CTR+8
NUM	UPD~, UPD+4*, UPD+6, UPD+8
POS	LINE~, LINE+1, LINE+2
REG	HMSDEN+15~, HMSIENS+1*
REGIEN	HMSDEN+15~, HMSIENS+1*, HMSIENS+2
RIEN	ACT+5~, ACT+6, ACT+7, ACT+8
START	CTR+6~, CTR+9*, CTR+10
STAT	HMSDEN+15~, HMSDEN+22, HMSDEN+23, HMSDEN+24, ACT~, ACT+9, ACT+10
STR	LINE~, LINE+1, LINE+2
SUPP	UPD~, UPD+4*, UPD+5
TAGIEN	HMSDEN+15~, HMSDEN+16*, HMSDEN+17, HMSDEN+18
TAGSTAT	HMSDEN+15~, HMSDEN+18*, HMSDEN+19
TEXT	CTR~, CTR+7, CTR+10, CTR+11, LINE~, LINE+1, LINE+2, LINE+3
U	ACT+8, ACT+11