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

Package: Automated Medical Information Exchange

Routine: DVBAUDOA


Information

DVBAUDOA ;ALB/CP - Option Audit Routine ; 10/15/18 1:38pm

Source Information

Source file <DVBAUDOA.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Automated Medical Information Exchange 9 OPTSIN^DVBAUDDIC  (AUDEVENT,ENTRYACT,EVENTEND,SUMSTUB)^DVBAUDDIE  DIERR^DVBAUDDILG1  (EVENT,OPTION,OPTSCH)^DVBAUDDIQ  (SELEDIT,SELTYPE)^DVBAUDDIR  $$DICN^DVBAUDNEW1  (CENTER,CONTINUE)^DVBAUDPRT1  ($$OPTSCHOK,MSGIGNOR,OPTSCH,SELWILD)^DVBAUDU1  
OPTBUILD^DVBAUDU2  
VA FileMan 3 $$FIND1^DIC  YN^DICN  $$GET1^DIQ  

Caller Graph

Caller Graph Total: 38

Package Total Caller Graph
Automated Medical Information Exchange 37 DVBA 7131 DIVISIONAL TRANSFER  DVBA 7132 TASKMAN  DVBA ADD AUDIT CODE TO OPT EA  DVBA AUDITED OPTION USER UTIL  DVBA AUTO FINALIZE 7131 TASK  DVBA C C&P LINK MANAGEMENT  DVBA C C&P MASTER MENU  DVBA C CHECK 2507 INTEGRITY  
DVBA C CHECK 2507 INTEGRITY TM  DVBA C MANUAL C&P XFER RETURN  DVBA C NOT SCHEDULED IN 3 DAYS  DVBA C PRINT BLANK C&P WORKSHE  DVBA C PRINT FEE COVER SHEET  DVBA C PRINT NEW C&P REQ TM  DVBA C PROCESS MAIL MESSAGE  DVBA C REGIONAL OFF RPT MENU  
DVBA C REGIONAL OFFICE MENU  DVBA C RO AMIS 290  DVBA C SCHEDULE EXAMS  DVBA C TRANSCRIBE REQUEST DATA  DVBA COMPETENCY EDIT  DVBA DELETE AUDIT FROM OPT  DVBA DGPRE PRE-REGISTER OPTION  DVBA GENERATE 21-DAY CERTIF  
DVBA HRC MENU  DVBA HRC MENU ISO  DVBA LIST AUDITED OPTION SUM  DVBA MANUAL NOTIFY  DVBA OPTION SUMMARY INQUIRY  DVBA RE-ADMISSION REPORT  DVBA RE-GENERATE 21-DAY CERTIF  DVBA REG OFF PATIENT INQ  
DVBA REGIONAL 7132 MENU  DVBA REGIONAL OFFICE MENU  DVBA REGIONAL PURGING PROGRAM  DVBA REGIONAL TASK  DVBA RELEASE 21-DAY CERT  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
AUDIT ;
EDITOPT(DVBEDIT,DVBTARGET) ; Present user with DVBTARGET(OPTION,IEN)=OptionType,
EDITWARN(DVBOPTNAME,DVBTYPE,DVBACTION) ; Entry action DVBLENGTH will exceed the maximum,
; display a warning message to the user
; ZEXCEPT: DTIME
PTIME ; Record the processing time for a OPTION SCHEDULING task by
STUFF ; Stuff programmer hooks into the OPTION file #19 entry
STUFF1 ; Branch back to here from below
STUFFX ; STUFF eXit

External References

Name Field # of Occurrence
$$FIND1^DIC EDITOPT+65
YN^DICN EDITOPT+98
$$GET1^DIQ AUDIT+8, EDITOPT+44, EDITOPT+53
OPTSIN^DVBAUDDIC STUFF1+14
AUDEVENT^DVBAUDDIE AUDIT+12
ENTRYACT^DVBAUDDIE EDITOPT+102
EVENTEND^DVBAUDDIE PTIME+9
SUMSTUB^DVBAUDDIE AUDIT+14, EDITOPT+105
DIERR^DVBAUDDILG1 AUDIT+9, EDITOPT+45, EDITOPT+54
EVENT^DVBAUDDIQ PTIME+6
OPTION^DVBAUDDIQ EDITOPT+19
OPTSCH^DVBAUDDIQ EDITOPT+70
SELEDIT^DVBAUDDIR STUFF1+9
SELTYPE^DVBAUDDIR STUFF1+11
$$DICN^DVBAUDNEW1 EDITOPT+96~
CENTER^DVBAUDPRT1 EDITOPT+56, EDITOPT+84
CONTINUE^DVBAUDPRT1 EDITOPT+115, EDITWARN+11
$$OPTSCHOK^DVBAUDU1 EDITOPT+71
MSGIGNOR^DVBAUDU1 STUFF1+10
OPTSCH^DVBAUDU1 STUFF1+25
SELWILD^DVBAUDU1 STUFF1+19
OPTBUILD^DVBAUDU2 STUFF1+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"------------------------------------------------------"
  • Line Location: EDITOPT+37
Function Call: WRITE
  • Prompt: $J(DVBMSG,DVBLENGTH)
  • Line Location: EDITOPT+43
Function Call: WRITE
  • Prompt: $$GET1^DIQ(19,DVBIEN19,1,"E",,"DVBERRMSG")
  • Line Location: EDITOPT+44
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITOPT+47
Function Call: WRITE
  • Prompt: $E(DVBSPACES,1,DVBLENGTH)
  • Line Location: EDITOPT+48
Function Call: WRITE
  • Prompt: "["_DVBOPT("NAME")_"]"
  • Line Location: EDITOPT+49
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITOPT+51
Function Call: WRITE
  • Prompt: $E(DVBSPACES,1,DVBLENGTH)
  • Line Location: EDITOPT+52
Function Call: WRITE
  • Prompt: "DVBTYPE: ",$$GET1^DIQ(19,DVBIEN19,4,"E",,"DVBERRMSG")
  • Line Location: EDITOPT+53
Function Call: WRITE
  • Prompt: !!,$J("Change from: ",DVBLENGTH),DVBENACTION("BEF")
  • Line Location: EDITOPT+58
Function Call: WRITE
  • Prompt: "<Empty>"
  • Line Location: EDITOPT+60
Function Call: WRITE
  • Prompt: !,$J("to: ",DVBLENGTH),DVBENACTION("AFT")
  • Line Location: EDITOPT+62
Function Call: WRITE
  • Prompt: !,$J(DVBMSG,DVBLENGTH)
  • Line Location: EDITOPT+76
Function Call: WRITE
  • Prompt: !,$J(DVBMSG,DVBLENGTH)
  • Line Location: EDITOPT+79
Function Call: WRITE
  • Prompt: !!,$J(DVBMSG,DVBLENGTH),DVBEXACTION("BEF")
  • Line Location: EDITOPT+87
Function Call: WRITE
  • Prompt: !,$J(DVBMSG,DVBLENGTH),DVBEXACTION("AFT")
  • Line Location: EDITOPT+91
Function Call: WRITE
  • Prompt: !!,$J(DVBMSG,DVBLENGTH)
  • Line Location: EDITOPT+94
Function Call: WRITE
  • Prompt: " <Editing aborted>",!
  • Line Location: EDITOPT+99
Function Call: WRITE
  • Prompt: " [Edit completed]"
  • Line Location: EDITOPT+103
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITOPT+107
Function Call: WRITE
  • Prompt: !,"Number of options presented for auditing: ",DVBCNT("PRE")
  • Line Location: EDITOPT+110
Function Call: WRITE
  • Prompt: !,"Number of options selected for auditing: ",DVBCNT("SEL"),!
  • Line Location: EDITOPT+111
Function Call: WRITE
  • Prompt: !,"Editing process completed."
  • Line Location: EDITOPT+113
Function Call: WRITE
  • Prompt: !,!,"------------------------------------------------------"
  • Line Location: EDITWARN+4
Function Call: WRITE
  • Prompt: !,">>> Editing the ",DVBTYPE," ACTION for option "_DVBOPTNAME_" will exceed the ma"
  • Line Location: EDITWARN+5
Function Call: WRITE
  • Prompt: !,">>> DVBLENGTH of 245 characters allowed for an M code string. No action tak",!
  • Line Location: EDITWARN+6
Function Call: WRITE
  • Prompt: @IOF,!?1,"*** ",DVBOPTION," ***"
  • Line Location: STUFF1+6
