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 |  Marked Items |  All
Print Page as PDF
Routine: BDMEDMUP

Package: Diabetes Registry

Routine: BDMEDMUP


Information

BDMEDMUP ; IHS/CMI/LAB - EDITS FOR AUPNVSIT (VISIT:9000010) 24-MAY-1993 ; 20 Sep 2013 2:49 PM

Source Information

Source file <BDMEDMUP.m>

Call Graph

Call Graph Total: 23

Package Total Call Graph
VA Fileman 8 EN^DDIOL  ^DDS  ^DIC  (FILE,YN)^DICN  DQ^DICQ  ^DIE  ^DIK  ^DIR  
Patient Care Component 6 ^APCDALV  ^APCDALVR  GETVISIT^APCDAPI4  INAC^APCDEA  DEDT^APCDEA2  ^APCDEMDI  
Diabetes Registry 3 (DENTAL,DEPR,EYE,FLU,FOOT,HEPB,MAM,PAP,PNEU,TD)^BDMEDMU1  (BP,EDUC,EKG,ENDSHF,LAB,MED,PPD,SGHF,TBHF)^BDMEDMU2  (BTLHF,LPHF,REF,RTLHF)^BDMEDMU3  
IHS VA Utilities 2 ^XBFMK  EN^XBVK  
Kernel 2 $$FMTE^XLFDT  $$UP^XLFSTR  
IHS Changes To Scheduling 1 ^BSDAPI4  
IHS Patient 1 KILL^AUPNPAT  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Diabetes Registry 4 BDMEDMU1  BDMEDMU2  BDMEDMU3  BDMGEA  

Entry Points

Name Comments DBIA/ICR reference
PROBN ;EP
VSIT01 ;EP;9000010,.01 (VISIT,VISIT/ADMIT DATE&TIME)
UPDPCC ;update pcc
EN(BDMEDA,BDMEDMER) ;PEP - called from DM GUI
VSIT01B ;
CTR(X,Y) ;EP - Center X in a field Y wide.
CREATE ;create entry in fileman file
ERR(T) ;EP
EVSIT ;EP - get/create event visit
HT ;
GETPAT ;
SMOKEHF ;
WT ;
XIT ;
PROBNUM(X) ;EP - get problem ien given problem number
BSD ;
DEL
ID ;
REF ;update refusals?
PROB ;

External References

Name Field # of Occurrence
^APCDALV EVSIT+11
^APCDALVR HT+16, WT+16, SMOKEHF+15
GETVISIT^APCDAPI4 BSD+11
INAC^APCDEA GETPAT+8
DEDT^APCDEA2 BSD+15, EVSIT+13
^APCDEMDI GETPAT+9
KILL^AUPNPAT XIT+1
DENTAL^BDMEDMU1 EN+19
DEPR^BDMEDMU1 EN+18
EYE^BDMEDMU1 EN+17
FLU^BDMEDMU1 EN+22
FOOT^BDMEDMU1 EN+16
HEPB^BDMEDMU1 EN+25
MAM^BDMEDMU1 EN+21
PAP^BDMEDMU1 EN+20
PNEU^BDMEDMU1 EN+23
TD^BDMEDMU1 EN+24
BP^BDMEDMU2 EN+12
EDUC^BDMEDMU2 EN+28
EKG^BDMEDMU2 EN+27
ENDSHF^BDMEDMU2 EN+34
LAB^BDMEDMU2 EN+29
MED^BDMEDMU2 EN+30
PPD^BDMEDMU2 EN+26
SGHF^BDMEDMU2 EN+15
TBHF^BDMEDMU2 EN+14
BTLHF^BDMEDMU3 EN+33
LPHF^BDMEDMU3 EN+32
REF^BDMEDMU3 REF+4
RTLHF^BDMEDMU3 EN+31
^BSDAPI4 EVSIT+1
EN^DDIOL VSIT01+1, VSIT01+4, VSIT01B+1, VSIT01B+2, VSIT01B+3, PROBN+5, PROBN+6, PROBN+7, PROBN+9
^DDS BDMEDMUP+24
^DIC GETPAT+4
FILE^DICN CREATE+3
YN^DICN GETPAT+6
DQ^DICQ PROBNUM+12
^DIE PROB+8
^DIK DEL
^DIR BDMEDMUP+10, BDMEDMUP+18, REF+1
^XBFMK XIT+4, PROB+7, PROB+10, SMOKEHF+28, CREATE+2, CREATE+6
EN^XBVK XIT+3
$$FMTE^XLFDT PROB+8, HT+9, WT+9, SMOKEHF+9
$$UP^XLFSTR PROBN+2, PROBNUM+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR("DMS DATA ENTRY",80)
  • Line Location: BDMEDMUP+4
