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 |  Marked Items  | All
Print Page as PDF
Routine: DVBCREQP

Package: Automated Medical Information Exchange

Routine: DVBCREQP


Information

DVBCREQP ;ALB/GTS-557/THM-PRINT NEW REQUESTS ; 6/27/91 9:36 AM

Source Information

Source file <DVBCREQP.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Automated Medical Information Exchange 6 ^DVBCREQ1  ^DVBCREQ2  ^DVBCREQ3  (KILL,VARS)^DVBCUTIL  (SPM,STM)^DVBCUTL4  $$RSTAT^DVBCUTL8  
VA FileMan 4 ^%DT  ^DIC  YN^DICN  ^DIE  
Kernel 2 (,HOME)^%ZIS  (,KILL)^%ZTLOAD  
Registration 1 $$SITE^VASITE  

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

Package Total Caller Graph
Automated Medical Information Exchange 2 DVBA C PRINT NEW C&P REQ TM  DVBA C PRINT NEW C&P REQUESTS  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
CK1
PRINT
SET
EN
ASK
DEVICE
GO
MODS
ADDS
REROUTE
RECAP
EXIT
ONEREQ
TASK
DIV

External References

Name Field # of Occurrence
^%DT ASK+3
^%ZIS DEVICE
HOME^%ZIS EN
^%ZTLOAD DEVICE+2
KILL^%ZTLOAD EXIT+2
^DIC ONEREQ, DIV
YN^DICN ASK
^DIE PRINT+7, PRINT+9, SET+1
^DVBCREQ1 PRINT+4
^DVBCREQ2 TASK
^DVBCREQ3 RECAP
KILL^DVBCUTIL EXIT+3
VARS^DVBCUTIL PRINT+4
SPM^DVBCUTL4 EXIT+1
STM^DVBCUTL4 GO
$$RSTAT^DVBCUTL8 PRINT+2
$$SITE^VASITE REROUTE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @FF,"Manual New C&P Request Printing",!!!
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !,"Do you want just one request"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"Enter Y for only one Vet or N for all Vets.",!
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,*7,"Ending date is earlier than starting date!",!!
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: !!,"Request queued",!!
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !!!!!!!!!!!!!!!
  • Line Location: GO+3
Function Call: WRITE
  • Prompt: ?5,X,!!
  • Line Location: GO+3
Function Call: WRITE
  • Prompt: @IOF,!!!,"There were no new 2507 requests for "
  • Line Location: GO+6
Function Call: WRITE
  • Prompt: Y," to "
  • Line Location: GO+6
Function Call: WRITE
  • Prompt: Y," to "
  • Line Location: GO+6
Function Call: WRITE
  • Prompt: @IOF,!!!!!!!!!!!!!!!
  • Line Location: MODS+1
Function Call: WRITE
  • Prompt: ?5,X,!!
  • Line Location: MODS+1
Function Call: WRITE
  • Prompt: @IOF,!!!,"No modified requests to report.",!!
  • Line Location: MODS+4
Function Call: WRITE
  • Prompt: @IOF,!!!!!!!!!!!!!!!
  • Line Location: ADDS+1
Function Call: WRITE
  • Prompt: ?5,X,!!
  • Line Location: ADDS+1
Function Call: WRITE
  • Prompt: @IOF,!!!,"No added exams to report.",!!
  • Line Location: ADDS+4
Function Call: WRITE
  • Prompt: @IOF,!!!!!!!!!!!!!!!
  • Line Location: REROUTE+1
Function Call: WRITE
  • Prompt: ?5,X,!!
  • Line Location: REROUTE+1
Function Call: WRITE
  • Prompt: @IOF,!!!,"No Rerouted request to report.",!!
  • Line Location: REROUTE+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: ONEREQ+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIV+0
Function Call: WRITE
  • Prompt: *7," ???"
  • Line Location: DIV+1
Routine Call
  • DIC
  • Line Location:
    • ONEREQ
    • DIV
