Routine: BKMSTID2

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ($$FMADD,$$FMTE)^XLFDT $$UP^XLFSTR
IHS HIV Management System	3	PLK^BKMPLKP $$HIVS^BKMRMDR EN^BKMSTI
VA Fileman	2	EN^DDIOL ^DIR
IHS Patient	1	$$HRN^AUPNPAT3

Entry Points

Name	Comments	DBIA/ICR reference
PRT
PAT	; Get patient
SDT(VDT)	;EP - Same date, multiple types
INC	;EP - Determine multiple incidences

External References

Name	Field # of Occurrence
^%ZIS	PRT+1
^%ZISC	PRT+14, PRT+20, PRT+90
$$HRN^AUPNPAT3	PRT+6
PLK^BKMPLKP	PAT+6
$$HIVS^BKMRMDR	PRT+46
EN^BKMSTI	PRT+13, PRT+59
EN^DDIOL	PRT+2
^DIR	PAT+11, PAT+18, PAT+25
$$FMADD^XLFDT	PAT+16, PRT+12, PRT+54, INC+11
$$FMTE^XLFDT	PAT+9, PAT+16, PRT+6, PRT+39, PRT+52, PRT+57
$$UP^XLFSTR	PRT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: PAT+5
Function Call: WRITE	Prompt: !,?10,"HRN: "_$$HRN^AUPNPAT3(AUPNPAT,DUZ(2)),?40,"Date Range: "_$$FMTE^XLFDT(RPSDT,"2Z")_" - "_$$FMTE^XLFDT(RPEDT,"2Z") Line Location: PRT+6
Function Call: WRITE	Prompt: !,"Patient has no STI diagnoses" Line Location: PRT+14
Function Call: WRITE	Prompt: !!!,"Patient has no STI diagnoses" Line Location: PRT+20
Function Call: WRITE	Prompt: !!,?5,"Diagnosis Incident: ",INC Line Location: PRT+34
Function Call: WRITE	Prompt: !,?10,$$FMTE^XLFDT(DAT,"2Z")," ",TYP," ",BKSTIY(INC,TYP,"DEN",DAT) Line Location: PRT+39
Function Call: WRITE	Prompt: !,?5,"Recommended Screenings: " Line Location: PRT+63
Function Call: WRITE	Prompt: !,?10,"1 "_RC Line Location: PRT+64
Function Call: WRITE	Prompt: !,?5,"Needed Screenings: " Line Location: PRT+65
Function Call: WRITE	Prompt: !,?10,NUM_" "_RC Line Location: PRT+69
Function Call: WRITE	Prompt: !,?10,NUM_" "_RC_" "_NREC(RC) Line Location: PRT+70
Function Call: WRITE	Prompt: !,?5,"Need-based Screenings Performed: " Line Location: PRT+71
Function Call: WRITE	Prompt: !,?10,NUM_" "_RC Line Location: PRT+76
Function Call: WRITE	Prompt: !,?10,NUM_" "_RC_" "_REC(RC) Line Location: PRT+77
Function Call: WRITE	Prompt: !!,?5,"Summary",! Line Location: PRT+78
Function Call: WRITE	Prompt: !,?5,"Needed Screenings: " Line Location: PRT+79
Function Call: WRITE	Prompt: !,?10,SUMNREC(RC)_" "_RC Line Location: PRT+81
Function Call: WRITE	Prompt: !,?5,"Need-Based Screenings Performed: " Line Location: PRT+83
Function Call: WRITE	Prompt: !,?10,SUMNBRC(RC)_" "_RC_" "_PER_"%" Line Location: PRT+89
Routine Call	DIR Line Location: PAT+11 PAT+18 PAT+25
Routine Call	%ZIS Line Location: PRT+1

Label References

