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

Package: Automated Medical Information Exchange

Routine: DVBAEDIT


Information

DVBAEDIT ;ALB ISC/THM-EDIT AMIE BENEFICIARY INFO STATUS ;21 JUL 89@0117

Source Information

Source file <DVBAEDIT.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^DIC  YN^DICN  ^DIE  
Kernel 2 HOME^%ZIS  $$FMTE^XLFDT  
Automated Medical Information Exchange 1 DICW^DVBAUTIL  

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 STATUS EDIT  

Entry Points

Name Comments DBIA/ICR reference
TERM
SETUP
EDIT
EDIT1
FINAL
EXIT
CHK ;CHECK TO SEE IF FINALIZED
CHK1 ;CHECK STATUS OF EACH FIELD
CON ;continue

External References

Name Field # of Occurrence
HOME^%ZIS TERM
^DIC EDIT
YN^DICN CHK+2
^DIE EDIT1+3, FINAL+1, CHK+3
DICW^DVBAUTIL SETUP+1
$$FMTE^XLFDT CHK+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"You have no USER NUMBER. Contact the site manager.",!!
  • Line Location: DVBAEDIT+2
Function Call: WRITE
  • Prompt: @IOF,!?(IOM-$L(HD)\2),HD,!!
  • Line Location: SETUP+0
Function Call: WRITE
  • Prompt: *7," ??"
  • Condition for execution: Y<0
  • Line Location: EDIT+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT+0
Function Call: WRITE
  • Prompt: *7," ??"
  • Condition for execution: Y<0
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !!!,*7,"Supervisory edit -- all fields available.",!!
  • Line Location: EDIT1+0
Function Call: WRITE
  • Prompt: "Note: As a Supervisor you will be allowed to use the ""^"" to escape",!,"from the program if desired. This is not normally allowed.",!
  • Line Location: EDIT1+1
Function Call: WRITE
  • Prompt: @IOF,!,?(IOM-$L(HD)\2),HD,!!!,"Patient Name: ",DVBAPNAM
  • Line Location: EDIT1+3
Function Call: WRITE
  • Prompt: !,?(IOM-$L(HD)\2)
  • Line Location: EDIT1+4
Function Call: WRITE
  • Prompt: !!,*7,"All items are completed. This record is now FINALIZED.",!
  • Line Location: FINAL+0
Function Call: WRITE
  • Prompt: !,"Updating record, please wait ",!
  • Line Location: FINAL+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: *7,!,"This is finalized. Do you want to 'unfinalize' it"
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !!,"Enter Y if you wish to reopen this and be able to edit it,",!,"or N to leave it as is",!!
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !!,*7,"This record has already been finalized on ",$$FMTE^XLFDT(FDATE,"5DZ"),!
  • Line Location: CHK+5
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: CON+1
Routine Call
  • %ZIS
  • Line Location:
    • TERM
Routine Call
  • DIC
  • Line Location:
    • EDIT
Routine Call
  • DIE
  • Line Location:
    • EDIT1+3
    • FINAL+1
    • CHK+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DVB(396 - [#396] CHK+2, CHK+5, CHK1+2, CHK1+3
^VA(200 - [#200] TERM
^XUSEC("DVBA SUPERVISOR" SETUP+2

Label References

Name Line Occurrences
CHK EDITCHK+2
CHK1 FINAL
CON EDIT1+1, FINAL+2
EDIT EDIT
EDIT1 CHK+3, CHK+6
EXIT DVBAEDIT+2, EDITFINAL+2, CHK+3
FINAL EDIT1+1
SETUP FINALFINAL+3, CHK+4, CHK+5

Naked Globals

Name Field # of Occurrence
^(0 TERM
^(1 CHK+2, CHK+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EDIT1!, EXIT!, CHK+1!, CHK+2*, CHK+3, CHK+4
%DT EXIT!
%DT(0 EDIT1*
%X EXIT!
%Y EDIT1!, EXIT!, CHK+1!, CHK+2
ANS EXIT!, CON+1*
C EXIT!
CODE EXIT!
D EXIT+1!
D0 EXIT!
DA EDIT*, FINAL+3!, EXIT!, CHK+2, CHK+5, CHK1+2, CHK1+3
DG EXIT+1!
DI EXIT!
DIC SETUP*, EXIT!
DIC("A" SETUP*, EXIT!
DIC(0 SETUP*, EXIT!
DIE SETUP*, FINAL+1*, EXIT!, CHK+3*
DIE("NO^" EDIT1+1*, EDIT1+2*, EDIT1+3!
DIFLD EXIT+1!
DIYS EXIT!
DK EXIT+1!
DL EXIT+1!
DLAYGO EXIT!
DM EXIT+1!
DQ EXIT!
DR SETUP*, FINAL+1*, EXIT!, CHK+3*
DREF EXIT!
DT EDIT1FINAL+1
DTIME CON+1
DTOUT EXIT+1!, CHK+3
DUZ DVBAEDIT+2, TERMSETUP+2
DVBACORR SETUP!, SETUP+2*, EXIT+1!
DVBADIC EXIT!
DVBADT EXIT!
DVBAPNAM EDIT*, EDIT1+3, EXIT+1!
DVBASTAT EXIT!
FDATE EXIT!, CHK+5*
>> FDT(0 EXIT!
HD TERM+1*, SETUPEDIT1+3, EXIT!
IOF SETUPEDIT1+3, EXIT
IOM SETUPEDIT1+3
NOFINAL FINAL, EXIT!, CHK1+1*, CHK1+2*, CHK1+3*
OLDDR EXIT+1!, CHK+3*
OPER TERM*, FINAL+1, EXIT!
OUT SETUP!, EDIT1!, EDIT1+1, FINAL+2, EXIT+1!, CON+1*
POP EXIT+1!
SUPER SETUP+2*, EDIT1EDIT1+2, EXIT+1!, CHK+2, CHK+3, CHK+4, CHK+5
U TERMEDITCHK+2, CHK+5, CHK1+2, CHK1+3, CON+1
X EDIT, EXIT!
Y EDITFINAL+3!, EXIT!
Y(0 EDIT
ZA EXIT!, CHK1+2*
ZTYPE EXIT!
ZX 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