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

Package: Automated Medical Information Exchange

Routine: DVBCEDIT


Information

DVBCEDIT ;ALB/GTS-557/THM-EDIT 2507 DATA ; 6/19/91 1:22 PM

Source Information

Source file <DVBCEDIT.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Automated Medical Information Exchange 4 ZTSK^DVBCPRN1  (HDR,KILL)^DVBCUTIL  ($$EXSRH,COMP,CONTMES,STATCHK)^DVBCUTL4  $$RSTAT^DVBCUTL8  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
VA FileMan 3 ^DIC  YN^DICN  ^DIE  
MailMan 1 ^XMB  

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

Package Total Caller Graph
Automated Medical Information Exchange 1 DVBA C TRANSCRIBE REQUEST DATA  

Entry Points

Name Comments DBIA/ICR reference
EN
LOOK
DATA
QUE
QUE1
EXIT
KILL
XMLCK(DA) ; ** Lock the 396.4 exam record selected for transcription **
XMUNLCK(DA) ; ** Unlock the 396.4 exam record selected for transcription **

External References

Name Field # of Occurrence
^%ZIS QUE1+2
HOME^%ZIS EN
^%ZISC QUE1+6
^%ZTLOAD QUE1+5
KILL^%ZTLOAD EXIT
^DIC LOOK
YN^DICN QUE1
^DIE DATA+15, QUE
ZTSK^DVBCPRN1 QUE1+3
HDR^DVBCUTIL DATA
KILL^DVBCUTIL EXIT
$$EXSRH^DVBCUTL4 DATA+2
COMP^DVBCUTL4 DATA+15
CONTMES^DVBCUTL4 DATA+11
STATCHK^DVBCUTL4 LOOK+5, DATA+10
$$RSTAT^DVBCUTL8 LOOK+3
^XMB DATA+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"You have no user number.",!!
  • Line Location: DVBCEDIT+2
Function Call: WRITE
  • Prompt: @FF,!?(80-$L(HD)\2),HD,!?(80-$L(HD2)\2),HD2,!!!
  • Line Location: LOOK+0
Function Call: WRITE
  • Prompt: " ???"
  • Line Location: LOOK+0
Function Call: WRITE
  • Prompt: *7,!!,"This request has not been reported to MAS and may not be transcribed.",!!
  • Line Location: LOOK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DATA+1
Function Call: WRITE
  • Prompt: *7," ???"
  • Line Location: DATA+4
Function Call: READ
  • Variable: DVBCTST
  • Timeout: DTIME
  • Line Location: DATA+6
Function Call: WRITE
  • Prompt: !!,*7,"This exam is currently being edited. <RETURN> to continue."
  • Line Location: DATA+6
Function Call: WRITE
  • Prompt: !,*7,"These exam results have been electronically signed.",!,"No editing is allowed!"
  • Line Location: DATA+11
Function Call: WRITE
  • Prompt: *7,!!,"This exam has been transferred to another facility.",!!
  • Line Location: DATA+13
Function Call: WRITE
  • Prompt: !!,"Do you want to print a review copy"
  • Line Location: QUE1+0
Function Call: WRITE
  • Prompt: !!,"Enter Y to print a copy of the results for review",!,"or N to continue editing.",!!
  • Line Location: QUE1+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUE1+2
Function Call: WRITE
  • Prompt: !!,"2507 Request queued for review to device "_ION,!!
  • Line Location: QUE1+5
Routine Call
  • %ZIS
  • Line Location:
    • QUE1+2
Routine Call
  • %ZIS
  • Line Location:
    • EN
Routine Call
  • DIC
  • Line Location:
    • LOOK