Function Call: WRITE
  • Prompt: !!,$$CTR("Diabetes Patient Data Update",80)
  • Line Location: BDMEDMUP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: BDMEDMUP+6
Function Call: WRITE
  • Prompt: !!,"The data you enter for the above patient will be updated in the PCC",!,"database.",!
  • Line Location: BDMEDMUP+9
Function Call: WRITE
  • Prompt: !!,"Okay, one more thing ... If you intend to update the DM Date of Onset, you"
  • Line Location: BDMEDMUP+13
Function Call: WRITE
  • Prompt: !,"must have the patient's DM problem number available from the problem list"
  • Line Location: BDMEDMUP+14
Function Call: WRITE
  • Prompt: !,"The problem number must be entered in the correct field in the following"
  • Line Location: BDMEDMUP+15
Function Call: WRITE
  • Prompt: !,"format: XXnn, where XX is the facility abbreviation and nn is the"
  • Line Location: BDMEDMUP+16
Function Call: WRITE
  • Prompt: !,"problem number, e.g.: MU7",!
  • Line Location: BDMEDMUP+17
Function Call: WRITE
  • Prompt: !!,"Exiting..."
  • Line Location: BDMEDMUP+22
Function Call: WRITE
  • Prompt: !!,"ERROR IN SCREENMAN FORM!! ***NOTIFY PROGRAMMER***"
  • Line Location: BDMEDMUP+25
Function Call: WRITE
  • Prompt: !!,"the following errors occurred when updating PCC"
  • Line Location: BDMEDMUP+27
Function Call: WRITE
  • Prompt: !?5,BDMEDMER(X)
  • Line Location: BDMEDMUP+28
Function Call: WRITE
  • Prompt: !!,"Updating PCC database....hold on a moment...",!
  • Line Location: UPDPCC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: GETPAT+2
Routine Call
  • DIE
  • Line Location:
    • PROB+8
Routine Call
  • DDS
  • Line Location:
    • BDMEDMUP+24
Routine Call
  • DIC
  • Line Location:
    • GETPAT+4
