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: BKMVA1B

Package: IHS HIV Management System

Routine: BKMVA1B


Information

BKMVA1B ;PRXM/HC/BHS - HMS PATIENT REGISTER CONT; [ 8/16/2005 11:33 AM ] ; 16 Aug 2005 11:33 AM

Source Information

Source file <BKMVA1B.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS HIV Management System 5 ($$BKMIEN,$$BKMPRIV,$$BKMREG,$$DIAG,$$HIVIEN,NOGO)^BKMIXX3  ($$EXISTHAP,$$EXISTNOT,GETHAP,GETNOT)^BKMVA1A  ($$YNP,DXHIST)^BKMVA1B  REGDC^BKMVA1C  ITAX^BKMVA1U  
VA Fileman 5 EN^DDIOL  (,FILE,UPDATE)^DIE  $$IENS^DILF  ($$GET1,GETS)^DIQ  ^DIR  
IHS VA Utilities 1 ^XBFMK  
Kernel 1 $$NOW^XLFDT  
Registration 1 FULL^VALM1  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS HIV Management System 2 BKMVA1  BKMVA1B  
iCare 1 BQIRGTHM  

Entry Points

Name Comments DBIA/ICR reference
GETDXCAT(DFN) ;
COMPVALS(IENS,TYP1,TYP2) ;EP - Called from TESTEDIT^BKMVA1A
; Compare pre/post edit fields to populate other fields
; Assumes existence of BKMV array
; Inputs:
; TYP1 = Subscript value like "PRE"
; TYP2 = Subscript value like "POST"
DSPCC ;EP - Display Clinical Categories
DIAG(DFN) ;EP - Return HMS Diagnosis Category
GETVALS(IENS,TYP) ;EP - Called from TESTEDIT^BKMVA1A
; Build pre/post edit fields to track changes
LDVAL(IENS) ; Load initial data values for input template BKMV PATIENT RECORD
YNP(PROMPT,DFLT) ;EP - Yes/No question
FOLL() ;EP -Where Followed prompt
PROMPTS(DFN,BKMSKIP) ;EP - Patient Record prompts.
; BKMSKIP indicates whether or not prompts that are populated
; should be skipped when using input template BKMV PATIENT RECORD
; Populates DIRUT if timeout or up-arrow to exit
PROMPTX ; Secondary point following unsuccessful lock attempt
; Notifications including state reporting status, state confirmation status and partner notification status
; PRXM/HC/BHS - 05/22/2006 - Update prompt text per IHS
DXHIST(BKMIENS,BKMDUZ,BKMDX) ;EP - Update Date/Time of HMS Diagnosis Category History for File 90451
; Input variables:
; BKMIENS - IEN list formatted for File 90451.01
; BKMDUZ - User IEN from File 200
; BKMDX - Internal code from HMS DIAGNOSIS CATEGORY (??)
; Output variables:
; Record updated in File 90451
; Initialize variables
DSPCDC ;EP - Display CDC Etiology Categories
LDREC(DFN,GUI) ;EP - Load recommended values for HMS Diagnosis Category, Initial HIV Date and
; Initial AIDS Date based on taxonomies
; this will first load the appropriate taxonomies and then calculate
; recommended values and store them in the following variables:
; DIAGCAT (Diagnosis); IAIDSDT (Initial AIDS date) ; HAIDSDT (Initial HIV date)

External References

Name Field # of Occurrence
$$BKMIEN^BKMIXX3 FOLL+2, DIAG+2, GETDXCAT+6, PROMPTS+10, PROMPTS+54
$$BKMPRIV^BKMIXX3 GETDXCAT+3, PROMPTS+22
$$BKMREG^BKMIXX3 FOLL+3, DIAG+3, GETDXCAT+8, PROMPTS+11, PROMPTS+55
$$DIAG^BKMIXX3 GETDXCAT+16
$$HIVIEN^BKMIXX3 GETDXCAT+4, PROMPTS+9
NOGO^BKMIXX3 GETDXCAT+3, PROMPTS+22
$$EXISTHAP^BKMVA1A PROMPTX+9
$$EXISTNOT^BKMVA1A PROMPTX+4
GETHAP^BKMVA1A PROMPTX+9
GETNOT^BKMVA1A PROMPTX+4
$$YNP^BKMVA1B PROMPTX+4, PROMPTX+9
DXHIST^BKMVA1B GETDXCAT+40, COMPVALS+31
REGDC^BKMVA1C LDREC+13
ITAX^BKMVA1U LDREC+10
EN^DDIOL LDREC+8, PROMPTS+24
^DIE GETDXCAT+34, GETDXCAT+39, PROMPTS+25
FILE^DIE GETDXCAT+19, COMPVALS+35
UPDATE^DIE DXHIST+18
$$IENS^DILF FOLL+5, DIAG+5, GETDXCAT+11, GETDXCAT+22, PROMPTS+13, PROMPTS+58
$$GET1^DIQ FOLL+6, FOLL+7, DIAG+6, GETDXCAT+13, GETDXCAT+14, GETDXCAT+24, GETDXCAT+25
GETS^DIQ LDVAL+3, GETVALS+7
^DIR YNP+6, FOLL+12
FULL^VALM1 PROMPTS+19
^XBFMK YNP+2, GETDXCAT+2, GETDXCAT+41
$$NOW^XLFDT DXHIST+15, GETDXCAT+33, COMPVALS+26, COMPVALS+34

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Select one of the following clinical classifications:"
  • Line Location: DSPCC+4
