VPRSDAC ;SLC/MKB -- SDA Consult/CP utilities ;10/25/18 15:29
Source file <VPRSDAC.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QRY | ; -- Consult/Request Tracking query
; Expects DSTRT, DSTOP, DMAX from DDEGET and returns DLIST(#)=ien |
|
| GMRC1(IEN) | ; -- Referral ID Action
|
|
| CONSNAME(IEN) | ; -- return display name using fields
; Request Type (#13), To Service (#1) & Procedure/Request Type (#4) |
|
| PROVDX(IEN) | ; -- return full Consult ProvDx string, or null/DDEOUT
|
|
| PDXQ | ;exit
|
|
| PDTXT | ; -- return ProvDx free text
|
|
| DOCS | ; - get related documents, returns DLIST(#)=8925 ien
|
|
| DISS() | ; -- return 1 or 0, if result removed
|
|
| GETACT(IEN) | ; -- return DLIST(DA)='DA,IEN' of activity log entries
|
|
| CPQRY | ; -- Clinical Procedures query [not in use]
; Expects DSTRT, DSTOP, DMAX from DDEGET and returns DLIST(#)=ien |
|
| CP1(IEN) | ; -- get MD nodes for procedure [ID Action]
; VPRCP = ^TMP("MDHSP",$J,I) ; VPRCN = ^GMR(123,consult,0) ; VPRTIU(field#,"I") = TIU data field |
| FileNo | Call Tags |
|---|---|
| ^ORD(101 - [#101] | GET1^DIQ |
| ^MDD(702 - [#702] | GET1^DIQ |
