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

Package: Automated Medical Information Exchange

Routine: DVBCADR


Information

DVBCADR ;ALB/JLU-editing the address ;1/28/93

Source Information

Source file <DVBCADR.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 3 YX^%DTC  ^DIC  ^DIR  
Automated Medical Information Exchange 2 SSNOUT^DVBCUTIL  $$SITE^DVBCUTL4  
Registration 2 QUES^DGRPU1  ADD^VADPT  
Kernel 1 HOME^%ZIS  
MailMan 1 ^XMB  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Medical Information Exchange 1 DVBA C EDIT PAT ADDRESS  

Entry Points

Name Comments DBIA/ICR reference
EN ;driver of the program
GUTS ;this is the interloop or guts of the driver
EXIT ;cleans variables
ERROR ;this is an erro printing subroutine
INIT ;initialize variables
PAT ;get the patient
DISPL ;the display subroutine
ASK ;ask if yes or no
STORE ;store original address fro possible bulletin
VDPTP ;gets the permanent address
VDPTTMP ;gets the temporary address if one
STORTMP ;saves the active temporary address
MAIL ;to fire a bulletin if necessary
XMT ;make the text of the bulletin
LIN ;makes spaces

External References

Name Field # of Occurrence
YX^%DTC INIT+4
HOME^%ZIS INIT+1
QUES^DGRPU1 GUTS+4
^DIC PAT+2
^DIR ASK+2
SSNOUT^DVBCUTIL INIT+8
$$SITE^DVBCUTL4 DISPL+2
ADD^VADPT VDPTTMP+2
^XMB MAIL+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7
  • Line Location: ERROR+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPL+1
Function Call: WRITE
  • Prompt: "Edit Address Information",?35,$$SITE^DVBCUTL4,?67,DVBCDATE
  • Line Location: DISPL+2
Function Call: WRITE
  • Prompt: !,"Name: ",DVBCPATN,?54,"SSN: ",DVBCSSN
  • Line Location: DISPL+3
Function Call: WRITE
  • Prompt: !,DVBCLINE
  • Line Location: DISPL+4
Function Call: WRITE
  • Prompt: !,?9,"Permanent"
  • Line Location: DISPL+5
Function Call: WRITE
  • Prompt: " to ",$P(DVBTMP(10),U,2)
  • Line Location: DISPL+8
Function Call: WRITE
  • Prompt: !,"Address: ",$E(VAPA(1),1,29)
  • Line Location: DISPL+9
Function Call: WRITE
  • Prompt: ?40,$E(DVBTMP(1),1,29)
  • Line Location: DISPL+10
Function Call: WRITE
  • Prompt: !,?9,$E(VAPA(2),1,29)
  • Line Location: DISPL+11
Function Call: WRITE
  • Prompt: ?40,$E(DVBTMP(2),1,29)
  • Line Location: DISPL+12
Function Call: WRITE
  • Prompt: !,?9,$E(VAPA(3),1,29)
  • Line Location: DISPL+13
Function Call: WRITE
  • Prompt: ?40,$E(DVBTMP(3),1,29)
  • Line Location: DISPL+14
Function Call: WRITE
  • Prompt: !,"City:",?9,VAPA(4)
  • Line Location: DISPL+15
Function Call: WRITE
  • Prompt: ?40,DVBTMP(4)
  • Line Location: DISPL+16
Function Call: WRITE
  • Prompt: !,"State:",?9,$P(VAPA(5),U,2)
  • Line Location: DISPL+17
Function Call: WRITE
  • Prompt: ?40,$P(DVBTMP(5),U,2)
  • Line Location: DISPL+18
Function Call: WRITE
  • Prompt: !,"Zip+4:",?9,$S($D(VAPA(11)):$P(VAPA(11),"^",2),1:"")
  • Line Location: DISPL+19
Function Call: WRITE
  • Prompt: ?40,DVBTMP(11)
  • Line Location: DISPL+20
Function Call: WRITE
  • Prompt: !,"County:",?9,$P(VAPA(7),U,2)
  • Line Location: DISPL+21
Function Call: WRITE
  • Prompt: ?40,$P(DVBTMP(7),U,2)
  • Line Location: DISPL+22
Function Call: WRITE
  • Prompt: !,"Phone:",?9,VAPA(8)
  • Line Location: DISPL+23
Function Call: WRITE
  • Prompt: ?40,DVBTMP(8)
  • Line Location: DISPL+24
Function Call: WRITE
  • Prompt: !,"Office:",?9,VAPA(9999)
  • Line Location: DISPL+25
Function Call: WRITE
  • Prompt: !,DVBCLINE
  • Line Location: DISPL+26
Function Call: WRITE
  • Prompt: !!,"A bulletin has been sent to the appropriate mail group regarding this",!,"address change!"
  • Line Location: MAIL+8
Routine Call
  • DIC
  • Line Location:
    • PAT+2
Routine Call
  • DIR
  • Line Location:
    • ASK+2
Routine Call
  • %ZIS
  • Line Location:
    • INIT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] INIT+7, VDPTTMP+3
