Changeset 1216 for EWD/r

Timestamp:

Aug 14, 2011, 10:02:59 PM (13 years ago)

Author:

Sam Habiel

Message:

Added VAL^{KBANEWD1 as a wrapper around VAL}DIE

File:

• EWD/r/KBANEWD1.m (modified) (2 diffs)

EWD/r/KBANEWD1.m

@@ -1 @@
-KBANEWD1 ; KBAN/SMH - Custom Tag Processor ; 6/8/11 4:01pm
+KBANEWD1 ; KBAN/SMH - Custom Tag Processor ; 8/14/11 9:08pm
  ;;
 SS(nodeOID,attrValues,docOID,technology) ; <fm:session /> to get VISTA Session Variables
@@ -80 +80 @@
  N VAL S VAL=$$GET1^DIQ(DD,IENS,FIELDS)
  D setSessionValue^%zewdAPI(fieldName,VAL,sessid)
- QUIT 
+ QUIT
+ ;
+ ; ---
+ ;
+VAL(sessid)
+ D setSessionValue^%zewdAPI("tmp.error","Null Validation",sessid)
+ D setSessionValue^%zewdAPI("tmp.name","testdiv",sessid) ; testdiv hardcoded for now.
+ N KBANDD S KBANDD=+$TR($P(requestArray("name"),"DD",2),"_",".")  ; todo: check for 0 value
+ N KBANF S KBANF=+$TR($P(requestArray("name"),"F",2),"_",".")     ; todo: check for 0 value
+ N KBANIENS S KBANIENS=requestArray("iens")
+ I $E(KBANIENS,$L(KBANIENS))'="," S KBANIENS=KBANIENS_","
+ N KBANV S KBANV=requestArray("value")   ; todo: unescape urlencoding.
+ N KBANRESULT ; Result
+ N KBANMSG
+ D VAL^DIE(KBANDD,KBANIENS,KBANF,"E",KBANV,.KBANRESULT,"","KBANMSG")
+ I $D(KBANMSG) K ^ZZSAM M ^ZZSAM=KBANMSG
+ ; KBANMSG(DIERR,1,TEXT,1) can be longer than one line (last subscript)... loop...
+ ; HTML formatting for error message???
+ I KBANRESULT="^" D setSessionValue^%zewdAPI("tmp.error",KBANMSG("DIERR",1,"TEXT",1),sessid)
+ E  D
+ . D setSessionValue^%zewdAPI("tmp.result","Success in Validating: "_$$SYMENC^MXMLUTL($$SYMENC^MXMLUTL(KBANRESULT(0))),sessid)
+ . D setSessionValue^%zewdAPI("tmp.error","",sessid)
+ QUIT ""