VPRSDAT ;SLC/MKB -- SDA TIU utilities ;10/25/18 15:29
Source file <VPRSDAT.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| VA FileMan | 2 | ^DDE ITEM |
| Virtual Patient Record | 1 | VPRSDAC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DOCQRY | ; -- Text Integration Utilities query
; Expects DSTRT, DSTOP, DMAX from DDEGET and returns DLIST(#)=ien |
|
| DOC1(IEN) | ; -- ID Action for single document
|
|
| TEXT | ; -- return note text in WP(#) array
|
|
| TYPE(IEN) | ; -- return code^name for document type/class
|
|
| SIGDT(IEN) | ; -- return date of authorization
|
|
| NATL(IEN) | ; -- convert 8925.1 IEN to 8926.1 IEN
; Expects VPRNATL from VPR DOCUMENT EXTENSION entity ; Returns DATA = code ^ [description] ^ system ; TIUTTL = local title name |
|
| AVSTS(STS) | ; -- return Availability Status of document
|
|
| COMP(IEN,VST) | ; -- return 1 or 0, if document is complete
|
|
| FAC(IEN) | ; -- return #4 ien for TIU document
|
|
| TIUS(IEN) | ; -- return DLIST array of multiple signers
|
| FileNo | Call Tags |
|---|---|
| ^SC - [#44] | GET1^DIQ |
| ^TIU(8926.1 - [#8926.1] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SC - [#44] | FAC+4 |
| ^TIU(8925.1 - [#8925.1] | TYPE+4, NATL+5, NATL+6 |
| ^TIU(8925.7 - [#8925.7] | TIUS+3, TIUS+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DATA | NATL+4*, NATL+9, NATL+11*, NATL+12*, NATL+13*, NATL+15*, NATL+16* |
| >> DDEOUT | DOC1+1* |
| >> DFN | DOCQRY+3 |
| >> DIEN | TEXT+2, TEXT+5, TEXT+6 |
| >> DLIST( | DOCQRY+6*, TIUS+2*, TIUS+5* |
| >> DMAX | DOCQRY+5 |
| >> DSTOP | DOCQRY+3 |
| >> DSTRT | DOCQRY+3 |
| FAC | FAC+1~, FAC+3*, FAC+4*, FAC+6*, FAC+8*, FAC+9 |
| FIELD | TEXT+1~ |
| FILE | TEXT+1~ |
| I | TIUS+1~, TIUS+2* |
| IEN | DOC1~, DOC1+1*, DOC1+2, TEXT+1~, TYPE~, TYPE+2, TYPE+4, SIGDT~, SIGDT+1*, SIGDT+2 , SIGDT+3, SIGDT+4, NATL~, NATL+4*, NATL+5, NATL+6, NATL+13, NATL+15*, NATL+16, COMP~ , COMP+1*, COMP+2, COMP+3, COMP+4, FAC~, FAC+1*, FAC+3, FAC+8, TIUS~, TIUS+2 , TIUS+3 |
| L0 | FAC+4~*, FAC+6 |
| LOC | FAC+1~, FAC+3*, FAC+4, FAC+6 |
| MSIEN | TIUS+1~, TIUS+3*, TIUS+4 |
| N | TIUS+1~, TIUS+2*, TIUS+5* |
| NATL | TYPE+3~, TYPE+4*, TYPE+5 |
| STS | TEXT+1~, TEXT+2*, TEXT+3, TEXT+4, AVSTS~, AVSTS+1*, AVSTS+2, COMP+2~, COMP+4*, COMP+5 |
| SVC | TYPE+3~, TYPE+5*, TYPE+6, TYPE+7 |
| TAG | TEXT+1~ |
| TIUNATL | NATL+4~, NATL+5*, NATL+8, NATL+15 |
| >> TIUTTL | NATL+6*, NATL+9, NATL+10, NATL+13 |
| TTL | NATL+10~*, NATL+11 |
| U | TYPE+9, NATL+6, NATL+13, FAC+4, FAC+6, TIUS+2, TIUS+5 |
| VPRI | DOCQRY+2~, DOCQRY+4*, DOCQRY+5*, DOCQRY+6 |
| VPRN | DOCQRY+2~, DOCQRY+4*, DOCQRY+5, DOCQRY+6* |
| >> VPRNATL | NATL+5 |
| VPRT | TEXT+1~, TEXT+6 |
| VPRTIU | DOC1+1!, COMP+2~ |
| VPRTIU( | TEXT+2, TEXT+5, SIGDT+2, SIGDT+3, SIGDT+4, COMP+3, COMP+4, FAC+3, FAC+8, TIUS+2 |
| VPRY | DOCQRY+2~, DOCQRY+3, DOCQRY+5, DOCQRY+7 |
| VST | COMP~, COMP+3* |
| >> WP | TEXT+6* |
| >> WP(1 | TEXT+3*, TEXT+4*, TEXT+5* |
| X | TYPE+1~, TYPE+2*, TYPE+8, TYPE+9, TIUS+1~, TIUS+4*, TIUS+5 |
| Y | TYPE+1~*, TYPE+6*, TYPE+7*, TYPE+8*, TYPE+9*, TYPE+10, SIGDT+1~*, SIGDT+2*, SIGDT+3*, SIGDT+4* , SIGDT+5, AVSTS+1~*, AVSTS+2*, AVSTS+3*, AVSTS+4, COMP+2~, COMP+5*, COMP+6 |
