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

Package: Automated Medical Information Exchange

Routine: DVBCRPON


Information

DVBCRPON ;ALB/GTS-557/THM-REPRINT C&P REPORTS ; 7/1/91 1:09 PM

Source Information

Source file <DVBCRPON.m>

Entry Points

Name Comments DBIA/ICR reference
SETUP
SETUP1 ;** Drops into if setup is ok
RASK
ONLYLAB ;** Dropped into if the user doesn't exit from RASK and selects to
ADATE ;** Jumped into from RASK or dropped into from ONLYLAB
WHO ;** Dropped into from ADATE
DEVICE ;** Dropped into from WHO
ONEVET ;** Called from WHO when ONE=Y
OV ;** Run as a background task or in real-time
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"Your division code is invalid.",!!
  • Line Location: SETUP+2
Function Call: WRITE
  • Prompt: @IOF,!?(IOM-$L(HD)\2),HD,!!!
  • Line Location: SETUP1+1
Function Call: READ
  • Variable: RTYPE
  • Timeout: DTIME
  • Line Location: RASK+0
Function Call: WRITE
  • Prompt: "Date"
  • Condition for execution: RTYPE=""
  • Line Location: RASK+2
Function Call: WRITE
  • Prompt: $S(RTYPE="D"!(RTYPE="d"):"ate",RTYPE="V"!(RTYPE="v"):"eteran",1:"")
  • Line Location: RASK+2
Function Call: WRITE
  • Prompt: !!,"Must be D or V"
  • Line Location: RASK+4
Function Call: WRITE
  • Prompt: !!,"Do you want just the Lab/X-ray results"
  • Line Location: ONLYLAB+2
Function Call: WRITE
  • Prompt: !!,"Enter Y to get just the Lab/X-ray results for the Vet",!,"or N to get the entire exam results AND Lab/X-ray."
  • Line Location: ONLYLAB+3
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: WHO+1
Function Call: WRITE
  • Prompt: $S(ANS="M"!(ANS="m"):"AS",ANS="R"!(ANS="r"):"O",1:"")
  • Line Location: WHO+3
Function Call: WRITE
  • Prompt: !,"Must be R for Regional Office or M for MAS.",!!,*7
  • Line Location: WHO+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ONEVET+1
Function Call: WRITE
  • Prompt: *7," ???"
  • Line Location: ONEVET+2
Function Call: WRITE
  • Prompt: !!,*7,"Those results do not belong to your office.",!!
  • Line Location: ONEVET+4
Function Call: WRITE
  • Prompt: *7,!!,"This request has not been released to the Regional Office yet.",!!
  • Line Location: ONEVET+8
Function Call: WRITE
  • Prompt: *7,!!,"This has never been printed.",!!
  • Line Location: ONEVET+9

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