Name	Line Occurrences
INC	PRT+21
PAT	PRT+14, PRT+20, PRT+92
PRT	PRT+2
SDT	INC+10, INC+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	PRT!, PRT+1*
AGE	PAT+1~
AUPNDAYS	PAT+1~
AUPNDOB	PAT+1~
AUPNDOD	PAT+2~
AUPNPAT	PAT+2~, PAT+7, PRT+6, PRT+13, PRT+46
AUPNSEX	PAT+2~
BDATE	PRT+53~, PRT+54*, PRT+57, PRT+59
BKARRAY	PAT+2~, PRT+9!, PRT+13, PRT+14, PRT+15
BKARRAY(	PRT+18, PRT+19, PRT+41, PRT+42, PRT+48, PRT+52, PRT+56, PRT+57, PRT+62, INC+4 , INC+6, INC+7
BKBDT	PAT+4~, PRT+12*, PRT+13
BKDXN	PRT+59, PRT+61!
BKDXN(	PRT+60
BKEDT	PAT+4~, PRT+12*, PRT+13
BKIN	PAT+4~
BKMARRAY	PAT+4~
BKMARRAY(	PRT+58
BKN	PAT+4~
BKSTIY	PRT+91!, INC+2!
BKSTIY(	PRT+24, PRT+26, PRT+28, PRT+30!, PRT+33, PRT+36, PRT+38, PRT+39, SDT+3*
BKTYPE	PAT+3~, PRT+8*, PRT+13
CT	PAT+4~, PRT+27, PRT+29, PRT+30
DAT	PRT+37, PRT+38, PRT+39, PRT+42, PRT+45, PRT+52, PRT+54, PRT+62, PRT+91!, INC+1~ , INC+5, INC+6, INC+7, INC+8, INC+9, INC+10, INC+11, INC+12
DDATA	PAT+2~
DDT	PRT+53~, PRT+55, PRT+56, PRT+57
DFN	PAT+1~, PRT+59
DIR	PAT+1~, PAT+22!
DIR("A"	PAT+8, PAT+15, PAT+23*
DIR("B"	PAT+9, PAT+16
DIR(0	PAT+10, PAT+17, PAT+24*
DTDIF	INC+1~, INC+11*, INC+13
DTOUT	PAT+1~, PAT+12, PAT+19, PAT+26
DUOUT	PAT+1~, PAT+12, PAT+19, PAT+26
DUZ(2	PRT+6
EDATE	PRT+53~, PRT+54*, PRT+57, PRT+59
HEDATE	PRT+44~, PRT+45*, PRT+46
HKDATE	PRT+44~, PRT+45*, PRT+46
HSCR	PAT+4~
HVDFL	PAT+3~, PRT+8, PRT+13, PRT+46, PRT+48, PRT+49, PRT+59
INC	PAT+4~, PRT+23, PRT+24, PRT+26, PRT+28, PRT+30, PRT+32, PRT+33, PRT+34, PRT+36 , PRT+38, PRT+39, PRT+91!, INC+1~, INC+8, INC+10, SDT+3
IO	PRT+4
IO("Q"	PRT+2
IOC	PRT!
IOP	PRT!
IOST	PRT+6
LR	PAT+3~
MBKARAY	PRT+91!, INC+2!
MBKARAY(	INC+7*, INC+9, INC+10!, INC+12, INC+15!, SDT+2, SDT+3
NBREC	PRT+35!, PRT+91!
NCT	PAT+3~
NIN	PAT+2~
NPR	PRT+86*, PRT+87, PRT+88, PRT+91!
NREC	PRT+35!, PRT+91!
NREC(	PRT+42, PRT+48, PRT+49, PRT+51, PRT+52, PRT+57, PRT+60, PRT+62, PRT+66, PRT+67 , PRT+69, PRT+70, PRT+73
NRSCR	PAT+3~
NSCR	PAT+3~
NSIEN	PAT+3~
NSTI	PAT+2~
NTSCR	PAT+3~
NTYP	INC+1~
NUM	PRT+67, PRT+68, PRT+69, PRT+70, PRT+74, PRT+75, PRT+76, PRT+77, PRT+86*, PRT+87 , PRT+91!
NXDT	INC+1~, INC+12*, INC+13, INC+14, INC+15
PDAT	INC+1~, INC+8*
PER	PRT+87, PRT+88, PRT+89, PRT+91!
POP	PAT+4~, PRT+1
PTNAME	PAT+1~
QFL	PAT+3~, PRT+9, PRT+18, PRT+19, PRT+20, PRT+53~, PRT+55, PRT+56, PRT+57
RC	PRT+40, PRT+41, PRT+42, PRT+43, PRT+48, PRT+49, PRT+51, PRT+52, PRT+56, PRT+57 , PRT+58, PRT+59, PRT+60, PRT+62, PRT+64, PRT+66, PRT+67, PRT+68, PRT+69, PRT+70 , PRT+72, PRT+73, PRT+74, PRT+75, PRT+76, PRT+77, PRT+80, PRT+81, PRT+84, PRT+85* , PRT+86, PRT+89, PRT+91!
REC	PRT+35!, PRT+91!
REC(	PRT+42, PRT+62, PRT+64, PRT+72, PRT+74, PRT+76, PRT+77
RFL	PAT+3~
RPEDT	PAT+1~, PAT+20*, PRT+6
RPSDT	PAT+1~, PAT+13*, PAT+16, PRT+6, PRT+12
RSIEN	PAT+3~
RSTI	PAT+2~
RSTINM	PAT+2~
RSTNM	PAT+3~
SCREEN	PAT+3~
SDAT	PAT+4~, PRT+27, PRT+28, PRT+30
SEX	PAT+1~
SIEN	PAT+2~
SSCREEN	PAT+3~
SSN	PAT+1~
STI	PAT+2~, PRT+16~, PRT+17, PRT+18, PRT+19
STINM	PAT+2~
STYP	PAT+4~, PRT+25, PRT+26, PRT+28, PRT+30
SUMNBRC	PRT+91!
SUMNBRC(	PRT+75*, PRT+85, PRT+86, PRT+89
SUMNREC	PRT+91!
SUMNREC(	PRT+68*, PRT+81, PRT+86
TOT	PAT+4~
TYP	PRT+36, PRT+38, PRT+39, PRT+41, PRT+42, PRT+48, PRT+62, PRT+91!, INC+1~, INC+3 , INC+4, INC+6, INC+7, SDT+1, SDT+2*, SDT+3
U	PRT+42, PRT+48, PRT+49, PRT+60, PRT+62
VDT	SDT~, SDT+2, SDT+3
X	PAT+1~, PRT+7*, PRT+8
Y	PAT+1~, PAT+13, PAT+20
ZTIO	PRT!

Customize PDF page

Package: IHS HIV Management System

Routine: BKMSTID2

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: