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

Package: Automated Medical Information Exchange

Routine: DVBCXFRA


Information

DVBCXFRA ;ALB/GTS-557/THM-TRANSFER C&P REQUESTS ; 4/18/91 2:14 PM

Source Information

Source file <DVBCXFRA.m>

Entry Points

Name Comments DBIA/ICR reference
CORSEL
SET ;** EXAMS - Xfr all
EN
ENQUEST
DOMAIN
DOMQST
EXAMS
PART
PART1
DISPLAY
YN
DISPLAY1 ;
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: EXMNM," is CANCELED and cannot be transferred.",!,*7
  • Line Location: SET+2
Function Call: WRITE
  • Prompt: EXMNM," is COMPLETED and cannot be transferred.",!,*7
  • Line Location: SET+3
Function Call: WRITE
  • Prompt: EXMNM," has been TRANSFERRED and cannot be selected.",!,*7
  • Line Location: SET+4
Function Call: WRITE
  • Prompt: !,EXMNM," is OK to transfer.",!!
  • Line Location: SET+5
Function Call: WRITE
  • Prompt: @FF,!,"Transfer C&P Exams",!!!!
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: *7," ???"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,*7,"This request does not have a PENDING status and may not be transferred.",!!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,*7,"This request was transferred in and CANNOT be transferred to any other site !",!!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!!,"Is this the correct request"
  • Line Location: ENQUEST+0
Function Call: WRITE
  • Prompt: !!,"Enter Y if the correct Veteran or N if not.",!!
  • Line Location: ENQUEST+1
Function Call: WRITE
  • Prompt: @FF,!,"Selection of transfer domain:",!!!!
  • Line Location: DOMAIN+0
Function Call: WRITE
  • Prompt: *7," ???"
  • Line Location: DOMAIN+1
Function Call: WRITE
  • Prompt: !!!,"Is this the correct domain"
  • Line Location: DOMQST+0
Function Call: WRITE
  • Prompt: !!,"Enter Y if the domain is correct or N to reselect."
  • Line Location: DOMQST+1
Function Call: WRITE
  • Prompt: @FF,!,"Exam selection",!!!!
  • Line Location: EXAMS+0
Function Call: WRITE
  • Prompt: !!,"Do you want to transfer ALL exams"
  • Line Location: EXAMS+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXAMS+3
Function Call: WRITE
  • Prompt: !!,"Enter Y if you want to transfer all exams or N if not.",!!
  • Line Location: EXAMS+4
Function Call: WRITE
  • Prompt: !!!
  • Line Location: EXAMS+5
Function Call: WRITE
  • Prompt: @FF,!,"Individual exam selection",!!!!
  • Line Location: PART+0
Function Call: WRITE
  • Prompt: *7,!!,"No exams have been selected for transfer."
  • Line Location: PART+3
Function Call: WRITE
  • Prompt: !!,"This exam is CANCELED and cannot be transferred.",*7,!!
  • Line Location: PART+4
Function Call: WRITE
  • Prompt: !!,"This exam has been COMPLETED and cannot be transferred.",!!,*7
  • Line Location: PART+5
Function Call: WRITE
  • Prompt: !!,"This exam has been TRANSFERRED and cannot be selected.",!!,*7
  • Line Location: PART+6
Function Call: WRITE
  • Prompt: !!!,"Is this the correct exam"
  • Line Location: PART1+0
Function Call: WRITE
  • Prompt: !!,"Enter Y if all is correct or N to reselect another exam."
  • Line Location: PART1+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: PART1+8
Function Call: WRITE
  • Prompt: @FF,!!!,"No exams have been selected for transfer.",!!
  • Line Location: DISPLAY+0
Function Call: WRITE
  • Prompt: @FF,!!,"You have selected the following:",!!!,"Veteran name: ",PNAM,?50,"SSN: ",SSN,!,"Request date: "
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: Y,!!!,"Exams selected for transfer:",!!
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: $P(^DVB(396.6,X,0),U,1),"; "
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !?2
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !!!,"Is this information correct"
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !!,"Answer YES if correct and NO if not"
  • Line Location: YN+2
Function Call: WRITE
  • Prompt: !!,"One moment please ... "
  • Line Location: YN+3
Function Call: READ
  • Variable: SEL
  • Timeout: DTIME
  • Line Location: DISPLAY1+1
Function Call: WRITE
  • Prompt: *7,!!,"Must be a number from 1 to 4. "
  • Line Location: DISPLAY1+2

FileMan Files Accessed Via FileMan Db Call

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