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

Package: Virtual Patient Record

Routine: VPRENC


Information

VPRENC ;SLC/MKB -- VistA Encounter updates ;10/25/18 15:29

Source Information

Source file <VPRENC.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  
VA FileMan 2 $$GET1^DIQ  EN^DIQ1  
Virtual Patient Record 1 POST^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: 5

Package Total Caller Graph
Virtual Patient Record 5 VPR PCE EVENTS  VPREVNT  VPRHS  VPRHSX2  VPRSDAV  

Entry Points

Name Comments DBIA/ICR reference
PX ; -- PXK VISIT DATA EVENT protocol listener
PXQ ; done
DIFF(ACT) ; -- returns 1 or 0 if changed, ACT=1 if new
EDP(IEN) ; -- EDP Log file #230 AVPR index
TIU(IEN) ; -- TIU Document file #8925 [from TIU^VPREVNT]
; add to ^XTMP("VPRPX") list w/encounters
NEWTSK ; -- start new task
QUE(M) ; -- create task to post encounters, documents to HS
TASK ; -- post an encounter update
TV
TD ; look for waiting documents w/o visit [yet]
TQ ; re-task if more data
DELALL ; -- delete visit + vfiles from HS [from TASK]
KILL ; clean up
DOC ; -- process Document VDA [from TASK]
EXTRACT(DA) ; -- return data in VPRTIU(FLD)
NAME(X,DA) ; -- return container name for V-files
FHX(X) ; -- return 1 or 0, if HF name is for FamilyHistory
SHX(X) ; -- return 1 or 0, if HF name is for SocialHistory
C19(X) ; -- return 1 or 0, if HF name is for COVID imm refusal
ZERO(X,DA) ; -- return zero node
DUP(DA) ; -- duplicate CPT record?

External References