Routine Call
  • DIR
  • Line Location:
    • BDMEDMUP+10
    • BDMEDMUP+18
    • REF+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUPNPROB - [#9000011] Classic Fileman Calls
^BDMEDMUP - [#9003203.2] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCCCTRL - [#9001000] BSD+5, EVSIT+9
^AUPNPROB("AA" PROBN+9, PROBNUM+10
^AUPNVHF - [#9000010.23] SMOKEHF+8
^AUPNVHF("AD" SMOKEHF+8
^AUPNVMSR - [#9000010.01] HT+8, WT+8
^AUPNVMSR("AD" HT+8, WT+8
^AUPNVSIT - [#9000010] HT+9, WT+9, SMOKEHF+9
^AUTTHF - [#9999999.64] SMOKEHF+5, SMOKEHF+9
^AUTTLOC - [#9999999.06] PROBN+9
^AUTTLOC("D" PROBN+6, PROBNUM+7
^AUTTMSR("B" HT+5, WT+5
^BDMEDMUP - [#9003203.2] EN+4, EN+5, EN+6
^BDMESITE( GETPAT+3

Label References

Name Line Occurrences
$$CTR BDMEDMUP+4, BDMEDMUP+5
$$PROBNUM PROB+4
BSD EVSIT+2
CREATE BDMEDMUP+21
DEL BDMEDMUP+25, REF+2, REF+3
EN UPDPCC+2
ERR PROB+5, PROB+9, HT+7, HT+9, HT+17, WT+7, WT+9, WT+17, SMOKEHF+7, SMOKEHF+9
, SMOKEHF+16, CREATE+4
EVSIT HT+6, WT+6, SMOKEHF+6
GETPAT BDMEDMUP+7
HT EN+10
PROB EN+9
REF BDMEDMUP+30
SMOKEHF EN+13
UPDPCC BDMEDMUP+26
VSIT01B VSIT01+3
WT EN+11
XIT BDMEDMUP+8, BDMEDMUP+11, BDMEDMUP+12, BDMEDMUP+19, BDMEDMUP+20, BDMEDMUP+22, BDMEDMUP+25, BDMEDMUP+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % GETPAT+6*
APCDALVR HT+10!, HT+18!, WT+10!, WT+18!, SMOKEHF+10!, SMOKEHF+17!, BSD+9!, EVSIT+4!, EVSIT+14!
APCDALVR("APCDAFLG" HT+17, WT+17, SMOKEHF+16
APCDALVR("APCDATMP" HT+13*, WT+13*, SMOKEHF+13*
APCDALVR("APCDAUTO" EVSIT+5*
APCDALVR("APCDCAT" EVSIT+7*
APCDALVR("APCDDATE" EVSIT+10*
APCDALVR("APCDLOC" EVSIT+8*
APCDALVR("APCDPAT" HT+11*, WT+11*, SMOKEHF+11*, EVSIT+6*
APCDALVR("APCDTHF" SMOKEHF+14*
APCDALVR("APCDTTYP" HT+14*, WT+14*
APCDALVR("APCDTVAL" HT+15*, WT+15*
APCDALVR("APCDTYPE" EVSIT+9*
APCDALVR("APCDVSIT" HT+12*, WT+12*, SMOKEHF+12*, EVSIT+12, EVSIT+13
>> AUPNDOB VSIT01+3, VSIT01B+3
>> AUPNDOD VSIT01+3, VSIT01B+2
>> AUPNLK("INAC" GETPAT+3*
>> AUPNPAT EN+8*, VSIT01+1, PROBN+9, PROBNUM+10
>> AUPNTALK VSIT01+1, VSIT01+4, VSIT01B+1, VSIT01B+2, VSIT01B+3
BDMEBSDV BSD+10!, BSD+11
BDMEBSDV( BSD+15
BDMEBSDV(0 BSD+12, BSD+14
>> BDMED PROB+6*, PROB+8
BDMEDA BDMEDMUP+21*, BDMEDMUP+22, BDMEDMUP+24, UPDPCC+2, EN~, EN+4, EN+5, EN+6, DEL, CREATE+1*
, CREATE+5*
>> BDMEDMDT HT+4*, WT+4*, SMOKEHF+3*, BSD+3, EVSIT+10, ID+1*
BDMEDMER BDMEDMUP+27, UPDPCC+2, EN~, EN+3!
BDMEDMER( BDMEDMUP+28, ERR+1*
>> BDMEDMPT BDMEDMUP+7*, BDMEDMUP+8, EN+8*, HT+11, WT+11, SMOKEHF+11, BSD+2, EVSIT+6, CREATE+3, GETPAT+1*
, GETPAT+7*, GETPAT+8*
>> BDMEERR EN+2*, ERR+1*
>> BDMEFVOK VSIT01B+1
BDMEIN BSD+1!, BSD+11
BDMEIN("PAT" BSD+2*
BDMEIN("SITE" BSD+4*
BDMEIN("SRV C AT" , BSD+6*
BDMEIN("TIME RANGE" , BSD+7*
BDMEIN("USR" BSD+8*
BDMEIN("VISIT DATE" , BSD+3*,  TYPE" , BSD+5*
>> BDMEMCAT SMOKEHF+5*
>> BDMEMTYP HT+5*, HT+8, HT+14, WT+5*, WT+8, WT+14, SMOKEHF+4*, SMOKEHF+5, SMOKEHF+8, SMOKEHF+14
>> BDMEN PROB+4*, PROB+5, PROB+8
>> BDMEPARM GETPAT+6
BDMEPI PROBN+1~, PROBN+4*, PROBNUM+2~, PROBNUM+5*
BDMEPLOC PROBN+1~, PROBN+6*, PROBN+9, PROBNUM+2~, PROBNUM+7*, PROBNUM+10
BDMEPN PROBN+1~, PROBN+7*, PROBN+8*, PROBN+9, PROBNUM+2~, PROBNUM+8*, PROBNUM+9*, PROBNUM+10
BDMEPPL PROBN+1~, PROBN+4*, PROBN+5, PROBN+6, PROBN+7, PROBNUM+2~, PROBNUM+5*, PROBNUM+6, PROBNUM+7, PROBNUM+8
>> BDMEREC EN+5*, EN+8, PROB+1, PROB+2, PROB+3, PROB+6, HT+2, HT+3, HT+4, HT+8
, HT+9, HT+15, WT+2, WT+3, WT+4, WT+8, WT+9, WT+15, SMOKEHF+2, SMOKEHF+4
, SMOKEHF+9
>> BDMEREC1 EN+6*, SMOKEHF+3
BDMEVSIT HT+1!, HT+7, HT+8, HT+9, HT+12, WT+1!, WT+7, WT+8, WT+9, WT+12
, SMOKEHF+1!, SMOKEHF+7, SMOKEHF+8, SMOKEHF+9, SMOKEHF+12, BSD+14*, BSD+15, EVSIT+3!, EVSIT+12*, EVSIT+13
D PROBNUM+12~*!
D0 CREATE+3!
DA BDMEDMUP+10!, BDMEDMUP+18!, BDMEDMUP+24*, DEL*, REF+1!, PROB+8*, PROBNUM+12~
DD CREATE+3!
>> DDSFILE BDMEDMUP+24*
DIADD XIT+2!, SMOKEHF+28!, CREATE+3*, CREATE+6!
DIC CREATE+3*, GETPAT+4*!, PROBNUM+12~*!
DIC("DR" CREATE+3*
DIC(0 CREATE+3*, GETPAT+4*, PROBNUM+12*
>> DIE PROB+8*
>> DIK DEL*
DIMSG BDMEDMUP+25!
DIR BDMEDMUP+10!, BDMEDMUP+18!, REF+1!
DIR("A" BDMEDMUP+10*, BDMEDMUP+18*, REF+1*
DIR("B" BDMEDMUP+10*, BDMEDMUP+18*, REF+1*
DIR(0 BDMEDMUP+10*, BDMEDMUP+18*, REF+1*
>> DIRUT BDMEDMUP+11, BDMEDMUP+19, REF+2
DLAYGO XIT+2!, SMOKEHF+28!, CREATE+3*, CREATE+6!
DO CREATE+3!
>> DR BDMEDMUP+24*, PROB+8*
DT SMOKEHF+3, VSIT01+3, VSIT01B+1
DUZ BSD+8
DUZ("AG" GETPAT+9, VSIT01B+2
DUZ(2 BSD+4, BSD+5, EVSIT+8, EVSIT+9, GETPAT+3
DZ PROBNUM+12~*
>> G HT+8*, HT+9, WT+8*, WT+9, SMOKEHF+8*, SMOKEHF+9
IOF BDMEDMUP+3
IOM CTR+1
>> N PROB+3*, PROB+4, PROB+5, PROB+9
P PROBNUM+2~, PROBNUM+10*, PROBNUM+11
T ERR~, ERR+1, PROB+5*, PROB+9*, HT+7*, HT+9*, HT+17*, WT+7*, WT+9*, WT+17*
, SMOKEHF+7*, SMOKEHF+9*, SMOKEHF+16*, BSD+12*, BSD+13, CREATE+4*
U EN+8, PROB+1, PROB+2, PROB+3, PROB+6, HT+2, HT+3, HT+4, HT+8, HT+9
, HT+15, WT+2, WT+3, WT+4, WT+8, WT+9, WT+15, SMOKEHF+2, SMOKEHF+3, SMOKEHF+4
, SMOKEHF+5, SMOKEHF+8, SMOKEHF+9, BSD+5, BSD+12, EVSIT+9, GETPAT+3, GETPAT+6, PROBN+9
>> V BSD+14*, BSD+15
X BDMEDMUP+28*, HT+8*, WT+8*, SMOKEHF+8*, CREATE+3*, GETPAT+8, VSIT01+1!, VSIT01+2*, VSIT01+5!, VSIT01B+1!
, VSIT01B+2!, VSIT01B+3!, PROBN+2*, PROBN+3*, PROBN+4, PROBN+5!, PROBN+6!, PROBN+7!, PROBN+9!, PROBNUM~
, PROBNUM+1, PROBNUM+3*, PROBNUM+4*, PROBNUM+5, PROBNUM+8, CTR~, CTR+1
Y BDMEDMUP+12, BDMEDMUP+20, REF+3, PROB+9, CREATE+4, CREATE+5, GETPAT+5, GETPAT+7, PROBNUM+12!, CTR~
, CTR+1
>> ZTQUEUED VSIT01+1, VSIT01+4, VSIT01B+1, VSIT01B+2, VSIT01B+3

Marked Items

Name Field # of Occurrence
$T(^BSDAPI4 EVSIT+1
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 |  Marked Items |  All