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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BDMVRL5

Package: Diabetes Registry

Routine: BDMVRL5


Information

BDMVRL5 ; IHS/CMI/LAB - VIEW PT RECORD LT ;

Source Information

Source file <BDMVRL5.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Diabetes Registry 5 (DIC,DIE,DIK,DIR,FILE)^BDMFDIC  (DMLAB,REG)^BDMFUTIL  NEWPAT^BDMVRL2  PAT^BDMVRL4  RETURN^BDMVU  
Registration 1 CLEAR^VALM1  
VA Fileman 1 ^DIK  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Diabetes Registry 3 BDMVRL  BDMVRL2  BDMVRL4  

Entry Points

Name Comments DBIA/ICR reference
DXUPD ;EP;UPDATE PATIENT'S DIABETIC DIAGNOSIS
FS
DOB ;DATE OF BIRTH
AGE ;PATIENT AGE
REGPAT ;REGISTER AND PATIENT VARIABLES
PAUSE ;EP; -- end of action pause
NOREG ;EP;NO DIABETES REGISTER ON THE SYSTEM
INA(DFN,ACMRPDA) ;EP - check to see if patient is inactive
DX ;DIABETIC DIAGNOSES
RES(DFN) ;EP;CURRENT RESIDENCE
NR1 ;EP;CREATE NEW IHS DIABETES REGISTER
PP ;EP;PRIMARY CARE PROVIDER
NEWCOMP ;IHS DIABETES REGISTER COMPLICATIONS
NEWREG ;CREATE IHS DIABETES REGISTER
DD ;ONSET DATE
NEWPAT ;EP;CREATE ENTRY FOR NEW REGISTER PATIENT
NEWHS ;EP;NEW HEALTH SUMMARIES FOR DMS
COMP ;PATIENT'S COMPLICATIONS
NEWDIAG ;IHS DIABETES REGISTER DIAGNOSES
GETPAT ;EP; -- ask user to select patient
GRD ;EP;PATIENT REGISTER DATA
HRN ;HRN
15 ;PAD TO 15 CHARACTERS
30 ;PAD TO 30 CHARACTERS
LAB
CONTACT ;CLIENT CONTACT INFO
GETHSTYP ;EP; -- ask user for health summary type

External References

