Routine: BKMVF1

Package	Total	Call Graph
VA Fileman	7	EN^DDIOL ^DIC FILE^DICN ^DIE $$IENS^DILF $$GET1^DIQ ^DIR
IHS HIV Management System	4	($$BASETMP,$$DIAG,$$HIVIEN)^BKMIXX3 $$PROMPT2^BKMIXX4 (EN,POST)^BKMVAUD NEW^BKMVAUDN
IHS VA Utilities	1	^XBFMK
Registration	1	EN^VALM

Entry Points

Name	Comments	DBIA/ICR reference
ADDSTDT(REGISTER,ENTRY,DT)	;
PROMPT	;Prompt user for Patient
ADDCRBY(REGISTER,ENTRY,CRBYUSER)	;
ADDCLADT(REGISTER,ENTRY,CDATE)	;
GETOCCUP(DUZ)	;GETOCCUP
STATUS()	;STATUS
ADDENT(X)	; add the entry
ADDSTAT(REGISTER,ENTRY,STAT)	;
DIAGCAT()	;^DD(90451.01,2.3,0)= ; MHS DIAGNOSIS CATEGORY^S^R:AT RISK;H:HIV;A:AIDS;EK: ; EXPOSED SOURCE KNOWN;EI:INFANT EXPOSED;EO:OCCUPATIONAL EXPOSURE;EN: ; NONOCCUPATIONAL EXPOSURE;EU:EXPOSED SOURCE UNKNOWN;^3;7^Q ; 3)=Enter one of the 8 diagnosis categories for this patient
ADDTOREG(REGISTER,ENTRY)	;
ADDCAT(REGISTER,ENTRY,CAT)	;
ADDCRDT(REGISTER,ENTRY,DT)	;
ADDCLASS(REGISTER,ENTRY,CLASS)	;
ADD(DFN,STATUS)	; add the patient to the register with status of "R" (unreviewed)
CLINCLAS()
GETPAT(DFN)	;

External References

