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: VPREVNT

Package: Virtual Patient Record

Routine: VPREVNT


Information

VPREVNT ;SLC/MKB -- VistA event listeners ;10/25/18 15:29

Source Information

Source file <VPREVNT.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 2 ^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  
VA FileMan 2 FIND^DIC  $$GET1^DIQ  
Pharmacy Data Management 1 ($$PLACER,PLACER)^PSSUTLA1  
Registration 1 ADM^VADPT2  
Text Integration Utility 1 $$ISA^TIULX  
Virtual Patient Record 1 ($$ON,$$SUBS,$$VALID,NEW,POST,QUE)^VPRHS  

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: 17

Package Total Caller Graph
Virtual Patient Record 15 VPR APPT EVENTS  VPR DG UPDATES  VPR GMPL EVENT  VPR GMRA ERROR EVENTS  VPR GMRA EVENTS  VPR IBCN EVENTS  VPR INPT EVENTS  VPR LRAP EVENTS  
VPR NA EVENTS  VPR PCE EVENTS  VPR PCMM TEAM  VPR PCMM TEAM POSITION  VPR XQOR EVENTS  VPRHS  VPRPROC  
Kernel 1 ^ORD(101  
Text Integration Utility 1 TIUDDX  

Entry Points

Name Comments DBIA/ICR reference
DG ; -- DG FIELD MONITOR protocol listener
FLD(X) ; -- Return 1 or 0, if X is a field tracked by VPR
; via DG FIELD MONITOR
DGPM ; -- DGPM MOVEMENT EVENTS protocol listener
; [expects DFN,DGPM* variables]
NEWINPT() ; -- is DFN newly admitted?
SDAM ; -- SDAM APPOINTMENT EVENTS protocol listener
PCE ; -- PXK VISIT DATA EVENT protocol listener
PCEQ ; task?
QUE(DFN,M) ; -- begin tasking to post encounters, documents
XQOR(MSG,FD) ; -- CPRS protocol event listener
; FD = frontdoor msg from CPRS (get ORIFN for new backdoor orders)
; else = backdoor msg/ack from Pharmacy, Lab, Radiology, etc.
NMSP(IFN) ; -- Returns package namespace from pointer
ORDCONT(NMSP) ; -- Returns SDA Order container name
GMRC ; -- Referrals [from XQOR: no longer used]
RAD ; -- Radiology documents
LRAP(MSG) ; -- LR7O AP EVSEND OR protocol listener
LRD ; -- AP/MI documents [from XQOR, LRAP: expects PKGIFN]
PID() ; -- Returns patient from PID segment in current msg
PSB ; -- VPR PSB EVENTS protocol listener (BCMA)
GMRA(ACT) ; -- GMRA SIGN-OFF ON DATA protocol listener
; also GMRA ENTERED IN ERROR [ACT=@]
GMRASMT(DFN) ; -- GMRAHDR Allergy Assessment listener
GMPL(DFN,IEN) ; -- GMPL EVENT protocol listener
GMRV(DFN,IEN,ERR) ; -- Vital Measurement file #120.5 AVPR index
  • ICR #6078
    • Status: Active
    • Usage: Controlled Subscription
    MDC(OBS) ; -- MDC OBSERVATION UPDATE protocol listener [not in use]
    CP(DFN,ID,ACT) ; -- CP Transaction file #702 AVPR index
    ; via VPRPROC [not in use]
    TIU(DFN,IEN) ; -- TIU Document file #8925 AEVT index
  • ICR #6078
    • Status: Active
    • Usage: Controlled Subscription
    LR() ; -- Return ien of Lab class
    IBCN ; -- IBCN NEW INSURANCE EVENTS listener
    PCMMT ; -- SCMC PATIENT TEAM CHANGES protocol listener
    PCMMTP ; -- SCMC PATIENT TEAM POSITION CHANGES protocol listener
    DOCDEF(IEN) ; -- TIU Document Definition file #8925.1 AVPR index
  • ICR #6078
    • Status: Active
    • Usage: Controlled Subscription
    DOCITM(DAD) ; -- TIU Document Def'n Items subfile #8925.14 AVPR1 index
  • ICR #6078
    • Status: Active
    • Usage: Controlled Subscription
    USR(IEN) ; -- USR Authorization/Subscription file #8930.1 AVPR index
  • ICR #6078
    • Status: Active
    • Usage: Controlled Subscription
    XU(IEN,ACT) ; -- XU USER ADD/CHANGE/TERMINATE option listener

    External References

    Name Field # of Occurrence
    ^%ZTLOAD QUE+5
    FIND^DIC GMRC+5
    $$GET1^DIQ DGPM+15, NMSP+2, GMRC+1, GMRC+4, RAD+6, CP+3, PCMMTP+4
    $$PLACER^PSSUTLA1 PSB+5
    PLACER^PSSUTLA1 PSB+5
    $$ISA^TIULX TIU+17, TIU+18, TIU+19
    ADM^VADPT2 PCE+16
    $$ON^VPRHS DGPM+2
    $$SUBS^VPRHS DGPM+2
    $$VALID^VPRHS PCE+6, TIU+3
    NEW^VPRHS DGPM+2
    POST^VPRHS DG+7, DGPM+12, DGPM+13, DGPM+16, SDAM+8, XQOR+18, XQOR+21, XQOR+23, GMRC+2, GMRC+8
    RAD+10, LRD+8, PSB+6, GMRA+4, GMRA+6, GMRA+7, GMRASMT+2, GMPL+3, GMRV+3, MDC+5
    , CP+4, TIU+17, TIU+18, TIU+19, IBCN+1, PCMMT+3, PCMMTP+5
    QUE^VPRHS DG+5, DG+6
    $$FMADD^XLFDT QUE+2, QUE+4
    $$NOW^XLFDT PCE+13, PCE+18, QUE+2

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^GMR(123 - [#123] GET1^DIQ
    ^SCPT(404.42 - [#404.42] GET1^DIQ
    ^DGPT - [#45] GET1^DIQ
    ^MDD(702 - [#702] FIND^DIC,  GET1^DIQ
    ^RARPT - [#74] GET1^DIQ
    ^DIC(9.4 - [#9.4] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNPROB - [#9000011] GMPL+2
    ^AUPNVSIT("AAH" DGPM+10
    ^DGPM - [#405] DGPM+8
    ^DPT - [#2] NEWINPT+2, LRD+4
    ^GMR(120.8 - [#120.8] GMRA+9
    ^GMR(120.86 - [#120.86] GMRA+6, GMRASMT+1
    ^LR - [#63] LRD+5, LRD+6
    ^OR(100 - [#100] XQOR+14, XQOR+15, XQOR+16, XQOR+20, NMSP+1
    ^PSB(53.79 - [#53.79] PSB+3
    ^RADPT - [#70] RAD+5
    ^RADPT("AO" RAD+2, RAD+4
    ^TIU(8925.1 - [#8925.1] LR+1, LR+2
    ^TMP("PXKCO" PCE+3, PCE+4, PCE+21, PCE+22
    ^VPR(1 PCE+1
    ^XTMP("VPRPX" PCE+8, QUE+4*, TIU+11

    Label References

    Name Line Occurrences
    $$FLD DG+6
    $$NEWINPT DGPM+2
    $$NMSP XQOR+17
    $$ORDCONT XQOR+17
    $$PID XQOR+5, LRAP+3
    LRD XQOR+26, LRAP+8
    QUE PCEQ+1, TIU+14
    RAD XQOR+25

    Naked Globals

    Name Field # of Occurrence
    ^( PSB+3
    ^("BEFORE" PCE+4
    ^(0 LR+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACT SDAM+2~, SDAM+6*, SDAM+8, PCE+2~, PCE+22*, PCE+23, XQOR+3~, XQOR+12*, XQOR+18, RAD+1~
    RAD+6*, RAD+7*, RAD+10, GMRA~, GMRA+6, GMRA+7, GMRASMT+1~*, GMRASMT+2, GMPL+2~*, GMPL+3
    , GMRV+2~*, GMRV+3, MDC+1~, MDC+4*, MDC+5, CP~, CP+4, TIU+1~, TIU+2*, TIU+8*
    , TIU+9*, TIU+13, TIU+18, TIU+19, XU~
    ADM DGPM+3~*, DGPM+4*, DGPM+8, DGPM+13
    ADM0 DGPM+7~, DGPM+8*, DGPM+14
    DA PCE+2~, PCE+21*, PCE+22, PCE+23
    DAD TIU+1~, TIU+4*, TIU+7, DOCITM~
    DATE SDAM+2~, SDAM+5*, SDAM+8
    DFN DG+3~*, DG+5, DG+6, DG+7, DGPM+2, DGPM+10, DGPM+12, DGPM+13, DGPM+16, NEWINPT+2
    SDAM+2~, SDAM+3*, SDAM+8, PCE+2~, PCE+5*, PCE+6, PCE+8, PCEQ+1, QUE~, QUE+4
    , XQOR+3~, XQOR+5*, XQOR+18, XQOR+21, XQOR+23, GMRC+2, GMRC+8, RAD+2, RAD+4, RAD+5
    RAD+10, LRAP+1~, LRAP+3*, LRD+4, LRD+8, PSB+1~, PSB+3*, PSB+4, PSB+5, PSB+6
    , GMRA+2~, GMRA+3*, GMRA+4, GMRA+6, GMRA+7, GMRA+9, GMRASMT~, GMRASMT+1, GMRASMT+2, GMPL~
    , GMPL+1*, GMPL+3, GMRV~, GMRV+1*, GMRV+3, MDC+1~, MDC+2*, MDC+5, CP~, CP+2*
    , CP+4, TIU~, TIU+2*, TIU+3, TIU+11, TIU+14, TIU+17, TIU+18, TIU+19, IBCN+1
    PCMMT+2~*, PCMMT+3, PCMMTP+2~, PCMMTP+4*, PCMMTP+5
    >> DGDA DG+3
    >> DGFIELD DG+6
    >> DGFILE DG+1
    >> DGPMA DGPM+4, DGPM+12, NEWINPT+2
    >> DGPMDA DGPM+3, NEWINPT+2
    >> DGPMP DGPM+4, NEWINPT+2
    >> DGPMT DGPM+4, DGPM+12, NEWINPT+2
    DT QUE+4
    DXLS DGPM+7~, DGPM+15*, DGPM+16
    ERR GMRV~, GMRV+2
    FD XQOR~, XQOR+11
    >> GMRAPA GMRA+3
    >> GMRAPA(0 GMRA+3
    HLOC SDAM+2~, SDAM+5*
    I GMRC+6*, GMRC+7, RAD+1~, RAD+2*, RAD+4*, RAD+5, RAD+8, PID+1~*, PID+2*, PID+3
    , GMRA+2~, GMRA+8*, GMRA+9*
    ID PCE+17*, PCE+18, GMRC+5~, GMRC+7*, GMRC+8, MDC+1~, MDC+3*, MDC+5, CP~, CP+2*
    , CP+3, CP+4
    IDT RAD+1~, RAD+2*, RAD+4, RAD+5, RAD+8, LRD+1~, LRD+2*, LRD+3, LRD+5, LRD+6
    LRD+7
    IEN PSB+1~, PSB+2*, PSB+3, GMRA+2~, GMRA+3*, GMRA+4, GMRA+9, GMPL~, GMPL+1*, GMPL+2
    , GMPL+3, GMRV~, GMRV+1*, GMRV+3, TIU~, TIU+2*, TIU+7*, TIU+13, TIU+17, TIU+18
    , TIU+19, DOCDEF~, USR~, XU~
    IFN NMSP~, NMSP+1
    LRDFN LRD+1~, LRD+4*, LRD+5, LRD+6, LRD+7
    M QUE~, QUE+2
    MSG XQOR~, XQOR+4, LRAP~, LRAP+2
    NEW GMRA+2~, GMRA+7, GMRA+8*, GMRA+9*
    NMSP ORDCONT~, ORDCONT+1*, ORDCONT+2, ORDCONT+3, ORDCONT+4
    OBS MDC~
    OBS("OBS_ID" MDC+3
    OBS("PATIENT_ID" MDC+2
    OBS("STATUS" MDC+4
    ORC XQOR+3~, XQOR+6*, XQOR+8*, XQOR+14, LRAP+1~, LRAP+4*, LRAP+6*, LRAP+7
    ORDCNTRL XQOR+7~, XQOR+8*, XQOR+10, XQOR+11, XQOR+12, XQOR+24, GMRC+4, LRAP+5~, LRAP+6*, LRAP+7
    ORIFN XQOR+7~, XQOR+14*, XQOR+15, XQOR+16, XQOR+17, XQOR+18, XQOR+19, XQOR+20, PSB+1~, PSB+5*
    PSB+6
    ORIG XQOR+20~*, XQOR+21
    ORPK PSB+1~, PSB+3*, PSB+4, PSB+5
    PKGIFN XQOR+7~, XQOR+14*, XQOR+23, GMRC+1, GMRC+2, GMRC+4, GMRC+5, RAD+2, RAD+4, LRAP+5~
    , LRAP+7*, LRD+2
    >> PSBIEN PSB+2
    >> PSBIEN(1 PSB+2
    PTF DGPM+7~, DGPM+14*, DGPM+15, DGPM+16
    PX0A PCE+2~, PCE+4*, PCE+5, PCE+11, PCE+13, PCE+14, PCE+15, PCE+16
    PX0B PCE+2~, PCE+4*, PCE+5
    RPT RAD+1~
    RPT( RAD+8*, RAD+10
    >> SCPCTM PCMMT+1
    >> SCPCTP PCMMTP+1
    >> SCPTTMAF PCMMT+2
    >> SCPTTMB4 PCMMT+2
    >> SCPTTPAF PCMMTP+3
    >> SCPTTPB4 PCMMTP+3
    >> SDAMEVT SDAM+4
    >> SDATA SDAM+1, SDAM+3, SDAM+5
    >> SDATA("AFTER" SDAM+6
    SEG PID+1~, PID+2*
    STS XQOR+7~, XQOR+16*, RAD+1~, RAD+6*, RAD+7, TIU+1~, TIU+4*, TIU+5, TIU+6, TIU+8
    SUB PCE+2~, PCE+20*, PCE+21, PCE+22, PCE+23, LRD+1~, LRD+2*, LRD+3, LRD+5, LRD+6
    LRD+7
    TM PCMMTP+2~, PCMMTP+3*, PCMMTP+4
    U DG+2, FLD+2, DGPM+4, DGPM+14, DGPM+16, SDAM+3, SDAM+5, PCE+1, PCE+5, PCE+13
    PCE+15, PCE+18, QUE+4, XQOR+8, XQOR+14, XQOR+16, XQOR+20, NMSP+1, RAD+5, LRAP+6
    , LRAP+7, LRD+6, PSB+3, GMRA+6, GMRASMT+1, GMPL+2, LR+2
    VADMVT PCE+2~, PCE+17
    VAINDT DGPM+7~, DGPM+9*, DGPM+10, PCE+16~*
    VPRC GMRC+5~
    VPRC("DILIST" GMRC+6, GMRC+7
    VPRFN DG+1~*, DG+2, DG+6
    VPRI DGPM+7~, DGPM+10*, DGPM+12, DGPM+13, DGPM+16
    VPRMSG XQOR+3~, XQOR+4*, XQOR+6, XQOR+8, LRAP+1~, LRAP+2*, LRAP+4, LRAP+6, PID+2, PID+3
    VPRPKG XQOR+3~, XQOR+17*, XQOR+23, XQOR+25, XQOR+26
    VPRPX PCE+8*, PCE+9, PCE+11, PCE+13, PCE+18, PCE+23, PCEQ+1, PCEQ+2, TIU+1~, TIU+11*
    , TIU+12, TIU+13, TIU+14, TIU+15
    VPRSDA XQOR+3~, XQOR+17*, XQOR+18, XQOR+21
    VST PCE+2~, PCE+3*, PCE+4, PCE+11, PCE+13, PCE+17, PCE+18, PCE+21, PCE+22, PCE+23
    GMRC+1~*, GMRC+2, GMRC+8, CP+3~*, CP+4
    X FLD~, FLD+2*, FLD+3, FLD+4, FLD+5, FLD+6, FLD+7, FLD+8, DGPM+7~, DGPM+8*
    DGPM+9, PCE+2~, NMSP+1~*, NMSP+2, RAD+1~, RAD+5*, RAD+6, RAD+8, RAD+10*, LRD+1~
    LRD+7*, LRD+8
    X(2 TIU+4
    X(3 TIU+4
    >> X2(1 TIU+9
    Y NEWINPT+1~*, NEWINPT+2*, NEWINPT+3, NMSP+1~, NMSP+2*, NMSP+3, PID+1~, PID+3*, PID+5, LR+1~*
    , LR+2*, LR+3
    ZTCPU QUE+1~
    ZTDESC QUE+1~, QUE+3*
    ZTDTH QUE+1~, QUE+2*
    ZTIO QUE+1~, QUE+3*
    ZTKIL QUE+1~
    ZTPRI QUE+1~
    ZTRTN QUE+1~, QUE+2*
    ZTSAVE QUE+1~
    ZTSAVE("DFN" QUE+3*
    ZTSK QUE+1~
    ZTSYNC QUE+1~
    ZTUCI QUE+1~

    Marked Items

    Name Field # of Occurrence
    $T(PLACER^PSSUTLA1 PSB+5
    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