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

Package Total Call Graph
Virtual Patient Record 4 (PX,TIU)^VPRENC  ($$ON,$$SUBS,$$VALID,NEW,POST,QUE)^VPRHS  $$MI1^VPRSDAB  $$VNUM^VPRSDAV  
VA FileMan 2 ($$FIND1,FIND)^DIC  $$GET1^DIQ  
Pharmacy Data Management 1 ($$PLACER,PLACER)^PSSUTLA1  

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

Package Total Caller Graph
Virtual Patient Record 17 VPR APPT EVENTS  VPR DG UPDATES  VPR DGS EVENTS  VPR GMPL EVENT  VPR GMRA ASSESSMENT  VPR GMRA ERROR EVENTS  VPR GMRA EVENTS  VPR IBCN EVENTS  
VPR INPT EVENTS  VPR LRAP EVENTS  VPR NA EVENTS  VPR PCMM TEAM  VPR PCMM TEAM POSITION  VPR PREGNANCY EVENT  VPR PTF EVENTS  VPR XQOR EVENTS  
VPRPROC  
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?
PTF ; -- DG PTF ICD DIAGNOSIS NOTIFIER protocol listener
DGS ; -- DG SA FILE ENTRY NOTIFIER protocol listener
SDAM ; -- SDAM APPOINTMENT EVENTS protocol listener
PCE ; -- PXK VISIT DATA EVENT protocol listener
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 ; -- PSB EVSEND VPR protocol listener (BCMA)
GMRA(ACT) ; -- GMRA SIGN-OFF ON DATA protocol listener
; also GMRA ENTERED IN ERROR [ACT=@]
GMRASMT(DFN) ; -- GMRA ASSESSMENT CHANGE 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
    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
    WV ; -- WV PREGNANCY STATUS CHANGE EVENT 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
    $$FIND1^DIC PTF+6
    FIND^DIC GMRC+5
    $$GET1^DIQ NMSP+2, GMRC+1, GMRC+4, RAD+6, CP+3, PCMMTP+4
    $$PLACER^PSSUTLA1 PSB+5
    PLACER^PSSUTLA1 PSB+5
    PX^VPRENC PCE+1
    TIU^VPRENC TIU+7
    $$ON^VPRHS DGPM+2
    $$SUBS^VPRHS DGPM+2
    $$VALID^VPRHS DGPM+2
    NEW^VPRHS DGPM+2
    POST^VPRHS DG+7, DGPM+11, PTF+7, DGS+7, SDAM+7, XQOR+20, XQOR+22, GMRC+2, GMRC+8, RAD+10
    LRD+10, PSB+6, GMRA+4, GMRA+7, GMRA+8, GMRASMT+2, GMPL+3, GMRV+3, MDC+5, CP+4
    IBCN+1, WV+7, WV+10, WV+14
    QUE^VPRHS DG+5, DG+6, PCMMT+3, PCMMTP+5
    $$MI1^VPRSDAB LRD+6
    $$VNUM^VPRSDAV PTF+6

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^GMR(123 - [#123] GET1^DIQ
    ^SCPT(404.42 - [#404.42] GET1^DIQ
    ^DGPM - [#405] FIND1^DIC
    ^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+6
    ^DGS(41.1 - [#41.1] DGS+6
    ^DPT - [#2] NEWINPT+2, LRD+4
    ^GMR(120.8 - [#120.8] GMRA+10
    ^GMR(120.86 - [#120.86] GMRA+7, GMRASMT+1
    ^LR - [#63] LRD+7
    ^OR(100 - [#100] XQOR+15, XQOR+16, 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("DG PTF ICD NOTIFIER" PTF+2, PTF+3, PTF+4, PTF+5
    ^TMP("DG SA FILE ENTRY NOTIFIER" DGS+2, DGS+3, DGS+4, DGS+5, DGS+6
    ^TMP("WVPREGST" WV+2

    Label References

    Name Line Occurrences
    $$FLD DG+6
    $$NEWINPT DGPM+2
    $$NMSP XQOR+19
    $$ORDCONT XQOR+19
    $$PID XQOR+5, LRAP+3
    LRD XQOR+25, LRAP+8
    RAD XQOR+24

    Naked Globals

    Name Field # of Occurrence
    ^( PSB+3
    ^(0 LR+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACT PTF+1~, PTF+5*, DGS+1~*, DGS+5*, DGS+6*, DGS+7, SDAM+1~, SDAM+6*, SDAM+7, XQOR+3~
    , XQOR+17*, XQOR+20, RAD+1~, RAD+6*, RAD+7*, RAD+10, GMRA~, GMRA+7, GMRA+8, GMRASMT+1~*
    , GMRASMT+2, GMPL+2~*, GMPL+3, GMRV+2~*, GMRV+3, MDC+1~, MDC+4*, MDC+5, CP~, CP+4
    , XU~
    ADM DGPM+3~, DGPM+5*, DGPM+6*, DGPM+9, DGPM+11, PTF+1~, PTF+6*
    ADM0 DGPM+3~, DGPM+5*, DGPM+6*, DGPM+9
    DAD TIU+1~, TIU+3*, TIU+6, DOCITM~
    DATE SDAM+1~, SDAM+6*, SDAM+7
    DFN DG+3~*, DG+5, DG+6, DG+7, DGPM+2, DGPM+10, DGPM+11, NEWINPT+2, PTF+1~, PTF+2*
    PTF+7, DGS+1~, DGS+3*, DGS+4*, DGS+7, SDAM+1~, SDAM+5*, SDAM+7, XQOR+3~, XQOR+5*
    , XQOR+20, XQOR+22, GMRC+2, GMRC+8, RAD+2, RAD+4, RAD+5, RAD+10, LRAP+1~, LRAP+3*
    LRD+4, LRD+10, PSB+1~, PSB+3*, PSB+4, PSB+5, PSB+6, GMRA+2~, GMRA+3*, GMRA+4
    , GMRA+7, GMRA+8, GMRA+10, 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*
    IBCN+1, PCMMT+2~*, PCMMT+3, PCMMTP+2~, PCMMTP+4*, PCMMTP+5
    >> DGDA DG+3
    >> DGFIELD DG+6
    >> DGFILE DG+1
    >> DGPMA DGPM+5, DGPM+6, NEWINPT+2
    >> DGPMDA DGPM+5, NEWINPT+2
    >> DGPMP NEWINPT+2
    >> DGPMT DGPM+5, DGPM+6, NEWINPT+2
    ERR GMRV~, GMRV+2
    FD XQOR~, XQOR+11
    >> GMRAPA GMRA+3
    >> GMRAPA(0 GMRA+3
    I GMRC+6*, GMRC+7, RAD+1~, RAD+2*, RAD+4*, RAD+5, RAD+8, PID+1~*, PID+2*, PID+3
    , GMRA+2~, GMRA+9*, GMRA+10*
    ID 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+6, LRD+7
    LRD+9
    IEN PTF+1~, PTF+3*, PTF+6, PTF+7, DGS+1~, DGS+2*, DGS+6, DGS+7, PSB+1~, PSB+2*
    PSB+3, GMRA+2~, GMRA+3*, GMRA+4, GMRA+10, GMPL~, GMPL+1*, GMPL+2, GMPL+3, GMRV~
    , GMRV+1*, GMRV+3, TIU~, TIU+2*, TIU+6*, TIU+7, DOCDEF~, USR~, XU~
    IFN NMSP~, NMSP+1
    LRDFN LRD+1~, LRD+4*, LRD+6, LRD+7, LRD+9
    MSG XQOR~, XQOR+4, LRAP~, LRAP+2
    NEW GMRA+2~, GMRA+8, GMRA+9*, GMRA+10*
    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+13, XQOR+14, LRAP+1~, LRAP+4*, LRAP+6*, LRAP+7
    ORDCNTRL XQOR+7~, XQOR+8*, XQOR+10, XQOR+11, XQOR+17, XQOR+23, GMRC+4, LRAP+5~, LRAP+6*, LRAP+7
    ORIFN XQOR+7~, XQOR+13*, XQOR+15, XQOR+16, XQOR+18, XQOR+19, XQOR+20, PSB+1~, PSB+5*, PSB+6
    ORIG XQOR+7~
    ORPK PSB+1~, PSB+3*, PSB+4, PSB+5
    PKGIFN XQOR+7~, XQOR+13*, XQOR+22, 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
    RPT RAD+1~
    RPT( RAD+8*, RAD+10
    >> SCPTTMAF PCMMT+2
    >> SCPTTMB4 PCMMT+2
    >> SCPTTPAF PCMMTP+3
    >> SCPTTPB4 PCMMTP+3
    >> SDAMEVT SDAM+2, SDAM+6
    >> SDATA SDAM+1, SDAM+5, SDAM+6
    >> SDATA("AFTER" SDAM+4
    >> SDATA("BEFORE" SDAM+4
    SEG PID+1~, PID+2*
    STS XQOR+7~, XQOR+16*, XQOR+17, RAD+1~, RAD+6*, RAD+7, TIU+1~, TIU+3*, TIU+4, TIU+5
    SUB LRD+1~, LRD+2*, LRD+3, LRD+6, LRD+7, LRD+9
    TM PCMMTP+2~, PCMMTP+3*, PCMMTP+4
    U DG+2, FLD+2, DGPM+6, DGS+6, SDAM+5, SDAM+6, XQOR+8, XQOR+13, XQOR+14, XQOR+16
    , NMSP+1, RAD+5, LRAP+6, LRAP+7, LRD+7, PSB+3, GMRA+7, GMRASMT+1, GMPL+2, LR+2
    VAINDT DGPM+3~, DGPM+9*, DGPM+10
    VPRC GMRC+5~
    VPRC("DILIST" GMRC+6, GMRC+7
    VPRDFN WV+1~, WV+4*, WV+5, WV+7, WV+8, WV+10, WV+14
    VPRFLAG WV+1~, WV+12*, WV+13*, WV+14
    VPRFLD WV+1~, WV+13*
    VPRFN DG+1~*, DG+2, DG+6
    VPRI DGPM+3~, DGPM+10*, DGPM+11
    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+14*, XQOR+19*, XQOR+22, XQOR+24, XQOR+25
    VPRPREG WV+1~, WV+2*, WV+3
    VPRPREG("AFTER" WV+4, WV+10, WV+13
    VPRPREG("BEFORE" WV+7, WV+8, WV+10, WV+13
    VPRSDA XQOR+3~, XQOR+19*, XQOR+20
    VST PTF+1~, PTF+6*, PTF+7, 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+3~, DGPM+9*
    , NMSP+1~*, NMSP+2, RAD+1~, RAD+5*, RAD+6, RAD+8, RAD+10*, LRD+1~, LRD+9*, LRD+10
    X(2 TIU+3
    X(3 TIU+3
    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

    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