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

Package: Automated Medical Information Exchange

Routine: DVBAEDIT


Information

DVBAEDIT ;ALB ISC/THM-EDIT AMIE BENEFICIARY INFO STATUS ;21 JUL 89@0117

Source Information

Source file <DVBAEDIT.m>

Entry Points

Name Comments DBIA/ICR reference
TERM
SETUP
EDIT
EDIT1
FINAL
EXIT
CHK ;CHECK TO SEE IF FINALIZED
CHK1 ;CHECK STATUS OF EACH FIELD
CON ;continue

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"You have no USER NUMBER. Contact the site manager.",!!
  • Line Location: DVBAEDIT+2
Function Call: WRITE
  • Prompt: @IOF,!?(IOM-$L(HD)\2),HD,!!
  • Line Location: SETUP+0
Function Call: WRITE
  • Prompt: *7," ??"
  • Condition for execution: Y<0
  • Line Location: EDIT+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT+0
Function Call: WRITE
  • Prompt: *7," ??"
  • Condition for execution: Y<0
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !!!,*7,"Supervisory edit -- all fields available.",!!
  • Line Location: EDIT1+0
Function Call: WRITE
  • Prompt: "Note: As a Supervisor you will be allowed to use the ""^"" to escape",!,"from the program if desired. This is not normally allowed.",!
  • Line Location: EDIT1+1
Function Call: WRITE
  • Prompt: @IOF,!,?(IOM-$L(HD)\2),HD,!!!,"Patient Name: ",DVBAPNAM
  • Line Location: EDIT1+3
Function Call: WRITE
  • Prompt: !,?(IOM-$L(HD)\2)
  • Line Location: EDIT1+4
Function Call: WRITE
  • Prompt: !!,*7,"All items are completed. This record is now FINALIZED.",!
  • Line Location: FINAL+0
Function Call: WRITE
  • Prompt: !,"Updating record, please wait ",!
  • Line Location: FINAL+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: *7,!,"This is finalized. Do you want to 'unfinalize' it"
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !!,"Enter Y if you wish to reopen this and be able to edit it,",!,"or N to leave it as is",!!
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !!,*7,"This record has already been finalized on ",$$FMTE^XLFDT(FDATE,"5DZ"),!
  • Line Location: CHK+5
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: CON+1

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