Routine: BKMVA41

Package	Total	Call Graph
Registration	3	EN^VALM $$SETFLD^VALM1 SET^VALM10
IHS HIV Management System	2	($$HIVIEN,$$VALID)^BKMIXX3 $$PAD^BKMIXX4
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
VA Fileman	2	$$IENS^DILF $$GET1^DIQ
IHS VA Utilities	1	^XBFMK

Entry Points

Name	Comments	DBIA/ICR reference
EN	;ENTRY POINT -- ListMan template BKMV PCC LAB REVIEW ; Assumes existence of DFN,DUZ
HELP	; -- help code
GETALL(DFN)	; Build ListMan display array of patient lab information ; Input variables: ; DFN - IEN for File 2 ; Output variables: ; VALMAR - Builds ListMan array ; VALMCNT - List array count ; VALM0
INIT	; -- init variables and list array ; Assumes existence of DFN
EXIT	;clean up used variables
GETDA(DFN,VALUE)	; Return IEN for the Patient DFN with the Register value ; Search for the appropriate register VALUE for the patient DFN and return the ; patient IEN in the variable DA. ; If the variable VALUE contains a 1 then the IEN for the patient in the ; HIV Management System is returned.
HDR	; -- header code ; Assumes existence of DUZ

Name	Field # of Occurrence
$$HIVIEN^BKMIXX3	EN+3
$$VALID^BKMIXX3	EN+5
$$PAD^BKMIXX4	HDR+4
$$IENS^DILF	HDR+3, GETALL+17, GETALL+35
$$GET1^DIQ	HDR+3, GETALL+18, GETALL+21, GETALL+22, GETALL+24, GETALL+26, GETALL+27, GETALL+41, GETALL+42, GETALL+43 , GETALL+44, GETALL+45
EN^VALM	EN+8
$$SETFLD^VALM1	GETALL+40, GETALL+41, GETALL+42, GETALL+43, GETALL+48
SET^VALM10	GETALL+49
^XBFMK	EN+7, EN+9, GETALL+9, GETALL+51
$$FMTE^XLFDT	GETALL+40
DISP^XQORM1	HELP+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There is no HMS register defined." Line Location: EN+4
Function Call: WRITE	Prompt: ! Line Location: HELP+1
Routine Call	VALM Line Location: EN+8

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVLAB("AC"	GETALL+16, GETDA+6
^TMP("BKMVA41"	EN+6!, GETALL+28*, GETALL+30, GETALL+31, GETALL+32, GETALL+33, EXIT+1!

Name	Line Occurrences
EXIT	EN+10
GETALL	INIT+2

Name	Field # of Occurrence
BKMACC	GETALL+8~, GETALL+24, GETALL+25, GETALL+28, GETALL+31*, GETALL+32, GETALL+33
BKMCHI	GETALL+8~, GETALL+27, GETALL+28, GETALL+33, GETALL+34, GETALL+41
BKMPAR	GETALL+8~, GETALL+26, GETALL+28, GETALL+32, GETALL+33, GETALL+34
BKMPVDT	GETALL+7~, GETALL+30, GETALL+40, GETALL+50
BKMRNG	GETALL+7~, GETALL+46, GETALL+47, GETALL+48
BKMRVDT	GETALL+8~, GETALL+23, GETALL+28, GETALL+30, GETALL+31, GETALL+32, GETALL+33, GETALL+36
BKMVDT	GETALL+7~, GETALL+36*, GETALL+40, GETALL+50
DA	HDR+2~, HDR+3, GETALL+17, GETALL+34, GETALL+35, GETDA+5~, GETDA+6, GETDA+7
DA0	GETALL+7~
DFN	INIT+2, GETALL~, GETALL+16, GETDA~, GETDA+6
DUZ	EN+5
DUZ(2	HDR+3
HIVIEN	EN+2~, EN+3*, EN+4
IENS	HDR+2~, HDR+3, GETALL+7~, GETALL+17, GETALL+18, GETALL+21, GETALL+24, GETALL+26, GETALL+27, GETALL+35* , GETALL+41, GETALL+42, GETALL+43, GETALL+44, GETALL+45
LAB	GETALL+7~, GETALL+15, GETALL+16, GETALL+17, GETALL+26, GETALL+27
LABDT	GETALL+7~, GETALL+15, GETALL+18, GETALL+20, GETALL+22*, GETALL+23
>> RCRDHDR	HDR+5
REFHIGH	GETALL+7~, GETALL+45*, GETALL+46
REFLOW	GETALL+7~, GETALL+44*, GETALL+46
SITE	HDR+2~, HDR+3*, HDR+4
TEXT	GETALL+7~, GETALL+38, GETALL+40, GETALL+41, GETALL+42, GETALL+43, GETALL+48, GETALL+49
VALM0	GETALL+10*, EXIT+2!
VALMAR	GETALL+10*, EXIT+2!
VALMCNT	GETALL+10, GETALL+37, GETALL+49, EXIT+2!
VALMHDR	EXIT+2!
VALMHDR(1	HDR+4*
VALMHDR(2	HDR+5*
VALUE	GETDA~
VSTIEN	GETALL+7~, GETALL+21*, GETALL+22
>> X	HELP+1*