Routine Call
  • DIE
  • Line Location:
    • DATA+15
    • QUE

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)
^DD("DD" DATA+20
^DPT - [#2] LOOK+6, LOOK+7
^DVB(396.3 - [#396.3] LOOK+1, LOOK+6, DATA+20
^DVB(396.4 - [#396.4] LOOK+8, DATA+7, DATA+11, DATA+17, DATA+19, XMLCK+1, XMUNLCK+1
^DVB(396.6 - [#396.6] LOOK+8, DATA+8
^TMP($J LOOK+8*, DATA+9, DATA+17*, KILL!

Label References

Name Line Occurrences
$$XMLCK DATA+5
$$XMUNLCK DATA+11, DATA+12, DATA+13, DATA+16
DATA DATA+4, DATA+6, DATA+11, DATA+12, DATA+13, QUE1+8
EXIT LOOK, DATA+3, DATA+17, QUE1
KILL LOOK
LOOK LOOK, LOOK+4, LOOK+5, DATA+3, QUE1+7
QUE1 QUE1+1

Naked Globals

Name Field # of Occurrence
^( LOOK+7
^(0 LOOK+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUE1*, KILL!
%DT QUE!, EXIT!
%DT(0 LOOK*, QUE*
%Y QUE1+1, KILL!
%ZIS QUE1+2*!, KILL!
AUTO QUE1+3!
>> CNUM LOOK+7*
D0 KILL!
D1 KILL!
DA LOOK+8*, DATA+7*, DATA+15*, QUE*, QUE1+2*, KILL!, XMLCK~, XMLCK+1, XMUNLCK~, XMUNLCK+1
DA(1 LOOK+5*, QUE1+2*
DFN LOOK+6*, LOOK+7, KILL!
DIC LOOK*, DATA+14*, KILL!
DIC("A" LOOK*
DIC("W" LOOK*
DIC(0 LOOK*
DICW LOOK+7!
>> DIE DATA+14*, QUE*
DR DATA+14!*, QUE!*, KILL!
DT LOOK, QUE
DTIME DATA+6
>> DTOUT DATA+3, QUE1
DUZ DVBCEDIT+2
DVBCLCKD DATA+5*, DATA+6, DATA+11*, DATA+12*, DATA+13*, DATA+16*, EXIT!
DVBCSITE QUE1+3!
DVBCTST DATA+6*!
EDPRT QUE1+3*!
>> EXAM LOOK+8*
>> EXMDA DATA+7*, DATA+11, DATA+12, DATA+13, DATA+15, DATA+16, DATA+17, DATA+19*
EXMNM DATA+7*, DATA+8*, DATA+9, DATA+17, QUE1+3!, KILL!
>> FF EN*, LOOK
>> HD EN*, LOOK
>> HD2 EN*, LOOK
>> I QUE1+4*
IO QUE1+3
IO("Q" QUE!, QUE1!, QUE1+2!, QUE1+3, QUE1+4, QUE1+5!
IOF EN
ION QUE1+4, QUE1+5
IOP KILL!
NCN LOOK+5, DATA!, DATA+12, KILL!
NFINAL DATA+18*, DATA+19*, DATA+20, QUE, KILL!
NOFND KILL!
OLDEXAM KILL!
OUT EN!, DATA+17
PGHD QUE1+3!
>> PNAM LOOK+6*, DATA+20
>> POP QUE1+2
QUE DATA!, QUE*, QUE1*, QUE1+2*, QUE1+3, QUE1+7, KILL!
>> REQDA LOOK+5*, LOOK+6, LOOK+8, DATA+19, DATA+20, QUE, QUE1+2
REQDT LOOK+6*, DATA+20, KILL!
>> SSN LOOK+6*, DATA+20
STAT LOOK+1*, LOOK+3*, LOOK+4, LOOK+8*, DATA+9*, DATA+11, DATA+12, DATA+13, DATA+19*, KILL!
>> STAT1 DATA+17*
U LOOK, LOOK+1, LOOK+6, LOOK+7, LOOK+8, DATA+3, DATA+7, DATA+8, DATA+9, DATA+11
, DATA+17, DATA+19, DATA+20
ULINE QUE1+3!
WPTYPE EXIT!
X LOOK, DATA+3, KILL!
XEXMNM QUE1+3!
XMB DATA+20*!
XMB(1 DATA+20*
XMB(2 DATA+20*
XMB(3 DATA+20*
XREQDT DATA+20*!
Y LOOK, LOOK+1, LOOK+5, LOOK+6, DATA+2*, DATA+4, DATA+5, DATA+7, DATA+20*, KILL!
>> ZTDESC QUE1+4*
ZTDTH QUE1+4*, QUE1+5!
ZTIO QUE1+4*, QUE1+5!
>> ZTQUEUED EXIT
ZTRTN QUE1+4*, QUE1+5!
ZTSAVE QUE1+5!
ZTSAVE( QUE1+4*
ZTSK QUE1+5!
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