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

Package: Automated Medical Information Exchange

Routine: DVBCLOG


Information

DVBCLOG ;ALB/GTS-557/THM-LOG A 2507 REQUEST ; 9/21/91 9:26 PM

Source Information

Source file <DVBCLOG.m>

Entry Points

Name Comments DBIA/ICR reference
SETUP
EN
WARD
EDIT1
EXIT
HDR
DEL
KILL
DR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"Your division number is missing.",!!
  • Line Location: DVBCLOG+3
Function Call: WRITE
  • Prompt: !!,*7,"Your user number is invalid."
  • Line Location: DVBCLOG+4
Function Call: WRITE
  • Prompt: !!,*7,"Invalid division",!!
  • Line Location: DVBCLOG+5
Function Call: WRITE
  • Prompt: @FF,?(IOM-$L(HD1)\2),HD1,!!!
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: @IOF,!,HD1," continued ---",!!!!!!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: *7,"Vet is an INPATIENT, on ward "_WARD,!,"Want to continue"
  • Line Location: WARD+0
Function Call: WRITE
  • Prompt: !!,"Enter Y to proceed with the request or N to go",!,"back and re-select.",!!
  • Line Location: WARD+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: WARD+3
Function Call: WRITE
  • Prompt: *7," ... Timed out! "
  • Line Location: WARD+5
Function Call: WRITE
  • Prompt: *7
  • Line Location: WARD+5
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: EDIT1+0
Function Call: WRITE
  • Prompt: *7,!!,"""^"" NOT allowed here"
  • Line Location: EDIT1+1
Function Call: WRITE
  • Prompt: !!,"[RETURN] will continue to exam selection, E will allow",!,"editing of what you have entered and X will DELETE",!,"the entire request"
  • Line Location: EDIT1+2
Function Call: WRITE
  • Prompt: !?20,"(Cancel) "
  • Line Location: EDIT1+11
Function Call: WRITE
  • Prompt: !!,*7,"Must be the RETURN key, X, or E "
  • Line Location: EDIT1+12
Function Call: WRITE
  • Prompt: @FF,?(IOM-$L(HD)\2),HD,!!,"Veteran name: ",$P(PNAM,",",2,99)," ",$P(PNAM,",",1),?55,"SSN: ",SSN,!?53,"C-NUM: ",CNUM,!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,*7,"Request DELETED.",!
  • Line Location: DEL+0

FileMan Files Accessed Via FileMan Db Call

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