Routine: BKMVSUP

Information

BKMVSUP ;PRXM/HC/WOM - HIV SUPPLEMENT; [ 1/19/2005 7:16 PM ] ; 10 Jun 2005 12:02 PM

Call Graph

Call Graph Total: 20

Package	Total	Call Graph
IHS HIV Management System	9	($$BKMREG,$$HIVIEN)^BKMIXX3 ($$ICD9,$$ICDD)^BKMUL3 GET^BKMVSRP1 (CD4,CHL,CMV,COC,GENO,GON,PAP,PHENO,PPD,RPR,TOX,VIRAL)^BKMVSUP1 ($$HTWT,IMM,SCREENS)^BKMVSUP2 ($$PAUSE,DEN,DRUGS,MAM,RET)^BKMVSUP3 (HEP,HEPA,HEPB,HEPC)^BKMVSUP4 (ED,FLOW,REM)^BKMVSUP5 ($$CONF,$$HIVTAG,GETALL,HEADER,LIPID)^BKMVSUP6
VA Fileman	4	^%DT NOW^%DTC ($$GET1,GETS)^DIQ ^DIR
iCare	3	$$TKO^BQIUL1 $$DPCP^BQIULPT ($$HCSM,$$HPRV)^BQIVFDEF
Kernel	2	$$FMTE^XLFDT $$VERSION^XPDUTL
Patient Care Component Reports	1	$$PBMI^APCLV
Registration	1	$$LOWER^VALM1

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
IHS HIV Management System	6	BKMVSUP1 BKMVSUP2 BKMVSUP3 BKMVSUP4 BKMVSUP5 BKMVSUP6

Entry Points

Name	Comments	DBIA/ICR reference
LINE(TEXT,STR,POS)	; Set text to match HMS Supplement formatting
OI	; Opportunistic Infections
UPD	; Update global with line of text; update page and total line count
DT(FDT)
BMI(PT,HT,HTD,WT,WTD,AGE)	; Calculate BMI
EP(DFN)	;EP - Called by Health Summary Supplement ; Value for APCHSPAT is passed to identify the patient (DFN) ; IO variables will already have been set
EP2(DFN)	; Get data and report for one patient ; Store lines to print in ^TMP("BKMVSUP",$J)
NEWPG	; Print new page
BLANK(CNT)	; Add blank line(s) to output global
PARSE(STR,LEN,TARGET)	; Break up text by length and store in provided TARGET
PRINT	; Print report from ^TMP("BKMVSUP",$J)
XIT	; Exit from routine
GETDATA	; Load data in ^TMP
PRIV(BKMDUZ)	; EP - Determine if user has access rights in HMS ; Extrinsic function - returns 1 (ability to access HMS data) or ; 0 (no HMS security access established) ; Input: ; BKMDUZ - DUZ, IEN for File 200 ; Output: n/a

External References

