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 |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DVBANDCU

Package: Automated Medical Information Exchange

Routine: DVBANDCU


Information

DVBANDCU ;ALB/GTS - Clean-up routine 7131 ASIH notice of discharges; 12 Mar 96 @ 14:00pm [3/12/96 1:45pm]

Source Information

Source file <DVBANDCU.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 2 $$NOW^XLFDT  MES^XPDUTL  
Registration 2 IN5^VADPT  $$SITE^VASITE  
VA FileMan 2 ^DIC  ^DIE  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
LINE(TEXT) ; add line to array for e-mail
SETXRO ;* Set up regional office station numbers array
TEXT ;;
CLN7131 ;** Init process, call correction tag and send mail msg
GEN7132(DFN,DVBADA,ADMDT,DGPMDA,TDIS) ;* Gen Notice of Discharge (file 396.2)
STARTPT ;
MAIL ;** Mail Cleanup msg
CORRECT ;** Walk 7131s, correct ASIH admit dts and gen 7132s

External References

Name Field # of Occurrence
^DIC GEN7132+14
^DIE CORRECT+24, GEN7132+17
IN5^VADPT CORRECT+16
$$SITE^VASITE CLN7131+2
$$NOW^XLFDT CLN7131+4, CLN7131+23
^XMD MAIL+7
MES^XPDUTL STARTPT+2, STARTPT+5, MAIL+8, MAIL+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DVB(396 - [#396] Classic Fileman Calls
^DVB(396.2 - [#396.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" CORRECT+27
^DIC(4 - [#4] SETXRO+2, GEN7132+4
^DPT - [#2] CORRECT+11, GEN7132+3, GEN7132+10
^DVB(396 - [#396] CORRECT+5, CORRECT+6, CORRECT+7, CORRECT+9, CORRECT+10, GEN7132+9
^DVB(396.1 - [#396.1] SETXRO+2
^DVB(396.2 - [#396.2] GEN7132+8
^TMP("DVBA ASIH CLEANUP" MAIL+10!, LINE+1*

Label References

Name Line Occurrences
CLN7131 STARTPT+6
CORRECT CLN7131+21
GEN7132 CORRECT+30
LINE CLN7131+2, CLN7131+3, CLN7131+4, CLN7131+5, CLN7131+6, CLN7131+7, CLN7131+8, CLN7131+9, CLN7131+10, CLN7131+11
, CLN7131+12, CLN7131+13, CLN7131+14, CLN7131+15, CLN7131+16, CLN7131+17, CLN7131+18, CLN7131+19, CLN7131+20, CLN7131+22
, CLN7131+23, CORRECT+28, CORRECT+32, CORRECT+33, CORRECT+34, CORRECT+35, CORRECT+36, CORRECT+37, GEN7132+18, GEN7132+19
MAIL CLN7131+24
SETXRO CORRECT+2

Naked Globals

Name Field # of Occurrence
^( SETXRO+2
^(0 GEN7132+9
^(99 SETXRO+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADMDT GEN7132~, GEN7132+8, GEN7132+12
CFLOC GEN7132+2~, GEN7132+3*, GEN7132+4*, GEN7132+5, GEN7132+6, GEN7132+7*, GEN7132+12
CT CORRECT+1~, CORRECT+3*, CORRECT+31*, CORRECT+32, CORRECT+34, CORRECT+36, CORRECT+37
DA CORRECT+23*, CORRECT+25!, GEN7132+16*
DFN CORRECT+13*, CORRECT+21!, GEN7132~, GEN7132+3, GEN7132+8, GEN7132+10
DGDT CORRECT+1~, CORRECT+18*, CORRECT+19*, CORRECT+30
DGPMDA CORRECT+1~, CORRECT+17*, CORRECT+30, GEN7132~, GEN7132+12
DIC GEN7132+11*, GEN7132+20!
DIC(0 GEN7132+13*
DIE CORRECT+23*, CORRECT+25!, GEN7132+11*, GEN7132+20!
DIFROM MAIL+1~
DLAYGO GEN7132+13*, GEN7132+20!
DR CORRECT+23*, CORRECT+25!, GEN7132+12*, GEN7132+20!
DUZ MAIL+6
DVBAASIH CORRECT+1~, CORRECT+8*, CORRECT+9
DVBADA GEN7132~, GEN7132+9
DVBADFN CORRECT+1~, CORRECT+10*, CORRECT+11, CORRECT+12, CORRECT+13, CORRECT+30
DVBAPAT CORRECT+1~, CORRECT+11*, CORRECT+12*, CORRECT+28
DVBARQDT CORRECT+1~, CORRECT+4*, CORRECT+5*, CORRECT+6, CORRECT+8, CORRECT+14, CORRECT+22*, CORRECT+26, CORRECT+30
I SETXRO+1~, SETXRO+2*
J CORRECT+1~, CORRECT+4*, CORRECT+6*, CORRECT+7, CORRECT+9, CORRECT+10, CORRECT+23, CORRECT+30, SETXRO+1~, SETXRO+2*
LNI STARTPT+1*, STARTPT+3*, STARTPT+7!
LNX STARTPT+1*, STARTPT+3*, STARTPT+4*, STARTPT+5, STARTPT+7!
SSN GEN7132+10*, GEN7132+13, GEN7132+20!
TDIS CORRECT+1~, CORRECT+20*, CORRECT+30, GEN7132~, GEN7132+7
TEXT LINE~, LINE+1
U SETXRO+2, GEN7132+9
VAFEDXCT CLN7131+1*, MAIL+10!, LINE+1*
VAIP CORRECT+21!
VAIP("D" CORRECT+14*
VAIP("M" CORRECT+15*
VAIP(1 CORRECT+17
VAIP(17 CORRECT+19, CORRECT+20
X CORRECT+25!, GEN7132+13*, GEN7132+20!
XMDUZ MAIL+6*, MAIL+10!
XMN MAIL+4*, MAIL+10!
XMSUB MAIL+3*, MAIL+10!
XMTEXT MAIL+5*, MAIL+10!
XMY MAIL+2!, MAIL+10!
XMY( MAIL+6*
XRO CORRECT+38!
XRO( SETXRO+2*, GEN7132+6
XRO(0 GEN7132+7
Y CORRECT+26*, CORRECT+28, CORRECT+29!, GEN7132+15, GEN7132+16, GEN7132+20!

Marked Items

Name Field # of Occurrence
$T(TEXT+LNI STARTPT+3
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All