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 |  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
ALG1(IEN) ; -- return info for single allergy in VPRALG & GMRAY arrays
ALLERGEN(VPTR) ; -- return code^name^system for Allergen
ALGCMT1(IEN,TYPE) ; -- return TYPE comment
ALGCMT(IEN) ; -- return list of comments in
; DLIST(#) = id ^ date ^ user ^ type ^ facility ^ text
; expects VASITE (read only) from Entity
ALGSEV(IEN) ; -- return overall Allergy Severity
ALGDT(IEN) ; -- return first D/T of Event
ALGSIGN(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 ALGCMT+6
$$GET1^DIQ ALG1+4, ALLERGEN+5
EN1^GMRADPT ALG1+7, ASSESS+4
EN2^GMRADPT ALG1+6
EN1^GMRAOR2 ALG1+11
EN2^GMRAOR2 ALG1+10
$$STRING^VPRD ALGCMT1+4, ALGCMT+7
$$VUID^VPRD ALLERGEN+7, ALGSIGN+7
$$CODE^VPRSDA ALLERGEN+4, ALGSIGN+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] ALG1+2, ALGCMT1+3, ALGCMT1+4, ALGCMT+4, ALGCMT+7

Naked Globals

Name Field # of Occurrence
^( ALGCMT+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 ALG1+4~*, ASSESS+2*, ASSESS+3, ASSESS+5
>> DLIST( ALGCMT+8*
>> DLIST(1 ASSESS+5*
FN ALLERGEN+1~, ALLERGEN+2*, ALLERGEN+4, ALLERGEN+5, ALLERGEN+7, ALLERGEN+8
GMRA ALG1+1~, ALG1+5*
GMRAL ALG1+3, ASSESS+4!, ASSESS+5
GMRAL( ALG1+8
>> GMRAY("H" ALGSEV+3, ALGDT+1
>> GMRAY("O" ALGSEV+5, ALGDT+5
I ALGCMT1+1~, ALGCMT1+3*, ALGCMT1+4, ALGCMT+3~, ALGCMT+4*, ALGCMT+7, ALGCMT+8, ALGSEV+1~, ALGSEV+2*, ALGSEV+5*
, ALGDT+2~, ALGDT+3*, ALGDT+5*
>> ID ASSESS+2
IEN ALG1~, ALG1+2, ALG1+4, ALG1+8, ALG1+10, ALG1+11, ALGCMT1~, ALGCMT1+2*, ALGCMT1+3, ALGCMT1+4
, ALGCMT~, ALGCMT+3*, ALGCMT+4, ALGCMT+7, ALGCMT+8, ALGSEV~, ALGDT~, ALGSIGN~, ALGSIGN+5*, ALGSIGN+6
, ALGSIGN+7
NAME ALLERGEN+5~*, ALLERGEN+7, ALLERGEN+8
RDT ALGDT+2~, ALGDT+3*, ALGDT+5*, ALGDT+6
SEV ALGSEV+1~, ALGSEV+2*, ALGSEV+3*, ALGSEV+5*, ALGSEV+6, ALGSEV+7, ALGSEV+8, ALGSEV+9
TXT ALGCMT1+1~, ALGCMT1+4*, ALGCMT+3~, ALGCMT+7*
TYPE ALLERGEN+1~, ALLERGEN+2*, ALLERGEN+3, ALGCMT1~, ALGCMT1+2*, ALGCMT1+3
U ALLERGEN+2, ALLERGEN+7, ALLERGEN+8, ALGCMT+5, ALGCMT+6, ALGCMT+8, ALGSEV+3, ALGSEV+5, ALGSEV+8, ALGSEV+9
, ALGDT+1, ALGDT+5, ALGSIGN+5, ALGSIGN+6, ALGSIGN+7
>> VASITE ALGCMT+8
VPRALG ALG1+1!, ALG1+8*, ALG1+9*, ALLERGEN+2
>> VPRDT ALGSIGN+5*
>> VPREACTN ALGSIGN+5*, ALGSIGN+6, ALGSIGN+7, ALGSIGN+8*
VPRNAME ALGSIGN+4!, ALGSIGN+6*
VPTR ALLERGEN~, ALLERGEN+1*, ALLERGEN+2, ALLERGEN+4, ALLERGEN+5, ALLERGEN+7, ALLERGEN+8
X ALGCMT+3~, ALGCMT+4*, ALGCMT+5, ALGCMT+6*, ALGCMT+8, ALGSEV+1~, ALGSEV+5*, ALGSEV+7*, ALGDT+2~, ALGDT+5*
Y ALLERGEN+1~, ALLERGEN+4*, ALLERGEN+7*, ALLERGEN+8*, ALLERGEN+9, ALGCMT1+1~, ALGCMT1+3*, ALGCMT1+4*, ALGCMT1+5, ALGCMT+3~
, ALGCMT+7*, ALGCMT+8, ALGSEV+1~, ALGSEV+2*, ALGSEV+7*, ALGSEV+8*, ALGSEV+9*, ALGSEV+10, ALGDT+1*, ALGDT+2~
, ALGDT+3*, ALGDT+6*, ALGDT+7, ALGSIGN+4~*, ALGSIGN+6*, ALGSIGN+7*, ALGSIGN+8

Marked Items

Name Field # of Occurrence
$T(EN2^GMRADPT 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 |  Naked Globals |  Local Variables |  Marked Items  | All