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

Package: Automated Medical Information Exchange

Routine: DVBCUTL4


Information

DVBCUTL4 ;ALB-ISC/JLU/GTS-A utility routine ;2/22/93

Source Information

Source file <DVBCUTL4.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 6 ^%DT  (,IX)^DIC  (FILE,YN)^DICN  ^DIE  ^DIK  ^DIR  
Automated Medical Information Exchange 3 WR^DVBAUTL4  INSXM^DVBCUTA1  $$INRSLK^DVBCUTA3  
Kernel 1 (T0,T1)^%ZOSV  
MailMan 1 REMSBMSG^XMA1C  

Caller Graph

Caller Graph Total: 42

Package Total Caller Graph
Automated Medical Information Exchange 42 DVBAB4  DVBAB57  DVBAB58  DVBACRRP  DVBACRRR  DVBADXFR  DVBAPEND  DVBAREG1  
DVBAREG2  DVBAREN1  DVBAREQ1  DVBAREQS  DVBARQP  DVBAUTL6  DVBCADE2  DVBCADR  
DVBCAMI3  DVBCCHKR  DVBCCNCL  DVBCEDIT  DVBCEEXM  DVBCENQ1  DVBCEXML  DVBCFEE  
DVBCIRP1  DVBCIRP2  DVBCIRPT  DVBCLOG  DVBCLOGE  DVBCNTSC  DVBCPNDR  DVBCPRNT  
DVBCREDT  DVBCREQ1  DVBCREQP  DVBCROPN  DVBCULAP  DVBCUTA2  DVBCUTA3  DVBCXFRA  
DVBCXFRC  DVBCXFRS  

Entry Points

Name Comments DBIA/ICR reference
SITE() ;returns the site's name from the amie parameter file (396.1)
EXAM() ;returns the next exam .01 number in the 396.4 Exam file
EXSRH(A,B,C) ;searches for the exam for a specific request.
ROLLBCK ; ** Sort the ^TMP global to find added exams **
LOOP2 ; ** Loop through 'PE' X-Ref:delete exams just added **
CONTMES ; ** Continue Message to replace HANG statements **
EXMLOG1 ; ** Add exam (Called from DVBCADE2) **
STATCHK ; ** Check Statuses (Called from ^DVBCEDIT) **
COMP ; ** Check to see if transcription completed (Called from ^DVBCEDIT) **
PAUSE ;this is a pause, only looking for a return or up arrow
STM ;start response clock
SPM ;stop monitor clock
DELSER ;this subroutine will delete the server message
PHYS(A) ; ** Question user for access to Physicians Guide **
DATE(PAR1,PAR2) ;gets the beginning and ending dates from the users
DATE1

External References

Name Field # of Occurrence
^%DT DATE1+2, DATE1+9
T0^%ZOSV STM+1
T1^%ZOSV SPM+1
^DIC EXSRH+10, PHYS+4
IX^DIC EXSRH+15
FILE^DICN EXMLOG1+4
YN^DICN COMP+1
^DIE EXMLOG1+20, COMP+6
^DIK LOOP2+1
^DIR PAUSE+2
WR^DVBAUTL4 DATE1+16
INSXM^DVBCUTA1 EXMLOG1+12
$$INRSLK^DVBCUTA3 EXMLOG1+15
REMSBMSG^XMA1C DELSER+3

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: DVBCCONT
  • Timeout: DTIME
  • Line Location: CONTMES+1
Function Call: WRITE
  • Prompt: !!," Press RETURN to continue..."
  • Line Location: CONTMES+1
Function Call: WRITE
  • Prompt: EXMNM_" -added, "
  • Line Location: EXMLOG1+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>50
  • Line Location: EXMLOG1+5
Function Call: WRITE
  • Prompt: *7,"Exam addition error ! "
  • Line Location: EXMLOG1+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXMLOG1+20
Function Call: WRITE
  • Prompt: *7,!!,"This exam has been cancelled by the RO.",!!
  • Line Location: STATCHK+1
Function Call: WRITE
  • Prompt: *7,!!,"This request has been completed and transferred out.",!!
  • Line Location: STATCHK+2
Function Call: WRITE
  • Prompt: *7,!!,"This exam has been completed.",!
  • Line Location: STATCHK+3
Function Call: WRITE
  • Prompt: *7,!!,"This exam has been cancelled by MAS.",!!
  • Line Location: STATCHK+4
Function Call: WRITE
  • Prompt: *7,!!,"This exam has been released to the RO.",!!
  • Line Location: STATCHK+5
Function Call: WRITE
  • Prompt: !!,"Is transcription completed for this exam"
  • Line Location: COMP+1
Function Call: WRITE
  • Prompt: !!,"Enter Y if all information has been entered and transcription is finished",!,"or N if more information will be entered later",!!
  • Line Location: COMP+2
Routine Call
  • DIC
  • Line Location:
    • EXSRH+10
    • PHYS+4
Routine Call
  • DIC
  • Line Location:
    • EXSRH+15
Routine Call
  • DIE
  • Line Location:
    • EXMLOG1+20
    • COMP+6
