Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call