XOBSCAV2 ;; kec/oak - VistaLink Access/Verify Security ; 12/09/2002 17:00
Source file <XOBSCAV2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SENDDEM | ; respond to user demographics request
|
|
| SENDDEM1 | ; success
|
|
| SENDDEM0(XOBTEXT) | ; failure
|
|
| ELEST(ELE,ATR) | ; -- element start event handler
|
|
| ELEND(ELE) | ; -- element end event handler
|
|
| CHR(TEXT) | ; -- character value event handler <tag>TEXT</tag)
; -- need to concatenate because MXML parses on ENTITY characters (<>& etc.) and ; callback gets hit multiple times even though the tag text value is just one piece of data. ; (Yes, this seems kludgie!) |
|
| SENDNVC | ; respond to "change verify code" request. Use of CVC^XUSRB per DBIA #4054
|
|
| SENDNVC1 | ; send verify code update success
|
|
| SENDNVC0 | ; send verify code update error
|
|
| SENDNVCD(XOBDIVS) | ; send verify code partial success, need divisions
|
|
| GETINTRO(XOBSREF,XOBSCNTR) | ;
; XOBSREF: variable in which to store intro text (at one level descendant) ; XOBSCNT: integer subscript counter value at which to start storing text ; returns: XOBSREF containing <IntroText> element text with intro text lines in CDATA section ; XOBSCNT incremented to last subscript at which text was stored (if passed as dot-arg) ; |
| FileNo | Call Tags |
|---|---|
| ^VA(20 - [#20] | GETS^DIQ |
| ^VA(200 - [#200] | GETS^DIQ |