Routine Call
  • DIC
  • Line Location:
    • EDITOPT+65

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] GET1^DIQ
^DIC(19.2 - [#19.2] FIND1^DIC
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DISV( AUDIT+6, AUDIT+16*
^DVB(396.999 - [#396.999] PTIME+5

Label References

Name Line Occurrences
EDITOPT STUFF1+28
EDITWARN EDITOPT+26, EDITOPT+29
STUFF1 STUFF1+11, STUFF1+15, STUFF1+18, STUFF1+26, STUFF1+30
STUFFX STUFF1+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EDITOPT+98*, EDITOPT+99, EDITOPT+100
DIERR AUDIT+2~, EDITOPT+18~
DUZ AUDIT+6, AUDIT+8, AUDIT+12, AUDIT+16
DVBACTION EDITWARN~, STUFF1+21~*
DVBACTION("BEF" EDITWARN+8, EDITWARN+9
DVBCNT EDITOPT+2~
DVBCNT( EDITOPT+6*
DVBCNT("PRE" EDITOPT+36*, EDITOPT+39, EDITOPT+109, EDITOPT+110
DVBCNT("SEL" EDITOPT+104*, EDITOPT+111
DVBDASHES EDITOPT+2~, EDITOPT+9*
DVBEDIT EDITOPT~, STUFF+2~, STUFF1+14, STUFF1+18, STUFF1+19, STUFF1+22, STUFF1+25, STUFF1+28
DVBENACTION EDITOPT+18~, EDITOPT+26, EDITOPT+102
DVBENACTION("AFT" EDITOPT+30*, EDITOPT+32*, EDITOPT+62
DVBENACTION("BEF" EDITOPT+20*, EDITOPT+22, EDITOPT+25, EDITOPT+31, EDITOPT+32, EDITOPT+58, EDITOPT+59
DVBERRMSG AUDIT+2~, EDITOPT+18~
DVBEVENT PTIME+2~
DVBEVENT("DTENDED" PTIME+8
DVBEVENT("TASKEDI" PTIME+7
DVBEXACTION EDITOPT+18~, EDITOPT+29, EDITOPT+102
DVBEXACTION("AFT" EDITOPT+34*, EDITOPT+81*, EDITOPT+82*, EDITOPT+91
DVBEXACTION("BEF" EDITOPT+21*, EDITOPT+28, EDITOPT+34, EDITOPT+69, EDITOPT+81, EDITOPT+82, EDITOPT+87, EDITOPT+88
DVBIEN19 EDITOPT+15~, EDITOPT+16*, EDITOPT+17*, EDITOPT+19, EDITOPT+44, EDITOPT+53, EDITOPT+102, EDITOPT+105
DVBIENEVENT PTIME+2~, PTIME+5*, PTIME+6, PTIME+9
DVBIENOSF EDITOPT+63~, EDITOPT+65*, EDITOPT+69, EDITOPT+70
DVBJOB PTIME+2~, PTIME+4*, PTIME+5
DVBLENGTH EDITOPT+18~, EDITOPT+40*, EDITOPT+43, EDITOPT+48, EDITOPT+52, EDITOPT+58, EDITOPT+62, EDITOPT+76, EDITOPT+79, EDITOPT+87
, EDITOPT+91, EDITOPT+94
DVBMAXLEN EDITOPT+2~, EDITOPT+8*, EDITOPT+25, EDITOPT+28
DVBMSG EDITOPT+18~, EDITOPT+39*, EDITOPT+40, EDITOPT+43, EDITOPT+73*, EDITOPT+75*, EDITOPT+76, EDITOPT+78*, EDITOPT+79, EDITOPT+86*
, EDITOPT+87, EDITOPT+90*, EDITOPT+91, EDITOPT+93*, EDITOPT+94
DVBNAMSPC STUFF+2~, STUFF1+22
DVBOPT EDITOPT+18~
DVBOPT("ENTRYACTION" EDITOPT+20
DVBOPT("EXITACTION" EDITOPT+21
DVBOPT("NAME" EDITOPT+49
DVBOPTION STUFF+2~, STUFF1+5*, STUFF1+6
DVBOPTNAME EDITOPT+2~, EDITOPT+13*, EDITOPT+14*, EDITOPT+17, EDITOPT+26, EDITOPT+29, EDITOPT+65, EDITWARN~, EDITWARN+5
DVBOPTSCH EDITOPT+64~, EDITOPT+71
DVBOPTSCH("FREQ" EDITOPT+73
DVBOPTSCH("QTORUNTIME" EDITOPT+74, EDITOPT+75
DVBOPTSCH("TASKID" EDITOPT+78
DVBOPTYPE STUFF+2~, STUFF1+14, STUFF1+22, STUFF1+25
DVBQUIT AUDIT+2~, AUDIT+5*, AUDIT+9, AUDIT+13, AUDIT+15, EDITOPT+2~, EDITOPT+12*, EDITOPT+14, EDITOPT+17, EDITOPT+45
, EDITOPT+54, EDITOPT+99*, EDITOPT+102, EDITOPT+106*, PTIME+2~, PTIME+6*, STUFF+2~, STUFF1+4*, STUFF1+9, STUFF1+11
, STUFF1+15, STUFF1+18, STUFF1+19, STUFF1+26
DVBSAVDUZ AUDIT+2~, AUDIT+6*, AUDIT+16
DVBSPACES EDITOPT+2~, EDITOPT+10*, EDITOPT+48, EDITOPT+52
DVBSUB EDITOPT+2~, EDITOPT+6*
DVBTARGET EDITOPT~, STUFF+2~, STUFF1+28
DVBTARGET( EDITOPT+14, EDITOPT+17
DVBTYPE EDITWARN~, EDITWARN+5, EDITWARN+8, EDITWARN+9
DVBUSERNAME AUDIT+2~, AUDIT+8*, AUDIT+10
IOF STUFF1+6
IOM EDITOPT+9, EDITOPT+10, EDITOPT+56, EDITOPT+84
>> XQY AUDIT+10, AUDIT+12, AUDIT+14

Marked Items

Name Field # of Occurrence
$T( AUDIT+9, EDITOPT+45, EDITOPT+54, EDITOPT+71, STUFF1+9, STUFF1+10, STUFF1+11, STUFF1+14, STUFF1+22, STUFF1+25
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