Function Call: WRITE
  • Prompt: !?3,$P(CCSTR,U),?13,$P(CCSTR,U,2)
  • Line Location: DSPCC+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPCC+8
Function Call: WRITE
  • Prompt: !!?3,"Select one of the following CDC Etiology categories:"
  • Line Location: DSPCDC+3
Function Call: WRITE
  • Prompt: !?3,$P(CDCSTR,U,2),?13,$P(CDCSTR,U)
  • Line Location: DSPCDC+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPCDC+7
Routine Call
  • DIE
  • Line Location:
    • DXHIST+18
Routine Call
  • DIE
  • Line Location:
    • GETDXCAT+34
    • GETDXCAT+39
    • PROMPTS+25
Routine Call
  • DIE
  • Line Location:
    • GETDXCAT+19
    • COMPVALS+35
Routine Call
  • DIR
  • Line Location:
    • YNP+6
    • FOLL+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^BKM(90451 - [#90451] Classic Fileman Calls
90451.01 GET1^DIQ,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BKM(90451 - [#90451] PROMPTS+24, PROMPTS+64
^BKM(90451.5 - [#90451.5] DSPCDC+4, DSPCDC+5, DSPCDC+6
^BKMV(90451.7 - [#90451.7] DSPCC+5, DSPCC+6, DSPCC+7
^TMP("BKMAIDS" LDREC+15!
^TMP("BKMCD4" LDREC+15!
^TMP("BKMCD4AB" LDREC+16!
^TMP("BKMHIV" LDREC+15!
^TMP("BKMHIVP" LDREC+16!
^TMP("BKMTST" LDREC+16!

Label References

Name Line Occurrences
COMPVALS PROMPTS+62
GETVALS PROMPTS+18, PROMPTS+60
PROMPTX PROMPTS+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DXHIST+19!
BKMCC PROMPTS+5~, COMPVALS+6~, COMPVALS+9!
BKMCC( COMPVALS+12*, COMPVALS+13*, COMPVALS+14*, COMPVALS+15*, COMPVALS+18*, COMPVALS+22*, COMPVALS+25*, COMPVALS+26*, COMPVALS+30*, COMPVALS+34*
BKMCHK GETDXCAT+1~
BKMDIAG PROMPTS+5~
BKMDUZ DXHIST~, DXHIST+9, DXHIST+17
BKMDX DXHIST~, DXHIST+16
BKMETI PROMPTS+6~, PROMPTS+7*
BKMIEN FOLL+1~, FOLL+2*, FOLL+3, FOLL+4, DIAG+1~, DIAG+2*, DIAG+3, DIAG+4, GETDXCAT+1~, GETDXCAT+6*
, GETDXCAT+7, GETDXCAT+8, GETDXCAT+10, GETDXCAT+21, GETDXCAT+40, PROMPTS+4~, PROMPTS+10*, PROMPTS+11, PROMPTS+12, PROMPTS+21
, PROMPTS+24, PROMPTS+54*, PROMPTS+55, PROMPTS+57, PROMPTS+64
BKMIENS FOLL+1~, FOLL+5*, FOLL+6, DXHIST~, DXHIST+9, DXHIST+12, DIAG+1~, DIAG+5*, DIAG+6, GETDXCAT+11*
, GETDXCAT+13, GETDXCAT+14, GETDXCAT+18, GETDXCAT+22*, GETDXCAT+24, GETDXCAT+25, PROMPTS+4~, PROMPTS+13*, PROMPTS+18, PROMPTS+58*
, PROMPTS+60, PROMPTS+62, COMPVALS+12, COMPVALS+13, COMPVALS+14, COMPVALS+15, COMPVALS+18, COMPVALS+22, COMPVALS+25, COMPVALS+26
, COMPVALS+30, COMPVALS+31, COMPVALS+34
BKMREG FOLL+1~, FOLL+3*, FOLL+4, DIAG+1~, DIAG+3*, DIAG+4, GETDXCAT+1~, GETDXCAT+8*, GETDXCAT+9, GETDXCAT+10
, GETDXCAT+21, GETDXCAT+40, PROMPTS+4~, PROMPTS+11*, PROMPTS+12, PROMPTS+55*, PROMPTS+57
BKMSKIP PROMPTS~
BKMV PROMPTS+5~
BKMV( GETVALS+3!, GETVALS+8*, COMPVALS+8, COMPVALS+11, COMPVALS+17, COMPVALS+20, COMPVALS+22, COMPVALS+23, COMPVALS+25, COMPVALS+28
, COMPVALS+30, COMPVALS+31, COMPVALS+33
BKMV("POST" GETDXCAT+24*, GETDXCAT+25*, GETDXCAT+27, GETDXCAT+35, GETDXCAT+40
BKMV("PRE" GETDXCAT+13*, GETDXCAT+14*, GETDXCAT+27, GETDXCAT+31, GETDXCAT+35, GETDXCAT+38
BKMVAL LDVAL+2!, LDVAL+4*
BKMVUP GETDXCAT+1~
BKMVUP( GETDXCAT+18*
CC DSPCC+2~, DSPCC+3*, DSPCC+5*, DSPCC+6
CCIEN DSPCC+2~, DSPCC+6*, DSPCC+7
CCSTR DSPCC+2~, DSPCC+7*
CDC DSPCDC+1~, DSPCDC+2*, DSPCDC+4*, DSPCDC+5
CDCIEN DSPCDC+1~, DSPCDC+5*, DSPCDC+6
CDCSTR DSPCDC+1~, DSPCDC+6*
DA FOLL+1~, FOLL+4*, FOLL+5, DIAG+1~, DIAG+4*, DIAG+5, GETDXCAT+10*, GETDXCAT+11, GETDXCAT+18!, GETDXCAT+20!
, GETDXCAT+21*, GETDXCAT+22, PROMPTS+12*, PROMPTS+13, PROMPTS+20!, PROMPTS+21*, PROMPTS+56!, PROMPTS+57*, PROMPTS+58
DA(1 FOLL+4*, DIAG+4*, GETDXCAT+10*, GETDXCAT+21*, GETDXCAT+30, GETDXCAT+37, PROMPTS+12*, PROMPTS+57*
DFLT YNP~, YNP+1*, YNP+5
DFN FOLL+2, DIAG~, DIAG+2, LDREC~, LDREC+13, GETDXCAT~, GETDXCAT+6, PROMPTS~, PROMPTS+10, PROMPTS+54
, PROMPTX+4, PROMPTX+9
DIAGCAT GETDXCAT+1~, GETDXCAT+16*, GETDXCAT+17, GETDXCAT+18
>> DIE GETDXCAT+30*, GETDXCAT+37*, PROMPTS+21*
>> DIE("NO^" PROMPTS+14*
DIR FOLL+8~
DIR("A" YNP+4*, FOLL+11*
DIR("B" YNP+5*, FOLL+9*
DIR(0 YNP+3*, FOLL+10*
DIRUT PROMPTS+16!, PROMPTX+5
>> DR GETDXCAT+31*, GETDXCAT+33*, GETDXCAT+38*, PROMPTS+21*
>> DTOUT YNP+6, FOLL+14
>> DUOUT YNP+6, FOLL+14
DUZ GETDXCAT+3, GETDXCAT+40, PROMPTS+22, COMPVALS+31
DUZ(2 FOLL+7
FDA DXHIST+11!, DXHIST+19!
FDA( DXHIST+15*, DXHIST+16*, DXHIST+17*
FOLL FOLL+1~, FOLL+6*, FOLL+7*, FOLL+9, PROMPTS+6~
GUI LDREC~, LDREC+7*, LDREC+8
HIVIEN GETDXCAT+1~, GETDXCAT+4*, GETDXCAT+5, PROMPTS+4~, PROMPTS+9*, PROMPTX+9
IENS DXHIST+8~, DXHIST+12*, DXHIST+15, DXHIST+16, DXHIST+17, LDVAL~, LDVAL+3, LDVAL+4, GETVALS~, GETVALS+7
, GETVALS+8, COMPVALS~
OBKMDIAG PROMPTS+5~
PROMPT YNP~, YNP+4
TEMP LDVAL+1~, GETVALS+2~
TEMP( LDVAL+4, GETVALS+8
TYP GETVALS~, GETVALS+3, GETVALS+8
TYP1 COMPVALS~, COMPVALS+7, COMPVALS+8, COMPVALS+20, COMPVALS+22, COMPVALS+23, COMPVALS+25, COMPVALS+28, COMPVALS+30, COMPVALS+33
TYP2 COMPVALS~, COMPVALS+7, COMPVALS+8, COMPVALS+11, COMPVALS+17, COMPVALS+20, COMPVALS+23, COMPVALS+28, COMPVALS+31, COMPVALS+33
U DSPCC+7, DSPCDC+6, COMPVALS+11
X FOLL+13, DXHIST+19!
Y YNP+7, FOLL+8~, FOLL+13, FOLL+15, DXHIST+19!
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