Routine: BKMVA1

Information

BKMVA1 ;PRXM/HC/CJS - HMS PATIENT REGISTER; [ 1/19/2005 7:16 PM ] ; 21 Jul 2005 12:25 PM

Source Information

Source file <BKMVA1.m>

Call Graph

Call Graph Total: 20

Package	Total	Call Graph
IHS HIV Management System	12	($$BKMIEN,$$BKMPRIV,$$BKMREG,$$HIVIEN,$$PAUSE,$$VALID,BASETMP,NOGO)^BKMIXX3 $$PAD^BKMIXX4 (FR2,SUPP)^BKMSUPP $$HRN^BKMVA1 ($$EXISTHDC,$$EXISTIAD,$$EXISTIHD,$$GETPAT,$$MSNGDATA,SAVEVF)^BKMVA1A ($$DIAG,$$YNP,LDREC,PROMPTS)^BKMVA1B $$OPT^BKMVA1C ($$GETALL,ADDDATA,INIT)^BKMVA2 (EN,POST)^BKMVAUD ONE^BKMVDOD EN^BKMVQCR EN1^BKMVSSR
VA Fileman	3	$$IENS^DILF ($$GET1,GETS)^DIQ ^DIR
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
Registration	2	EN^VALM (CLEAR,FULL)^VALM1
IHS VA Utilities	1	^XBFMK

Caller Graph

Caller Graph Total: 9

Package	Total	Caller Graph
IHS HIV Management System	9	BKMIXX3 BKMQQCRA BKMVA1 BKMVA2 BKMVA51 BKMVA9 BKMVF5 BKMVQCRA BKMVSRP1

Entry Points

Name	Comments	DBIA/ICR reference
INIT	;EP - Review/Edit Patient Record
HDR	; -- header code
PHONE(DFN,TYPE)	;EP
IENTOST(IEN)	;
EN2(DFN,AGE,SEX,DOB,PNT)	; EP - Main entry point for BKMV R/E Patient Record
RES(DFN)	;EP
HELP	; -- help code
IENTOEMP(IEN)	;
ADDDATA(DFN)	;EP - Add Patient Data
EN3	; -- main entry point for BKMV R/E Patient Record. The Following entry point will not calculate reminders.
ADDRESS(DFN)	;EP
FREVEDIT(ADD,REV,PCCSF)	; EP - Review Edit
EN	; EP - Entry point for BKMV R/E Patient Record
UPD1HDR(SCRN,NAME)	;
REVEDIT(OPTION)	;
SUMMARY	; Health Summary
REPORTS	;
HRN(DFN)	;EP
INFO	;
PRIMPROV(DFN)	;EP
GETALL(DFN,RECALC)	;EP
LDREC	;Load default values if Diagnosis Category is not at risk

External References

