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

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

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

FileMan Files Accessed Via FileMan Db Call

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