Name	Field # of Occurrence
^%DT	DT+2
NOW^%DTC	EP2+12, PRINT+5
$$PBMI^APCLV	GETDATA+59
$$BKMREG^BKMIXX3	GETDATA+9
$$HIVIEN^BKMIXX3	PRIV+9
$$ICD9^BKMUL3	OI+38
$$ICDD^BKMUL3	OI+32
GET^BKMVSRP1	EP2+13
CD4^BKMVSUP1	OI+86
CHL^BKMVSUP1	OI+91
CMV^BKMVSUP1	OI+97
COC^BKMVSUP1	OI+99
GENO^BKMVSUP1	OI+102
GON^BKMVSUP1	OI+92
PAP^BKMVSUP1	OI+90
PHENO^BKMVSUP1	OI+101
PPD^BKMVSUP1	OI+100
RPR^BKMVSUP1	OI+89
TOX^BKMVSUP1	OI+98
VIRAL^BKMVSUP1	OI+87
$$HTWT^BKMVSUP2	GETDATA+51
IMM^BKMVSUP2	OI+104
SCREENS^BKMVSUP2	OI+108
$$PAUSE^BKMVSUP3	PRINT+9
DEN^BKMVSUP3	OI+112
DRUGS^BKMVSUP3	OI+106
MAM^BKMVSUP3	OI+114
RET^BKMVSUP3	OI+110
HEP^BKMVSUP4	OI+93
HEPA^BKMVSUP4	OI+94
HEPB^BKMVSUP4	OI+95
HEPC^BKMVSUP4	OI+96
ED^BKMVSUP5	OI+116
FLOW^BKMVSUP5	OI+120
REM^BKMVSUP5	OI+118
$$CONF^BKMVSUP6	OI+122
$$HIVTAG^BKMVSUP6	GETDATA+74
GETALL^BKMVSUP6	OI+7
HEADER^BKMVSUP6	PRINT+7
LIPID^BKMVSUP6	OI+88
$$TKO^BQIUL1	PARSE+9, PARSE+11
$$DPCP^BQIULPT	GETDATA+38
$$HCSM^BQIVFDEF	GETDATA+48
$$HPRV^BQIVFDEF	GETDATA+44
$$GET1^DIQ	GETDATA+44, GETDATA+48, GETDATA+79, OI+33, OI+39, OI+73, OI+74
GETS^DIQ	GETDATA+42, OI+59
^DIR	EP+25
$$LOWER^VALM1	GETDATA+71
$$FMTE^XLFDT	PRINT+5, GETDATA+34, GETDATA+69, GETDATA+72, GETDATA+77, GETDATA+83, GETDATA+87, OI+15, OI+37, OI+63 , OI+67, OI+74
$$VERSION^XPDUTL	OI+32, OI+33, OI+38, OI+39

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"HMS Patient Care Summary cannot be generated as selected patient" Line Location: EP+12
Function Call: WRITE	Prompt: !?5,"is not in the HMS Register.",! Line Location: EP+13
Function Call: WRITE	Prompt: !!,"Sorry, you are currently not an authorized HMS user." Line Location: EP+18
Function Call: WRITE	Prompt: !,"Please see your Security Administrator for access.",! Line Location: EP+19
Function Call: WRITE	Prompt: !! Line Location: EP+23
Function Call: WRITE	Prompt: @IOF Line Location: EP+31
Function Call: WRITE	Prompt: !!?5,"HMS Patient Care Summary cannot be generated as selected patient" Line Location: EP2+8
Function Call: WRITE	Prompt: !?5,"is not in the HMS Register.",! Line Location: EP2+9
Function Call: WRITE	Prompt: !,^TMP("BKMVSUP",$J,PAGE,CNT) Line Location: PRINT+10
Routine Call	DIR Line Location: EP+25

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^ICD9 - [#80]	GET1^DIQ
90451.01	GET1^DIQ, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BKM(90450 - [#90450]	PRIV+11, PRIV+12
^BKM(90451 - [#90451]	EP+7, EP2+3, GETDATA+68
^TMP("BKMSUPP"	EP+6!, EP+21*, EP+32!, EP2+14!, GETDATA+7
^TMP("BKMVSUP"	EP+6!, EP+32!, PRINT+6, PRINT+8, PRINT+10, UPD+2, BLANK+2

Label References

Name	Line Occurrences
$$LINE	GETDATA+30, GETDATA+33, GETDATA+36, GETDATA+55, OI+20, OI+21, OI+22, OI+23, OI+24, OI+25 , OI+37, OI+38, OI+39, OI+41, OI+45, OI+55, OI+56, OI+62, OI+66
BLANK	GETDATA+65, OI+1, OI+84, OI+121
EP2	EP+29
GETDATA	EP2+13
NEWPG	OI+19, OI+50, OI+69, OI+71, OI+77, OI+82, OI+85, UPD+1
PARSE	OI+34, OI+35
PRINT	EP+30
UPD	GETDATA+31, GETDATA+37, GETDATA+41, GETDATA+46, GETDATA+50, GETDATA+56, GETDATA+65, GETDATA+70, GETDATA+73, GETDATA+75 , GETDATA+78, GETDATA+80, GETDATA+85, OI+1, OI+3, OI+22, OI+25, OI+30, OI+48, OI+57 , OI+60, OI+64, OI+68, OI+70, OI+76, OI+83, OI+84, OI+122

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DT+1~, DT+2*
%H	GETDATA+3~
A	GETDATA+2~
A1	GETDATA+2~, OI+13, OI+14, OI+15, OI+17, OI+32, OI+35, OI+36, OI+38, OI+45
AGE	GETDATA+3~, GETDATA+35*, GETDATA+36, BMI~
>> APCHSQIT	EP+22, EP+26, PRINT+11
AUDATA	EP2+2~
AUDT	EP2+2~
AUPNPAT	EP2+2~
BKM	GETDATA+2~, OI+73, OI+74
BKMDT	EP2+2~, GETDATA+2~, OI+15*, OI+36
BKMDUZ	PRIV~, PRIV+10, PRIV+11
BKMHAART	GETDATA+3~
BKMHIV	PRIV+7~, PRIV+9*, PRIV+10, PRIV+11, PRIV+12
BKMIEN	EP+3~, EP+21, GETDATA+2~, GETDATA+7, GETDATA+8, GETDATA+9, GETDATA+42, GETDATA+66, GETDATA+68, GETDATA+71 , GETDATA+72, GETDATA+76, GETDATA+77, GETDATA+79, GETDATA+82, GETDATA+87, OI+59, OI+61, OI+62, OI+63 , OI+65, OI+66, OI+67, OI+70, OI+73, OI+74
BKMPRIV	PRIV+7~, PRIV+8, PRIV+12, PRIV+13*, PRIV+14
BKMPRV	PRIV+7~, PRIV+11*, PRIV+12
BKMREG	GETDATA+2~, GETDATA+9*, GETDATA+68, GETDATA+79
BKMT	GETDATA+2~
BMI	GETDATA+3~, GETDATA+60, GETDATA+61, GETDATA+63*, GETDATA+64
CDDT	GETDATA+3~
CDTST	GETDATA+3~
CLCL	GETDATA+2~
CNT	PRINT+1~, PRINT+3, PRINT+8, PRINT+9, PRINT+10, GETDATA+3~, BLANK~, BLANK+1, BLANK+2, PARSE+5~ , PARSE+6, PARSE+8, PARSE+9, PARSE+11*
CPRDT	GETDATA+3~
DA	EP2+2~, EP2+10*, OI+5~
DASH	OI+5~, OI+6*, OI+30
DBMI	GETDATA+4~, GETDATA+59*, GETDATA+60, GETDATA+63
DFN	EP~, EP+4, EP+5, EP+7, EP+21, EP+29, EP2~, EP2+3, EP2+10, GETDATA+8 , GETDATA+38, GETDATA+44, GETDATA+48, GETDATA+51, GETDATA+59, GETDATA+74, OI+7, OI+86, OI+87, OI+88 , OI+89, OI+90, OI+91, OI+92, OI+93, OI+94, OI+95, OI+96, OI+97, OI+98 , OI+99, OI+100, OI+101, OI+102, OI+104, OI+106, OI+108, OI+110, OI+112, OI+114 , OI+116, OI+118, OI+120
DIC	EP2+11!, OI+5~
DIQ	OI+5~
DIR	EP+3~
DIR("A"	EP+24*
DIR(0	EP+25*
DIRUT	EP+3~, EP+26
DPTIEN	GETDATA+2~, GETDATA+7*, GETDATA+8, GETDATA+29, GETDATA+32, GETDATA+34, GETDATA+35, GETDATA+36
DR	GETDATA+3~, OI+5~
DT	GETDATA+59
ENTDT	OI+5~, OI+36*, OI+37
FDT	DT~, DT+2
GETSIENS	GETDATA+2~, GETDATA+8*
GLOBAL	GETDATA+3~
HCSM	GETDATA+4~, GETDATA+48*, GETDATA+49
HIVDXDT	GETDATA+3~, GETDATA+82*, GETDATA+83
HLDBKM	EP2+2~, EP2+10*, EP2+13
HPRV	GETDATA+4~, GETDATA+44*, GETDATA+45
HRECNO	EP2+2~
HT	BMI~
HTD	BMI~
I	GETDATA+2~, BLANK+2, PARSE+5~, PARSE+7
ICD	OI+5~, OI+31!
ICD(	OI+53, OI+55
ICD(1	OI+41, OI+51
ICD9S	EP2+11!, EP2+14!, OI+5~, OI+12
ICD9S(	OI+14, OI+17, OI+35, OI+36, OI+45
ICDDSC	OI+5~, OI+32, OI+33, OI+34
IO	EP+22, PRINT+2
IO(0	EP+22
IOF	EP+31
IOSL	GETDATA+5
IOST	EP+22
IX	OI+52~, OI+53*, OI+55, OI+56
J	GETDATA+2~
K	GETDATA+2~, OI+16, OI+17, OI+32, OI+33, OI+35, OI+36, OI+38, OI+39, OI+45
L	GETDATA+2~, OI+13, OI+18, OI+49
LEN	GETDATA+53~, GETDATA+54*, PARSE~, PARSE+3, PARSE+8, PARSE+9
LINE	EP+27~, GETDATA+29, GETDATA+30, GETDATA+32, GETDATA+33, GETDATA+34, GETDATA+36, GETDATA+40, GETDATA+43, GETDATA+45* , GETDATA+47, GETDATA+49, GETDATA+52, GETDATA+54, GETDATA+55, GETDATA+64, GETDATA+66, GETDATA+69, GETDATA+71, GETDATA+72* , GETDATA+74, GETDATA+76, GETDATA+77, GETDATA+79, GETDATA+81, GETDATA+83, GETDATA+86, GETDATA+87, OI+2, OI+20 , OI+21, OI+22, OI+23, OI+24, OI+25, OI+30, OI+36, OI+37, OI+38, OI+39 , OI+41, OI+45, OI+54, OI+55, OI+56, OI+60, OI+62, OI+63, OI+66, OI+67 , OI+72, OI+73, OI+74, OI+83, OI+122, UPD+2
LNCNT	EP+27~, EP+28, OI+19, OI+50, OI+69, OI+71, OI+77, OI+82, OI+85, UPD+1 , UPD+2, NEWPG+1, BLANK+2
LOCAL	EP2+11!, EP2+14!
LOCAL(	GETDATA+66
LOCAL("HRECNO"	GETDATA+30
LOCAL(2	GETDATA+29, GETDATA+32, GETDATA+34
LOCAL(9000001	GETDATA+35, GETDATA+36
LSTDXDT	GETDATA+2~, GETDATA+68*, GETDATA+69
MAXCT	GETDATA+2~, GETDATA+5*, OI+19, OI+50, OI+69, OI+71, OI+77, OI+82, OI+85, UPD+1
NAR	OI+5~, OI+31!
NAR(	OI+53, OI+56
NAR(1	OI+41, OI+51
NOW	EP2+2~, EP2+12*
PAGE	PRINT+1~, PRINT+3, PRINT+6, PRINT+7, PRINT+8, PRINT+10
PAGES	EP2+2~
PC	PARSE+5~, PARSE+7*, PARSE+8, PARSE+9, PARSE+10
PGCNT	EP+27~, EP+28, UPD+2, NEWPG+1, BLANK+2
PNARR	OI+5~, OI+35*
POS	GETDATA+53~, GETDATA+54*, GETDATA+55, LINE~, LINE+1, LINE+2
PT	BMI~
PTNAME	EP2+2~
QUIT	PRINT+1~, PRINT+4, PRINT+6, PRINT+8, PRINT+9, PRINT+11
RDIAG	GETDATA+2~, GETDATA+38, GETDATA+40, GETDATA+51, GETDATA+52, GETDATA+55
STCAT	GETDATA+3~
STCAT(	OI+62, OI+63, OI+66, OI+67
STCAT("90451.01"	OI+61, OI+65, OI+70
STDT	OI+5~
STIEN	GETDATA+3~
STR	LINE~, LINE+1, LINE+2, PARSE~, PARSE+2, PARSE+7
STR1	PARSE+5~, PARSE+6, PARSE+8, PARSE+9, PARSE+10, PARSE+11
TARGET	PARSE~, PARSE+4, PARSE+8, PARSE+9, PARSE+11
TEMP	GETDATA+2~, GETDATA+42!, GETDATA+89!
TEMP(	GETDATA+71, GETDATA+72, GETDATA+76, GETDATA+77, GETDATA+82, GETDATA+87
TEXT	LINE~, LINE+1, LINE+2*, LINE+3
TMPDT	GETDATA+3~, GETDATA+83, GETDATA+87
TYPE	GETDATA+3~
U	EP+21, EP2+10, EP2+13, GETDATA+7, GETDATA+38, GETDATA+52, GETDATA+55, GETDATA+60, GETDATA+63, OI+35 , OI+36, OI+45
WT	BMI~
WTD	BMI~
X	EP+3~, EP+7, EP+9, EP+21, EP2+2~, EP2+3, EP2+5, EP2+10, EP2+12, PRINT+5 , DT+1~, DT+2*
XNOW	PRINT+1~, PRINT+5*, PRINT+7
Y	EP+31!, EP2+2~, EP2+10, EP2+13, GETDATA+3~, GETDATA+34, DT+1~, DT+3
>> ZTQUEUED	EP+9, EP2+5

Customize PDF page

Package: IHS HIV Management System

Routine: BKMVSUP

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: