Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Automated Medical Information Exchange 4 KILL^DVBCUTIL  ($$EXSRH,CONTMES,PAUSE)^DVBCUTL4  ^DVBCXFRB  (CLRVAR,INREAS,KILLVRS,SETXMVR)^DVBCXUTL  
VA FileMan 2 ^DIC  YN^DICN  
Kernel 1 HOME^%ZIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Medical Information Exchange 1 DVBA C TRANSFER C&P REQUEST  

Entry Points

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

External References

Name Field # of Occurrence
HOME^%ZIS DVBCXFRA+3
^DIC EN+1, DOMAIN+1
YN^DICN ENQUEST, DOMQST, EXAMS+2, PART1, YN
KILL^DVBCUTIL EXIT+1
$$EXSRH^DVBCUTL4 PART+1
CONTMES^DVBCUTL4 ENQUEST+2, DOMQST+1, EXAMS+4, PART+3, PART+4, PART+5, PART+6, PART1+1, PART1+4, DISPLAY1+2
PAUSE^DVBCUTL4 EXAMS+6, DISPLAY
^DVBCXFRB DISPLAY1+5
CLRVAR^DVBCXUTL EXIT
INREAS^DVBCXUTL DISPLAY1+4
KILLVRS^DVBCXUTL EXIT+1
SETXMVR^DVBCXUTL PART1+7

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
  • Timeout: DTIME
  • Variable: SEL
  • Line Location: DISPLAY1+1
Function Call: WRITE
  • Prompt: *7,!!,"Must be a number from 1 to 4. "
  • Line Location: DISPLAY1+2
Routine Call
  • %ZIS
  • Line Location:
    • DVBCXFRA+3
Routine Call
  • DIC
  • Line Location:
    • EN+1
    • DOMAIN+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DISPLAY+1
^DIC(4.2 - [#4.2] DOMQST+2
^DPT - [#2] ENQUEST+5
^DVB(396.3 - [#396.3] ENQUEST+6, DISPLAY+1
^DVB(396.4 - [#396.4] SET+1, SET+2, SET+3, SET+4, SET+6, SET+9, EXAMS+5, PART+4, PART+5, PART+6
, PART1+2, PART1+5, PART1+6
^DVB(396.6 - [#396.6] SET+1, DISPLAY+2
^DVB(396.94 - [#396.94] SET+9

Label References

Name Line Occurrences
@( EXAMS+7
CORSEL DISPLAY1+3
DISPLAY ENQUEST+7, DOMQST+3, PART+2
DISPLAY1 DISPLAY1+2
DOMAIN CORSEL+1, DOMQST
DOMQST DOMQST+1
EN DVBCXFRA+3, CORSEL, CORSEL+3, EN+1, EN+3, EN+4, ENQUEST, DOMAIN+1, PART+3, DISPLAY
, YN+1
ENQUEST ENQUEST+3
EXAMS CORSEL+2, EXAMS+4, PART1
EXIT CORSEL+4, EN+1, ENQUEST, DOMAIN+1, DOMQST, EXAMS+2, PART+2, PART1, DISPLAY1+1
PART EXAMS+3, PART+4, PART+5, PART+6, PART1+5, PART1+8
PART1 PART1+1
SET EXAMS+5
YN YN+2

Naked Globals

Name Field # of Occurrence
^(0 ENQUEST+5, DOMQST+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENQUEST*, ENQUEST+1, ENQUEST+3, DOMQST*, DOMQST+1, EXAMS+2*, EXAMS+3, EXAMS+4, PART1*, PART1+1
, YN*, YN+1, YN+2, YN+3, DISPLAY1+1
CORR DVBCXFRA+3!, CORSEL+3!, ENQUEST+7, DOMQST+3, DISPLAY1+1!*, DISPLAY1+2, DISPLAY1+3
DA YN!
DA(1 YN!
>> DFN ENQUEST+5*
DIC EN+1*!, DOMAIN+1*, PART+2!, YN!
DIC("A" EN+1*, DOMAIN+1*
DIC(0 EN+1*, DOMAIN+1*
>> DOMNAM DOMQST+2*
>> DOMNUM DOMQST+2*
>> DOMNUM1 DOMQST+2*
DTIME DISPLAY1+1
DVBAINSF EN+1!, ENQUEST+4!, ENQUEST+6*, YN!
>> EXAM EXAMS+7
EXAMS CORSEL+3!, SET+6*, EXAMS*, PART+2, PART1+2, PART1+5, PART1+6*, DISPLAY, DISPLAY+2, YN!
>> EXMNM SET+1*, SET+2, SET+3, SET+4, SET+5
>> FF DVBCXFRA+3*, EN, DOMAIN, EXAMS, PART, DISPLAY, DISPLAY+1, DISPLAY1+1
>> I DISPLAY+2*
IOF DVBCXFRA+3
>> JJ SET+1, SET+2, SET+3, SET+4, SET+6, SET+9, EXAMS+5*
LPCNT EXAMS+1*, YN*, YN+1!
>> PNAM ENQUEST+5*, DISPLAY+1
REQDA CORSEL+3!, ENQUEST+5*, ENQUEST+6, EXAMS+5, DISPLAY+1, YN!
>> SEL CORSEL, CORSEL+1, CORSEL+2, CORSEL+3, CORSEL+4, DISPLAY1+1*, DISPLAY1+2
>> SSN ENQUEST+5*, DISPLAY+1
U CORSEL+4, SET+1, SET+2, SET+3, SET+4, SET+6, SET+9, EN+1, EN+3, EN+4
, ENQUEST+5, ENQUEST+6, DOMAIN+1, DOMQST+2, PART+2, PART+4, PART+5, PART+6, PART1+2, PART1+5
, PART1+6, DISPLAY+1, DISPLAY+2, DISPLAY1+1
X CORSEL+3!, EN+1, DOMAIN+1, PART+2, DISPLAY+2*, YN!
XEXAMS EXAMS!
XEXAMS( SET+6*, PART1+6*
XMCNT SET+6*, SET+9, EXAMS*, PART1+6*, YN!
>> XMVAR( SET+9*, EXAMS+1!, YN!
Y CORSEL+3!, EN+1, ENQUEST+5, DOMAIN+1, DOMQST+2, EXAMS+7, PART+1*, PART+3, PART+4, PART+5
, PART+6, PART1+2, PART1+5, PART1+6, DISPLAY+1*, YN!
Y(0 EN+3, EN+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All