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

Package Total Call Graph
Virtual Patient Record 3 (SAVST,TIU)^VPRENC  ($$ON,$$SUBS,$$VALID,NEW,POST,QUE)^VPRHS  $$VNUM^VPRSDAV  
Kernel 2 ^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  
VA FileMan 1 $$GET1^DIQ  

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 14 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 PCMM TEAM  VPR PCMM TEAM POSITION  VPR PREGNANCY EVENT  VPR TIU RETRACT  VPRPROC  
Text Integration Utility 2 TIUDDX  ^TIU(8925.7  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
DG ; -- DG FIELD MONITOR protocol listener
; [expects variables DGDA, DGFIELD, DGFILE]
FLD(X) ; -- Return 1 or 0, if X is a field tracked by VPR
; via DG FIELD MONITOR
NEWINPT() ; -- is DFN newly admitted?
DGPM ; -- DGPM MOVEMENT EVENTS protocol listener
; [expects DFN,DGPM* variables]
CKVST ; -- delete visit if unused [from DGPM]
DGS ; -- DG SA FILE ENTRY NOTIFIER protocol listener
SDAM ; -- SDAM APPOINTMENT EVENTS protocol listener
; [expects variables SDATA, SDAMEVT]
GMRA(ACT) ; -- GMRA SIGN-OFF ON DATA protocol listener
; also GMRA ENTERED IN ERROR [ACT=@]
; [expects GMRAPA variables]
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
    CP(DFN,ID,ACT) ; -- CP Transaction file #702 AVPR index
    TIU(DFN,IEN) ; -- TIU Document file #8925 AEVT index
    ; [expects X, X1, X2 arrays from FM]
  • ICR #6078
    • Status: Active
    • Usage: Controlled Subscription
    TIUR ; -- TIU DOCUMENT ACTION EVENT listener (removing notes)
    TRQ ; remove document from old patient/visit
    TIUS(IEN) ; -- TIU MULTIPLE SIGNATURE file #8925.7 AVPR index
    IBCN ; -- IBCN NEW INSURANCE EVENTS listener
    ; expects IBCDFN, IBEVTACT="ADD","EDT", or "DEL"
    IBDIFF() ; -- return 1 or 0, if key matching values changed
    IBTASK ; -- tasked update
    PCMMT ; -- SCMC PATIENT TEAM CHANGES protocol listener
    ; [expects SCPTTM* variables]
    PCMMTP ; -- SCMC PATIENT TEAM POSITION CHANGES protocol listener
    ; [expects SCPTTP* variables]
    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
    ^%ZTLOAD IBCN+14
    $$GET1^DIQ CP+3, TIUR+6, TIUR+8, TIUR+14, TRQ+5, TRQ+7, TIUS+4, TIUS+5, PCMMTP+5
    SAVST^VPRENC CKVST+7
    TIU^VPRENC TIU+10, TIUR+14
    $$ON^VPRHS DGPM+2
    $$SUBS^VPRHS DGPM+2
    $$VALID^VPRHS DGPM+2
    NEW^VPRHS DGPM+2
    POST^VPRHS DG+8, DGPM+8, DGPM+14, CKVST+6, DGS+7, SDAM+8, GMRA+5, GMRASMT+2, GMPL+3, GMRV+3
    , CP+4, TRQ+2, TRQ+8, TRQ+9, TIUS+7, IBCN+5, IBTASK+2, WV+7, WV+10, WV+14
    QUE^VPRHS DG+6, DG+7, PCMMT+4, PCMMTP+6
    $$VNUM^VPRSDAV DGPM+7, DGPM+13
    $$FMADD^XLFDT TRQ+6, IBCN+9, IBCN+13
    $$NOW^XLFDT IBCN+13

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^SCPT(404.42 - [#404.42] GET1^DIQ
    ^MDD(702 - [#702] GET1^DIQ
    ^TIU(8925 - [#8925] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNPROB - [#9000011] GMPL+2
    ^AUPNVSIT - [#9000010] CKVST+4
    ^AUPNVSIT("AET" CKVST+3
    ^DGS(41.1 - [#41.1] DGS+6
    ^DIC(42 - [#42] CKVST+2
    ^DPT - [#2] NEWINPT+2
    ^GMR(120.86 - [#120.86] GMRASMT+1
    ^TIU(8925.7 - [#8925.7] TIUS+3
    ^TMP("DG SA FILE ENTRY NOTIFIER" DGS+2, DGS+3, DGS+4, DGS+5, DGS+6
    ^TMP("TIUDOCACT" TIUR+2
    ^TMP("WVPREGST" WV+2
    ^UTILITY("DGPM" DGPM+6, DGPM+10, DGPM+11
    ^XTMP("VPR-" TRQ+4*, TRQ+5*, TRQ+6*, IBCN+7*, IBCN+8*, IBCN+9*

    Label References

    Name Line Occurrences
    $$FLD DG+7
    $$IBDIFF IBCN+4
    $$NEWINPT DGPM+2
    CKVST DGPM+12
    TRQ TIUR+3

    Naked Globals

    Name Field # of Occurrence
    ^("P" DGPM+11

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACT DGS+1~*, DGS+5*, DGS+6*, DGS+7, SDAM+2~, SDAM+7*, SDAM+8, GMRA~, GMRASMT+1~*, GMRASMT+2
    , GMPL+2~*, GMPL+3, GMRV+2~*, GMRV+3, CP~, CP+4, TIU+2~, TIU+9*, TIU+10, TIUR+1~
    , TIUR+2*, TIUR+3, TIUR+10, TRQ+1*, TRQ+2, TRQ+3, TRQ+8, TRQ+9, IBCN+3~, IBCN+4*
    , IBCN+5, IBCN+6, IBCN+10, XU~
    ADM DGPM+3~, DGPM+5*, DGPM+6, DGPM+7, DGPM+8, DGPM+10*, DGPM+11, DGPM+13, DGPM+14
    ADMA DGPM+3~, DGPM+11*, DGPM+12
    ADMP DGPM+3~, DGPM+11*, DGPM+12, CKVST+2, CKVST+3
    ARY TIUR+1~, TIUR+2*, TIUR+4, TIUR+5, TIUR+11, TIUR+12, TIUR+13
    CLS TIUR+1~, TRQ+7*, TRQ+8, TRQ+9
    DAD TIU+2~, TIU+4*, TIU+8, TIUR+1~, TIUR+6*, TIUR+8, TIUR+14*, TRQ+1, DOCITM~
    DATE SDAM+2~, SDAM+7*, SDAM+8
    DFN DG+4~*, DG+6, DG+7, DG+8, NEWINPT+2, DGPM+2, DGPM+8, DGPM+14, CKVST+3, CKVST+6
    , DGS+1~, DGS+3*, DGS+4*, DGS+7, SDAM+2~, SDAM+6*, SDAM+8, GMRA+3~, GMRA+4*, GMRA+5
    , GMRASMT~, GMRASMT+1, GMRASMT+2, GMPL~, GMPL+1*, GMPL+3, GMRV~, GMRV+1*, GMRV+3, CP~
    , CP+2*, CP+4, TIU~, TIU+3*, TIUR+1~, TIUR+4*, TIUR+5, TIUR+11*, TIUR+13, TRQ+2
    , TRQ+4, TRQ+5, TRQ+8, TRQ+9, TIUS+2~, TIUS+4*, TIUS+7, IBCN+3, IBCN+5, IBCN+7
    , IBTASK+1, IBTASK+2, PCMMT+3~*, PCMMT+4, PCMMTP+3~, PCMMTP+5*, PCMMTP+6
    >> DGDA DG+4
    >> DGFIELD DG+7
    >> DGFILE DG+2
    >> DGPMA NEWINPT+2, DGPM+5
    >> DGPMDA NEWINPT+2
    >> DGPMP NEWINPT+2, DGPM+5
    >> DGPMT NEWINPT+2, DGPM+4
    DT TRQ+6, IBCN+9
    ERR GMRV~, GMRV+2
    >> GMRAPA GMRA+4
    >> GMRAPA(0 GMRA+4
    HLOC CKVST+1~, CKVST+2*, CKVST+3
    I GMRA+3~, IBCN+3~, IBCN+8*
    >> IBCDFN IBCN+2, IBCN+3
    >> IBEVTA0 IBDIFF+1, IBDIFF+2
    >> IBEVTA7 IBDIFF+3
    >> IBEVTACT IBCN+4, IBCN+10
    >> IBEVTP0 IBDIFF+1, IBDIFF+2
    >> IBEVTP7 IBDIFF+3
    ID CP~, CP+2*, CP+3, CP+4, IBCN+3~*, IBCN+5, IBCN+7, IBCN+8, IBTASK+1, IBTASK+2
    IEN DGS+1~, DGS+2*, DGS+6, DGS+7, GMRA+3~, GMRA+4*, GMRA+5, GMPL~, GMPL+1*, GMPL+2
    , GMPL+3, GMRV~, GMRV+1*, GMRV+3, TIU~, TIU+3*, TIU+8*, TIU+10, TIUR+1~, TIUR+3
    , TIUR+5*, TIUR+6, TIUR+8*, TIUR+12*, TIUR+13*, TIUR+14, TRQ+2, TRQ+4, TRQ+5, TRQ+7
    , TRQ+8, TRQ+9, TIUS~, TIUS+1*, TIUS+3, DOCDEF~, USR~, XU~
    NEW GMRA+3~
    >> SCPTTMAF PCMMT+3
    >> SCPTTMB4 PCMMT+3
    >> SCPTTPAF PCMMTP+4
    >> SCPTTPB4 PCMMTP+4
    >> SDAMEVT SDAM+3, SDAM+7
    >> SDATA SDAM+2, SDAM+6, SDAM+7
    >> SDATA("AFTER" SDAM+5
    >> SDATA("BEFORE" SDAM+5
    STS TIU+2~, TIU+4*, TIU+5, TIU+6, TIU+7
    TIU0 TIUS+2~, TIUS+3*
    TIUIEN TIUS+2~, TIUS+3*, TIUS+4, TIUS+5, TIUS+7
    TM PCMMTP+3~, PCMMTP+4*, PCMMTP+5
    U DG+3, FLD+2, DGPM+5, CKVST+2, CKVST+4, DGS+6, SDAM+6, SDAM+7, GMRASMT+1, GMPL+2
    , TRQ+5, TRQ+6, TIUS+3, IBCN+9, IBDIFF+2, IBDIFF+3
    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+2~*, DG+3, DG+7
    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
    VPRSQ CKVST+1~, CKVST+6!, CKVST+7, TIUR+1~, TRQ+2, TRQ+3, TRQ+4, TRQ+5, TRQ+6, IBCN+3~
    , IBCN+5, IBCN+6, IBCN+7, IBCN+8, IBCN+9
    VST DGPM+3~, DGPM+7*, DGPM+8, DGPM+13*, DGPM+14, CKVST+3*, CKVST+4, CKVST+6, CP+3~*, CP+4
    , TIUR+1~, TIUR+4*, TIUR+11*, TRQ+2, TRQ+4, TRQ+5, TIUS+2~, TIUS+5*, TIUS+7
    X FLD~, FLD+2*, FLD+3, FLD+4, FLD+5, FLD+6, FLD+7, FLD+8, TIUR+1~, TRQ+5*
    X(2 TIU+4
    X(3 TIU+4
    >> X1 TIU+9
    >> X1(2 TIU+9
    >> X2 TIU+9
    >> X2(2 TIU+9
    Y NEWINPT+1~*, NEWINPT+2*, NEWINPT+3
    ZTCPU IBCN+11~
    ZTDESC IBCN+11~, IBCN+12*
    ZTDTH IBCN+11~, IBCN+13*
    ZTIO IBCN+11~, IBCN+12*
    ZTKIL IBCN+11~
    ZTPRI IBCN+11~
    ZTRTN IBCN+11~, IBCN+12*
    ZTSAVE IBCN+11~
    ZTSAVE("DFN" IBCN+13*
    ZTSAVE("ID" IBCN+13*
    ZTSK IBCN+11~
    ZTSYNC IBCN+11~
    ZTUCI IBCN+11~
    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  | All