Name Field # of Occurrence
^%ZTLOAD QUE+4
$$GET1^DIQ NAME+3
EN^DIQ1 EXTRACT+2
POST^VPRHS TASK+15, TV+6, TV+9, DELALL+6, DELALL+7, DOC+10, DOC+13, DOC+14, DOC+21
$$FMADD^XLFDT QUE+3, QUE+6, TASK+3
$$NOW^XLFDT PX+16, EDP+16, TIU+9, QUE+3, TASK+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVHF - [#9000010.23] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] TASK+10
^AUTTIMM - [#9999999.14] DUP+12, DUP+13
^DIC(9.4 - [#9.4] DUP+7
^EDP(230 - [#230] EDP+4
^TIU(8925 - [#8925] TV+12
^TMP("PXKCO" PX+3, PX+4, PX+22, DIFF+4, DUP+2, DUP+9, DUP+10, DUP+11
^VPR(1 PX+1, EDP+1, TASK+1
^XTMP("VPRPX" PX+9, EDP+9, TIU+3, NEWTSK+1, NEWTSK+3, NEWTSK+4, QUE+5*, QUE+6*, TASK+3

Label References

Name Line Occurrences
$$C19 NAME+6
$$DIFF PX+23
$$DUP PX+25
$$FHX NAME+4
$$NAME PX+24, TV+3, DELALL+3
$$SHX NAME+5
$$ZERO TV+4
DELALL TASK+13
DOC TV+12, TD+4
EXTRACT DOC+2
KILL TASK+12, TV+10
NEWTSK PXQ+2, EDP+20, TIU+12
QUE NEWTSK+3, TQ+1

Naked Globals

Name Field # of Occurrence
^("BEFORE" PX+4, DIFF+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT DIFF~, DIFF+2*, DIFF+5*, TASK+2~, DOC+9*, DOC+10, DOC+14, DOC+19
AFTER DIFF+1~, DIFF+4*, DIFF+5
BEFORE DIFF+1~, DIFF+4*, DIFF+5
CLS DOC+2~, DOC+12*, DOC+13, DOC+14
CPT DUP+1~, DUP+5*, DUP+13
DA PX+2~, PX+22*, PX+24, PX+25, PX+26, DIFF+2, DIFF+4, EXTRACT~, EXTRACT+1, EXTRACT+3
, NAME~, NAME+3, ZERO~, ZERO+2, DUP~, DUP+2
DFN PX+2~, PX+5*, PX+6, EDP+2~, EDP+5*, EDP+6, TASK+2~, TASK+9*, TASK+11, TASK+15
TV+6, TV+9, DELALL+6, DELALL+7, DOC+3*, DOC+5, DOC+10, DOC+13, DOC+14, DOC+21
DIC EXTRACT+1~, EXTRACT+2*
DIFF DIFF+1~, DIFF+2*, DIFF+3, DIFF+5*, DIFF+6
DIQ EXTRACT+1~, EXTRACT+2*
DIQ(0 EXTRACT+2*
DR EXTRACT+1~, EXTRACT+2*
DT QUE+6
EDP0 EDP+2~, EDP+4*, EDP+5
GBL ZERO+1~, ZERO+2*
>> I EXTRACT+3*
ID PX+2~, PX+13*, PX+15*, PX+18, EDP+2~, EDP+13*, EDP+15*, EDP+17
IEN EDP~, EDP+3*, EDP+4, TIU~, TIU+3*, TIU+4, TIU+6, TIU+9, TIU+10, TIU+11
, DUP+1~, DUP+9*, DUP+10, DUP+11
IMM DUP+1~, DUP+11*, DUP+12, DUP+13
M QUE~, QUE+3*
NEW PX+2~, PX+13*, PX+17*, PX+18, PX+23, PX+26, EDP+2~, EDP+13*, EDP+17
NM NAME+3~*, NAME+4, NAME+5, NAME+6
NODE DIFF+1~, DIFF+3*, DIFF+4, DIFF+5, DUP+1~, DUP+3*, DUP+5, DUP+7, DUP+10*, DUP+11
NOW PX+2~, PX+13*, PX+14, PX+16*, PX+18, EDP+2~, EDP+13*, EDP+14, EDP+16*, EDP+17
, TIU+2~, TIU+6*, TIU+9*, TIU+10
PKG DUP+1~, DUP+7*
PROC DOC+20~*, DOC+21
PX0A PX+2~, PX+4*, PX+5
PX0B PX+2~, PX+4*, PX+5, PX+17
STS DOC+2~, DOC+9*
SUB PX+2~, PX+21*, PX+22, PX+24, PX+25, PX+26, DIFF+2, DIFF+4, DUP+2
SYS DUP+1~, DUP+12*, DUP+13
U PX+1, PX+5, PX+13, PX+18, EDP+1, EDP+4, EDP+5, EDP+13, EDP+17, TIU+10
, QUE+6, TASK+1, TASK+11, TASK+12, TASK+14, TV+4, TV+6, TV+8, TV+9, DELALL+5
DELALL+6, DOC+8, DUP+5, DUP+7
V0 TASK+2~, TASK+10*, TASK+11, TV+4*, TV+6
VCPT DUP+1~, DUP+2*
VCPT(0 DUP+3, DUP+5
VCPT(812 DUP+7
VDA TASK+2~, TV+2*, TV+3, TV+4, TV+7, TV+8, TV+12*, TD+2*, TD+3, DELALL+2*
DELALL+3, DELALL+4, DELALL+5, DOC+1, DOC+2, DOC+5, DOC+7, DOC+8, DOC+16, DOC+17
VFL TASK+2~, TV+1*, TV+2, TV+3, TV+4, TV+7, DELALL+1*, DELALL+2, DELALL+3, DELALL+4
VID TASK+2~, TASK+14*, TASK+15, TV+4*, TV+6, TV+8*, TV+9, DELALL+5*, DELALL+6, DOC+8*
DOC+10, DOC+14
VNM TASK+2~, TV+3*, TV+4, TV+6, TV+8, TV+9, DELALL+3*, DELALL+5, DELALL+6
VPRDT TASK+2~, TASK+3*, TASK+5, TD+1
VPRI TASK+2~, TASK+5*, TASK+6, TASK+7, TD+1*, TD+2, TD+3, KILL+1
VPRPX PX+2~, PX+9*, PX+10, PX+13, PX+14, PX+16, PX+18, PX+26, PXQ+1, PXQ+2
, DIFF+2, EDP+2~, EDP+9*, EDP+10, EDP+13, EDP+14, EDP+16, EDP+17, EDP+19, EDP+20
, TIU+2~, TIU+3*, TIU+4, TIU+6, TIU+9, TIU+10, TIU+11, TIU+12, TASK+2~, TASK+3*
TASK+5, TASK+6, TASK+7, TASK+8, TASK+9, TV+1, TV+2, TV+7, TV+12, TD+1
TD+2, TD+3, TQ+1, TQ+2, DELALL+1, DELALL+2, DELALL+4, KILL+1, KILL+2, DOC+1
DOC+5, DOC+7, DOC+16, DOC+17
VPRQ EXTRACT+1~
VPRQ(8925 EXTRACT+3
VPRTIU DOC+2~
VPRTIU( DOC+3, DOC+9, DOC+12, EXTRACT+3*
VPRTIU(1405 DOC+20
VST PX+2~, PX+3*, PX+4, PX+6, PX+15, PX+22, DIFF+4, EDP+2~, EDP+4*, EDP+6
, EDP+15, TASK+2~, TASK+9*, TASK+10, TASK+14, TV+6, TV+8, TV+9, TV+12, DELALL+5
DELALL+6, DELALL+7, DOC+3*, DOC+5, DOC+10, DOC+19, DOC+21, DUP+2, DUP+9, DUP+10
, DUP+11
VSTX PX+2~, PX+6*, PX+10, PX+13, PX+14, PX+16, PX+18, PX+26, PXQ+1, DIFF+2
, EDP+2~, EDP+6*, EDP+10, EDP+13, EDP+14, EDP+16, EDP+17, EDP+19, TASK+2~, TASK+6*
TASK+7, TASK+8, TASK+9, TV+1, TV+2, TV+7, DELALL+1, DELALL+2, DELALL+4, KILL+1
KILL+2
X PX+2~, PX+13*, EDP+2~, EDP+13*, TQ+1*, NAME~, NAME+2, NAME+8, NAME+9, NAME+10
, NAME+11, NAME+14, FHX~, FHX+1, FHX+2, SHX~, SHX+1, C19~, C19+1, C19+2
, ZERO~, ZERO+2
X0 TASK+2~, TASK+9*, TASK+12, TASK+14, DOC+7*, DOC+8, DOC+16
Y NAME+1~*, NAME+4*, NAME+5*, NAME+6*, NAME+8*, NAME+9*, NAME+10*, NAME+11*, NAME+14*, NAME+15
, ZERO+1~*, ZERO+2*, ZERO+3, DUP+1~, DUP+9*, DUP+13*, DUP+14
ZTCPU QUE+1~
ZTDESC QUE+1~, QUE+2*
ZTDTH QUE+1~, QUE+3*
ZTIO QUE+1~, QUE+2*
ZTKIL QUE+1~
ZTPRI QUE+1~
>> ZTREQ TASK+1*
ZTRTN QUE+1~, QUE+2*
ZTSAVE QUE+1~
ZTSK QUE+1~, QUE+5
ZTSYNC QUE+1~
ZTUCI QUE+1~
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