Routine: BKMVSRP1

Package	Total	Call Graph
IHS HIV Management System	2	($$HIVIEN,$$PAUSE)^BKMIXX3 $$HRN^BKMVA1
VA Fileman	2	($$GET1,GETS)^DIQ EN^DIQ1
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
IHS HIV Management System	1	BKMVSUP

Entry Points

Name	Comments	DBIA/ICR reference
FOOTER	;EP - Confidentiality notice
HRECNO(BKMIEN)	;return patient's HREC Number
PRINT(PAGE,LINES,BKMIEN)	;EP - Print Report
HEADER	;
AR
XIT	;EXIT ROUTINE
PATNAME(BKMIEN)	;return patient name
GET(BKMIEN)	;EP - BKMIEN=HMS Registry IEN^Patient IEN, i.e., a result returned from a FileMan ^DIC lookup

External References

Name	Field # of Occurrence
$$HIVIEN^BKMIXX3	GET+3
$$PAUSE^BKMIXX3	PRINT+70, FOOTER+3
$$HRN^BKMVA1	HRECNO+1, GET+16
$$GET1^DIQ	PATNAME+2
GETS^DIQ	GET+10, GET+19
EN^DIQ1	GET+7, GET+13, GET+14, GET+18
$$FMTE^XLFDT	PRINT+41, PRINT+43, PRINT+50, PRINT+55, PRINT+61, PRINT+66, HEADER+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?1,$E($G(LOCAL(2,DPTIEN,.01,"E")),1,20),?23,$E($G(LOCAL("HRECNO")),1,9) Line Location: PRINT+32
Function Call: WRITE	Prompt: "Y" Line Location: PRINT+35
Function Call: WRITE	Prompt: ?30,$E($G(LOCAL(9000001,DPTIEN,1118)),1,12),?43,$E($P($G(LOCAL(9000001,DPTIEN,1102.98))," "),1,3) Line Location: PRINT+37
Function Call: WRITE	Prompt: $E($P($G(LOCAL(9000001,DPTIEN,1102.98))," ",2),1),?48,$G(LOCAL(2,DPTIEN,.02,"I")) Line Location: PRINT+38
Function Call: WRITE	Prompt: ?51,$G(LOCAL(90451.01,"1,"_BKMIEN_",",2.3,"E")) Line Location: PRINT+39
Function Call: WRITE	Prompt: ?57,$P($$FMTE^XLFDT(LOCAL(90451.01,"1,"_BKMIEN_",",5,"I"),"2Z"),"@") Line Location: PRINT+41
Function Call: WRITE	Prompt: ?57,$P($$FMTE^XLFDT(LOCAL(90451.01,"1,"_BKMIEN_",",5.5,"I"),"2Z"),"@") Line Location: PRINT+43
Function Call: WRITE	Prompt: ?67,$E(LOCAL(90451.01,"1,"_BKMIEN_",",.015,"E"),1,12) Line Location: PRINT+44
Function Call: WRITE	Prompt: !?5,"HIV Report: " Line Location: PRINT+46
Function Call: WRITE	Prompt: "Not documented" Line Location: PRINT+47
Function Call: WRITE	Prompt: ?8,$G(LOCAL(90451.01,"1,"_BKMIEN_",","4.3","E"))," " Line Location: PRINT+48
Function Call: WRITE	Prompt: $P($$FMTE^XLFDT(LOCAL(90451.01,"1,"_BKMIEN_",",4,"I"),"2Z"),"@") Line Location: PRINT+50
Function Call: WRITE	Prompt: ?43,"Receipt Confirmed: " Line Location: PRINT+51
Function Call: WRITE	Prompt: "Not documented" Line Location: PRINT+52
Function Call: WRITE	Prompt: $G(LOCAL(90451.01,"1,"_BKMIEN_",","4.1","E"))," " Line Location: PRINT+53
Function Call: WRITE	Prompt: $P($$FMTE^XLFDT(LOCAL(90451.01,"1,"_BKMIEN_",","4.2","I"),"2Z"),"@") Line Location: PRINT+55
Function Call: WRITE	Prompt: !?5,"AIDS Report: " Line Location: PRINT+57
Function Call: WRITE	Prompt: "Not documented" Line Location: PRINT+58
Function Call: WRITE	Prompt: ?8,$G(LOCAL(90451.01,"1,"_BKMIEN_",",4.53,"E"))," " Line Location: PRINT+59
Function Call: WRITE	Prompt: $P($$FMTE^XLFDT(LOCAL(90451.01,"1,"_BKMIEN_",",4.5,"I"),"2Z"),"@") Line Location: PRINT+61
Function Call: WRITE	Prompt: ?43,"Receipt Confirmed: " Line Location: PRINT+62
Function Call: WRITE	Prompt: "Not documented" Line Location: PRINT+63
Function Call: WRITE	Prompt: $G(LOCAL(90451.01,"1,"_BKMIEN_",",4.51,"E"))," " Line Location: PRINT+64
Function Call: WRITE	Prompt: $P($$FMTE^XLFDT(LOCAL(90451.01,"1,"_BKMIEN_",",4.52,"I"),"2Z"),"@") Line Location: PRINT+66
Function Call: WRITE	Prompt: !! Line Location: PRINT+67
Function Call: WRITE	Prompt: !?1,$P(^VA(200,DUZ,0),U,2) Line Location: HEADER+6
Function Call: WRITE	Prompt: ?IOM-$L(NOW)\2,NOW,?IOM-10,"Page: ",PAGE Line Location: HEADER+7
Function Call: WRITE	Prompt: !?IOM-$L(BKMLOC)\2,BKMLOC Line Location: HEADER+8
Function Call: WRITE	Prompt: !?IOM-41\2,"* HMS State Reporting Status Report *" Line Location: HEADER+9
Function Call: WRITE	Prompt: !?IOM-$L(NAME)\2,NAME Line Location: HEADER+11
Function Call: WRITE	Prompt: !?18,"* CONFIDENTIAL PATIENT INFORMATION *" Line Location: HEADER+12
Function Call: WRITE	Prompt: !?68,"Where" Line Location: HEADER+13
Function Call: WRITE	Prompt: !?1,"Patient Name",?24,"HRN",?30,"Community",?43,"Age",?47,"Sex",?52,"DX" Line Location: HEADER+14
Function Call: WRITE	Prompt: ?60,"Date",?67,"Followed" Line Location: HEADER+15
Function Call: WRITE	Prompt: !?1,A,! Line Location: HEADER+16
Function Call: WRITE	Prompt: !!?16,"* END CONFIDENTIAL PATIENT INFORMATION *",! Line Location: FOOTER+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls, GET1^DIQ
^BKM(90451 - [#90451]	Classic Fileman Calls
90451.01	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTSITE(1	HEADER+5
^BKM(90451 - [#90451]	GET+5, PRINT+4
^DIC(4 - [#4]	HEADER+5
^VA(200 - [#200]	HEADER+6

Label References

Name	Line Occurrences
AR	PRINT+69
HEADER	PRINT+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	PRINT+5~, PRINT+7*, HEADER+16
AGE	PRINT+5~
ASR	PRINT+1~
BKMIEN	PATNAME~, PATNAME+2, HRECNO~, HRECNO+1, GET~, GET+4, GET+10, GET+19, PRINT~, PRINT+4 , PRINT+39, PRINT+40, PRINT+41, PRINT+42, PRINT+43, PRINT+44, PRINT+47, PRINT+48, PRINT+49, PRINT+50 , PRINT+52, PRINT+53, PRINT+54, PRINT+55, PRINT+58, PRINT+59, PRINT+60, PRINT+61, PRINT+63, PRINT+64 , PRINT+65, PRINT+66
BKMLOC	HEADER+2~, HEADER+5*, HEADER+8
BKMRDIAG	PRINT+5~
BKMSTAT	PRINT+1~, PRINT+4*
>> CAT	HEADER+10
DA	GET+2~, GET+4, GET+5, GET+12, GET+18*
>> DFN	GET+12, GET+16, GET+18, PRINT+8
DIC	GET+2~, GET+7, GET+13, GET+14, GET+18
DIQ	GET+2~, GET+7, GET+13, GET+14, GET+18
DIQ(0	GET+7, GET+14, GET+18*
DPTIEN	PRINT+5~, PRINT+8*, PRINT+32, PRINT+37, PRINT+38
DR	GET+2~, GET+7, GET+13, GET+14, GET+18
DT	HEADER+3
DTOUT	PRINT+5~
DUZ	HEADER+6
HSR	PRINT+1~
IOF	HEADER+4
IOM	HEADER+7, HEADER+8, HEADER+9, HEADER+11
IOSL	PRINT+69
IOST	FOOTER+3
LINES	PRINT~, PRINT+3, PRINT+31, PRINT+68, PRINT+71, HEADER+17
>> LOCAL(	PRINT+39, PRINT+40, PRINT+41, PRINT+42, PRINT+43, PRINT+44, PRINT+47, PRINT+48, PRINT+49, PRINT+50 , PRINT+52, PRINT+53, PRINT+54, PRINT+55, PRINT+58, PRINT+59, PRINT+60, PRINT+61, PRINT+63, PRINT+64 , PRINT+65, PRINT+66
>> LOCAL("HRECNO"	GET+16*, PRINT+32
>> LOCAL(2	PRINT+32, PRINT+38
>> LOCAL(9000001	PRINT+37, PRINT+38
NAME	HEADER+2~, HEADER+10*, HEADER+11
>> NOW	HEADER+3*, HEADER+7
PAGE	PRINT~, PRINT+2, PRINT+31, HEADER+4, HEADER+7, HEADER+17
PATNAME	PATNAME+1~, PATNAME+2*, PATNAME+3
QUIT	PRINT+70, FOOTER+1~, FOOTER+3
>> QUITALL	PRINT+70*
REGCAT	PRINT+1~
REGIEN	GET+2~, GET+5*, GET+10, GET+19
REGISTER	GET+2~, GET+3*, GET+5
SRSIENS	GET+2~, PRINT+1~
>> STHIV	PRINT+45, PRINT+56
U	PATNAME+2, HRECNO+1, PRINT+4, HEADER+5, HEADER+6
X	GET+2~, HEADER+2~
Y	GET+2~

Customize PDF page

Package: IHS HIV Management System

Routine: BKMVSRP1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: