|
Last change
on this file since 1608 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
880 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | VAQDBIH2 ;JRP/ALB - GET INFO ABOUT HEALTH SUMMARY COMPONENT;09-SEP-93
|
|---|
| 2 | ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
|
|---|
| 3 | VALOCC(LIMIT,TYPEOCC) ;VALIDATE TIME LIMIT
|
|---|
| 4 | ;INPUT : LIMIT - Limit value to check for validity
|
|---|
| 5 | ; TYPEOCC - Flag indicating which limit to validate against
|
|---|
| 6 | ; 0 = Time limit (default)
|
|---|
| 7 | ; 1 = Occurrence limit
|
|---|
| 8 | ;OUTPUT : 0 - Limit is valid
|
|---|
| 9 | ; -1 - Limit is not valid or error
|
|---|
| 10 | ;NOTES : Time limits are 1-5 numerics followed be 'D' or 'M' or 'Y'
|
|---|
| 11 | ; : Occurrence limits are 1-5 numerics
|
|---|
| 12 | ;
|
|---|
| 13 | ;CHECK INPUT
|
|---|
| 14 | Q:($G(LIMIT)="") -1
|
|---|
| 15 | S TYPEOCC=+$G(TYPEOCC)
|
|---|
| 16 | ;DECLARE VARIABLES
|
|---|
| 17 | N ANS,TMP
|
|---|
| 18 | ;VALIDATE TIME LIMIT
|
|---|
| 19 | I ('TYPEOCC) D Q ANS
|
|---|
| 20 | .S ANS=-1
|
|---|
| 21 | .S TMP=$E(LIMIT,1,($L(LIMIT)-1))
|
|---|
| 22 | .Q:(TMP'?1.5N)
|
|---|
| 23 | .S TMP=$E(LIMIT,$L(LIMIT))
|
|---|
| 24 | .I ((TMP="D")!(TMP="M")!(TMP="Y")) S ANS=0 Q
|
|---|
| 25 | ;VALIDATE OCCURRENCE LIMIT
|
|---|
| 26 | Q:(LIMIT?1.5N) 0
|
|---|
| 27 | Q -1
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
