Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: VPRSDAL

Package: Virtual Patient Record

Routine: VPRSDAL


Information

VPRSDAL ;SLC/MKB -- SDA Allergy utilities ;10/25/18 15:29

Source Information

Source file <VPRSDAL.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Adverse Reaction Tracking 2 (EN1,EN2)^GMRADPT  (EN1,EN2)^GMRAOR2  
VA FileMan 2 $$EXTERNAL^DILFD  $$GET1^DIQ  
Virtual Patient Record 2 ($$STRING,$$VUID)^VPRD  $$CODE^VPRSDA  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
VA FileMan 2 ^DDE  ITEM  

Entry Points

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

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD CMTS+6
$$GET1^DIQ ALG1+4, ALLERGEN+5
EN1^GMRADPT QRY+6, ALG1+7
EN2^GMRADPT QRY+5, ALG1+6
EN1^GMRAOR2 ALG1+11
EN2^GMRAOR2 ALG1+10
$$STRING^VPRD CMT1+4, CMTS+7
$$VUID^VPRD ALLERGEN+7, REACTN+7
$$CODE^VPRSDA ALLERGEN+4, REACTN+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.8 - [#120.8] GET1^DIQ
120.826 EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.8 - [#120.8] QRY+7, QRY+9, ALG1+2, CMT1+3, CMT1+4, CMTS+4, CMTS+7
^GMR(120.86 - [#120.86] ASSESS+3

Label References

Name Line Occurrences
$$SNOMED SEVRTY+8

Naked Globals

Name Field # of Occurrence
^( CMTS+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CSYS ALLERGEN+1~, ALLERGEN+3*, ALLERGEN+4
>> DDEOUT ALG1+2*
DFN QRY+7, QRY+9, ALG1+4~*, ASSESS+2*, ASSESS+3, ASSESS+4
>> DLIST( QRY+9*, QRY+10*, CMTS+8*
>> DLIST(1 ASSESS+4*
>> DMAX QRY+10
ERR QRY+2~, QRY+3*, QRY+4, QRY+7
>> FILTER("status" QRY+3
FN ALLERGEN+1~, ALLERGEN+2*, ALLERGEN+4, ALLERGEN+5, ALLERGEN+7, ALLERGEN+8
GMRA QRY+2~, QRY+4*, ALG1+1~, ALG1+5*
>> GMRAL QRY+7, ALG1+3
>> GMRAL( QRY+10, ALG1+8
>> GMRAY("H" SEVRTY+3, EVTDT+1
>> GMRAY("O" SEVRTY+5, EVTDT+5
I CMT1+1~, CMT1+3*, CMT1+4, CMTS+3~, CMTS+4*, CMTS+7, CMTS+8, SEVRTY+1~, SEVRTY+2*, SEVRTY+5*
, EVTDT+2~, EVTDT+3*, EVTDT+5*
ID QRY+2~, QRY+8*, QRY+9*, QRY+10*, ASSESS+2
IEN ALG1~, ALG1+2, ALG1+4, ALG1+8, ALG1+10, ALG1+11, CMT1~, CMT1+2*, CMT1+3, CMT1+4
, CMTS~, CMTS+3*, CMTS+4, CMTS+7, CMTS+8, SEVRTY~, EVTDT~, REACTN~, REACTN+5*, REACTN+6
, REACTN+7
NAME ALLERGEN+5~*, ALLERGEN+7, ALLERGEN+8
RDT EVTDT+2~, EVTDT+3*, EVTDT+5*, EVTDT+6
SEV SEVRTY+1~, SEVRTY+2*, SEVRTY+3*, SEVRTY+6*, SEVRTY+7*, SEVRTY+8, SNOMED~, SNOMED+1*, SNOMED+3, SNOMED+4
TXT CMT1+1~, CMT1+4*, CMTS+3~, CMTS+7*
TYPE ALLERGEN+1~, ALLERGEN+2*, ALLERGEN+3, CMT1~, CMT1+2*, CMT1+3
U ALLERGEN+2, ALLERGEN+7, ALLERGEN+8, CMTS+5, CMTS+6, CMTS+8, SEVRTY+3, SEVRTY+5, SNOMED+3, SNOMED+4
, EVTDT+1, EVTDT+5, REACTN+5, REACTN+6, REACTN+7, ASSESS+3
>> VASITE CMTS+8
VPRALG ALG1+1!, ALG1+8*, ALG1+9*, ALLERGEN+2
>> VPRDT REACTN+5*
>> VPREACTN REACTN+5*, REACTN+6, REACTN+7, REACTN+8*
VPRN QRY+2~, QRY+4*, QRY+9*, QRY+10*
VPRNAME REACTN+4!, REACTN+6*
VPTR ALLERGEN~, ALLERGEN+1*, ALLERGEN+2, ALLERGEN+4, ALLERGEN+5, ALLERGEN+7, ALLERGEN+8
X QRY+2~, QRY+3*, CMTS+3~, CMTS+4*, CMTS+5, CMTS+6*, CMTS+8, SEVRTY+1~, SEVRTY+5*, SEVRTY+6
, SEVRTY+7, SNOMED+1~*, SNOMED+2, EVTDT+2~, EVTDT+5*
Y ALLERGEN+1~, ALLERGEN+4*, ALLERGEN+7*, ALLERGEN+8*, ALLERGEN+9, CMT1+1~, CMT1+3*, CMT1+4*, CMT1+5, CMTS+3~
, CMTS+7*, CMTS+8, SEVRTY+1~, SEVRTY+2*, SEVRTY+8*, SEVRTY+9, SNOMED+1~, SNOMED+2*, SNOMED+3*, SNOMED+4*
, SNOMED+5, EVTDT+1*, EVTDT+2~, EVTDT+3*, EVTDT+6*, EVTDT+7, REACTN+4~*, REACTN+6*, REACTN+7*, REACTN+8

Marked Items

Name Field # of Occurrence
$T(EN2^GMRADPT QRY+5, ALG1+6
$T(EN2^GMRAOR2 ALG1+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All