Routine Call
  • DIE
  • Line Location:
    • PRINT+7
    • PRINT+9
    • SET+1
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE
Routine Call
  • %ZIS
  • Line Location:
    • EN

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DVB(396.3 - [#396.3] Classic Fileman Calls
^DG(40.8 - [#40.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN, GO+6
^DG(40.8 - [#40.8] DIV+2
^DVB(396.3 - [#396.3] CK1, PRINT, PRINT+3, SET+1, GO+5, MODS+3, ADDS+3, REROUTE+3, REROUTE+4, REROUTE+5
, REROUTE+6, REROUTE+7
^TMP($J SET+2*, GO+4!

Label References

Name Line Occurrences
ADDS MODS
ASK ASK
CK1 MODS, ADDS, REROUTE
DEVICE ONEREQ+2
DIV ASK+2, ONEREQ+1, DIV+1
EN DVBCREQP+2, ASK+3, ASK+4
EXIT ASK, ASK+1, ASK+2, ASK+3, DEVICE, DEVICE+2, DEVICE+3, ONEREQ, ONEREQ+1
ONEREQ ASK+1
PRINT DEVICE+3, GO+5, MODS+3, ADDS+3, REROUTE+8
RECAP REROUTE
REROUTE ADDS

Naked Globals

Name Field # of Occurrence
^(0 DIV+2
^(1 CK1, PRINT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK*, ASK+1
%DT ASK+3*, DEVICE!
%DT("A" ASK+3*
%DT(0 ASK+3*
>> %Y ASK, ASK+1
%ZIS DEVICE*!
%ZIS("A" DEVICE*
>> ADR1 SET+3*
>> ADR2 SET+3*
>> ADR3 SET+3*
>> BDTRQ CK1, ASK+3*, ASK+4, GO+5, GO+6, MODS+3, ADDS+3, REROUTE+3
>> BUSPHON SET+3*
>> CITY SET+3*
>> CNUM PRINT+5*, SET+2, SET+3*
>> CSITE REROUTE+2*, REROUTE+7
DA PRINT+4*, PRINT+6*, PRINT+9*, SET*, SET+1, DEVICE+3!
DA(1 CK1*, PRINT, PRINT+3, PRINT+4, PRINT+6, PRINT+9, SET, GO+5*, MODS+3*, ADDS+3*
, REROUTE+4*, REROUTE+5, REROUTE+6, REROUTE+7, ONEREQ+1*
>> DIC SET*, ONEREQ*, DIV*
>> DIC("A" ONEREQ*, DIV*
>> DIC("W" ONEREQ*
>> DIC(0 ONEREQ*, DIV*
>> DIE PRINT+6*, PRINT+9*, SET*
DIVNM GO+1, GO+6, MODS+1, ADDS+1, REROUTE+1, EXIT+3!, DIV+2*
>> DR PRINT+6*, PRINT+9*, SET*
DT EN, ASK+3
>> DTOUT ASK
>> DVBAMAN DVBCREQP+2*
>> DVBCDIV PRINT+3*
>> DVBCDT(0 EN*
DVBCMAN EXIT+2, EXIT+3!
>> DVBCTYPE SET+2, GO+4*, MODS+2*, ADDS+2*, REROUTE+2*
DVBXD CK1*, EXIT+3!
>> EDTRQ ASK+3*, ASK+4, GO+5, GO+6, MODS+3, ADDS+3, REROUTE+3
>> FF EN*
FIND CK1*, MODS!, MODS+1!, ADDS!, ADDS+1!, REROUTE!, REROUTE+1!
>> HOMPHON SET+3*
>> I DEVICE+1*, GO+3*, MODS+1*, ADDS+1*, REROUTE+1*
IO DEVICE+3, GO+1
IO("Q" DEVICE+1, DEVICE+2
IOF EN, GO+2, GO+6, MODS+1, MODS+4, ADDS+1, ADDS+4, REROUTE+1, REROUTE+9
ION DEVICE+1
IOST GO+2
>> JI CK1*, GO+5*, MODS+3*, ADDS+3*, REROUTE+3*, REROUTE+4, ONEREQ+1*
ONE SET+2, ASK!, DEVICE+1, DEVICE+3, ONEREQ+2*
>> OTHDIS SET+3*
OUT PRINT!, ASK+2!, GO+5!, GO+6!, MODS+3!, ADDS+3!, REROUTE+8!, ONEREQ+1, DIV!*
>> PNAM PRINT+5*, SET+2, SET+3*
>> POP DEVICE
PRINT SET+3*, EN!, GO+4!, GO+6, MODS+1!, MODS+4, ADDS+1!, ADDS+4, REROUTE+1!, REROUTE+9
>> R1 REROUTE+5*, REROUTE+6
>> R2 REROUTE+5*, REROUTE+6
>> RRQST REROUTE+6*, REROUTE+7
>> SSN PRINT+5*, SET+2, SET+3*
>> STAT PRINT*, PRINT+2*, PRINT+7, PRINT+9
>> STATE SET+3*
U CK1, PRINT, PRINT+3, SET+1, ASK+1, ONEREQ, ONEREQ+1, DIV, DIV+2
X GO+1*, GO+3, GO+4!, MODS+1*, MODS+2!, ADDS+1*, ADDS+2!, REROUTE+1*, REROUTE+2!, ONEREQ
, DIV
>> XD CK1, MODS*, ADDS*, REROUTE*
XDIV CK1, PRINT+3, EXIT+3!, DIV+2*
>> XRTN EXIT*
>> Y EN*, ASK+3, GO+6*, ONEREQ+1, DIV+1, DIV+2
>> ZIP SET+3*
>> ZTDESC DEVICE+1*
>> ZTIO DEVICE+1*
>> ZTQUEUED EXIT+2
>> ZTRTN DEVICE+1*
>> ZTSAVE( DEVICE+1*
>> ZTSK DEVICE+2

Marked Items

Name Field # of Occurrence
$T( 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 |  Marked Items  | All