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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DVBAREQ1

Package: Automated Medical Information Exchange

Routine: DVBAREQ1


Information

DVBAREQ1 ;ALB/GTS-557/THM-AMIE NEW REQUESTS; 21 JUL 89@0128

Source Information

Source file <DVBAREQ1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Automated Medical Information Exchange 6 PRINT^DVBAREQ3  (,$$VERSION,KILL,KILL1,NAME)^DVBAREQS  NOPARM^DVBAUTL2  WR^DVBAUTL4  ($$PAT,$$SELECT)^DVBAUTL5  ($$SITE,PAUSE,STM)^DVBCUTL4  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 ^%DT  ^DIC  ^DIR  

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 NEW REQUEST  DVBA REGIONAL TASK  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
BYDATE ;Selection by the date like old way
BYNAME ;Selection by patient name
LINE ;LINE FEED
REMOTE ;Get remote site name from user
ASK
DATE ;Gets beginning and ending dates from user
GO
DATA
LOOPDIV ;** Loop through Division - 'AE' X-ref
LOOPDA ;** Loop through DA - 'AE' X-ref
EXIT
TASK
DEQUE
CLIN ;Logic not changed, it is the original - needs to be
INIT ;Initialize variables
HDR ;Writes header info
DEVICE ;Get device to print to

External References