Name Field # of Occurrence
DIC^BDMFDIC GETPAT+5, GETHSTYP+9
DIE^BDMFDIC INA+8, DXUPD+20, PP+14, PP+19, CONTACT+10
DIK^BDMFDIC DX+23
DIR^BDMFDIC NOREG+7
FILE^BDMFDIC DXUPD+25, NEWREG+5, NEWDIAG+8, NEWDIAG+16, NEWCOMP+10, NEWCOMP+18, NEWHS+9, LAB+13, FS+13, FS+28
DMLAB^BDMFUTIL LAB+15
REG^BDMFUTIL REGPAT+1
NEWPAT^BDMVRL2 NEWPAT+1
PAT^BDMVRL4 REGPAT+5
RETURN^BDMVU PAUSE+1
^DIK DXUPD+6
CLEAR^VALM1 NOREG+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GETHSTYP+8
Function Call: WRITE
  • Prompt: !!,"There is no IHS DIABETES REGISTER on this system."
  • Line Location: NOREG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NOREG+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACM(41 - [#9002241] Classic Fileman Calls
^ACM(41.1 - [#9002241.1] Classic Fileman Calls
^ACM(42.1 - [#9002242.1] Classic Fileman Calls
^ACM(44 - [#9002244] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACM(41 - [#9002241] REGPAT+3, GRD+3, GRD+4, GRD+5, PP+8, PP+15, CONTACT+1
^ACM(41.1 - [#9002241.1] NEWREG+2, NEWCOMP+1
^ACM(42 - [#9002242] COMP+4, COMP+5, COMP+11
^ACM(42.1 - [#9002242.1] COMP+8, NEWCOMP+4, NEWCOMP+5, NEWCOMP+15*
^ACM(44 - [#9002244] DX+5, DX+6, DX+15, DD+2
^ACM(44.1 - [#9002244.1] DXUPD+10, DXUPD+11, DX+9, NEWDIAG+2, NEWDIAG+3, NEWDIAG+13*
^APCCCTRL - [#9001000] GETHSTYP+3
^APCHSCMP("B" LAB, FS
^APCHSCTL - [#9001015] LAB+4, LAB+5, LAB+7*, FS+4, FS+5, FS+7*, FS+19, FS+20, FS+23*
^APCHSCTL("B" NEWHS+4
^APCHSFLC("B" FS+15
^AUPNPAT - [#9000001] INA+3, INA+4, GRD+33, HRN+1, RES+2, RES+3, RES+4, RES+5, PP+4, PP+5
^AUTTCOM("B" RES+5
^DD("DD" GRD+46, GRD+50, GRD+54, GRD+58, GRD+62, GRD+66, DD+3, COMP+12
^DD(9000001 GRD+34, PP+2
^DD(9002241 GRD+11, GRD+15, GRD+42
^DIC(16 - [#16] GRD+34
^DIC(4 - [#4] GRD+27
^DIC(5 - [#5] DOB+7, CONTACT+5
^DPT - [#2] GRD+7, DOB+3, DOB+6, DOB+9, AGE+3, CONTACT+4, CONTACT+6
^VA(200 - [#200] GRD+19, GRD+23, GRD+34, GRD+38, PP+6, PP+10

Label References

Name Line Occurrences
15 GRD+47, GRD+51, GRD+55, GRD+59, GRD+63, GRD+67
30 GRD+8, GRD+12, GRD+16, GRD+20, GRD+24, GRD+28, GRD+31, GRD+35, GRD+39, GRD+43
AGE GETPAT+13, GRD+70
COMP GETPAT+17, GRD+74
DD DX+11, DX+16
DOB GETPAT+12, GRD+69
DX GETPAT+16, GRD+73
FS NEWHS+13
HRN GETPAT+14, GRD+71
LAB NEWHS+12
NEWCOMP NR1+3
NEWDIAG NR1+2
NEWHS NR1+4
NEWPAT REGPAT+4
NEWREG NR1+1
REGPAT GETPAT+10
RES GETPAT+15, GRD+72

Naked Globals

Name Field # of Occurrence
^( NEWREG+2
^(0 GETHSTYP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACM0 COMP+5*, COMP+6, COMP+7, COMP+8
ACMRPDA INA~, INA+2, INA+5
>> APCHSTYP GETHSTYP+11*
>> AUPNLK("INAC" GETPAT+4*, GETPAT+6!, GETPAT+7!
>> BDM RES+6*
>> BDM("ADDRESS" DOB+8*
>> BDM("AGE" AGE+2!, AGE+7*
>> BDM("CASE MAN AGER" , GRD+21*
>> BDM("CASE PRI ORITY" , GRD+17*
>> BDM("CLIENT C ONTACT" , GRD+32*
>> BDM("COMP" COMP+1!, COMP+10*, COMP+13*
>> BDM("DATE ACT IVATED" , GRD+48*
>> BDM("DATE INA CTIVATED" , GRD+52*
>> BDM("DATE LAS T EDITED" , GRD+60*
>> BDM("DOB" DOB+2!, DOB+4*
>> BDM("DX" DXUPD+3, DXUPD+7*, DXUPD+8, DXUPD+15, DXUPD+16, DX+1!, DX+12*, DX+19, DX+20, DX+24!
>> BDM("HRN" HRN+1*
>> BDM("INITIAL ENTRY DATE" , GRD+56*
>> BDM("LAST REV IEW DATE" , GRD+64*
>> BDM("NEXT REV IEW DATE" , GRD+68*
>> BDM("ONSET DI SPLAY" , DX+12, DD+4*
>> BDM("ONSET" DXUPD+19, DXUPD+24
>> BDM("PATIENT" GRD+9*
>> BDM("PHONE" DOB+9*
>> BDM("PRIMARY PROVIDER" , GRD+36*
>> BDM("PROVIDER CATEGORY" , GRD+44*
>> BDM("PUBLIC H LTH NURSE" , GRD+25*
>> BDM("REGISTER PROVIDER" , GRD+40*
>> BDM("RES" RES+6*
>> BDM("STATUS" GRD+13*
>> BDM("WHERE FO LLOWED" , GRD+29*
>> BDMCH GRD+5*
BDMDA NEWHS+1~, NEWHS+3*, NEWHS+4*, NEWHS+5, NEWHS+10*, NEWHS+11, LAB+4, LAB+5, LAB+7, LAB+8
, FS+4, FS+5, FS+7, FS+8, FS+19, FS+20, FS+22
BDMDX DXUPD+9!
>> BDMEXT DXUPD+2, DXUPD+7, DXUPD+10, DXUPD+16, DX+3*, DX+13*
>> BDMEXTIN DXUPD+2, DX+3*, DX+13*
>> BDMPAT0 GETPAT+9*
BDMPP PP+3~, PP+6*, PP+7, PP+8*, PP+9, PP+10, PP+18
BDMPP6 PP+3~, PP+5*, PP+6, PP+10*, PP+13
BDMQUIT GETPAT+1!, GETPAT+6*, GETPAT+11, GETPAT+18!, REGPAT+2, NOREG+8*, LAB+2!, LAB+5*, LAB+6!, FS+2!
, FS+5*, FS+6!, FS+17!, FS+20*, FS+21!
>> BDMRDA REGPAT+3, DXUPD+24, DX+8, COMP+7, NEWREG+2*, NEWREG+6*, NEWDIAG+3, NEWDIAG+10, NEWCOMP+1*, NEWCOMP+2
, NEWCOMP+5, NEWCOMP+12
>> BDMREG0 GRD+3*, GRD+6
>> BDMREGDT GRD+4*, GRD+10, GRD+14, GRD+18, GRD+22, GRD+26, GRD+30, GRD+37, GRD+41, GRD+45
, GRD+49, GRD+53, GRD+57, GRD+61, GRD+65
>> BDMREGNM NEWREG+1, NEWCOMP+1
>> BDMRPDA REGPAT+3*, REGPAT+4, REGPAT+5, DXUPD+24, GRD+1, GRD+3, GRD+4, GRD+5, PP+8, PP+15
, PP+16, CONTACT+1, CONTACT+7
BDMX DXUPD+10*, DXUPD+11*, DXUPD+12, DXUPD+19, DXUPD+21, DX+18*, DX+19*, DX+20, DX+24, NEWDIAG+1*
, NEWDIAG+2, NEWDIAG+5, NEWCOMP+3*, NEWCOMP+4, NEWCOMP+7, NEWHS+1~, NEWHS+2*, NEWHS+4, NEWHS+6, NEWHS+12
, NEWHS+13, LAB+15
>> BDMY NEWDIAG+2*, NEWDIAG+3, NEWDIAG+4, NEWDIAG+9*, NEWDIAG+13, NEWCOMP+4*, NEWCOMP+5, NEWCOMP+6, NEWCOMP+11*
>> DA INA+5*, DXUPD+3*, DXUPD+4, DXUPD+13*, DXUPD+16*, DXUPD+17, DX+20*, DX+21, PP+11*, PP+16*
, CONTACT+7*, NEWDIAG+11*, NEWDIAG+14, NEWCOMP+13*, NEWCOMP+15, NEWCOMP+16, LAB+8*, LAB+9, FS+8*, FS+9
, FS+22*, FS+23, FS+24
>> DA(1 NEWDIAG+12*, NEWCOMP+14*, LAB+8*, FS+8*, FS+22*
DD GETHSTYP+1~
DFN GETPAT+1!, GETPAT+8*, GETPAT+15, REGPAT+3, REGPAT+5, INA~, INA+3, INA+4, DXUPD+24, GRD+6*
, GRD+7, GRD+33, GRD+72, DOB+3, DOB+6, DOB+9, AGE+3, HRN+1, RES~, RES+2
, RES+3, RES+4, RES+5, DX+5, DX+15, COMP+4, PP+4, PP+5, PP+11, CONTACT+4
, CONTACT+6
DIC GETPAT+1!, GETPAT+2*, GETHSTYP+1~, GETHSTYP+5*, DXUPD+22*, NEWREG+3*, NEWDIAG+6*, NEWDIAG+14*, NEWCOMP+8*, NEWCOMP+16*
, NEWHS+7*, LAB+9*, FS+9*, FS+24*
DIC("B" GETHSTYP+7*
DIC("DR" DXUPD+24*, LAB+11*, FS+11*, FS+26*
DIC(0 GETPAT+3*, GETHSTYP+6*, DXUPD+23*, NEWREG+4*, NEWDIAG+7*, NEWDIAG+15*, NEWCOMP+9*, NEWCOMP+17*, NEWHS+8*, LAB+10*
, FS+10*, FS+25*
>> DIE INA+6*, DXUPD+18*, PP+12*, PP+17*, CONTACT+8*
>> DIK DXUPD+5*, DX+22*
>> DIR("A" NOREG+4*
>> DIR("B" NOREG+5*
>> DIR(0 NOREG+3*
DR GETHSTYP+1~, INA+7*, DXUPD+19*, PP+13*, PP+18*, CONTACT+9*
DT AGE+4, AGE+6
DUZ(2 GETHSTYP+3, INA+3, INA+4, HRN+1
>> J DOB+7*, CONTACT+5*
U GETHSTYP+3, INA+3, INA+4, DXUPD+3, DXUPD+7, DXUPD+8, DXUPD+10, DXUPD+11, DXUPD+16, GRD+6
, GRD+7, GRD+10, GRD+11, GRD+14, GRD+15, GRD+18, GRD+19, GRD+22, GRD+23, GRD+26
, GRD+27, GRD+30, GRD+33, GRD+34, GRD+37, GRD+38, GRD+41, GRD+42, GRD+45, GRD+49
, GRD+53, GRD+57, GRD+61, GRD+65, DOB+3, DOB+7, DOB+9, AGE+3, HRN+1, RES+3
, RES+4, RES+5, DX+8, DX+12, DX+13, DX+20, DD+2, COMP+7, COMP+10, COMP+11
, COMP+13, PP+4, PP+5, PP+8, PP+10, PP+15, CONTACT+1, CONTACT+5, CONTACT+6, NEWDIAG+13
, NEWCOMP+15, LAB+5, LAB+7, FS+5, FS+7, FS+20, FS+23
X GETHSTYP+1~, GETHSTYP+2*, GETHSTYP+3*, GETHSTYP+4*, GETHSTYP+7, DXUPD+1~, DXUPD+14*, DXUPD+15*, DXUPD+16, DXUPD+21*
, GRD+2~, GRD+7*, GRD+9, GRD+10*, GRD+11*, GRD+13, GRD+14*, GRD+15*, GRD+17, GRD+18*
, GRD+19*, GRD+21, GRD+22*, GRD+23*, GRD+25, GRD+26*, GRD+27*, GRD+29, GRD+30*, GRD+32
, GRD+33*, GRD+34*, GRD+36, GRD+37*, GRD+38*, GRD+40, GRD+41*, GRD+42*, GRD+44, DOB+1~
, DOB+6*, DOB+7, AGE+1~, AGE+3*, AGE+5, AGE+6, RES+1~, RES+2*, RES+3*, RES+4*
, RES+5*, RES+6, DX+2~, DX+4*, DX+5*, DX+6, DX+12, DX+15*, DX+16, DD+2
, 30+1*, COMP+2~, COMP+3*, COMP+4*, COMP+5, COMP+11, CONTACT+2~, CONTACT+4*, CONTACT+5, CONTACT+6*
, CONTACT+9, NEWREG+1*, NEWREG+2, NEWDIAG+5*, NEWDIAG+10*, NEWCOMP+7*, NEWCOMP+12*, NEWHS+6*, LAB*, LAB+1
, LAB+5, LAB+11, LAB+12*, FS*, FS+1, FS+5, FS+11, FS+12*, FS+15*, FS+16
, FS+20, FS+26, FS+27*
Y GETPAT+6, GETPAT+8, GETHSTYP+10, GETHSTYP+11, DXUPD+1~, DXUPD+8*, DXUPD+9, GRD+2~, GRD+45*, GRD+48
, GRD+49*, GRD+52, GRD+53*, GRD+56, GRD+57*, GRD+60, GRD+61*, GRD+64, GRD+65*, GRD+68
, DOB+1~, DOB+3*, DOB+4, DOB+7*, AGE+1~, AGE+4*, AGE+5, DX+2~, DX+6*, DX+7
, DX+8, DX+9*, DX+12, DX+13, DD+1~, DD+2*, DD+3, DD+4, 15+1*, COMP+2~
, COMP+8*, COMP+10, COMP+11*, COMP+13, CONTACT+2~, CONTACT+5*, NOREG+8, NEWREG+6, NEWDIAG+9, NEWDIAG+11
, NEWDIAG+12, NEWCOMP+11, NEWCOMP+13, NEWCOMP+14, NEWHS+10, LAB+3*, LAB+4*, LAB+5, LAB+14, FS+3*
, FS+4*, FS+5, FS+14, FS+18*, FS+19*, FS+20
Y(0 GETPAT+9
Z DXUPD+1~, GRD+2~, DOB+1~, DOB+5*, DOB+7*, DOB+8, AGE+1~, AGE+5*, AGE+6*, AGE+7
, DX+2~, DX+4*, DX+10*, DX+12, DX+13, DX+14*, COMP+2~, COMP+3*, COMP+9*, COMP+10
, COMP+13, CONTACT+2~, CONTACT+3*, CONTACT+5*, CONTACT+9
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 |  Naked Globals |  Local Variables |  All