Name	Field # of Occurrence
$$BKMIEN^BKMIXX3	EN+14, EN+28, EN2+10, EN2+24, EN3+15, EN3+29
$$BKMPRIV^BKMIXX3	EN+5, EN+11, EN2+5, EN3+6, EN3+12
$$BKMREG^BKMIXX3	EN+16, EN+30, EN2+12, EN2+26, EN3+17, EN3+31
$$HIVIEN^BKMIXX3	EN+2, EN+9, EN2+2, EN3+3, EN3+10
$$PAUSE^BKMIXX3	EN+24, EN2+21, EN3+25
$$VALID^BKMIXX3	EN+4, EN2+4, EN3+5
BASETMP^BKMIXX3	EN+13, EN2+9, EN3+14
NOGO^BKMIXX3	FREVEDIT+6
$$PAD^BKMIXX4	HDR+3, REVEDIT+5, REVEDIT+7
FR2^BKMSUPP	REPORTS+20, REPORTS+21, REPORTS+22
SUPP^BKMSUPP	SUMMARY+2
$$HRN^BKMVA1	REVEDIT+5
$$EXISTHDC^BKMVA1A	EN+21, EN2+17, EN3+22
$$EXISTIAD^BKMVA1A	EN+21, EN2+17, EN3+22
$$EXISTIHD^BKMVA1A	EN+21, EN2+17, EN3+22
$$GETPAT^BKMVA1A	EN+8, EN3+9
$$MSNGDATA^BKMVA1A	EN+20, EN2+16, EN3+21
SAVEVF^BKMVA1A	FREVEDIT+18
$$DIAG^BKMVA1B	LDREC+2
$$YNP^BKMVA1B	EN+20, EN2+16, EN3+21
LDREC^BKMVA1B	LDREC+4
PROMPTS^BKMVA1B	EN+20, EN2+16, EN3+21
$$OPT^BKMVA1C	REPORTS+15
$$GETALL^BKMVA2	GETALL+2
ADDDATA^BKMVA2	ADDDATA+2
INIT^BKMVA2	INIT+1
EN^BKMVAUD	EN+19, EN2+15, EN3+20
POST^BKMVAUD	EN+23, EN+33, EN2+19, EN2+29, EN3+24, EN3+34
ONE^BKMVDOD	REPORTS+17
EN^BKMVQCR	REPORTS+19
EN1^BKMVSSR	REPORTS+24
$$IENS^DILF	HDR+2, HRN+3
$$GET1^DIQ	HDR+2, ADDRESS+4, IENTOEMP+3, IENTOST+3, RES+1, HRN+4, PRIMPROV+1, REVEDIT+5, REVEDIT+6
GETS^DIQ	PHONE+4
^DIR	FREVEDIT+14, REVEDIT+14
EN^VALM	EN+25, EN2+22, EN3+26
CLEAR^VALM1	REPORTS+5, REPORTS+20, REPORTS+21, REPORTS+22, REVEDIT+3
FULL^VALM1	REPORTS+6, REVEDIT+4
^XBFMK	EN+25, EN+33, REPORTS+4, REPORTS+26, REVEDIT+2, REVEDIT+14, REVEDIT+16, REVEDIT+17
$$FMTE^XLFDT	REVEDIT+7
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There is no HMS register defined." Line Location: EN+3
Function Call: WRITE	Prompt: !,"You are not a valid HMS user." Line Location: EN+4
Function Call: WRITE	Prompt: !,"There is no HMS register defined." Line Location: EN+10
Function Call: WRITE	Prompt: !,"There is no register entry for this patient." Line Location: EN+15
Function Call: WRITE	Prompt: !,"There is no HMS registry entry for this patient." Line Location: EN+17
Function Call: WRITE	Prompt: !,"No Patient entered or Patient Not In Register" Line Location: EN+24
Function Call: WRITE	Prompt: !,"There is no register entry for this patient." Line Location: EN+29
Function Call: WRITE	Prompt: !,"There is no HMS registry entry for this patient." Line Location: EN+31
Function Call: WRITE	Prompt: !,"There is no HMS register defined." Line Location: EN2+3
Function Call: WRITE	Prompt: !,"You are not a valid HMS user." Line Location: EN2+4
Function Call: WRITE	Prompt: !,"There is no register entry for this patient." Line Location: EN2+11
Function Call: WRITE	Prompt: !,"There is no HMS registry entry for this patient." Line Location: EN2+13
Function Call: WRITE	Prompt: !,"No Patient entered or Patient Not In Register" Line Location: EN2+21
Function Call: WRITE	Prompt: !,"There is no register entry for this patient." Line Location: EN2+25
Function Call: WRITE	Prompt: !,"There is no HMS registry entry for this patient." Line Location: EN2+27
Function Call: WRITE	Prompt: !,"There is no HMS register defined." Line Location: EN3+4
Function Call: WRITE	Prompt: !,"You are not a valid HMS user." Line Location: EN3+5
Function Call: WRITE	Prompt: !,"There is no HMS register defined." Line Location: EN3+11
Function Call: WRITE	Prompt: !,"There is no register entry for this patient." Line Location: EN3+16
Function Call: WRITE	Prompt: !,"There is no HMS registry entry for this patient." Line Location: EN3+18
Function Call: WRITE	Prompt: !,"No Patient entered or Patient Not In Register" Line Location: EN3+25
Function Call: WRITE	Prompt: !,"There is no register entry for this patient." Line Location: EN3+30
Function Call: WRITE	Prompt: !,"There is no HMS registry entry for this patient." Line Location: EN3+32
Function Call: WRITE	Prompt: !,"Invalid Entry" Line Location: REPORTS+25
Function Call: WRITE	Prompt: !,RCRDHDR Line Location: REVEDIT+8
Function Call: WRITE	Prompt: !,"Invalid Selection" Line Location: INFO+18
Function Call: WRITE	Prompt: ! Line Location: HELP+1
Routine Call	VALM Line Location: EN+25 EN2+22 EN3+26
Routine Call	DIR Line Location: FREVEDIT+14 REVEDIT+14

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ, GETS^DIQ
^VA(200 - [#200]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^DIC(5 - [#5]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ
9000001.41	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^TMP("BKMLKP"	EN+27, EN3+28
^TMP("BKMVA1"	EN+7!, EN+26!, EN2+7!, EN2+23!, EN3+8!, EN3+27!
^TMP("BKMVA2R"	EN+36!, EN2+31!

Name	Line Occurrences
$$GETALL	EN+24, EN2+21, EN3+25
$$IENTOST	ADDRESS+5
$$REVEDIT	FREVEDIT+2
@(	FREVEDIT+16, FREVEDIT+21
LDREC	EN+22, EN2+18, EN3+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADD	FREVEDIT~, FREVEDIT+16
ADD1	EN+34!, EN+35!, EN2+30!, EN3+1!, EN3+35!, EN3+36!
ADDR	ADDRESS+1~, ADDRESS+2, ADDRESS+6, ADDRESS+7*, ADDRESS+8
AGE	EN+34!, EN+35!, EN2~, EN2+30!, EN3+1!, EN3+35!, EN3+36!
BKMDOD	REVEDIT+1~, REVEDIT+6*, REVEDIT+7
BKMIEN	EN+1~, EN+14, EN+15, EN+16, EN+28, EN+29, EN+30, EN2+1~, EN2+10, EN2+11 , EN2+12, EN2+24, EN2+25, EN2+26, EN3+2~, EN3+15, EN3+16, EN3+17, EN3+29, EN3+30 , EN3+31
BKMPRIV	EN+1~, EN+5, EN+11, EN+20, EN2+1~, EN2+5, EN2+16, EN3+2~, EN3+6, EN3+12* , EN3+21, FREVEDIT+6
BKMREG	EN+1~, EN+16, EN+17, EN+30, EN+31, EN2+1~, EN2+12, EN2+13, EN2+26, EN2+27 , EN3+2~, EN3+17, EN3+18, EN3+31, EN3+32
BKMTMP	EN+1~, EN+24, EN2+1~, EN2+21, EN3+2~, EN3+25*
BKMVA1	EN+34!, EN+35!, EN2+30!, EN3+1!, EN3+35!, EN3+36!
BKMVA1E	EN+34!, EN+35!, EN2+30!, EN3+1!, EN3+35!, EN3+36!
CALCREM	ADDDATA+1!
CRBY	EN+34!, EN+35!, EN2+30!, EN3+1!, EN3+35!, EN3+36!
CRDT	EN+34!, EN+35!, EN2+30!, EN3+1!, EN3+35!, EN3+36!
CRTM	EN+34!, EN+35!, EN2+30!, EN3+1!, EN3+35!, EN3+36!
DA	HDR+1~, HDR+2, HRN+1~, HRN+2, HRN+3
DA(1	HRN+2*
DFN	EN+13, EN+14, EN+20, EN+21, EN+24, EN+27, EN+28, EN+34!, EN+35!, EN2~ , EN2+9, EN2+10, EN2+16, EN2+17, EN2+21, EN2+24, EN2+30!, EN3+1!, EN3+14, EN3+15 , EN3+21, EN3+22, EN3+25, EN3+28, EN3+29, EN3+35!, EN3+36!, ADDRESS~, ADDRESS+4, PHONE~ , PHONE+2, PHONE+4, PHONE+5, PHONE+6, RES~, RES+1, HRN~, HRN+2, PRIMPROV~, PRIMPROV+1 , SUMMARY+2, REPORTS+17, ADDDATA~, ADDDATA+2, GETALL~, GETALL+2, FREVEDIT+18, REVEDIT+5, REVEDIT+6, LDREC+2 , LDREC+4
DIAG	LDREC+1~, LDREC+2*, LDREC+3
DIR	FREVEDIT+7~, REVEDIT+9!
DIR("A"	FREVEDIT+9, FREVEDIT+10, FREVEDIT+11, FREVEDIT+12, REVEDIT+12*
DIR("B"	FREVEDIT+13*
DIR(0	FREVEDIT+8, REVEDIT+10
>> DIRUT	EN+23, EN2+19, EN3+24, REVEDIT+14
DOB	EN+34!, EN+35!, EN2~, EN2+30!, EN3+1!, EN3+35!, EN3+36!
>> DTOUT	FREVEDIT+15
>> DUOUT	FREVEDIT+15
DUZ	EN+4, EN+5, EN+11, EN2+4, EN2+5, EN3+5, EN3+6, EN3+12
DUZ(2	HDR+2, HRN+2
EDBY	EN+34!, EN+35!, EN2+30!, EN3+1!, EN3+35!, EN3+36!
EDDT	EN+34!, EN+35!, EN2+30!, EN3+1!, EN3+35!, EN3+36!
EDTM	EN+34!, EN+35!, EN2+30!, EN3+1!, EN3+35!, EN3+36!
EMP	IENTOEMP+1~, IENTOEMP+3*, IENTOEMP+5
EMPE	IENTOEMP+1~, IENTOEMP+4
ET	EN+34!, EN+35!
EXITREP	REPORTS+1~, REPORTS+2, REPORTS+3, REPORTS+16
FIELD	ADDRESS+1~
FIELDE	ADDRESS+1~
HIVIEN	EN+1~, EN+2, EN+3, EN+9, EN+10, EN+20, EN+21, EN2+1~, EN2+2, EN2+3 , EN2+16, EN2+17, EN3+2~, EN3+3, EN3+4, EN3+10*, EN3+11, EN3+21, EN3+22
HRN	EN+34!, EN+35!, EN2+30!, EN3+1!, EN3+35!, EN3+36!
IEN	IENTOEMP~, IENTOEMP+2, IENTOEMP+3, IENTOEMP+4, IENTOST~, IENTOST+2, IENTOST+3, IENTOST+4
IENS	HDR+1~, HDR+2, HRN+1~, HRN+3, HRN+4
IND	ADDRESS+1~, ADDRESS+3*, ADDRESS+4, ADDRESS+5
ITEM	ADDRESS+1~, ADDRESS+4, ADDRESS+5, ADDRESS+6, ADDRESS+7
NAME	UPD1HDR~, UPD1HDR+1*, UPD1HDR+3, UPD1HDR+4
OPT	REPORTS+1~, REPORTS+20, REPORTS+21, REPORTS+22*
OPTION	FREVEDIT+1~, FREVEDIT+2, FREVEDIT+3, FREVEDIT+21, REVEDIT~, REVEDIT+15*
PCCSF	FREVEDIT~, FREVEDIT+18
PHONE	EN+34!, EN+35!, EN2+30!, EN3+1!, EN3+35!, EN3+36!, PHONE+1~
PHONE(2	PHONE+6
PHONEE	PHONE+1~, PHONE+5
PNT	EN+34!, EN+35!, EN2~, EN2+30!, EN3+1!, EN3+35!, EN3+36!
RCRDHDR	REVEDIT+1~, REVEDIT+5, REVEDIT+7, REVEDIT+8
RECALC	GETALL~, GETALL+1*, GETALL+2
RES	EN+34!, EN+35!, EN2+30!, EN3+1!, EN3+35!, EN3+36!
REV	FREVEDIT~, FREVEDIT+21
RID	EN+34!, EN+35!, EN2+30!, EN3+1!, EN3+35!, EN3+36!
SCRN	UPD1HDR~, UPD1HDR+1*, UPD1HDR+2, UPD1HDR+4
SELECT	REPORTS+1~, REPORTS+15*, REPORTS+16, REPORTS+17, REPORTS+19, REPORTS+20, REPORTS+21, REPORTS+22, REPORTS+24
SEX	EN2~
SITE	HDR+1~, HDR+2*, HDR+3
ST	IENTOST+1~, IENTOST+3*, IENTOST+5
STAT	EN+34!, EN+35!, EN2+30!, EN3+1!, EN3+35!, EN3+36!
STATCOM	EN+34!, EN+35!, EN2+30!, EN3+1!, EN3+35!, EN3+36!
STATDT	EN+34!, EN+35!, EN2+30!, EN3+1!, EN3+35!, EN3+36!
STE	IENTOST+1~, IENTOST+4
TYPE	PHONE~, PHONE+3*, PHONE+6
U	LDREC+3
>> VALMBCK	SUMMARY+3*
>> VALMHDR(1	HDR+3*
X	EN+34!, EN+35!, EN2+30!, EN3+1!, EN3+35!, EN3+36!, HELP+1*
Y	EN+34!, EN+35!, EN2+30!, EN3+1!, EN3+35!, EN3+36!, FREVEDIT+15, REVEDIT+15, REVEDIT+16

Customize PDF page

Package: IHS HIV Management System

Routine: BKMVA1

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: