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

Package: Automated Medical Information Exchange

Routine: DVBCXFRE


Information

DVBCXFRE ;ALB/GTS - 557/THM-SEND BACK TRANSFERS WHEN RELEASED ; 5/30/91 9:42 AM

Source Information

Source file <DVBCXFRE.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 ^DIC  YN^DICN  ^DIE  
Kernel 2 HOME^%ZIS  $$VERSION^XPDUTL  
Automated Medical Information Exchange 1 KILL^DVBCUTIL  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Automated Medical Information Exchange 4 DVBA C MANUAL C&P XFER RETURN  DVBCCNC1  DVBCRELS  DVBCROPN  

Entry Points

Name Comments DBIA/ICR reference
EN
EN1
SEND ;set status now for manual return if auto send fails; skip reopens
RSLT1
MANUAL
MANUAL1
ASK
EXIT
RSLT
PAUSE

External References

Name Field # of Occurrence
HOME^%ZIS MANUAL
^DIC MANUAL1+1
YN^DICN ASK
^DIE EN1+6, SEND+2
KILL^DVBCUTIL SEND+5, SEND+7, MANUAL1+2, MANUAL1+4
^XMD SEND+3
$$VERSION^XPDUTL EN1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"This request was transferred in.",!,"Please wait while I return it.",!!
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: @FF,!!
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: !!,*7,"There is no home domain indicated.",!,"This request was not transferred in.",!!
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !!,*7,"The original request indicator is missing!",!,"I have no way to match it back at "_SITE1,!!
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !!,"Setting up return mail message ...",!!
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: ".."
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN1+14
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN1+15
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN1+16
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN1+17
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN1+18
Function Call: WRITE
  • Prompt: !!,"Message is now ready to send back ...",!!
  • Line Location: EN1+20
Function Call: WRITE
  • Prompt: !!,"Transmitted as message # "_XMZ_" from this site to "_SITE1,!
  • Line Location: SEND+4
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: SEND+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: RSLT1+0
Function Call: WRITE
  • Prompt: @FF,!,"Manual Return of C&P Transfers",!!!!
  • Line Location: MANUAL1+0
Function Call: WRITE
  • Prompt: *7," ???"
  • Line Location: MANUAL1+1
Function Call: WRITE
  • Prompt: *7,!!,"This request was not transferred in to this site and",!,"it is not possible to select it for return."
  • Line Location: MANUAL1+2
Function Call: WRITE
  • Prompt: !!,*7,"This request is not in the proper status to manually return it.",!,"The status must be COMPLETED/TRANSFERRED OUT (CT)."
  • Line Location: MANUAL1+4
Function Call: WRITE
  • Prompt: !!!,"Is this the correct request"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter Y if this is the correct request or N to re-select.",!!
  • Line Location: ASK+1
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PAUSE+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue or ""^"" to exit "
  • Line Location: PAUSE+0
Routine Call
  • %ZIS
  • Line Location:
    • MANUAL
Routine Call
  • DIC
  • Line Location:
    • MANUAL1+1
Routine Call
  • DIE
  • Line Location:
    • EN1+6
    • SEND+2

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4.2 - [#4.2] EN1
^DPT - [#2] ASK+2
^DVB(396.3 - [#396.3] EN1, EN1+2, EN1+4, MANUAL1+2, MANUAL1+4, ASK+2
^DVB(396.4 - [#396.4] EN1+6, RSLT1, RSLT, RSLT+1, RSLT+5
^TMP("DVBCXFR" EN1+4*, EN1+5*, EN1+7*, EN1+8*, EN1+9*, EN1+10*, EN1+11*, EN1+13*, EN1+14*, EN1+15*
, EN1+16*, EN1+17*, EN1+18*, SEND+6!, RSLT1*, RSLT+5*
^VA(200 - [#200] EN1+7

Label References

Name Line Occurrences
ASK ASK+1
EN1 ASK+3
EXIT MANUAL1+1, ASK
MANUAL1 MANUAL1+1, MANUAL1+2, MANUAL1+4, ASK
PAUSE MANUAL1+2, MANUAL1+4
RSLT EN1+6
RSLT1 EN1+6

Naked Globals

Name Field # of Occurrence
^( RSLT1
^(0 EN1, EN1+4, EN1+7
^(1 EN1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK*, ASK+1, EXIT!
%Y EXIT!
>> ALLROPN EN1+5, SEND+2
ANS SEND+5*, SEND+6!, PAUSE*
C EXIT!
>> CANCBY RSLT+2*, RSLT+5
>> CANCDT RSLT+3*, RSLT+5
CANCNODE RSLT+1*, RSLT+2, RSLT+3, RSLT+6!
>> CANCREM RSLT+1*, RSLT+5
DA EN1+6*!, SEND+2*, SEND+6!
>> DFN EN1+10, ASK+2*
DIC SEND+2*, SEND+6!, MANUAL1+1!*, EXIT!
DIC("A" MANUAL1+1*
DIC(0 SEND+2*, MANUAL1+1*
DIE EN1+6*!, SEND+2*, SEND+6!
DR EN1+6*!, SEND+2*, SEND+6!
DTIME SEND+5, PAUSE
>> DTOUT ASK
DTTRNSC EN1*, EN1+4, EXIT!
DUZ EN1+7, SEND+3
>> DVBCRDAT EN1+11
>> DVBCSITE EN1+10
EXAM EXIT!
>> EXMDT RSLT+4*, RSLT+5
>> EXMPL RSLT+4*, RSLT+5
>> EXPHYS RSLT+4*, RSLT+5
>> EXSTAT RSLT*, RSLT+5
>> FEXM RSLT+4*, RSLT+5
>> FF EN1, MANUAL*, MANUAL1
IOF MANUAL
J EXIT!
>> JJ EN1+6*, RSLT1, RSLT, RSLT+1, RSLT+5
JY SEND+6!, EXIT!
L EN1+4*, EN1+5*, EN1+7*, EN1+8*, EN1+9*, EN1+10*, EN1+11*, EN1+13*, EN1+14*, EN1+15*
, EN1+16*, EN1+17*, EN1+18*, SEND+6!, RSLT1*, RSLT+5*
LN SEND+6!, RSLT1*
MANUAL SEND+5!, SEND+7!, MANUAL*, EXIT!
>> NREQDA EN1+2*, EN1+4
OUT SEND+5*, MANUAL1+2!, MANUAL1+4!, PAUSE*
POP EXIT!
REQDA EN1, EN1+2, EN1+4, EN1+6, SEND+2, ASK*, ASK+2, EXIT!
RO EXIT!
RONAME EXIT!
>> SITE EN1*, EN1+1, EN1+7, SEND+3
>> SITE1 EN1*, EN1+2, EN1+7, SEND+3, SEND+4
>> SSN ASK+2*
STAT EXIT!
TSTDT EXIT!
U EN1, EN1+2, EN1+4, EN1+7, MANUAL1+1, MANUAL1+2, MANUAL1+4, ASK+2, RSLT, RSLT+1
, RSLT+2, RSLT+3, RSLT+4, RSLT+5, PAUSE
>> WRKSHT RSLT*, RSLT+5
X MANUAL1+1, EXIT!, RSLT*, RSLT+4
XMDUZ SEND+6!
XMSUB SEND+3*, SEND+6!
XMTEXT SEND+3*, SEND+6!
XMY SEND+6!
XMY( SEND+3*
XMY("S.DVBA C PROCESS MAIL MESSAGE@" , SEND+3*
XMZ SEND+3!, SEND+4, SEND+5, SEND+6!
Y MANUAL1+1, MANUAL1+2, MANUAL1+4, ASK, EXIT!
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