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

Package: Automated Medical Information Exchange

Routine: DVBAUDOAD


Information

DVBAUDOAD ;ALB/CP - Delete DVBA Audit Code from Option ; 10/15/18 1:35pm

Source Information

Source file <DVBAUDOAD.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Automated Medical Information Exchange 11 $$ASKYESNO^DVBAUDASK1  OPTSIN^DVBAUDDIC  ENTRYACT^DVBAUDDIE  (DELEVENT,OPTSUM,USEROPT)^DVBAUDDIK  DIERR^DVBAUDDILG1  OPTION^DVBAUDDIQ  (SELEDIT,SELTYPE)^DVBAUDDIR  $$DICN^DVBAUDNEW1  
(CENTER,CONTINUE,REVVIDEO)^DVBAUDPRT1  (BUILDOOO,MSGIGNOR,PGMACCSS,SELWILD)^DVBAUDU1  ($$STRIPAUD,BUILDOS,OPTBUILD)^DVBAUDU2  
VA FileMan 2 YN^DICN  $$GET1^DIQ  
Kernel 1 $$NAME^XUSER  

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 DELETE AUDIT FROM OPT  

Entry Points

Name Comments DBIA/ICR reference
ENTER ; Delete 'D AUDIT^DVBAUDOA' from the ENTRY ACTION of the select
PROMPT ; Prompt user
; ZEXCEPT: DUZ,IOF
START ;
; Build DVBTARGET array from OPTION file (#19) to stuff for DVBNAMSPC
EXIT ; Exit/Quit the deleting of 'D AUDIT^DVBAUDOA' from DVBTARGET options.
ASKEDIT(DVBIEN19,DVBENACTAFT,DVBEXACTAFT) ; Prompt for ' OK to delete the DVB audit?"
ASKCLEAN(DVBRTN) ; Prompt for ' OK to edit the ENTRY ACTION?"
DELAUDIT ; Present user with option/original ENTRY ACTION/new ENTRY ACTION

External References

Name Field # of Occurrence
YN^DICN ASKEDIT+8
$$GET1^DIQ DELAUDIT+27, DELAUDIT+32, DELAUDIT+41
$$ASKYESNO^DVBAUDASK1 ASKCLEAN+8
OPTSIN^DVBAUDDIC PROMPT+13
ENTRYACT^DVBAUDDIE ASKEDIT+22
DELEVENT^DVBAUDDIK DELAUDIT+80
OPTSUM^DVBAUDDIK DELAUDIT+77
USEROPT^DVBAUDDIK DELAUDIT+76
DIERR^DVBAUDDILG1 DELAUDIT+28, DELAUDIT+33
OPTION^DVBAUDDIQ DELAUDIT+18
SELEDIT^DVBAUDDIR PROMPT+8
SELTYPE^DVBAUDDIR PROMPT+10
$$DICN^DVBAUDNEW1 ASKEDIT+2~
CENTER^DVBAUDPRT1 DELAUDIT+43, DELAUDIT+44, DELAUDIT+55
CONTINUE^DVBAUDPRT1 DELAUDIT+70, DELAUDIT+97
REVVIDEO^DVBAUDPRT1 DELAUDIT+65, DELAUDIT+69
BUILDOOO^DVBAUDU1 START+12
MSGIGNOR^DVBAUDU1 PROMPT+9
PGMACCSS^DVBAUDU1 PROMPT+7
SELWILD^DVBAUDU1 PROMPT+17
$$STRIPAUD^DVBAUDU2 DELAUDIT+20, DELAUDIT+56
BUILDOS^DVBAUDU2 START+9
OPTBUILD^DVBAUDU2 START+5
$$NAME^XUSER DELAUDIT+42

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?1,"*** ",DVBOPTION," ***"
  • Line Location: PROMPT+4
Function Call: WRITE
  • Prompt: !," OK to delete the AMIE audit functionality"
  • Line Location: ASKEDIT+7
Function Call: WRITE
  • Prompt: " <Editing aborted>",!
  • Line Location: ASKEDIT+11
Function Call: WRITE
  • Prompt: " [Edit completed]"
  • Line Location: ASKEDIT+23
Function Call: WRITE
  • Prompt: !!,$E(DVBDASHES,1,68)
  • Line Location: DELAUDIT+24
Function Call: WRITE
  • Prompt: !!,$J(DVBMSG,DVBLENGTH),$$GET1^DIQ(19,DVBIEN19,1,"E",,"DVBERRMSG")
  • Line Location: DELAUDIT+27
Function Call: WRITE
  • Prompt: !,$E(DVBSPACES,1,DVBLENGTH),DVBMSG
  • Line Location: DELAUDIT+31
Function Call: WRITE
  • Prompt: !,$E(DVBSPACES,1,DVBLENGTH),"TYPE: ",$$GET1^DIQ(19,DVBIEN19,4,"E",,"DVBERRMSG")
  • Line Location: DELAUDIT+32
Function Call: WRITE
  • Prompt: !,$J(DVBMSG,DVBLENGTH),$E(DVBOPT("OOOMSG"),1,IOM-$X)
  • Line Location: DELAUDIT+38
Function Call: WRITE
  • Prompt: !!,$J(DVBMSG,DVBLENGTH),DVBENACTION("BEF")
  • Line Location: DELAUDIT+46
Function Call: WRITE
  • Prompt: !,$J(DVBMSG,DVBLENGTH),DVBENACTION("AFT"),!
  • Line Location: DELAUDIT+49
Function Call: WRITE
  • Prompt: !!,$J(DVBMSG,DVBLENGTH),DVBEXACTION("BEF")
  • Line Location: DELAUDIT+58
Function Call: WRITE
  • Prompt: !,$J(DVBMSG,DVBLENGTH),DVBEXACTION("AFT"),!
  • Line Location: DELAUDIT+61
Function Call: WRITE
  • Prompt: !
  • Line Location: DELAUDIT+64
Function Call: WRITE
  • Prompt: !,"Note: The ENTRY ACTION is not compatible with this Delete Audit Cod"
  • Line Location: DELAUDIT+66
Function Call: WRITE
  • Prompt: !," utility, but is displayed in case you want to make note of th"
  • Line Location: DELAUDIT+67
Function Call: WRITE
  • Prompt: !," for cleaning it up manually later."
  • Line Location: DELAUDIT+68
Function Call: WRITE
  • Prompt: !
  • Line Location: DELAUDIT+83
Function Call: WRITE
  • Prompt: !,"Number of options presented for audit deletion.....: "
  • Line Location: DELAUDIT+85
Function Call: WRITE
  • Prompt: DVBCNT("PRE")
  • Line Location: DELAUDIT+86
Function Call: WRITE
  • Prompt: !,"Number of options where the AMIE audits were deleted.: "
  • Line Location: DELAUDIT+87
Function Call: WRITE
  • Prompt: DVBCNT("DEL")
  • Line Location: DELAUDIT+88
Function Call: WRITE
  • Prompt: !,"For the options where AMIE audits were deleted, the number"
  • Line Location: DELAUDIT+90
Function Call: WRITE
  • Prompt: !,"of Options where statistical cleansing took place..: "
  • Line Location: DELAUDIT+91
Function Call: WRITE
  • Prompt: DVBCNT("CLEANUP")
  • Line Location: DELAUDIT+92
Function Call: WRITE
  • Prompt: !
  • Line Location: DELAUDIT+93
Function Call: WRITE
  • Prompt: !,"Editing process completed."
  • Line Location: DELAUDIT+95

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DVB(396.999 - [#396.999] DELAUDIT+79

Label References

Name Line Occurrences
ASKCLEAN DELAUDIT+74
ASKEDIT DELAUDIT+73
DELAUDIT START+15
EXIT PROMPT+7, PROMPT+8
PROMPT PROMPT+10, PROMPT+14, PROMPT+17, PROMPT+18, START+13, START+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASKEDIT+8*, ASKEDIT+10, ASKEDIT+15, ASKEDIT+18
DIERR DELAUDIT+17~
DUZ PROMPT+7
DVBACTION START+3~, START+4*
DVBASK ASKCLEAN+8*, ASKCLEAN+9, ASKCLEAN+10, DELAUDIT+72~, DELAUDIT+75
DVBAUDBY DELAUDIT+40~, DELAUDIT+41*, DELAUDIT+42*, DELAUDIT+43
DVBCHOICE ASKCLEAN+2~, ASKCLEAN+7*, ASKCLEAN+8
DVBCNT DELAUDIT+2~
DVBCNT( DELAUDIT+7*
DVBCNT("CLEANUP" DELAUDIT+81*, DELAUDIT+92
DVBCNT("DEL" ASKEDIT+24*, DELAUDIT+88, DELAUDIT+89
DVBCNT("PRE" DELAUDIT+23*, DELAUDIT+26, DELAUDIT+84, DELAUDIT+86
DVBDASHES DELAUDIT+2~, DELAUDIT+8*, DELAUDIT+24
DVBEDIT ENTER+2~, PROMPT+13, PROMPT+17, START+2, START+5, START+8, START+9, START+12
DVBEDITOK ASKEDIT+16*, ASKEDIT+25*, DELAUDIT+72~, DELAUDIT+73
DVBENACTAFT ASKEDIT~, ASKEDIT+20
DVBENACTION ASKEDIT+19~, ASKEDIT+22, DELAUDIT+2~, DELAUDIT+17~
DVBENACTION("AFT" ASKEDIT+20*, DELAUDIT+20*, DELAUDIT+49, DELAUDIT+63, DELAUDIT+73
DVBENACTION("BEF" DELAUDIT+19*, DELAUDIT+20, DELAUDIT+46, DELAUDIT+63
DVBERRMSG DELAUDIT+17~
DVBEXACTAFT ASKEDIT~, ASKEDIT+21
DVBEXACTION ASKEDIT+19~, ASKEDIT+22, DELAUDIT+17~
DVBEXACTION("AFT" ASKEDIT+21*, DELAUDIT+52*, DELAUDIT+56*, DELAUDIT+61, DELAUDIT+73
DVBEXACTION("BEF" DELAUDIT+21*, DELAUDIT+52, DELAUDIT+54, DELAUDIT+56, DELAUDIT+58
DVBIEN19 ASKEDIT~, ASKEDIT+22, DELAUDIT+14~, DELAUDIT+15*, DELAUDIT+16*, DELAUDIT+18, DELAUDIT+27, DELAUDIT+32, DELAUDIT+41, DELAUDIT+73
, DELAUDIT+76, DELAUDIT+77, DELAUDIT+79
DVBIENEVENT DELAUDIT+72~, DELAUDIT+78*, DELAUDIT+79*, DELAUDIT+80
DVBLENGTH DELAUDIT+2~, DELAUDIT+26*, DELAUDIT+27, DELAUDIT+31, DELAUDIT+32, DELAUDIT+38, DELAUDIT+46, DELAUDIT+49, DELAUDIT+58, DELAUDIT+61
DVBMSG DELAUDIT+2~, DELAUDIT+17~, DELAUDIT+26*, DELAUDIT+27, DELAUDIT+30*, DELAUDIT+31, DELAUDIT+37*, DELAUDIT+38, DELAUDIT+45*, DELAUDIT+46
, DELAUDIT+48*, DELAUDIT+49, DELAUDIT+57*, DELAUDIT+58, DELAUDIT+60*, DELAUDIT+61
DVBNAMSPC ENTER+2~, PROMPT+5*, START+5
DVBOPT DELAUDIT+17~
DVBOPT("ENTRYACTION" DELAUDIT+19
DVBOPT("EXITACTION" DELAUDIT+21
DVBOPT("NAME" DELAUDIT+30
DVBOPT("OOOMSG" DELAUDIT+35, DELAUDIT+38
DVBOPTION ENTER+2~, PROMPT+3*, PROMPT+4
DVBOPTNAME DELAUDIT+3~, DELAUDIT+12*, DELAUDIT+13*, DELAUDIT+16
DVBOPTYPE ENTER+2~, PROMPT+13, START+5, START+9, START+12
DVBQUIT ENTER+2~, PROMPT+4*, PROMPT+7, PROMPT+8, PROMPT+10, PROMPT+14, PROMPT+17, PROMPT+18, START+13, ASKEDIT+12*
, ASKEDIT+13, ASKEDIT+22, ASKEDIT+26*, ASKCLEAN+5*, ASKCLEAN+9*, DELAUDIT+3~, DELAUDIT+12*, DELAUDIT+13, DELAUDIT+16, DELAUDIT+28
, DELAUDIT+33, DELAUDIT+73, DELAUDIT+74
DVBRESPONSE DELAUDIT+3~
DVBRTN ASKCLEAN~
DVBSPACES DELAUDIT+3~, DELAUDIT+9*, DELAUDIT+31, DELAUDIT+32
DVBSUB DELAUDIT+3~, DELAUDIT+7*
DVBTARGET ENTER+2~
DVBTARGET( DELAUDIT+13, DELAUDIT+16
IOF PROMPT+4
IOM DELAUDIT+8, DELAUDIT+9, DELAUDIT+38, DELAUDIT+43, DELAUDIT+44, DELAUDIT+55

Marked Items

Name Field # of Occurrence
$T( PROMPT+7, PROMPT+8, PROMPT+9, PROMPT+10, PROMPT+13, START+5, START+9, START+12, DELAUDIT+28, DELAUDIT+33
, DELAUDIT+74
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 |  Local Variables |  Marked Items  | All