Routine Call
  • DIR
  • Line Location:
    • PAUSE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DVB(396.4 - [#396.4] Classic Fileman Calls
^DVB(396.6 - [#396.6] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DVB(396.1 - [#396.1] SITE+2, EXAM+2, EXAM+4, EXAM+6*, EXAM+7
^DVB(396.3 - [#396.3] ROLLBCK+4, EXMLOG1+8, EXMLOG1+9, EXMLOG1+11, EXMLOG1+13
^DVB(396.4 - [#396.4] EXAM+5, LOOP2+1, COMP+1
^TMP($J ROLLBCK+5, EXMLOG1+7*, EXMLOG1+19

Label References

Name Line Occurrences
COMP COMP+2
DATE1 DATE1+14
LOOP2 ROLLBCK+5

Naked Globals

Name Field # of Occurrence
^( SITE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % COMP+1*, COMP+3
%DT DATE1+1*, DATE1+6!, DATE1+8*, DATE1+13!
%DT("A" DATE1*, DATE1+7*
>> %Y COMP+2
A EXSRH~, EXSRH+7, PHYS~
B EXSRH~, EXSRH+8
C EXSRH~, EXSRH+12
D EXSRH+14*, EXSRH+15!
DA ROLLBCK+6!, LOOP2+1*, EXMLOG1+17!, EXMLOG1+19*, EXMLOG1+20!, COMP+4!, COMP+5*
DD EXMLOG1+2!
>> DFN LOOP2+1
DIC EXSRH+9*, EXSRH+10!, EXSRH+13*, EXSRH+15!, EXMLOG1+1*
DIC("A" EXSRH+7*, PHYS+2*
DIC("DR" EXMLOG1+3*
DIC("S" EXSRH+8*, EXSRH+12*
DIC(0 EXSRH+9*, EXSRH+13*, EXMLOG1+1*, PHYS+1*
DIE EXMLOG1+1*, EXMLOG1+17!, EXMLOG1+18*, EXMLOG1+20!, COMP+4!, COMP+5*
DIE("NO^" EXMLOG1+20*
DIK ROLLBCK+1*, ROLLBCK+6!
DIR PAUSE+3!, PHYS+8!
DIR(0 PAUSE+1*
DO EXMLOG1+2!
DR EXMLOG1+17!, EXMLOG1+18*, EXMLOG1+20!, COMP+4!, COMP+5*
DTIME CONTMES+1
DTOUT EXSRH+11, EXMLOG1+10!, COMP+1, DATE1+3, DATE1+6!, DATE1+10, DATE1+13!
DVBA EXAM+1~, EXAM+4*, EXAM+5*, EXAM+6, EXAM+8
DVBA1 EXAM+1~, EXAM+5*
DVBACNT ROLLBCK+5*, ROLLBCK+6!
DVBADA ROLLBCK+2~, ROLLBCK+3*, ROLLBCK+6!, LOOP2+1*
DVBAEXNM ROLLBCK+2~, ROLLBCK+3*, ROLLBCK+5*, ROLLBCK+6!, LOOP2+1
>> DVBAINDA EXMLOG1+11*
DVBARQDT ROLLBCK+2~, ROLLBCK+3*, ROLLBCK+4*, ROLLBCK+6!, LOOP2+1
DVBCADEX EXMLOG1+11*, EXMLOG1+12!
DVBCCONT CONTMES+1*!
DVBCX SITE+1~, SITE+2*, SITE+3, SITE+4
ERR EXSRH+5~, EXSRH+11*, EXSRH+16
>> EXMDA COMP+1, COMP+5
>> EXMNM EXMLOG1+4, EXMLOG1+5, EXMLOG1+7, EXMLOG1+19
>> NCN STATCHK+1*, STATCHK+2*, STATCHK+3*, STATCHK+4*, STATCHK+5*
OUT EXMLOG1+6*, COMP+1!*
PAR1 DATE~, DATE1+3*, DATE1+4*, DATE1+5*, DATE1+10*, DATE1+11*, DATE1+14, DATE1+17!
PAR2 DATE~, DATE1+3*, DATE1+4*, DATE1+10*, DATE1+11*, DATE1+12*, DATE1+14, DATE1+17!
REASON EXMLOG1+14~, EXMLOG1+15*, EXMLOG1+16
>> REQDA EXSRH+14, ROLLBCK+4, EXMLOG1+8, EXMLOG1+9, EXMLOG1+11, EXMLOG1+13
>> STAT STATCHK+1, STATCHK+2, STATCHK+3, STATCHK+4, STATCHK+5
U SITE+4, EXAM+4, EXAM+6, EXSRH+11, ROLLBCK+4, EXMLOG1+7, EXMLOG1+8, EXMLOG1+11, EXMLOG1+19, COMP+1
VAR DATE1+17!
VAR(1 DATE1+15*
X EXSRH+11, EXSRH+13*, PHYS+8!, DATE1+3, DATE1+4, DATE1+6!, DATE1+10, DATE1+11, DATE1+13!
>> XMSER DELSER+2*
>> XMZ DELSER+1*
>> XQMSG DELSER+1
>> XQSOP DELSER+2
>> XRT0 SPM+1
>> XRTL STM+1
XRTN SPM+2!
Y EXSRH+11, EXSRH+13, EXSRH+16*, EXSRH+17, EXMLOG1+4, EXMLOG1+6, EXMLOG1+7, EXMLOG1+17!, EXMLOG1+20!, PHYS+7*
, PHYS+9, DATE1+5, DATE1+6!, DATE1+12, DATE1+13!
Y(0 PHYS+8!
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