VPRSDAL ;SLC/MKB -- SDA Allergy utilities ;10/25/18 15:29
Source file <VPRSDAL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QRY | ; -- Allergies/Adverse Reactions query
; Expects DSTRT, DSTOP, DMAX from DDEGET and returns DLIST(#)=ien |
|
| ALG1(IEN) | ; -- return info for single allergy in VPRALG & GMRAY arrays
|
|
| ALLERGEN(VPTR) | ; -- return code^name^system for Allergen
|
|
| CMT1(IEN,TYPE) | ; -- return TYPE comment
|
|
| CMTS(IEN) | ; -- return list of comments in
; DLIST(#) = id ^ date ^ user ^ type ^ facility ^ text ; expects VASITE (read only) from Entity |
|
| SEVRTY(IEN) | ; -- return overall Allergy Severity
|
|
| SNOMED(SEV) | ; -- return SEVerity name as coded element
|
|
| EVTDT(IEN) | ; -- return first D/T of Event
|
|
| REACTN(IEN) | ; -- convert ien^name[^date] to national code for Sign/Symptom
; Returns +IEN, VPRDT=date [for extension], ; VPREACTN=code^name^system [SNOMED or VUID], ; VPRNAME =local name [Original Text] |
|
| ASSESS | ; -- get Assessment #120.86 for patient
; expects ID (read only) from Entity |
| FileNo | Call Tags |
|---|---|
| ^GMR(120.8 - [#120.8] | GET1^DIQ |
| 120.826 | EXTERNAL^DILFD |
