28 lines
880 B
Mathematica
28 lines
880 B
Mathematica
VAQDBIH2 ;JRP/ALB - GET INFO ABOUT HEALTH SUMMARY COMPONENT;09-SEP-93
|
|
;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
|
|
VALOCC(LIMIT,TYPEOCC) ;VALIDATE TIME LIMIT
|
|
;INPUT : LIMIT - Limit value to check for validity
|
|
; TYPEOCC - Flag indicating which limit to validate against
|
|
; 0 = Time limit (default)
|
|
; 1 = Occurrence limit
|
|
;OUTPUT : 0 - Limit is valid
|
|
; -1 - Limit is not valid or error
|
|
;NOTES : Time limits are 1-5 numerics followed be 'D' or 'M' or 'Y'
|
|
; : Occurrence limits are 1-5 numerics
|
|
;
|
|
;CHECK INPUT
|
|
Q:($G(LIMIT)="") -1
|
|
S TYPEOCC=+$G(TYPEOCC)
|
|
;DECLARE VARIABLES
|
|
N ANS,TMP
|
|
;VALIDATE TIME LIMIT
|
|
I ('TYPEOCC) D Q ANS
|
|
.S ANS=-1
|
|
.S TMP=$E(LIMIT,1,($L(LIMIT)-1))
|
|
.Q:(TMP'?1.5N)
|
|
.S TMP=$E(LIMIT,$L(LIMIT))
|
|
.I ((TMP="D")!(TMP="M")!(TMP="Y")) S ANS=0 Q
|
|
;VALIDATE OCCURRENCE LIMIT
|
|
Q:(LIMIT?1.5N) 0
|
|
Q -1
|