Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BKMVA1

Package: IHS HIV Management System

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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!

Label References

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All