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

Package: Automated Medical Information Exchange

Routine: DVBCEDIT


Information

DVBCEDIT ;ALB/GTS-557/THM-EDIT 2507 DATA ; 6/19/91 1:22 PM

Source Information

Source file <DVBCEDIT.m>

Entry Points

Name Comments DBIA/ICR reference
EN
LOOK
DATA
QUE
QUE1
EXIT
KILL
XMLCK(DA) ; ** Lock the 396.4 exam record selected for transcription **
XMUNLCK(DA) ; ** Unlock the 396.4 exam record selected for transcription **

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"You have no user number.",!!
  • Line Location: DVBCEDIT+2
Function Call: WRITE
  • Prompt: @FF,!?(80-$L(HD)\2),HD,!?(80-$L(HD2)\2),HD2,!!!
  • Line Location: LOOK+0
Function Call: WRITE
  • Prompt: " ???"
  • Line Location: LOOK+0
Function Call: WRITE
  • Prompt: *7,!!,"This request has not been reported to MAS and may not be transcribed.",!!
  • Line Location: LOOK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DATA+1
Function Call: WRITE
  • Prompt: *7," ???"
  • Line Location: DATA+4
Function Call: READ
  • Variable: DVBCTST
  • Timeout: DTIME
  • Line Location: DATA+6
Function Call: WRITE
  • Prompt: !!,*7,"This exam is currently being edited. <RETURN> to continue."
  • Line Location: DATA+6
Function Call: WRITE
  • Prompt: !,*7,"These exam results have been electronically signed.",!,"No editing is allowed!"
  • Line Location: DATA+11
Function Call: WRITE
  • Prompt: *7,!!,"This exam has been transferred to another facility.",!!
  • Line Location: DATA+13
Function Call: WRITE
  • Prompt: !!,"Do you want to print a review copy"
  • Line Location: QUE1+0
Function Call: WRITE
  • Prompt: !!,"Enter Y to print a copy of the results for review",!,"or N to continue editing.",!!
  • Line Location: QUE1+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUE1+2
Function Call: WRITE
  • Prompt: !!,"2507 Request queued for review to device "_ION,!!
  • Line Location: QUE1+5

FileMan Files Accessed Via FileMan Db Call

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