^VA(200 - [#200] MAIL+2

Label References

Name Line Occurrences
ASK GUTS+2
DISPL GUTS+1
ERROR GUTS+5
EXIT EN+7
GUTS EN+5
INIT EN+4
LIN XMT+1, XMT+3, XMT+5, XMT+7, XMT+9, XMT+11, XMT+13, XMT+15, XMT+17
MAIL EN+6
PAT EN+3
STORE INIT+17
STORTMP INIT+13
VDPTP GUTS+7, INIT+15
VDPTTMP INIT+10
XMT MAIL+4

Naked Globals

Name Field # of Occurrence
^( VDPTTMP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%H EXIT+1!, INIT+3*
C EXIT+1!
DFN EXIT+1!, VDPTTMP+1*, VDPTTMP+3
DGCHANGE GUTS+6, EXIT+1!
DGERR GUTS+5, EXIT+1!, ERROR+1
DIC EXIT+1!, PAT+1*
DIC(0 PAT+1*
DIR EXIT+1!
DIR("A" ASK+1*
DIR("B" ASK+1*
DIR(0 ASK+1*
DUZ MAIL+2
DVBC EXIT+1!, INIT+2!
DVBC( LIN+2
DVBC(1 STORE+1*, XMT+2
DVBC(11 STORE+3*, XMT+12
DVBC(2 STORE+1*, XMT+4
DVBC(3 STORE+1*, XMT+6
DVBC(4 STORE+2*, XMT+8
DVBC(5 STORE+2*, XMT+10
DVBC(7 STORE+4*, XMT+14
DVBC(8 STORE+4*, XMT+16
DVBC(9999 STORE+5*, XMT+18
DVBCDATE EXIT+1!, INIT+5*, DISPL+2, MAIL+2
DVBCDFN GUTS+4, EXIT+1!, INIT+7, PAT+4*, VDPTTMP+1
DVBCLINE EXIT+1!, INIT+6*, DISPL+4, DISPL+26
DVBCMAL EN+6, GUTS+6*, EXIT+1!, INIT+18*
DVBCML EXIT+1!
DVBCML(1 XMT+2*
DVBCML(2 XMT+4*
DVBCML(3 XMT+6*
DVBCML(4 XMT+8*
DVBCML(5 XMT+10*
DVBCML(6 XMT+12*
DVBCML(7 XMT+14*
DVBCML(8 XMT+16*
DVBCML(9 XMT+18*
DVBCPATN EXIT+1!, PAT+4*, DISPL+3, MAIL+2
DVBCSP EXIT+1!, XMT+2, XMT+4, XMT+6, XMT+8, XMT+10, XMT+12, XMT+14, XMT+16, XMT+18
, LIN+1!, LIN+3*
DVBCSP1 EXIT+1!, LIN+1!, LIN+2*, LIN+3
DVBCSSN EXIT+1!, INIT+9*, DISPL+3, MAIL+2
DVBCSSNO EXIT+1!, INIT+9
DVBCSTP EN+1*, EN+2, EN+3, EN+4, EXIT+1!, INIT+11*, INIT+16*, PAT+3*
DVBCSTP1 EN+5, GUTS+3*, EXIT+1!, INIT+18*
DVBCX EXIT+1!, XMT+1*, XMT+3*, XMT+5*, XMT+7*, XMT+9*, XMT+11*, XMT+13*, XMT+15*, XMT+17*
, LIN+2
DVBTMP EXIT+2!, INIT+2!, DISPL+6, DISPL+10, DISPL+12, DISPL+14, DISPL+16, DISPL+18, DISPL+20, DISPL+22
, DISPL+24
DVBTMP(1 DISPL+10, STORTMP+1*
DVBTMP(10 DISPL+8, STORTMP+4*
DVBTMP(11 DISPL+20, STORTMP+2*
DVBTMP(2 DISPL+12, STORTMP+1*
DVBTMP(3 DISPL+14, STORTMP+1*
DVBTMP(4 DISPL+16, STORTMP+1*
DVBTMP(5 DISPL+18, STORTMP+2*
DVBTMP(7 DISPL+22, STORTMP+3*
DVBTMP(8 DISPL+24, STORTMP+3*
DVBTMP(9 DISPL+7, STORTMP+4*
ER EXIT+1!
IOF INIT+1, DISPL+1
J EXIT+1!
PNAM EXIT+1!, PAT+4*
SSN EXIT+1!, INIT+7*
U INIT+7, PAT+4, DISPL+7, DISPL+8, DISPL+17, DISPL+18, DISPL+21, DISPL+22, STORE+2, STORE+4
, VDPTTMP+3, MAIL+2, XMT+10, XMT+14
VAERR EXIT+1!, INIT+11, INIT+16
VAPA EXIT+1!, INIT+2!, INIT+14!
VAPA("P" VDPTP+1*
VAPA(1 DISPL+9, STORE+1, STORTMP+1, XMT+2
VAPA(10 STORTMP+4
VAPA(11 DISPL+19, STORE+3, STORTMP+2, XMT+12
VAPA(2 DISPL+11, STORE+1, STORTMP+1, XMT+4
VAPA(3 DISPL+13, STORE+1, STORTMP+1, XMT+6
VAPA(4 DISPL+15, STORE+2, STORTMP+1, XMT+8
VAPA(5 DISPL+17, STORE+2, STORTMP+2, XMT+10
VAPA(7 DISPL+21, STORE+4, STORTMP+3, XMT+14
VAPA(8 DISPL+23, STORE+4, STORTMP+3, XMT+16
VAPA(9 INIT+12, STORTMP+4
VAPA(9999 DISPL+25, STORE+5, VDPTTMP+3*, XMT+18
XMB EXIT+1!, MAIL+3*, MAIL+7!
XMB(1 MAIL+2*
XMB(2 MAIL+2*
XMB(3 MAIL+2*
XMBTEXT EXIT+2!, MAIL+7!
XMDUZ EXIT+1!, MAIL+1*
XMSUB EXIT+1!, MAIL+1*, MAIL+7!
XMTEXT EXIT+1!, MAIL+5*, MAIL+7!
XMY EXIT+1!
Y GUTS+3, EXIT+1!, INIT+5, PAT+3, PAT+4
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