Name Field # of Occurrence
^%DT DATE+5, DATE+9, TASK, TASK+1
^%ZIS DEVICE+5
HOME^%ZIS INIT+4
^%ZISC EXIT+17, DEVICE+14
^%ZTLOAD CLIN+4, DEVICE+13
^DIC REMOTE+6
^DIR ASK+5
PRINT^DVBAREQ3 BYNAME+20, LOOPDA+2, LOOPDA+3, DEQUE+4
^DVBAREQS BYDATE+11
$$VERSION^DVBAREQS BYDATE+9, BYNAME+8
KILL^DVBAREQS DVBAREQ1+7, TASK+4, TASK+8, DEQUE+7
KILL1^DVBAREQS BYDATE+3, BYNAME+3
NAME^DVBAREQS BYNAME+12
NOPARM^DVBAUTL2 TASK+3, INIT+2
WR^DVBAUTL4 LINE+2, REMOTE+3, DATE+2, DATE+14, EXIT+2, EXIT+14, HDR+2, DEVICE+2, DEVICE+17
$$PAT^DVBAUTL5 BYNAME+5
$$SELECT^DVBAUTL5 DVBAREQ1+4
$$SITE^DVBCUTL4 TASK+6, INIT+7
PAUSE^DVBCUTL4 DATE+16
STM^DVBCUTL4 GO

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EXIT+8, EXIT+11, TASK+2, INIT+8
^DG(40.8 - [#40.8] EXIT+5, CLIN+2
^DVB(396 - [#396] DATA, LOOPDIV+1, LOOPDA+1
^DVB(396.1 - [#396.1] TASK+7, CLIN+2
^TMP($J LOOPDA+2, LOOPDA+3

Label References

Name Line Occurrences
BYDATE DVBAREQ1+5
BYNAME DVBAREQ1+6
CLIN TASK+7
DATE BYDATE+7, DATE+12
DEVICE BYDATE+12, BYNAME+17
EXIT BYDATE+16, BYNAME+21, DATA+1, DEQUE+5
GO BYDATE+15, DEQUE+1
HDR INIT+5
INIT DVBAREQ1+3
LINE BYDATE+4, BYNAME+4
LOOPDA LOOPDIV+1
LOOPDIV DATA
REMOTE BYDATE+5, ASK+10

Naked Globals

Name Field # of Occurrence
^(0 CLIN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+4*, DATE+18!
%DT("A" DATE+4*, DATE+8*
%DT(0 DATE+4*
%ZIS DEVICE+4*, DEVICE+6!
>> BDT BYNAME+16*, DATE+7*, DATE+12, DATA, EXIT+6, EXIT+7, TASK*
>> DA BYNAME+11*, BYNAME+19*, LOOPDA+1*, LOOPDA+2, LOOPDA+3, DEQUE+3*
>> DIC REMOTE+5*
>> DIC("A" REMOTE+5*
>> DIC(0 REMOTE+5*
DIR ASK+11!
DIR("?" ASK+4*
DIR("A" ASK+2*
DIR("B" ASK+3*
DIR(0 ASK+1*
DT DATE+4, TASK+2, INIT+8
>> DTOUT REMOTE+7, ASK+6
>> DUOUT ASK+6
>> DVBAMAN INIT+6*
>> DVBAQUIT TASK+4, INIT+3
>> DVBATASK LOOPDA+2, LOOPDA+3, TASK+5*
>> DVBDA BYNAME+5*, BYNAME+7, BYNAME+11, BYNAME+15*, BYNAME+19, DEQUE+3
>> DVBOUT BYDATE+1, BYDATE+2*, BYDATE+6, BYDATE+8, BYDATE+10*, BYDATE+13, BYNAME+1, BYNAME+2*, BYNAME+7*, BYNAME+9*
, BYNAME+18, REMOTE+7*, ASK+6*, DATE+6*, DATE+10*, INIT+1*, INIT+3*, DEVICE+7*
>> DVBSEL DVBAREQ1+4*, DVBAREQ1+5, DVBAREQ1+6, TASK+5*, DEQUE+1, DEQUE+2
>> DVBSTOP BYDATE+2*, BYDATE+13, BYNAME+2*, BYNAME+18, DEVICE+9*
>> DVBVER BYDATE+9*, BYDATE+10, BYDATE+11, BYDATE+14, BYNAME+8*, BYNAME+9, BYNAME+10, BYNAME+14
>> EDT BYNAME+16*, DATE+11*, DATE+12, DATA, EXIT+10, TASK+1*
>> FDT(0 EXIT+3, TASK+2*, INIT+8*
>> HOSP TASK+6*, INIT+7*
>> I CLIN+3*, DEVICE+12*
IO BYNAME+19, GO+1, EXIT+1
IO("Q" DEVICE+8
ION DEVICE+11
IOST EXIT+2
>> J DATA*
>> LPDIV DATA*, LOOPDIV+1*, LOOPDA+1, LOOPDA+2
LPVAR LOOPDIV+1*, LOOPDIV+2!
>> MA DATA*, LOOPDIV+1, LOOPDA+1
NOASK INIT+9!, DEVICE+9*
>> NODTA BYNAME+19*, GO+1*, EXIT, DEQUE+3*
>> POP DEVICE+7
>> QQ BYNAME+19*, GO+1*, LOOPDA+2*, LOOPDA+3*, DEQUE+3*
U REMOTE+7, EXIT+5, CLIN+2
VAR LINE+3!, REMOTE+4!, ASK+8*, ASK+10, ASK+11!, DATE+3!, DATE+15!, EXIT+2!, EXIT+15!, HDR+3!
, DEVICE+3!, DEVICE+18!
VAR(1 LINE+1*, REMOTE+2*, DATE+1*, DATE+13*, EXIT+2*, EXIT+3*, HDR+1*, DEVICE+1*, DEVICE+16*
VAR(2 EXIT+4*
VAR(3 EXIT+5*, EXIT+9*, EXIT+12*
>> X REMOTE+7, DATE+6, DATE+10, TASK*, TASK+1*
>> XDIV BYNAME+6*, REMOTE+1*, REMOTE+8*, ASK+7*, DATA, LOOPDIV+1, EXIT+5, DEQUE, CLIN+2*
>> Y REMOTE+8, ASK, ASK+7, ASK+8, DATE+6, DATE+7, DATE+10, DATE+11, EXIT+7*, EXIT+9
, EXIT+10*, EXIT+12, TASK, TASK+1, TASK+2*, INIT+8*
>> ZI TASK+7*, CLIN+2
>> ZJ TASK+7*, CLIN+2
>> ZTDESC CLIN+2*, DEVICE+11*
>> ZTDTH CLIN+4*
>> ZTIO CLIN+2*, DEVICE+11*
>> ZTRTN CLIN+2*, DEVICE+10*
>> ZTSAVE( CLIN+3*, DEVICE+12*
>> ZTSK DEVICE+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All