| [623] | 1 | MAGGSIV1 ;WOIFO/GEK - Imaging Validate Data ; [ 08/15/2004 08:57 ]
|
|---|
| 2 | ;;3.0;IMAGING;**8,20**;Apr 12, 2006
|
|---|
| 3 | ;; +---------------------------------------------------------------+
|
|---|
| 4 | ;; | Property of the US Government. |
|
|---|
| 5 | ;; | No permission to copy or redistribute this software is given. |
|
|---|
| 6 | ;; | Use of unreleased versions of this software requires the user |
|
|---|
| 7 | ;; | to execute a written test agreement with the VistA Imaging |
|
|---|
| 8 | ;; | Development Office of the Department of Veterans Affairs, |
|
|---|
| 9 | ;; | telephone (301) 734-0100. |
|
|---|
| 10 | ;; | |
|
|---|
| 11 | ;; | The Food and Drug Administration classifies this software as |
|
|---|
| 12 | ;; | a medical device. As such, it may not be changed in any way. |
|
|---|
| 13 | ;; | Modifications to this software may result in an adulterated |
|
|---|
| 14 | ;; | medical device under 21CFR820, the use of which is considered |
|
|---|
| 15 | ;; | to be a violation of US Federal Statutes. |
|
|---|
| 16 | ;; +---------------------------------------------------------------+
|
|---|
| 17 | ;;
|
|---|
| 18 | Q
|
|---|
| 19 | VALID(MAGF,MAGL,MAGD,MAGRES) ; call to validate value for field in a FM file.
|
|---|
| 20 | ; Function is boolean. Returns:
|
|---|
| 21 | ; 0 - Invalid
|
|---|
| 22 | ; 1 - Valid
|
|---|
| 23 | ; "" - Error
|
|---|
| 24 | ; Call this function before you set the FDA Array.
|
|---|
| 25 | ; MAGD - sent by reference because it could be Internal or External
|
|---|
| 26 | ; and if it is external and valid, it is changed to Internal.
|
|---|
| 27 | ;
|
|---|
| 28 | ; MAGF : File Number
|
|---|
| 29 | ; MAGL : Field Number
|
|---|
| 30 | ; MAGD : (sent by reference) data value of field
|
|---|
| 31 | ; MAGRES: (sent by reference) Result message
|
|---|
| 32 | ;
|
|---|
| 33 | N $ETRAP,$ESTACK S $ETRAP="D ERR^"_$T(+0)
|
|---|
| 34 | N MAGR,MAGMSG,MAGSP,MAGRESA,MAGE,MAGPT
|
|---|
| 35 | ;if a BAD field number
|
|---|
| 36 | I '$$VFIELD^DILFD(MAGF,MAGL) D Q 0
|
|---|
| 37 | . S MAGRES="The field number: "_MAGL_", in File: "_MAGF_", is invalid."
|
|---|
| 38 | D FIELD^DID(MAGF,MAGL,"","SPECIFIER","MAGSP")
|
|---|
| 39 | ; If it is a pointer field
|
|---|
| 40 | ; If an integer - We assume it is a pointer and validate that and Quit.
|
|---|
| 41 | ; If not integer - We assume it is external value, proceed to let CHK do validate
|
|---|
| 42 | I (MAGSP("SPECIFIER")["P"),(+MAGD=MAGD) D Q MAGPT
|
|---|
| 43 | . I $$EXTERNAL^DILFD(MAGF,MAGL,"",MAGD)'="" S MAGPT=1,MAGRES="Valid pointer" Q
|
|---|
| 44 | . S MAGPT=0,MAGRES="The value: "_MAGD_" for field: "_MAGL_" in File: "_MAGF_" is an invalid Pointer."
|
|---|
| 45 | . Q
|
|---|
| 46 | ;
|
|---|
| 47 | D CHK^DIE(MAGF,MAGL,"E",MAGD,.MAGR,"MAGMSG")
|
|---|
| 48 | ; If success, Quit. We changed External to Internal. Internal is in MAGR
|
|---|
| 49 | I MAGR'="^" S MAGD=MAGR Q 1
|
|---|
| 50 | ; If not success Get the error text and Quit 0
|
|---|
| 51 | D MSG^DIALOG("A",.MAGRESA,245,5,"MAGMSG")
|
|---|
| 52 | S MAGRES=MAGRESA(1)
|
|---|
| 53 | Q 0
|
|---|
| 54 | VALINDEX(MAGRY,TYPE,SPEC,PROC) ; Validate the interdependency of Index Terms.
|
|---|
| 55 | ; MAGRY is the return array
|
|---|
| 56 | ; MAGRY(0)="1^Okay" or "0^error message"
|
|---|
| 57 | ; MAGRY(1..n) Information about the Type,Spec and Proc
|
|---|
| 58 | ;
|
|---|
| 59 | ; Validate the Procedure/Event <-> Specialty/SubSpecialty interdependency
|
|---|
| 60 | ; Assure the TYPE is a Clinical TYPE.
|
|---|
| 61 | ; Assure all are Active.
|
|---|
| 62 | N CLS,RES,ARR,TYX,PRX,SPX,OK
|
|---|
| 63 | K MAGRY
|
|---|
| 64 | S TYPE=$G(TYPE),PROC=$G(PROC),SPEC=$G(SPEC)
|
|---|
| 65 | I TYPE=0 S TYPE=""
|
|---|
| 66 | I PROC=0 S PROC=""
|
|---|
| 67 | I SPEC=0 S SPEC=""
|
|---|
| 68 | I ((PROC]"")!(SPEC]"")) I TYPE="" S MAGRY(0)="0^Type is required." Q 0
|
|---|
| 69 | ; TYPE is required, but not enforcing yet. All vendors are not sending
|
|---|
| 70 | ; index values.
|
|---|
| 71 | ; VALID will accept External or Internal and return Internal if Valid
|
|---|
| 72 | I $L(TYPE) I '$$VALID(2005,42,.TYPE,.RES) S MAGRY(0)="0^"_RES Q 0
|
|---|
| 73 | I $L(PROC) I '$$VALID(2005,43,.PROC,.RES) S MAGRY(0)="0^"_RES Q 0
|
|---|
| 74 | I $L(SPEC) I '$$VALID(2005,44,.SPEC,.RES) S MAGRY(0)="0^"_RES Q 0
|
|---|
| 75 | ;
|
|---|
| 76 | I TYPE D I 'OK S MAGRY(0)=OK Q 0
|
|---|
| 77 | . S OK=1,TYX=TYPE_","
|
|---|
| 78 | . K ARR D GETS^DIQ(2005.83,TYX,".01;1;2","EI","ARR")
|
|---|
| 79 | . S MAGRY(1)="Type - Class : "_ARR(2005.83,TYX,.01,"E")_" - "_ARR(2005.83,TYX,1,"E")
|
|---|
| 80 | . I $L(ARR(2005.83,TYX,2,"E")) S MAGRY(1)=MAGRY(1)_" - "_ARR(2005.83,TYX,2,"E")
|
|---|
| 81 | . I ARR(2005.83,TYX,2,"I")="I" S OK="0^Type is Inactive"
|
|---|
| 82 | . Q
|
|---|
| 83 | ;
|
|---|
| 84 | I SPEC D I 'OK S MAGRY(0)=OK Q 0
|
|---|
| 85 | . S OK=1,SPX=SPEC_","
|
|---|
| 86 | . K ARR D GETS^DIQ(2005.84,SPX,".01;2;4","EI","ARR")
|
|---|
| 87 | . S MAGRY(2)="Specialty/SubSpecialty: "_ARR(2005.84,SPX,.01,"E")
|
|---|
| 88 | . I $L(ARR(2005.84,SPX,4,"E")) S MAGRY(2)=MAGRY(2)_" - "_ARR(2005.84,SPX,4,"E")
|
|---|
| 89 | . I $L(ARR(2005.84,SPX,2,"E")) S MAGRY(2)=MAGRY(2)_" <"_ARR(2005.84,SPX,2,"E")_">"
|
|---|
| 90 | . I ARR(2005.84,SPX,4,"I")="I" S OK="0^Specialty is Inactive"
|
|---|
| 91 | . Q
|
|---|
| 92 | ;
|
|---|
| 93 | I PROC D I 'OK S MAGRY(0)=OK Q 0
|
|---|
| 94 | . S OK=1,PRX=PROC_","
|
|---|
| 95 | . K ARR D GETS^DIQ(2005.85,PRX,".01;4","EI","ARR")
|
|---|
| 96 | . S MAGRY(4)="Procedure/Event : "_$$GET1^DIQ(2005.85,PROC,.01)
|
|---|
| 97 | . I $L(ARR(2005.85,PRX,4,"E")) S MAGRY(4)=MAGRY(4)_" - "_ARR(2005.85,PRX,4,"E")
|
|---|
| 98 | . I ARR(2005.85,PRX,4,"I")="I" S OK="0^Procedure is Inactive"
|
|---|
| 99 | . Q
|
|---|
| 100 | ;
|
|---|
| 101 | ; If PROC and SPEC are "", then Quit, any TYPE by itself is valid
|
|---|
| 102 | I (PROC=""),(SPEC="") S MAGRY(0)="1^Okay" Q 1
|
|---|
| 103 | ; Here, TYPE has to be Clin.
|
|---|
| 104 | S CLS=$$GET1^DIQ(2005.83,TYPE,1,"","MAGTAR") I $E(CLS,1,5)="ADMIN" D Q 0
|
|---|
| 105 | . S MAGRY(0)="0^The Type Index is Administrative, it has to be Clinical."
|
|---|
| 106 | I (PROC="")!(SPEC="") S MAGRY(0)="1^Okay" Q 1
|
|---|
| 107 | ; we get here, we have to validate the interdependency of SPEC <-> PROC.
|
|---|
| 108 | I '$O(^MAG(2005.85,PROC,1,0)) S MAGRY(0)="1^Okay" Q 1
|
|---|
| 109 | I '$D(^MAG(2005.85,PROC,1,"B",SPEC)) D Q 0
|
|---|
| 110 | . S MAGRY(0)="0^Invalid Association between Spec/SubSpec and Proc/Event"
|
|---|
| 111 | . Q
|
|---|
| 112 | S MAGRY(0)="1^Okay"
|
|---|
| 113 | Q 1
|
|---|
| 114 | ERR ;
|
|---|
| 115 | N ERR
|
|---|
| 116 | S ERR=$$EC^%ZOSV
|
|---|
| 117 | S MAGRES="0^Error during data validation: "_ERR
|
|---|
| 118 | D LOGERR^MAGGTERR(ERR)
|
|---|
| 119 | D @^%ZOSF("ERRTN")
|
|---|
| 120 | D CLEAN^DILF
|
|---|
| 121 | Q
|
|---|