Name	Field # of Occurrence
$$BASETMP^BKMIXX3	PROMPT+22
$$DIAG^BKMIXX3	PROMPT+14
$$HIVIEN^BKMIXX3	PROMPT+2
$$PROMPT2^BKMIXX4	PROMPT+20
EN^BKMVAUD	ADD+13
POST^BKMVAUD	ADD+18
NEW^BKMVAUDN	ADD+11
EN^DDIOL	PROMPT+3
^DIC	GETPAT+5, CLINCLAS+4
FILE^DICN	ADDENT+3, ADDTOREG+5
^DIE	ADDCRBY+7, ADDCRDT+8, ADDSTAT+7, ADDSTDT+7, ADDCAT+7, ADDCLASS+7, ADDCLADT+7
$$IENS^DILF	GETOCCUP+6
$$GET1^DIQ	GETOCCUP+7
^DIR	STATUS+3, DIAGCAT+7
EN^VALM	PROMPT+22
^XBFMK	ADD+2, ADD+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,PNT,": is already in the register.",!! Line Location: PROMPT+10
Function Call: WRITE	Prompt: !!,"The patient wasn't added to the register." Line Location: PROMPT+13
Function Call: WRITE	Prompt: !!,"The patient wasn't added to the register." Line Location: PROMPT+15
Function Call: WRITE	Prompt: !!,"The patient wasn't added to the register." Line Location: PROMPT+17
Function Call: WRITE	Prompt: !!,"The patient wasn't added to the register." Line Location: PROMPT+20
Function Call: WRITE	Prompt: @IOF,"The patient has been added to the register.",!! Line Location: PROMPT+23
Function Call: WRITE	Prompt: !,"Error, An entry for "_ADD(DFN)_" wasn't created in HMS." Line Location: ADD+5
Function Call: WRITE	Prompt: !,"Error, An entry for "_ADD(DFN)_" wasn't created in HMS." Line Location: ADD+8
Function Call: WRITE	Prompt: !,"Error, A patient ID for "_ADD(DFN)_" wasn't created in HMS." Line Location: ADD+20
Routine Call	VALM Line Location: PROMPT+22
Routine Call	DIE Line Location: ADDCRBY+7 ADDCRDT+8 ADDSTAT+7 ADDSTDT+7 ADDCAT+7 ADDCLASS+7 ADDCLADT+7
Routine Call	DIC Line Location: GETPAT+5 CLINCLAS+4
Routine Call	DIR Line Location: STATUS+3 DIAGCAT+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
90450.011	GET1^DIQ
^BKM(90451 - [#90451]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BKM(90450 - [#90450]	GETOCCUP+4
^BKM(90451 - [#90451]	PROMPT+9, PROMPT+10, ADD+3, ADD+4, ADD+6, ADD+7, ADDCRBY+2, ADDCRDT+3, ADDSTAT+2, ADDSTDT+2 , GETPAT+10, GETPAT+11, ADDCAT+2, ADDCLASS+2, ADDCLADT+2
^DD(90451.01	STATUS+1, STATUS+2, DIAGCAT+5, DIAGCAT+6

Label References

Name	Line Occurrences
$$CLINCLAS	PROMPT+17
$$GETOCCUP	PROMPT+12
$$GETPAT	PROMPT+8
$$STATUS	PROMPT+12
ADD	PROMPT+21
ADDCAT	ADD+16
ADDCLADT	ADD+17
ADDCLASS	ADD+17
ADDCRBY	ADD+14
ADDCRDT	ADD+14
ADDENT	ADD+4
ADDSTAT	ADD+15
ADDSTDT	ADD+15
ADDTOREG	ADD+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADD	PROMPT+1~
ADD(	ADD+5, ADD+8, ADD+20
AGE	GETPAT+1!
BKMIEN	ADD+1~, ADD+3, ADD+4, ADD+5, ADD+6, ADD+7, ADD+11, ADD+14, ADD+15, ADD+16 , ADD+17, ADD+20, GETPAT+10*, GETPAT+11
BKMREG	ADD+1~, ADD+6, ADD+7, ADD+8, ADD+11, ADD+20, GETPAT+11*
CAT	ADDCAT~, ADDCAT+4
CDATE	ADDCLADT~, ADDCLADT+4
CLASS	ADDCLASS~, ADDCLASS+4
CRBYUSER	ADDCRBY~, ADDCRBY+4
D	GETPAT+7!
DA	ADDTOREG+1~, ADDCRBY+1~, ADDCRBY+2, ADDCRBY+3, ADDCRDT+1~, ADDCRDT+3, ADDCRDT+4, ADDSTAT+1~, ADDSTAT+2, ADDSTAT+3 , ADDSTDT+1~, ADDSTDT+2, ADDSTDT+3, GETPAT+7!, GETOCCUP+4, GETOCCUP+5, GETOCCUP+6, GETOCCUP+8!, ADDCAT+1~, ADDCAT+2 , ADDCAT+3, ADDCLASS+1~, ADDCLASS+2, ADDCLASS+3, ADDCLADT+1~, ADDCLADT+2, ADDCLADT+3
DA(1	ADDTOREG+3, ADDCRBY+5, ADDCRDT+2, ADDCRDT+6, ADDSTAT+5, ADDSTDT+5, GETOCCUP+3, ADDCAT+5, ADDCLASS+5, ADDCLADT+5
DD	GETPAT+7!
DFN	PROMPT+1~, PROMPT+8, PROMPT+9, PROMPT+21, PROMPT+22, ADD~, ADD+3, ADD+4, ADD+5, ADD+8 , ADD+20, GETPAT~, GETPAT+8*, GETPAT+9, GETPAT+10
DIADD	GETPAT+7!
DIAGCAT	PROMPT+14*, PROMPT+15, PROMPT+17, PROMPT+24!, ADD+16
DIAGSTAT	PROMPT+16, PROMPT+17, PROMPT+24!, ADD+17
DIC	ADDENT+2, ADDENT+4!, ADDTOREG+1~, ADDTOREG+3, ADDCRBY+1~, ADDCRDT+1~, ADDSTAT+1~, ADDSTDT+1~, GETPAT+1!, GETPAT+2* , GETPAT+7!, CLINCLAS+1!, CLINCLAS+2*, CLINCLAS+6!, ADDCAT+1~, ADDCLASS+1~, ADDCLADT+1~
DIC("DR"	ADDENT+1, ADDTOREG+2
DIC(0	ADDENT+1, ADDTOREG+2, GETPAT+3, CLINCLAS+3
DIE	ADDCRBY+1~, ADDCRBY+6, ADDCRDT+1~, ADDCRDT+7, ADDSTAT+1~, ADDSTAT+6, ADDSTDT+1~, ADDSTDT+6, ADDCAT+1~, ADDCAT+6* , ADDCLASS+1~, ADDCLASS+6, ADDCLADT+1~, ADDCLADT+6
DIFILE	ADDENT+4!
DINUM	GETPAT+7!
DIR	STATUS+4!, DIAGCAT+8!
DIR("A"	STATUS+2, DIAGCAT+6
DIR(0	STATUS+1, DIAGCAT+5
DLAYGO	ADDENT+2, ADDENT+4!, ADDTOREG+1~, ADDTOREG+4, ADDSTDT+1~, GETPAT+7!, ADDCAT+1~, ADDCLASS+1~, ADDCLADT+1~
DOB	GETPAT+1!
DR	ADDCRBY+1~, ADDCRBY+4, ADDCRDT+1~, ADDCRDT+5, ADDSTAT+1~, ADDSTAT+4, ADDSTDT+1~, ADDSTDT+4, GETPAT+7!, ADDCAT+1~ , ADDCAT+4, ADDCLASS+1~, ADDCLASS+4, ADDCLADT+1~, ADDCLADT+4*
DT	ADD+14, ADD+15, ADD+17, ADDCRDT~, ADDCRDT+5, ADDSTDT~, ADDSTDT+4
DTOUT	GETPAT+1!, GETPAT+4!, GETPAT+6, CLINCLAS+1!, CLINCLAS+5
DUOUT	GETPAT+1!, GETPAT+4!, GETPAT+6, CLINCLAS+1!, CLINCLAS+5
DUZ	PROMPT+12, ADD+11, ADD+14, GETOCCUP~, GETOCCUP+2, GETOCCUP+4
ENTRY	PROMPT+9*, PROMPT+10, ADDTOREG~, ADDTOREG+3, ADDCRBY~, ADDCRBY+2, ADDCRBY+5, ADDCRBY+6, ADDCRDT~, ADDCRDT+2 , ADDCRDT+3, ADDCRDT+6, ADDCRDT+7, ADDSTAT~, ADDSTAT+2, ADDSTAT+5, ADDSTAT+6, ADDSTDT~, ADDSTDT+2, ADDSTDT+5 , ADDSTDT+6, ADDCAT~, ADDCAT+2, ADDCAT+5, ADDCAT+6, ADDCLASS~, ADDCLASS+2, ADDCLASS+5, ADDCLASS+6, ADDCLADT~ , ADDCLADT+2, ADDCLADT+5, ADDCLADT+6
IEN	GETPAT+1!, GETPAT+8*
IENS	GETOCCUP+1~, GETOCCUP+6*, GETOCCUP+7
IOF	PROMPT+23
OCCUP	GETOCCUP+1~, GETOCCUP+7*, GETOCCUP+9
OPTA	PROMPT+1~, PROMPT+18*, PROMPT+20
OPTPAR	PROMPT+1~, PROMPT+19*, PROMPT+20
OPTS	PROMPT+1~, PROMPT+18*, PROMPT+20
PATIENT	PROMPT+1~
PNT	PROMPT+10, GETPAT+1!, GETPAT+8*
REGISTER	PROMPT+1~, PROMPT+2*, PROMPT+3, PROMPT+10, ADD+6, ADD+7, ADD+14, ADD+15, ADD+16, ADD+17 , ADDTOREG~, ADDTOREG+2, ADDCRBY~, ADDCRBY+2, ADDCRDT~, ADDCRDT+3, ADDSTAT~, ADDSTAT+2, ADDSTDT~, ADDSTDT+2 , GETOCCUP+3, GETOCCUP+4, ADDCAT~, ADDCAT+2, ADDCLASS~, ADDCLASS+2, ADDCLADT~, ADDCLADT+2
STAT	ADDSTAT~, ADDSTAT+4
STATUS	PROMPT+1~, PROMPT+11, PROMPT+12, PROMPT+13, PROMPT+21, ADD~, ADD+15
U	STATUS+1, STATUS+2, DIAGCAT+5, DIAGCAT+6
X	ADDENT~, ADDTOREG+1~, ADDTOREG+2*, GETPAT+1!, CLINCLAS+1!
Y	GETPAT+1!, GETPAT+6, GETPAT+8, STATUS+5, DIAGCAT+9, CLINCLAS+1!, CLINCLAS+5, CLINCLAS+7
Y(0	GETPAT+8
YN	PROMPT+1~, PROMPT+20*

Customize PDF page

Package: IHS HIV Management System

Routine: BKMVF1

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: