DVBAUDDIQ ;ALB/CP - FM GETS^DIQ API Subroutine Calls ; 4/12/18 7:09pm
;;2.7;AMIE;**256**;;Build 19
; Per VHA Directive 6402 this routine should not be modified
; $$GET1^DIQ ; # 2056
; GETS^DIQ ; # 2056
Q
;
EVENT(DVBIENEVENT) ; Retrieve fields from AMIE OPTION AUDIT EVENT file
;
N DVBIENS,DVBDATA,DVBERRMSG
; ZEXCEPT: DVBEVENT,DVBQUIT
;
K DVBEVENT ; Refresh output array
S DVBQUIT=0 ; Indicates a successful data retrieval
;
S DVBIENS=+$G(DVBIENEVENT)_","
D GETS^DIQ(396.999,DVBIENS,"*","IE","DVBDATA","DVBERRMSG") ; EVENT rec
D DIERR^DVBAUDDILG1(60,5,"DVBERRMSG","EVENT^"_$T(+0)) Q:DVBQUIT
;
S DVBEVENT("DVBIENEVENT")=DVBIENEVENT
S DVBEVENT("DTEVENT")=DVBDATA(396.999,DVBIENS,.01,"E") ;.. E-DATE/TIME
S DVBEVENT("DTEVENTI")=DVBDATA(396.999,DVBIENS,.01,"I") ;. E-DATE/TIME
S DVBEVENT("DVBIEN19")=DVBDATA(396.999,DVBIENS,2,"I") ;.......E-OPTION ACCESSED
S DVBEVENT("OPTNAME")=DVBDATA(396.999,DVBIENS,2,"E") ;.....E-OPTION ACCESSED
S DVBEVENT("DVBIEN200")=DVBDATA(396.999,DVBIENS,3,"I") ;......E-AUDITED USER
S DVBEVENT("USERNAME")=DVBDATA(396.999,DVBIENS,3,"E") ;....E-AUDITED USER
S DVBEVENT("TASKED")=DVBDATA(396.999,DVBIENS,4,"E") ;......E-TASKED AUDIT?
S DVBEVENT("TASKEDI")=DVBDATA(396.999,DVBIENS,4,"I") ;.....E-TASKED AUDIT?
S DVBEVENT("$JOB")=DVBDATA(396.999,DVBIENS,5,"E") ;........E-TASK NUMBER
S DVBEVENT("DTENDED")=DVBDATA(396.999,DVBIENS,6,"E") ;...E-TASK END DATE/TIME
S DVBEVENT("DTENDEDI")=DVBDATA(396.999,DVBIENS,6,"I") ;..E-TASK END DATE/TIME
S DVBEVENT("PURGFLG")=DVBDATA(396.999,DVBIENS,7,"E") ;.....E-PURGE FLAG?
S DVBEVENT("PURGFLGI")=DVBDATA(396.999,DVBIENS,7,"I") ;....E-PURGE FLAG?
;
Q ; EVENT
;
NEWPERS(DVBIEN200) ; Retrieve fields from NEW PERSON file #200
;
N %Y,DVBIENS,DVBDATA,DVBERRMSG
; ZEXCEPT: DVBNEWPERS,DVBQUIT
;
K DVBNEWPERS ;Refresh output array
S DVBQUIT=0 ;. Indicates a successful data retrieval
;
S DVBIENS=+$G(DVBIEN200)_","
D GETS^DIQ(200,DVBIENS,".01;8;29","IE","DVBDATA","DVBERRMSG")
D DIERR^DVBAUDDILG1(60,5,"DVBERRMSG","NEWPERS^"_$T(+0)) Q:DVBQUIT
;
S DVBNEWPERS("DVBIEN200")=DVBIEN200 ;.................... DUZ of user lookup
S DVBNEWPERS("USERNAME")=DVBDATA(200,DVBIENS,.01,"E") ; USERNAME external
;
S DVBNEWPERS("TITLEI")=+DVBDATA(200,DVBIENS,8,"I") ; TITLE NAME internal
S DVBNEWPERS("TITLE")=DVBDATA(200,DVBIENS,8,"E") ;.. TITLE NAME external
S:DVBNEWPERS("TITLE")="" DVBNEWPERS("TITLE")="<TitleEmpty>"
;
S DVBNEWPERS("SVCI")=+DVBDATA(200,DVBIENS,29,"I") ; SVC NAME internal
S DVBNEWPERS("SVC")=DVBDATA(200,DVBIENS,29,"E") ;.. SVC NAME external
S:DVBNEWPERS("SVC")="" DVBNEWPERS("SVC")="<ServiceEmpty>"
;
Q ; NEWPERS
;
OCCRMULT(DVBIEN19,DVBOCCURIEN) ; Retrieve fields from the OCCURANCES multiple
;
N %Y,DVBIENS,DVBDATA,DVBERRMSG
; ZEXCEPT: DVBOCCRMULT,DVBQUIT
;
K DVBOCCRMULT ; Refresh output array
S DVBQUIT=0 ; Indicates a successful data retrieval
;
;Retrieve data related to the OCCURANCE multiple of file #396.9991201
;
S DVBIENS=+$G(DVBOCCURIEN)_","_+$G(DVBIEN19)_","
D GETS^DIQ(396.9991201,DVBIENS,"2;3","I","DVBDATA","DVBERRMSG")
D DIERR^DVBAUDDILG1(60,5,"DVBERRMSG","OCCRMULT^"_$T(+0)) Q:DVBQUIT
;
; Set O-DATE/TIME TASKED AUDIT BEGAN & O-DATE/TIME TASKED AUDIT ENDED
S DVBOCCRMULT("TIMEBEG")=DVBDATA(396.9991201,DVBIENS,2,"I")
S DVBOCCRMULT("TIMEEND")=DVBDATA(396.9991201,DVBIENS,3,"I")
S DVBQUIT=0 ; Indicates a successful data retrieval
;
Q ; OCCRMULT
;
OPTION(DVBIEN19) ; Retrieve fields from OPTION file #19
;
N %Y,DVBIENS,DVBDATA,DVBERRMSG
; ZEXCEPT: DVBOPT,DVBQUIT
;
K DVBOPT ;...Refresh output array
S DVBQUIT=0 ; Indicates a successful data retrieval
;
; Verify input variable DVBIEN19, retrieve the data in the DVBDATA(array)
;
S DVBIENS=+$G(DVBIEN19)_","
D GETS^DIQ(19,DVBIENS,".01;2;4;15;20","IE","DVBDATA","DVBERRMSG") ;
D DIERR^DVBAUDDILG1(60,5,"DVBERRMSG","OPTION^"_$T(+0)) Q:DVBQUIT
;
S DVBOPT("NAME")=DVBDATA(19,DVBIENS,.01,"E") ;......OPTION NAME
S DVBOPT("OOOMSG")=DVBDATA(19,DVBIENS,2,"E") ;......OUT OF ORDER MESSAGE
S DVBOPT("TYPEI")=DVBDATA(19,DVBIENS,4,"I") ;.......OPTION TYPE internal
S DVBOPT("TYPE")=DVBDATA(19,DVBIENS,4,"E") ;........OPTION TYPE
S:DVBOPT("TYPE")="" DVBOPT("TYPE")="<TypeEmpty>"
S DVBOPT("EXITACTION")=DVBDATA(19,DVBIENS,15,"E") ;.OPTION EXIT ACTION
S DVBOPT("ENTRYACTION")=DVBDATA(19,DVBIENS,20,"E") ;OPTION ENTRY ACTION
;
Q ; OPTION
;
OPTSCH(DVBIEN) ; Retrieve fields from a OPTION SCHEUDLING file #19.2 entry
;
N %Y,DVBIENS,DVBDATA,DVBERRMSG
; ZEXCEPT: DVBOPTSCH,DVBQUIT
;
K DVBOPTSCH ;Refresh output array
S DVBQUIT=0 ; Indicates a successful data retrieval
;
; Verify input variable DVBIEN and store record in DVBDATA array
;
S DVBIENS=+$G(DVBIEN)_","
D GETS^DIQ(19.2,DVBIENS,"*","IE","DVBDATA","DVBERRMSG") ; EVENT rec
D DIERR^DVBAUDDILG1(60,5,"DVBERRMSG","OPTSCH^"_$T(+0))
Q:DVBQUIT
;
;Save the external and internal values needed in output DVBOPTSCH(array)
;
S DVBOPTSCH("DVBIEN")=DVBIEN
S DVBOPTSCH("DVBIEN19")=DVBDATA(19.2,DVBIENS,.01,"I")
S DVBOPTSCH("OPTNAME")=DVBDATA(19.2,DVBIENS,.01,"E")
S DVBOPTSCH("QTORUNTIME")=$$DATE^DVBAUDDT1(DVBDATA(19.2,DVBIENS,2,"I"),1)
S DVBOPTSCH("QTORUNTIMEI")=DVBDATA(19.2,DVBIENS,2,"I")
S DVBOPTSCH("DEVICE")=DVBDATA(19.2,DVBIENS,3,"E")
S DVBOPTSCH("FREQ")=DVBDATA(19.2,DVBIENS,6,"E")
S DVBOPTSCH("TASKID")=DVBDATA(19.2,DVBIENS,12,"E")
;
Q ; OPTSCH
;
PARSVC(DVBIEN49) ; Retrieve the PARENT SERVICE from SERVICE/SECTION file (#49)
;
N %Y,DVBIENS,DVBDATA,DVBERRMSG,DVBQUIT,DVBSVC
; ZEXCEPT: DVBPARSVC,DVBQUIT
;
K DVBPARSVC ; Refresh output array
;
; Set output array defaults in PARENT SERVICE cannot be determined.
S DVBIEN49=$G(DVBIEN49,0) ; Return 0 or the internal value passed on input
S DVBPARSVC("IEN49")=DVBIEN49
S DVBPARSVC("NAME")="<ParentSvcEmpty>" ; Return if PARENT SERVICE not determined
;
S DVBIENS=DVBIEN49_","
S DVBSVC=$$GET1^DIQ(49,DVBIENS,.01)
I DVBSVC]"" D Q ;
. D GETS^DIQ(49,DVBIENS,1.6,"IE","DVBDATA","DVBERRMSG") ; PARENT SERVICE
. D DIERR^DVBAUDDILG1(60,5,"DVBERRMSG","PARSVC^"_$T(+0)) Q:DVBQUIT
. ;
. S DVBPARSVC("IEN49")=+DVBDATA(49,DVBIENS,1.6,"I") ;. PARENT SERVICE int.
. S DVBPARSVC("NAME")=DVBDATA(49,DVBIENS,1.6,"E") ;... PARENT SERVICE ext.
. S:DVBPARSVC("NAME")="" DVBPARSVC("NAME")="<ParentSvcEmpty>"
;
Q ; PARSVC
;
SUMOPT(DVBIEN19) ; Retrieve fields from AMIE AUDIT SUMMARY BY OPTION
;
N %Y,DVBIENS,DVBDATA,DVBERRMSG
; ZEXCEPT: DVBSUMOPT,DVBQUIT
;
K DVBSUMOPT ; Refresh output array
S DVBQUIT=0 ;. Indicates a successful data retrieval
;
S DVBIENS=+$G(DVBIEN19)_","
D GETS^DIQ(396.9991,DVBIENS,"*","IE","DVBDATA","DVBERRMSG") ; SUMMARY rec
D DIERR^DVBAUDDILG1(60,5,"DVBERRMSG","SUMOPT^"_$T(+0)) Q:DVBQUIT
;
S DVBSUMOPT("OPTNAME")=DVBDATA(396.9991,DVBIENS,.01,"E") ; OP-NAME [F]
S DVBSUMOPT("DVBIEN19")=DVBDATA(396.9991,DVBIENS,.01,"I") ;.. OP-NAME [P19']
S DVBSUMOPT("DTSTART")=DVBDATA(396.9991,DVBIENS,2,"E") ; OP-AUDIT BEGIN DATE
S DVBSUMOPT("DTSTARTI")=DVBDATA(396.9991,DVBIENS,2,"I") ;OP-AUDIT BEGIN DATE
S DVBSUMOPT("DT1ST")=DVBDATA(396.9991,DVBIENS,3,"E") ;OP-EARLIEST AUDIT DATE
I DVBSUMOPT("DT1ST")="" S DVBSUMOPT("DT1ST")="<Empty>"
S DVBSUMOPT("DT1STI")=DVBDATA(396.9991,DVBIENS,3,"I") ; OP-EARLIEST AUDIT DATE/TIME
S DVBSUMOPT("DTLAST")=DVBDATA(396.9991,DVBIENS,4,"E") ; OP-LATEST AUDIT DATE/TIME
I DVBSUMOPT("DTLAST")="" S DVBSUMOPT("DTLAST")="<Empty>"
S DVBSUMOPT("DTLASTI")=DVBDATA(396.9991,DVBIENS,4,"I") ;OP-LATEST AUDIT DATE/TIME
S DVBSUMOPT("LSTUSER")=DVBDATA(396.9991,DVBIENS,5,"E") ;OP-LAST USED BY
S DVBSUMOPT("LSTUSERI")=DVBDATA(396.9991,DVBIENS,5,"I") ; OP-LAST USED BY
S DVBSUMOPT("USAGE")=+DVBDATA(396.9991,DVBIENS,6,"E") ;.. OP-USAGE COUNT
S DVBSUMOPT("ZTDTBEG")=DVBDATA(396.9991,DVBIENS,21,"E") ; ZTSK-LATEST BEGIN DATE/TIME
S DVBSUMOPT("ZTDTBEGI")=DVBDATA(396.9991,DVBIENS,21,"I") ;ZTSK-LATEST BEGIN DATE/TIME
S DVBSUMOPT("ZTDTEND")=DVBDATA(396.9991,DVBIENS,22,"E") ; ZTSK-LATEST END DATE/TIME
S DVBSUMOPT("ZTDTENDI")=DVBDATA(396.9991,DVBIENS,22,"I") ;ZTSK-LATEST END DATE/TIME
S DVBSUMOPT("ZTLSTUSR")=DVBDATA(396.9991,DVBIENS,23,"E") ;ZTSK-LATEST USE TASKED BY
S DVBSUMOPT("ZTLSTUSRI")=DVBDATA(396.9991,DVBIENS,23,"I") ;ZTSK-LATEST USE TASKED BY
S DVBSUMOPT("AUDDAYS")=DVBDATA(396.9991,DVBIENS,900,"E") ; OP-DAYS AUDITED
S DVBSUMOPT("ACTIVE?")=DVBDATA(396.9991,DVBIENS,901,"E") ; OP-ACTIVE?
S DVBSUMOPT("OOOMSG")=DVBDATA(396.9991,DVBIENS,902,"E") ;. OP-OUT OF ORDER MESSAGE
S DVBSUMOPT("OPTTYPE")=DVBDATA(396.9991,DVBIENS,904,"E") ; OP-TYPE
S:DVBSUMOPT("OPTTYPE")="" DVBSUMOPT("OPTTYPE")="<TypeEmpty>"
S DVBSUMOPT("OPTTOBT")=DVBDATA(396.9991,DVBIENS,908,"E") ; OP-AUDIT TURNED-ON-BY TITLE
I DVBSUMOPT("OPTTOBT")="" D ;
. S DVBSUMOPT("OPTTOBT")="<TitleEmpty>"
S DVBSUMOPT("OPTAUDON")=DVBDATA(396.9991,DVBIENS,920,"E") ; OP-AUDIT CURRENTLY-TURNED?
S DVBSUMOPT("OPTTOBS")=DVBDATA(396.9991,DVBIENS,929,"E") ;. OP-AUDIT TURNED-ON-BY SERE
I DVBSUMOPT("OPTTOBS")="" D ;
. S DVBSUMOPT("OPTTOBS")="<ServiceSectionEmpty>"
;
Q ; SUMOPT
;
UOPTION(DVBIEN200,DVBIEN19) ; Retrieve fields from the
;
N %Y,DVBIENS,DVBDATA,DVBERRMSG
; ZEXCEPT: DVBUOPTION,DVBQUIT
;
K DVBUOPTION ; Refresh output array
S DVBQUIT=0 ;.. Indicates a successful data retrieval
;
; Retrieve data related to the OPTION multiple of file #396.9992201
;
S DVBIENS=+$G(DVBIEN19)_","_+$G(DVBIEN200)_","
D GETS^DIQ(396.9992201,DVBIENS,"*","IE","DVBDATA","DVBERRMSG")
D DIERR^DVBAUDDILG1(60,5,"DVBERRMSG","UOPTION^"_$T(+0)) Q:DVBQUIT
;
S DVBUOPTION("OPTI")=DVBDATA(396.9992201,DVBIENS,.01,"I")
S DVBUOPTION("OPTNAME")=DVBDATA(396.9992201,DVBIENS,.01,"E")
S DVBUOPTION("DT1STI")=DVBDATA(396.9992201,DVBIENS,2,"I")
S DVBUOPTION("DT1ST")=$$DATE^DVBAUDDT1(DVBUOPTION("DT1STI"),1,0,1) ; mm/dd/yy
S DVBUOPTION("DTLASTI")=DVBDATA(396.9992201,DVBIENS,3,"I")
S DVBUOPTION("DTLAST")=$$DATE^DVBAUDDT1(DVBUOPTION("DTLASTI"),1,0,1) ;mm/dd/yy
S DVBUOPTION("COUNTER")=DVBDATA(396.9992201,DVBIENS,4,"I")
S DVBUOPTION("USERI")=DVBIEN200
S DVBUOPTION("USER")=$$GET1^DIQ(396.9992,DVBIEN200,.01)
;
Q ; UOPTION
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBAUDDIQ 10240 printed Sep 17, 2026@20:27:20 Page 2
DVBAUDDIQ ;ALB/CP - FM GETS^DIQ API Subroutine Calls ; 4/12/18 7:09pm
+1 ;;2.7;AMIE;**256**;;Build 19
+2 ; Per VHA Directive 6402 this routine should not be modified
+3 ; $$GET1^DIQ ; # 2056
+4 ; GETS^DIQ ; # 2056
+5 QUIT
+6 ;
EVENT(DVBIENEVENT) ; Retrieve fields from AMIE OPTION AUDIT EVENT file
+1 ;
+2 NEW DVBIENS,DVBDATA,DVBERRMSG
+3 ; ZEXCEPT: DVBEVENT,DVBQUIT
+4 ;
+5 ; Refresh output array
KILL DVBEVENT
+6 ; Indicates a successful data retrieval
SET DVBQUIT=0
+7 ;
+8 SET DVBIENS=+$GET(DVBIENEVENT)_","
+9 ; EVENT rec
DO GETS^DIQ(396.999,DVBIENS,"*","IE","DVBDATA","DVBERRMSG")
+10 DO DIERR^DVBAUDDILG1(60,5,"DVBERRMSG","EVENT^"_$TEXT(+0))
if DVBQUIT
QUIT
+11 ;
+12 SET DVBEVENT("DVBIENEVENT")=DVBIENEVENT
+13 ;.. E-DATE/TIME
SET DVBEVENT("DTEVENT")=DVBDATA(396.999,DVBIENS,.01,"E")
+14 ;. E-DATE/TIME
SET DVBEVENT("DTEVENTI")=DVBDATA(396.999,DVBIENS,.01,"I")
+15 ;.......E-OPTION ACCESSED
SET DVBEVENT("DVBIEN19")=DVBDATA(396.999,DVBIENS,2,"I")
+16 ;.....E-OPTION ACCESSED
SET DVBEVENT("OPTNAME")=DVBDATA(396.999,DVBIENS,2,"E")
+17 ;......E-AUDITED USER
SET DVBEVENT("DVBIEN200")=DVBDATA(396.999,DVBIENS,3,"I")
+18 ;....E-AUDITED USER
SET DVBEVENT("USERNAME")=DVBDATA(396.999,DVBIENS,3,"E")
+19 ;......E-TASKED AUDIT?
SET DVBEVENT("TASKED")=DVBDATA(396.999,DVBIENS,4,"E")
+20 ;.....E-TASKED AUDIT?
SET DVBEVENT("TASKEDI")=DVBDATA(396.999,DVBIENS,4,"I")
+21 ;........E-TASK NUMBER
SET DVBEVENT("$JOB")=DVBDATA(396.999,DVBIENS,5,"E")
+22 ;...E-TASK END DATE/TIME
SET DVBEVENT("DTENDED")=DVBDATA(396.999,DVBIENS,6,"E")
+23 ;..E-TASK END DATE/TIME
SET DVBEVENT("DTENDEDI")=DVBDATA(396.999,DVBIENS,6,"I")
+24 ;.....E-PURGE FLAG?
SET DVBEVENT("PURGFLG")=DVBDATA(396.999,DVBIENS,7,"E")
+25 ;....E-PURGE FLAG?
SET DVBEVENT("PURGFLGI")=DVBDATA(396.999,DVBIENS,7,"I")
+26 ;
+27 ; EVENT
QUIT
+28 ;
NEWPERS(DVBIEN200) ; Retrieve fields from NEW PERSON file #200
+1 ;
+2 NEW %Y,DVBIENS,DVBDATA,DVBERRMSG
+3 ; ZEXCEPT: DVBNEWPERS,DVBQUIT
+4 ;
+5 ;Refresh output array
KILL DVBNEWPERS
+6 ;. Indicates a successful data retrieval
SET DVBQUIT=0
+7 ;
+8 SET DVBIENS=+$GET(DVBIEN200)_","
+9 DO GETS^DIQ(200,DVBIENS,".01;8;29","IE","DVBDATA","DVBERRMSG")
+10 DO DIERR^DVBAUDDILG1(60,5,"DVBERRMSG","NEWPERS^"_$TEXT(+0))
if DVBQUIT
QUIT
+11 ;
+12 ;.................... DUZ of user lookup
SET DVBNEWPERS("DVBIEN200")=DVBIEN200
+13 ; USERNAME external
SET DVBNEWPERS("USERNAME")=DVBDATA(200,DVBIENS,.01,"E")
+14 ;
+15 ; TITLE NAME internal
SET DVBNEWPERS("TITLEI")=+DVBDATA(200,DVBIENS,8,"I")
+16 ;.. TITLE NAME external
SET DVBNEWPERS("TITLE")=DVBDATA(200,DVBIENS,8,"E")
+17 if DVBNEWPERS("TITLE")=""
SET DVBNEWPERS("TITLE")="<TitleEmpty>"
+18 ;
+19 ; SVC NAME internal
SET DVBNEWPERS("SVCI")=+DVBDATA(200,DVBIENS,29,"I")
+20 ;.. SVC NAME external
SET DVBNEWPERS("SVC")=DVBDATA(200,DVBIENS,29,"E")
+21 if DVBNEWPERS("SVC")=""
SET DVBNEWPERS("SVC")="<ServiceEmpty>"
+22 ;
+23 ; NEWPERS
QUIT
+24 ;
OCCRMULT(DVBIEN19,DVBOCCURIEN) ; Retrieve fields from the OCCURANCES multiple
+1 ;
+2 NEW %Y,DVBIENS,DVBDATA,DVBERRMSG
+3 ; ZEXCEPT: DVBOCCRMULT,DVBQUIT
+4 ;
+5 ; Refresh output array
KILL DVBOCCRMULT
+6 ; Indicates a successful data retrieval
SET DVBQUIT=0
+7 ;
+8 ;Retrieve data related to the OCCURANCE multiple of file #396.9991201
+9 ;
+10 SET DVBIENS=+$GET(DVBOCCURIEN)_","_+$GET(DVBIEN19)_","
+11 DO GETS^DIQ(396.9991201,DVBIENS,"2;3","I","DVBDATA","DVBERRMSG")
+12 DO DIERR^DVBAUDDILG1(60,5,"DVBERRMSG","OCCRMULT^"_$TEXT(+0))
if DVBQUIT
QUIT
+13 ;
+14 ; Set O-DATE/TIME TASKED AUDIT BEGAN & O-DATE/TIME TASKED AUDIT ENDED
+15 SET DVBOCCRMULT("TIMEBEG")=DVBDATA(396.9991201,DVBIENS,2,"I")
+16 SET DVBOCCRMULT("TIMEEND")=DVBDATA(396.9991201,DVBIENS,3,"I")
+17 ; Indicates a successful data retrieval
SET DVBQUIT=0
+18 ;
+19 ; OCCRMULT
QUIT
+20 ;
OPTION(DVBIEN19) ; Retrieve fields from OPTION file #19
+1 ;
+2 NEW %Y,DVBIENS,DVBDATA,DVBERRMSG
+3 ; ZEXCEPT: DVBOPT,DVBQUIT
+4 ;
+5 ;...Refresh output array
KILL DVBOPT
+6 ; Indicates a successful data retrieval
SET DVBQUIT=0
+7 ;
+8 ; Verify input variable DVBIEN19, retrieve the data in the DVBDATA(array)
+9 ;
+10 SET DVBIENS=+$GET(DVBIEN19)_","
+11 ;
DO GETS^DIQ(19,DVBIENS,".01;2;4;15;20","IE","DVBDATA","DVBERRMSG")
+12 DO DIERR^DVBAUDDILG1(60,5,"DVBERRMSG","OPTION^"_$TEXT(+0))
if DVBQUIT
QUIT
+13 ;
+14 ;......OPTION NAME
SET DVBOPT("NAME")=DVBDATA(19,DVBIENS,.01,"E")
+15 ;......OUT OF ORDER MESSAGE
SET DVBOPT("OOOMSG")=DVBDATA(19,DVBIENS,2,"E")
+16 ;.......OPTION TYPE internal
SET DVBOPT("TYPEI")=DVBDATA(19,DVBIENS,4,"I")
+17 ;........OPTION TYPE
SET DVBOPT("TYPE")=DVBDATA(19,DVBIENS,4,"E")
+18 if DVBOPT("TYPE")=""
SET DVBOPT("TYPE")="<TypeEmpty>"
+19 ;.OPTION EXIT ACTION
SET DVBOPT("EXITACTION")=DVBDATA(19,DVBIENS,15,"E")
+20 ;OPTION ENTRY ACTION
SET DVBOPT("ENTRYACTION")=DVBDATA(19,DVBIENS,20,"E")
+21 ;
+22 ; OPTION
QUIT
+23 ;
OPTSCH(DVBIEN) ; Retrieve fields from a OPTION SCHEUDLING file #19.2 entry
+1 ;
+2 NEW %Y,DVBIENS,DVBDATA,DVBERRMSG
+3 ; ZEXCEPT: DVBOPTSCH,DVBQUIT
+4 ;
+5 ;Refresh output array
KILL DVBOPTSCH
+6 ; Indicates a successful data retrieval
SET DVBQUIT=0
+7 ;
+8 ; Verify input variable DVBIEN and store record in DVBDATA array
+9 ;
+10 SET DVBIENS=+$GET(DVBIEN)_","
+11 ; EVENT rec
DO GETS^DIQ(19.2,DVBIENS,"*","IE","DVBDATA","DVBERRMSG")
+12 DO DIERR^DVBAUDDILG1(60,5,"DVBERRMSG","OPTSCH^"_$TEXT(+0))
+13 if DVBQUIT
QUIT
+14 ;
+15 ;Save the external and internal values needed in output DVBOPTSCH(array)
+16 ;
+17 SET DVBOPTSCH("DVBIEN")=DVBIEN
+18 SET DVBOPTSCH("DVBIEN19")=DVBDATA(19.2,DVBIENS,.01,"I")
+19 SET DVBOPTSCH("OPTNAME")=DVBDATA(19.2,DVBIENS,.01,"E")
+20 SET DVBOPTSCH("QTORUNTIME")=$$DATE^DVBAUDDT1(DVBDATA(19.2,DVBIENS,2,"I"),1)
+21 SET DVBOPTSCH("QTORUNTIMEI")=DVBDATA(19.2,DVBIENS,2,"I")
+22 SET DVBOPTSCH("DEVICE")=DVBDATA(19.2,DVBIENS,3,"E")
+23 SET DVBOPTSCH("FREQ")=DVBDATA(19.2,DVBIENS,6,"E")
+24 SET DVBOPTSCH("TASKID")=DVBDATA(19.2,DVBIENS,12,"E")
+25 ;
+26 ; OPTSCH
QUIT
+27 ;
PARSVC(DVBIEN49) ; Retrieve the PARENT SERVICE from SERVICE/SECTION file (#49)
+1 ;
+2 NEW %Y,DVBIENS,DVBDATA,DVBERRMSG,DVBQUIT,DVBSVC
+3 ; ZEXCEPT: DVBPARSVC,DVBQUIT
+4 ;
+5 ; Refresh output array
KILL DVBPARSVC
+6 ;
+7 ; Set output array defaults in PARENT SERVICE cannot be determined.
+8 ; Return 0 or the internal value passed on input
SET DVBIEN49=$GET(DVBIEN49,0)
+9 SET DVBPARSVC("IEN49")=DVBIEN49
+10 ; Return if PARENT SERVICE not determined
SET DVBPARSVC("NAME")="<ParentSvcEmpty>"
+11 ;
+12 SET DVBIENS=DVBIEN49_","
+13 SET DVBSVC=$$GET1^DIQ(49,DVBIENS,.01)
+14 ;
IF DVBSVC]""
Begin DoDot:1
+15 ; PARENT SERVICE
DO GETS^DIQ(49,DVBIENS,1.6,"IE","DVBDATA","DVBERRMSG")
+16 DO DIERR^DVBAUDDILG1(60,5,"DVBERRMSG","PARSVC^"_$TEXT(+0))
if DVBQUIT
QUIT
+17 ;
+18 ;. PARENT SERVICE int.
SET DVBPARSVC("IEN49")=+DVBDATA(49,DVBIENS,1.6,"I")
+19 ;... PARENT SERVICE ext.
SET DVBPARSVC("NAME")=DVBDATA(49,DVBIENS,1.6,"E")
+20 if DVBPARSVC("NAME")=""
SET DVBPARSVC("NAME")="<ParentSvcEmpty>"
End DoDot:1
QUIT
+21 ;
+22 ; PARSVC
QUIT
+23 ;
SUMOPT(DVBIEN19) ; Retrieve fields from AMIE AUDIT SUMMARY BY OPTION
+1 ;
+2 NEW %Y,DVBIENS,DVBDATA,DVBERRMSG
+3 ; ZEXCEPT: DVBSUMOPT,DVBQUIT
+4 ;
+5 ; Refresh output array
KILL DVBSUMOPT
+6 ;. Indicates a successful data retrieval
SET DVBQUIT=0
+7 ;
+8 SET DVBIENS=+$GET(DVBIEN19)_","
+9 ; SUMMARY rec
DO GETS^DIQ(396.9991,DVBIENS,"*","IE","DVBDATA","DVBERRMSG")
+10 DO DIERR^DVBAUDDILG1(60,5,"DVBERRMSG","SUMOPT^"_$TEXT(+0))
if DVBQUIT
QUIT
+11 ;
+12 ; OP-NAME [F]
SET DVBSUMOPT("OPTNAME")=DVBDATA(396.9991,DVBIENS,.01,"E")
+13 ;.. OP-NAME [P19']
SET DVBSUMOPT("DVBIEN19")=DVBDATA(396.9991,DVBIENS,.01,"I")
+14 ; OP-AUDIT BEGIN DATE
SET DVBSUMOPT("DTSTART")=DVBDATA(396.9991,DVBIENS,2,"E")
+15 ;OP-AUDIT BEGIN DATE
SET DVBSUMOPT("DTSTARTI")=DVBDATA(396.9991,DVBIENS,2,"I")
+16 ;OP-EARLIEST AUDIT DATE
SET DVBSUMOPT("DT1ST")=DVBDATA(396.9991,DVBIENS,3,"E")
+17 IF DVBSUMOPT("DT1ST")=""
SET DVBSUMOPT("DT1ST")="<Empty>"
+18 ; OP-EARLIEST AUDIT DATE/TIME
SET DVBSUMOPT("DT1STI")=DVBDATA(396.9991,DVBIENS,3,"I")
+19 ; OP-LATEST AUDIT DATE/TIME
SET DVBSUMOPT("DTLAST")=DVBDATA(396.9991,DVBIENS,4,"E")
+20 IF DVBSUMOPT("DTLAST")=""
SET DVBSUMOPT("DTLAST")="<Empty>"
+21 ;OP-LATEST AUDIT DATE/TIME
SET DVBSUMOPT("DTLASTI")=DVBDATA(396.9991,DVBIENS,4,"I")
+22 ;OP-LAST USED BY
SET DVBSUMOPT("LSTUSER")=DVBDATA(396.9991,DVBIENS,5,"E")
+23 ; OP-LAST USED BY
SET DVBSUMOPT("LSTUSERI")=DVBDATA(396.9991,DVBIENS,5,"I")
+24 ;.. OP-USAGE COUNT
SET DVBSUMOPT("USAGE")=+DVBDATA(396.9991,DVBIENS,6,"E")
+25 ; ZTSK-LATEST BEGIN DATE/TIME
SET DVBSUMOPT("ZTDTBEG")=DVBDATA(396.9991,DVBIENS,21,"E")
+26 ;ZTSK-LATEST BEGIN DATE/TIME
SET DVBSUMOPT("ZTDTBEGI")=DVBDATA(396.9991,DVBIENS,21,"I")
+27 ; ZTSK-LATEST END DATE/TIME
SET DVBSUMOPT("ZTDTEND")=DVBDATA(396.9991,DVBIENS,22,"E")
+28 ;ZTSK-LATEST END DATE/TIME
SET DVBSUMOPT("ZTDTENDI")=DVBDATA(396.9991,DVBIENS,22,"I")
+29 ;ZTSK-LATEST USE TASKED BY
SET DVBSUMOPT("ZTLSTUSR")=DVBDATA(396.9991,DVBIENS,23,"E")
+30 ;ZTSK-LATEST USE TASKED BY
SET DVBSUMOPT("ZTLSTUSRI")=DVBDATA(396.9991,DVBIENS,23,"I")
+31 ; OP-DAYS AUDITED
SET DVBSUMOPT("AUDDAYS")=DVBDATA(396.9991,DVBIENS,900,"E")
+32 ; OP-ACTIVE?
SET DVBSUMOPT("ACTIVE?")=DVBDATA(396.9991,DVBIENS,901,"E")
+33 ;. OP-OUT OF ORDER MESSAGE
SET DVBSUMOPT("OOOMSG")=DVBDATA(396.9991,DVBIENS,902,"E")
+34 ; OP-TYPE
SET DVBSUMOPT("OPTTYPE")=DVBDATA(396.9991,DVBIENS,904,"E")
+35 if DVBSUMOPT("OPTTYPE")=""
SET DVBSUMOPT("OPTTYPE")="<TypeEmpty>"
+36 ; OP-AUDIT TURNED-ON-BY TITLE
SET DVBSUMOPT("OPTTOBT")=DVBDATA(396.9991,DVBIENS,908,"E")
+37 ;
IF DVBSUMOPT("OPTTOBT")=""
Begin DoDot:1
+38 SET DVBSUMOPT("OPTTOBT")="<TitleEmpty>"
End DoDot:1
+39 ; OP-AUDIT CURRENTLY-TURNED?
SET DVBSUMOPT("OPTAUDON")=DVBDATA(396.9991,DVBIENS,920,"E")
+40 ;. OP-AUDIT TURNED-ON-BY SERE
SET DVBSUMOPT("OPTTOBS")=DVBDATA(396.9991,DVBIENS,929,"E")
+41 ;
IF DVBSUMOPT("OPTTOBS")=""
Begin DoDot:1
+42 SET DVBSUMOPT("OPTTOBS")="<ServiceSectionEmpty>"
End DoDot:1
+43 ;
+44 ; SUMOPT
QUIT
+45 ;
UOPTION(DVBIEN200,DVBIEN19) ; Retrieve fields from the
+1 ;
+2 NEW %Y,DVBIENS,DVBDATA,DVBERRMSG
+3 ; ZEXCEPT: DVBUOPTION,DVBQUIT
+4 ;
+5 ; Refresh output array
KILL DVBUOPTION
+6 ;.. Indicates a successful data retrieval
SET DVBQUIT=0
+7 ;
+8 ; Retrieve data related to the OPTION multiple of file #396.9992201
+9 ;
+10 SET DVBIENS=+$GET(DVBIEN19)_","_+$GET(DVBIEN200)_","
+11 DO GETS^DIQ(396.9992201,DVBIENS,"*","IE","DVBDATA","DVBERRMSG")
+12 DO DIERR^DVBAUDDILG1(60,5,"DVBERRMSG","UOPTION^"_$TEXT(+0))
if DVBQUIT
QUIT
+13 ;
+14 SET DVBUOPTION("OPTI")=DVBDATA(396.9992201,DVBIENS,.01,"I")
+15 SET DVBUOPTION("OPTNAME")=DVBDATA(396.9992201,DVBIENS,.01,"E")
+16 SET DVBUOPTION("DT1STI")=DVBDATA(396.9992201,DVBIENS,2,"I")
+17 ; mm/dd/yy
SET DVBUOPTION("DT1ST")=$$DATE^DVBAUDDT1(DVBUOPTION("DT1STI"),1,0,1)
+18 SET DVBUOPTION("DTLASTI")=DVBDATA(396.9992201,DVBIENS,3,"I")
+19 ;mm/dd/yy
SET DVBUOPTION("DTLAST")=$$DATE^DVBAUDDT1(DVBUOPTION("DTLASTI"),1,0,1)
+20 SET DVBUOPTION("COUNTER")=DVBDATA(396.9992201,DVBIENS,4,"I")
+21 SET DVBUOPTION("USERI")=DVBIEN200
+22 SET DVBUOPTION("USER")=$$GET1^DIQ(396.9992,DVBIEN200,.01)
+23 ;
+24 ; UOPTION
QUIT
