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

Package: Automated Medical Information Exchange

Routine: DVBAUTL2


Information

DVBAUTL2 ;ALB/GTS-557/THM-AMIE UTILITIES ;24 AUG 89

Source Information

Source file <DVBAUTL2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 WAIT^DICD  (FILE,YN)^DICN  ^DIE  ^DIK  
Automated Medical Information Exchange 2 (CLEARDR,SETDR)^DVBAUTL7  (CLRCHK,NEWCHK)^DVBAUTL8  

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

Package Total Caller Graph
Automated Medical Information Exchange 24 DVBAADMR  DVBAADRP  DVBAB82  DVBAB9  DVBACERT  DVBACMRP  DVBACRMS  DVBACRRP  
DVBACRRR  DVBADSCK  DVBADSNT  DVBADSR1  DVBADSRP  DVBADSRT  DVBAFINL  DVBAPEND  
DVBARADM  DVBAREG1  DVBAREG2  DVBAREQ1  DVBARPUR  DVBASCRP  DVBASPDC  DVBAUTL3  

Entry Points

Name Comments DBIA/ICR reference
REOPEN ;used by DVBAREG1 and DVBAREN1 only to re-log 7131s
NOPARM ;check for AMIE parameter setup
ADTYPE
DELETE
CHKDIV ;** Check for selected Division on 7131
WRDIV ;** Write Division for 7131 - Loop DA in 'AF' X-ref
LPDIV ;** Loop Division in 'AF' X-ref
DIVUPDT ;** Update 7131 Rpt Divisions & Tran Dates on new 7131

External References

Name Field # of Occurrence
WAIT^DICD REOPEN+6
FILE^DICN REOPEN+6
YN^DICN REOPEN+1, DELETE
^DIE REOPEN+7, DIVUPDT+26
^DIK REOPEN+6, DELETE+1
CLEARDR^DVBAUTL7 DIVUPDT+25
SETDR^DVBAUTL7 DIVUPDT+20, DIVUPDT+21
CLRCHK^DVBAUTL8 DIVUPDT+17
NEWCHK^DVBAUTL8 DIVUPDT+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"Are you sure you want to DELETE the existing 7131 for this date",!,"and log a NEW one"
  • Line Location: REOPEN+1
Function Call: WRITE
  • Prompt: !!,"Enter Y to delete the finalized 7131 request that",!,"exists for this date and log a new one.",!!,"Enter N to leave the existing 7131 as is.",!
  • Line Location: REOPEN+2
Function Call: WRITE
  • Prompt: *7,!!,"Activity or admission date is missing ! Cannot reopen.",!!
  • Line Location: REOPEN+4
Function Call: WRITE
  • Prompt: !!,*7,"You may now enter a new 7131 for this date.",!!
  • Line Location: REOPEN+8
Function Call: WRITE
  • Prompt: !!,*7,"No site parameters have been setup in file 396.1.",!,"You must do this before running any reports.",!!
  • Line Location: NOPARM+1
Function Call: READ
  • Variable: ADTYPE
  • Timeout: DTIME
  • Line Location: ADTYPE+0
Function Call: WRITE
  • Prompt: *7,!!,"Must be A for A&A, P for Pension, S for Service-connected, or L for All"
  • Line Location: ADTYPE+2
Function Call: WRITE
  • Prompt: !!,*7,"Are you sure you want to delete this request"
  • Line Location: DELETE+0
Function Call: WRITE
  • Prompt: " ... deleted!",*7,!!
  • Line Location: DELETE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WRDIV+3
Routine Call
  • DIE
  • Line Location:
    • REOPEN+7
    • DIVUPDT+26

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UPPERCASE" ADTYPE+1
^DG(40.8 - [#40.8] LPDIV+4
^DVB(396 - [#396] CHKDIV+3, CHKDIV+8, CHKDIV+9, WRDIV+2, LPDIV+2, DIVUPDT+2, DIVUPDT+3, DIVUPDT+4, DIVUPDT+18, DIVUPDT+22
^DVB(396.1 - [#396.1] NOPARM+1

Label References

Name Line Occurrences
ADTYPE ADTYPE+2
LPDIV WRDIV+2
REOPEN REOPEN+2

Naked Globals

Name Field # of Occurrence
^(2 CHKDIV+3, WRDIV+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% REOPEN+1*, REOPEN+3!, REOPEN+10!, DELETE*, DELETE+1
%Y REOPEN+2, REOPEN+3!, REOPEN+10!
ADIV CHKDIV+2~, CHKDIV+3*, CHKDIV+4
ADT CHKDIV+6~, CHKDIV+7*, CHKDIV+8*, CHKDIV+9
>> ADTYPE ADTYPE*, ADTYPE+1*, ADTYPE+2*, ADTYPE+3
>> CNUM REOPEN+7
>> D0 CHKDIV+3, CHKDIV+8, CHKDIV+9
DA REOPEN+6*, WRDIV+2, LPDIV+2, DIVUPDT+1!, DIVUPDT+26*, DIVUPDT+27!
DD REOPEN+6!
>> DFN REOPEN+6
>> DIC REOPEN+6*, REOPEN+7
>> DIC("S" REOPEN+5!
>> DIC(0 REOPEN+6*
DIE REOPEN+7*, DIVUPDT+1!, DIVUPDT+26*, DIVUPDT+27!
>> DIK REOPEN+6*, DELETE+1*
>> DINUM REOPEN+6*
DLAYGO REOPEN+6*, REOPEN+7!
DO REOPEN+6!
DR REOPEN+7*, DIVUPDT+1!, DIVUPDT+26, DIVUPDT+27!
DT REOPEN+7
DTIME ADTYPE
>> DTOUT DELETE
DVBADIV WRDIV+4!, LPDIV+1*, LPDIV+2*, LPDIV+3, LPDIV+4, LPDIV+5
DVBADT WRDIV+2*, WRDIV+4!, LPDIV+2
DVBAEDT REOPEN+5!
>> DVBAENTR DIVUPDT+2, DIVUPDT+3, DIVUPDT+4, DIVUPDT+18, DIVUPDT+22, DIVUPDT+26
DVBANAM WRDIV+4!, LPDIV+4*, LPDIV+6
DVBANEW DIVUPDT+3*, DIVUPDT+4, DIVUPDT+20, DIVUPDT+21, DIVUPDT+23, DIVUPDT+27!
>> DVBAQUIT NOPARM+1*, ADTYPE*
>> DVBARPT( DIVUPDT+16, DIVUPDT+17
>> DVBDOC REOPEN+7
>> DVBREQDT REOPEN+4, REOPEN+7
DVXST CHKDIV+1!, CHKDIV+4*, CHKDIV+5, CHKDIV+8, CHKDIV+9*
FLDDIV DIVUPDT+6*, DIVUPDT+7*, DIVUPDT+8*, DIVUPDT+9*, DIVUPDT+10*, DIVUPDT+11*, DIVUPDT+12*, DIVUPDT+13*, DIVUPDT+14*, DIVUPDT+15*
, DIVUPDT+19*, DIVUPDT+24*, DIVUPDT+27!
FLDDTE DIVUPDT+6*, DIVUPDT+7*, DIVUPDT+8*, DIVUPDT+9*, DIVUPDT+10*, DIVUPDT+11*, DIVUPDT+12*, DIVUPDT+13*, DIVUPDT+14*, DIVUPDT+15*
, DIVUPDT+19*, DIVUPDT+24*, DIVUPDT+27!
>> HEAD ADTYPE+3*
>> LOC REOPEN+7
LPPCE DIVUPDT+5*, DIVUPDT+6, DIVUPDT+7, DIVUPDT+8, DIVUPDT+9, DIVUPDT+10, DIVUPDT+11, DIVUPDT+12, DIVUPDT+13, DIVUPDT+14
, DIVUPDT+15, DIVUPDT+16, DIVUPDT+17, DIVUPDT+27!
NODE6 DIVUPDT+4*, DIVUPDT+21, DIVUPDT+23, DIVUPDT+27!
OLDDA REOPEN+3!, REOPEN+6*, REOPEN+10!
>> OLDY REOPEN+6*, REOPEN+9
>> ONFILE REOPEN+3*, REOPEN+4*
>> OPER REOPEN+7
OUT DELETE!, DELETE+1*
REQDIV DIVUPDT+2*, DIVUPDT+27!
REQDTE DIVUPDT+2*, DIVUPDT+27!
>> SSN REOPEN+7
>> TMP( WRDIV+1*, WRDIV+4!, LPDIV+3, LPDIV+5*
U ADTYPE, CHKDIV+3, DIVUPDT+2, DIVUPDT+16, DIVUPDT+17, DIVUPDT+18, DIVUPDT+21, DIVUPDT+22, DIVUPDT+23
>> X REOPEN+6*, ADTYPE+1*
>> XDIV CHKDIV+4, CHKDIV+9
Y REOPEN+6, REOPEN+9*, ADTYPE+1, DIVUPDT+27!
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