Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^DVB(396.9991

Package: Automated Medical Information Exchange

Global: ^DVB(396.9991


Information

FileMan FileNo FileMan Filename Package
396.9991 AMIE AUDIT SUMMARY BY OPTION Automated Medical Information Exchange

Description

Directly Accessed By Routines, Total: 7

Package Total Routines
Automated Medical Information Exchange 7 ^DVB(396.9991    DVBAUDAO1    DVBAUDDIE    DVBAUDOAS    DVBAUDU1    OCCURRENCES    VISTA BUTTON    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Automated Medical Information Exchange 4 DVBAUDDIC    DVBAUDDIK    DVBAUDDIQ    DVBAUDU1    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 2 OPTION(#19)[.01]    NEW PERSON(#200)[5, 7, 23, #396.9991201(4)]    

Fields, Total: 19

Field # Name Loc Type Details
.01 OP-NAME 0;1 POINTER TO OPTION FILE (#19)
************************REQUIRED FIELD************************
OPTION(#19)

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  JUL 30, 2026
  • HELP-PROMPT:  Enter the name of the AMIE option that is being audited for use.
  • DESCRIPTION:  
    This is the name of the AMIE Option which will be monitored by CAPRI Option Audit software.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  396.9991^B
    1)= S ^DVB(396.9991,"B",$E(X,1,30),DA)=""
    2)= K ^DVB(396.9991,"B",$E(X,1,30),DA)
    This is for use of searching by audited AMIE option.
2 OP-AUDIT BEGIN DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 30, 2026
  • HELP-PROMPT:  Enter the date/time that auditing began for this AMIE option.
  • DESCRIPTION:  
    This is the date/time that the audit began for this AMIE option.
3 OP-EARLIEST AUDIT DATE/TIME 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 30, 2026
  • HELP-PROMPT:  Enter the earliest date/time that this AMIE option can be audited.
  • DESCRIPTION:  
    This is the earliest date/time that this AMIE option can be audited.
4 OP-LATEST AUDIT DATE/TIME 0;4 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 30, 2026
  • HELP-PROMPT:  Enter the latest date/time that this AMIE option can be audited.
  • DESCRIPTION:  
    This is the latest date/time that this AMIE option can be audited.
5 OP-LAST USED BY 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 30, 2026
  • HELP-PROMPT:  Enter the last user who used this audited AMIE option.
  • DESCRIPTION:  
    This field represents the last user who used this audited AMIE option.
6 OP-USAGE COUNT 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 30, 2026
  • HELP-PROMPT:  Enter the total usage count for the audited AMIE option.
  • DESCRIPTION:  
    This value represents a total usage count of the audited AMIE option.
7 OP-AUDIT TURNED-ON BY 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 30, 2026
  • HELP-PROMPT:  Enter the user who turned on auditing for this AMIE TaskMan option.
  • DESCRIPTION:  
    This is the user who initiated or turned-on the AMIE TaskMan Option for monitoring the usage of the AMIE option.
21 ZTSK-LATEST BEGIN DATE/TIME ZTSK;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 30, 2026
  • HELP-PROMPT:  Enter the date/time that auditing began for this AMIE TaskMan option.
  • DESCRIPTION:  
    This is the date/time that auditing began for this AMIE TaskMan option.
22 ZTSK-LATEST END DATE/TIME ZTSK;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 30, 2026
  • HELP-PROMPT:  Enter the latest date/time that this AMIE TaskMan option ended processing.
  • DESCRIPTION:  
    This is the latest date/time that this AMIE TaskMan option ended processing.
23 ZTSK-LATEST USE TASKED BY ZTSK;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 02, 2026
  • HELP-PROMPT:  Enter the last user who tasked this option.
  • DESCRIPTION:  
    This is the last user who tasked this AMIE audited option.
201 OCCURRENCES OCCUR;0 Multiple #396.9991201 396.9991201

  • LAST EDITED:  MAR 07, 2017
  • DESCRIPTION:  
    This data will represent each occurrence of the AMIE option being used in VistA.
900 OP-DAYS AUDITED COMPUTED

  • MUMPS CODE:  S Y(396.9991,900,1)=$S($D(^DVB(396.9991,D0,0)):^(0),1:"") N %I,%H,% D NOW^%DTC S X=X,X1=X,X2=$P(Y(396.9991,900,1),U,2),X="" D:X2 ^%DTC:X1 S X=$J(X,0,0)
  • ALGORITHM:  TODAY-#2 (ALWAYS 0 DECIMAL DIGITS)
  • LAST EDITED:  JUL 30, 2026
  • DESCRIPTION:  
    This is the amount of days that the AMIE option was audited.
901 OP-ACTIVE? COMPUTED

  • MUMPS CODE:  X ^DD(396.9991,901,9.4) S X=$S(Y(396.9991,901,102):Y(396.9991,901,103),Y(396.9991,901,104):X) S D0=Y(396.9991,901,80)
    9.2 = S Y(396.9991,901,80)=$G(D0),Y(396.9991,901,1)=$S($D(^DVB(396.9991,D0,0)):^(0),1:""),D0=$P(Y(396.9991,901,1),U,1) S:'D0!'$D(^DIC(19,+D0,0)) D0=-1
    9.3 = X ^DD(396.9991,901,9.2) S Y(396.9991,901,101)=$S($D(^DIC(19,D0,0)):^(0),1:"") S X=$P(Y(396.9991,901,101),U,3)="",Y(396.9991,901,102)=$G(X) S X="YES"
    9.4 = X ^DD(396.9991,901,9.3) S Y(396.9991,901,103)=$G(X) S X=1,Y(396.9991,901,104)=$G(X) S X="NO"
  • ALGORITHM:  $S((#.01:#2)="":"YES",1:"NO")
  • LAST EDITED:  AUG 04, 2026
  • DESCRIPTION:  
    This is used to verify if the AMIE option that is to be audited is active.
902 OP-OUT OF ORDER MESSAGE COMPUTED

  • MUMPS CODE:  X ^DD(396.9991,902,9.2) S Y(396.9991,902,101)=$S($D(^DIC(19,D0,0)):^(0),1:"") S X=$P(Y(396.9991,902,101),U,3) S D0=Y(396.9991,902,80)
    9.2 = S Y(396.9991,902,80)=$G(D0),Y(396.9991,902,1)=$S($D(^DVB(396.9991,D0,0)):^(0),1:""),D0=$P(Y(396.9991,902,1),U,1) S:'D0!'$D(^DIC(19,+D0,0)) D0=-1
  • ALGORITHM:  #.01:#2
  • LAST EDITED:  JUL 30, 2026
  • DESCRIPTION:  
    This is used to determine if the AMIE option requesting to be audited has an "out of order message".
904 OP-TYPE COMPUTED

  • MUMPS CODE:  X ^DD(396.9991,904,9.3) S X=$P($P(Y(396.9991,904,102),$C(59)_$P(Y(396.9991,904,101),U,4)_":",2),$C(59)) S D0=Y(396.9991,904,80)
    9.2 = S Y(396.9991,904,80)=$G(D0),Y(396.9991,904,1)=$S($D(^DVB(396.9991,D0,0)):^(0),1:""),D0=$P(Y(396.9991,904,1),U,1) S:'D0!'$D(^DIC(19,+D0,0)) D0=-1
    9.3 = X ^DD(396.9991,904,9.2) S Y(396.9991,904,102)=$C(59)_$P($G(^DD(19,4,0)),U,3),Y(396.9991,904,101)=$S($D(^DIC(19,D0,0)):^(0),1:"")
  • ALGORITHM:  #.01:#4
  • LAST EDITED:  AUG 04, 2026
  • DESCRIPTION:  
    This is the Option type of the audited AMIE option.
908 OP-AUDIT TURNED-ON-BY TITLE COMPUTED

  • MUMPS CODE:  X ^DD(396.9991,908,9.2) S Y(396.9991,908,101)=$S($D(^VA(200,D0,0)):^(0),1:"") S X=$P($G(^DIC(3.1,+$P(Y(396.9991,908,101),U,9),0)),U) S D0=Y(396.9991,908,80)
    9.2 = S Y(396.9991,908,80)=$G(D0),Y(396.9991,908,1)=$S($D(^DVB(396.9991,D0,0)):^(0),1:""),D0=$P(Y(396.9991,908,1),U,7) S:'D0!'$D(^VA(200,+D0,0)) D0=-1 S D0=D0
  • ALGORITHM:  #7:#8
  • LAST EDITED:  AUG 02, 2026
  • DESCRIPTION:  
    This is the title of the user who turned on auditing for this AMIE option.
920 OP-AUDIT CURRENTLY-TURNED ON? COMPUTED

  • MUMPS CODE:  X ^DD(396.9991,920,9.4) S X=$S(Y(396.9991,920,102):Y(396.9991,920,103),Y(396.9991,920,104):X) S D0=Y(396.9991,920,80)
    9.2 = S Y(396.9991,920,80)=$G(D0),Y(396.9991,920,1)=$S($D(^DVB(396.9991,D0,0)):^(0),1:""),D0=$P(Y(396.9991,920,1),U,1) S:'D0!'$D(^DIC(19,+D0,0)) D0=-1
    9.3 = X ^DD(396.9991,920,9.2) S Y(396.9991,920,101)=$S($D(^DIC(19,D0,20)):^(20),1:"") S X=$E(Y(396.9991,920,101),1,245)["AUDIT^DVBAUDOA",Y(396.9991,920,102)=$G(X) S X="YES"
    9.4 = X ^DD(396.9991,920,9.3) S Y(396.9991,920,103)=$G(X) S X=1,Y(396.9991,920,104)=$G(X) S X="NO"
  • ALGORITHM:  $S(#.01:#20["AUDIT^DVBAUDOA":"YES",1:"NO")
  • LAST EDITED:  JAN 02, 2018
  • DESCRIPTION:  
    Return 'YES' when the Option's ENTRY ACTION contains AUDIT^DVBAUDOA, otherwise return 'NO'.
929 OP-AUDIT TURNED-ON-BY SERVICE COMPUTED

  • MUMPS CODE:  X ^DD(396.9991,929,9.2) S Y(396.9991,929,101)=$S($D(^VA(200,D0,5)):^(5),1:"") S X=$P($G(^DIC(49,+$P(Y(396.9991,929,101),U,1),0)),U) S D0=Y(396.9991,929,80)
    9.2 = S Y(396.9991,929,80)=$G(D0),Y(396.9991,929,1)=$S($D(^DVB(396.9991,D0,0)):^(0),1:""),D0=$P(Y(396.9991,929,1),U,7) S:'D0!'$D(^VA(200,+D0,0)) D0=-1 S D0=D0
  • ALGORITHM:  #7:#29
  • LAST EDITED:  AUG 02, 2026
  • DESCRIPTION:  
    This is to document if the auditing for this AMIE option was turned on by a service.
930 OP-LAST AUDIT DAYS AGO COMPUTED

  • MUMPS CODE:  NEW LASTAUD S LASTAUD=$P($G(^DVB(396.9991,D0,0)),U,4) S X=$S($L(LASTAUD)>6:$$FMDIFF^XLFDT(DT,LASTAUD),1:"")
  • ALGORITHM:  NEW LASTAUD S LASTAUD=$P($G(^DVB(396.9991,D0,0)),U,4) S X=$S($L(LASTAUD)>6:$$FMDIFF^XLFDT(DT,LASTAUD),1:"")
  • LAST EDITED:  AUG 02, 2026
  • DESCRIPTION:  
    This computed field will document the length of time between when this AMIE option was last audited.

Found Entries, Total: 45

OP-NAME: 19^4203^DVBA COMPETENCY EDIT    OP-NAME: 19^4209^DVBA REGIONAL OFFICE MENU    OP-NAME: 19^4211^DVBA REGIONAL PURGING PROGRAM    OP-NAME: 19^4213^DVBA REGIONAL TASK    OP-NAME: 19^4217^DVBA REPORT PENSION/A&A    OP-NAME: 19^4218^DVBA RE-ADMISSION REPORT    OP-NAME: 19^4222^DVBA 7132 TASKMAN    OP-NAME: 19^4224^DVBA REGIONAL 7132 MENU    
OP-NAME: 19^4225^DVBA MANUAL NOTIFY    OP-NAME: 19^4226^DVBA REPRINT NOTICE/DISCHARGE    OP-NAME: 19^4228^DVBA GENERATE 21-DAY CERTIF    OP-NAME: 19^4229^DVBA RE-GENERATE 21-DAY CERTIF    OP-NAME: 19^4230^DVBA RO PRINT 21-DAY CERT    OP-NAME: 19^4231^DVBA RO REPRINT 21-DAY CERT    OP-NAME: 19^4232^DVBA RELEASE 21-DAY CERT    OP-NAME: 19^4233^DVBA AUTO FINALIZE 7131 TASK    
OP-NAME: 19^4236^DVBA REG OFF PATIENT INQ    OP-NAME: 19^4238^DVBA C C&P MASTER MENU    OP-NAME: 19^4241^DVBA C TRANSCRIBE REQUEST DATA    OP-NAME: 19^4247^DVBA C SCHEDULE EXAMS    OP-NAME: 19^4248^DVBA C PRINT NEW C&P REQ TM    OP-NAME: 19^4249^DVBA C REGIONAL OFFICE MENU    OP-NAME: 19^4255^DVBA C REGIONAL OFF RPT MENU    OP-NAME: 19^4260^DVBA C PRINT FEE COVER SHEET    
OP-NAME: 19^4262^DVBA C CHECK 2507 INTEGRITY    OP-NAME: 19^4263^DVBA C CHECK 2507 INTEGRITY TM    OP-NAME: 19^4264^DVBA C RO AMIS 290    OP-NAME: 19^4267^DVBA C MANUAL C&P XFER RETURN    OP-NAME: 19^4268^DVBA C NOT SCHEDULED IN 3 DAYS    OP-NAME: 19^4270^DVBA C PROCESS MAIL MESSAGE    OP-NAME: 19^4272^DVBA C C&P LINK MANAGEMENT    OP-NAME: 19^4274^DVBA 7131 DIVISIONAL TRANSFER    
OP-NAME: 19^8931^DVBA C PRINT BLANK C&P WORKSHE    OP-NAME: 19^10632^DVBA HRC MENU    OP-NAME: 19^10634^DVBA HRC MENU ISO    OP-NAME: 19^10635^DVBA DGPRE PRE-REGISTER OPTION    OP-NAME: 19^11459^DVBA VR BACKGROUND    OP-NAME: 19^14339^DVBA ADD AUDIT CODE TO OPT EA    OP-NAME: 19^14340^DVBA AUDITED OPTION USER UTIL    OP-NAME: 19^14341^DVBA DELETE AUDIT FROM OPT    
OP-NAME: 19^14342^DVBA LIST AUDITED OPTION SUM    OP-NAME: 19^14343^DVBA OPTION SUMMARY INQUIRY    OP-NAME: 19^14344^DVBA USER AUDIT SUMMARY INQ    OP-NAME: 19^14345^DVBA SUMMARIZE AUDIT RECS    OP-NAME: 19^14346^DVBA SUMMARIZE AUDIT RECS-AT    

External References

Name Field # of Occurrence
^%DT 2+1, 3+1, 4+1, 21+1, 22+1
^%DTC 900+1
NOW^%DTC 900+1
$$FMDIFF^XLFDT 930+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(19 904OF9.3+1
^DD(396.9991 901+1, 901OF9.3+1, 901OF9.4+1, 902+1, 904+1, 904OF9.3+1, 908+1, 920+1, 920OF9.3+1, 920OF9.4+1
, 929+1
^DIC(19 - [#19] 901OF9.2+1, 901OF9.3+1, 902+1, 902OF9.2+1, 904OF9.2+1, 904OF9.3+1, 920OF9.2+1, 920OF9.3+1
^DIC(3.1 - [#3.1] 908+1
^DIC(49 - [#49] 929+1
^DVB(396.9991 - [#396.9991] .01(XREF 1S), .01(XREF 1K), 900+1, 901OF9.2+1, 902OF9.2+1, 904OF9.2+1, 908OF9.2+1, 920OF9.2+1, 929OF9.2+1, 930+1
^VA(200 - [#200] 908+1, 908OF9.2+1, 929+1, 929OF9.2+1

Naked Globals

Name Field # of Occurrence
^(0 900+1, 901OF9.2+1, 901OF9.3+1, 902+1, 902OF9.2+1, 904OF9.2+1, 904OF9.3+1, 908+1, 908OF9.2+1, 920OF9.2+1
, 929OF9.2+1
^(20 920OF9.3+1
^(5 929+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% 900+1~
>> %DT 2+1*, 3+1*, 4+1*, 21+1*, 22+1*
%H 900+1~
%I 900+1~
>> D0 900+1, 901+1*, 901OF9.2+1*, 901OF9.3+1, 902+1*, 902OF9.2+1*, 904+1*, 904OF9.2+1*, 904OF9.3+1, 908+1*
, 908OF9.2+1*, 920+1*, 920OF9.2+1*, 920OF9.3+1, 929+1*, 929OF9.2+1*, 930+1
>> DA .01(XREF 1S), .01(XREF 1K)
>> DINUM .01+1*
DT 930+1
LASTAUD 930+1~*
U 900+1, 901OF9.2+1, 901OF9.3+1, 902+1, 902OF9.2+1, 904+1, 904OF9.2+1, 904OF9.3+1, 908+1, 908OF9.2+1
, 920OF9.2+1, 929+1, 929OF9.2+1, 930+1
X .01+1, .01(XREF 1S), .01(XREF 1K), 2+1*!, 3+1*!, 4+1*!, 6+1!, 21+1*!, 22+1*!, 900+1*
, 901+1*, 901OF9.3+1*, 901OF9.4+1*, 902+1*, 904+1*, 908+1*, 920+1*, 920OF9.3+1*, 920OF9.4+1*, 929+1*
, 930+1*
>> X1 900+1*
>> X2 900+1*
>> Y 2+1, 3+1, 4+1, 21+1, 22+1
>> Y( 900+1*, 901+1, 901OF9.2+1*, 901OF9.3+1*, 901OF9.4+1*, 902+1*, 902OF9.2+1*, 904+1, 904OF9.2+1*, 904OF9.3+1*
, 908+1*, 908OF9.2+1*, 920+1, 920OF9.2+1*, 920OF9.3+1*, 920OF9.4+1*, 929+1*, 929OF9.2+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All