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

Package Total Call Graph
Kernel 2 ^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  
VA FileMan 1 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: 6

Package Total Caller Graph
Virtual Patient Record 5 VPR PCE EVENTS  VPREVNT  VPRHS  VPRHSX2  VPRSDAV  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
PX ; -- PXK VISIT DATA EVENT protocol listener
PXQ ; done
DIFF(NM,IEN) ; -- returns 0/1 if un/changed, 2 if new, -1 if deleted
EDP(IEN) ; -- EDP Log file #230 AVPR index
TIU(IEN,ACT,VST) ; -- TIU Document file #8925 [from TIU/R^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 ^XTMP
SAVE(NUM,DA) ; -- save data for V-file record [from TV,DELALL] in
; ^XTMP("VPR-"_NUM, 0) = DT+14 ^ DT ^ Deleted records
; ^XTMP("VPR-"_NUM,DA) = DFN ^ TYPE ^ ID ^ U/D ^ VISIT#
; ^XTMP("VPR-"_NUM,DA,0) = DATA
SAVST(NUM,ACT,TYP) ; -- save visit in ^XTMP [from TASK,DELALL]
DOC ; -- process Document VDA [from TASK]
DQ ; clean up array, unlock
EXTRACT(DA) ; -- return data in VPRTIU(FLD)
NAME(X,DA) ; -- return container name for V-files
HF(IEN) ; -- return AUTTHF ptr, expects VST & VSTX
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
NODE(NAME,DA,NUM) ; -- return global node
DUP(DA) ; -- duplicate CPT record?

External References

Name Field # of Occurrence
^%ZTLOAD QUE+4
EN^DIQ1 EXTRACT+5
POST^VPRHS EDP+7, TASK+17, TV+6, TV+9, DELALL+6, DELALL+8, DOC+11, DOC+18, DOC+19, DQ+6
$$FMADD^XLFDT QUE+3, QUE+6, TASK+3, TASK+4, SAVE+5, SAVST+2, DOC+15
$$NOW^XLFDT PX+16, EDP+18, TIU+11, QUE+3, TASK+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] TASK+11
^AUTTHF - [#9999999.64] NAME+3
^DIC(9.4 - [#9.4] DUP+7
^EDP(230 - [#230] EDP+4
^TIU(8925 - [#8925] TV+13
^TMP("PXKCO" PX+3, PX+4, PX+22, PX+26, PX+30, DIFF+3, HF+2, HF+3, DUP+2, DUP+10
, DUP+11, DUP+12
^VPR(1 PX+1, EDP+1, TASK+1
^XTMP("VPR-" SAVE+6*, SAVE+7*, SAVE+8*, SAVST+3*, SAVST+4*, DOC+13*, DOC+14*, DOC+15*
^XTMP("VPRPX" PX+9, EDP+11, 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
$$HF NAME+3
$$NAME PX+24, TV+3, DELALL+3
$$NODE TIU+13
$$SHX NAME+5
$$ZERO TV+4, HF+5
DELALL TASK+14
DOC TV+13, TD+4
EXTRACT DOC+3
KILL TASK+13, TV+11
NEWTSK PXQ+2, EDP+22, TIU+15
QUE NEWTSK+3, TQ+1
SAVE TV+10, DELALL+7
SAVST TASK+18, DELALL+9

Naked Globals

Name Field # of Occurrence
^("AFTER" HF+3
^("BEFORE" PX+4, PX+30, DIFF+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT PX+2~, PX+23*, PX+27, PX+28, TIU~, TIU+9, TIU+11, TASK+2~, SAVST~, SAVST+1*
, SAVST+4, DOC+2~, DOC+9*, DOC+10, DOC+11, DOC+12, DOC+18, DOC+19
AFTER DIFF+1~, DIFF+3*, DIFF+4, DIFF+6
BEFORE DIFF+1~, DIFF+3*, DIFF+4, DIFF+5
CLS DOC+2~, DOC+17*, DOC+18, DOC+19
CPT DUP+1~, DUP+5*, DUP+14
DA PX+2~, PX+22*, PX+23, PX+24, PX+25, PX+26, PX+28, PX+29, PX+30, PX+31
, SAVE~, SAVE+4, SAVE+7, SAVE+8, EXTRACT~, EXTRACT+1, EXTRACT+6, NAME~, NAME+3*, ZERO~
, ZERO+1*, ZERO+2, NODE~, NODE+1*, NODE+2, DUP~, DUP+2
DFN PX+2~, PX+5*, PX+6, EDP+2~, EDP+5*, EDP+7, EDP+10, TASK+2~, TASK+10*, TASK+12
TASK+17, TV+6, TV+9, DELALL+6, DELALL+8, SAVE+7, SAVST+4, DOC+4*, DOC+6, DOC+11
DOC+13, DOC+14, DOC+18, DOC+19, DQ+6
DIC EXTRACT+1~, EXTRACT+5*
DIFF DIFF+1~, DIFF+2*, DIFF+4*, DIFF+5*, DIFF+6*, DIFF+7
DIQ EXTRACT+1~, EXTRACT+5*
DIQ(0 EXTRACT+5*
DR EXTRACT+1~, EXTRACT+5*
DT QUE+6, TASK+4, SAVE+5, SAVE+6, SAVST+2, SAVST+3, DOC+15
EDP0 EDP+2~, EDP+4*, EDP+5
GBL ZERO+1~, ZERO+2*, NODE+1~, NODE+2*, NODE+3, DUP+1~, DUP+9*, DUP+13, DUP+14
I EXTRACT+1~, EXTRACT+4*, EXTRACT+6*
ID PX+2~, PX+13*, PX+15*, PX+18, EDP+2~, EDP+15*, EDP+17*, EDP+19
IEN DIFF~, DIFF+3, EDP~, EDP+3*, EDP+4, TIU~, TIU+3*, TIU+4, TIU+6, TIU+9
, TIU+11, TIU+12, TIU+13, TIU+14, HF~, HF+1*, HF+3, HF+4, HF+5, DUP+1~
, DUP+9*, DUP+10*, DUP+11, DUP+12
IMM DUP+1~, DUP+12*, DUP+13, DUP+14
M QUE~, QUE+3*
NAME NODE~, NODE+2
NEW PX+2~, PX+13*, PX+17*, PX+18, PX+28*, PX+29, EDP+2~, EDP+15*, EDP+19, TIU+2~
, TIU+7*, TIU+9, TIU+11*, TIU+12, TIU+13
NM DIFF~, DIFF+3, NAME+3~*, NAME+4, NAME+5, NAME+6
NODE DIFF+1~, DIFF+2*, DIFF+3, DIFF+5, DIFF+6, DUP+1~, DUP+3*, DUP+5, DUP+7, DUP+11*
, DUP+12
NOW PX+2~, PX+13*, PX+14, PX+16*, PX+18, EDP+2~, EDP+15*, EDP+16, EDP+18*, EDP+19
, TIU+2~, TIU+6*, TIU+11*, TIU+12
NUM SAVE~, SAVE+4, SAVE+6, SAVE+7, SAVE+8, SAVST~, SAVST+1, SAVST+3, SAVST+4, NODE~
, NODE+3
PKG DUP+1~, DUP+7*
PROC DQ+5~*, DQ+6
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+23, PX+24, PX+25, PX+26, PX+28, PX+29, PX+30
PX+31, DUP+2
SYS DUP+1~, DUP+13*, DUP+14
TYP SAVST~, SAVST+4
U PX+1, PX+5, PX+13, PX+18, PX+26, PX+27, EDP+1, EDP+4, EDP+5, EDP+15
, EDP+19, TIU+7, TIU+12, QUE+6, TASK+1, TASK+12, TASK+13, TASK+16, TASK+18, TV+4
TV+6, TV+9, DELALL+5, DELALL+6, SAVE+6, SAVE+7, SAVST+3, SAVST+4, DOC+8, DOC+9
DOC+10, DOC+14, DOC+15, EXTRACT+2, EXTRACT+4, NAME+3, NODE+2, DUP+5, DUP+7
V0 TASK+2~, TASK+11*, TASK+12, 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+10, TV+13*, TD+2*, TD+3, DELALL+2*
DELALL+3, DELALL+4, DELALL+5, DELALL+7, DOC+1, DOC+3, DOC+6, DOC+8, DOC+13, DOC+14
DQ+1, DQ+2, EXTRACT+3
VFL TASK+2~, TV+1*, TV+2, TV+3, TV+4, TV+7, DELALL+1*, DELALL+2, DELALL+3, DELALL+4
, SAVE+8
VID TASK+2~, TASK+16*, TASK+17, TV+4*, TV+6, TV+9, DELALL+5*, DELALL+6, SAVE+7, DOC+8*
DOC+11, DOC+13, DOC+18, DOC+19
VNM TASK+2~, TV+3*, TV+4, TV+6, TV+9, DELALL+3*, DELALL+5, DELALL+6, SAVE+7
VPRD14 TASK+2~, TASK+4*, SAVE+5*, SAVE+6, SAVST+2*, SAVST+3
VPRDT TASK+2~, TASK+3*, TASK+6, TD+1
VPRI TASK+2~, TASK+6*, TASK+7, TASK+8, TD+1*, TD+2, TD+3, KILL+1
VPRPX PX+2~, PX+9*, PX+10, PX+13, PX+14, PX+16, PX+18, PX+27*, PX+28, PX+29
PX+31, PXQ+1, PXQ+2, EDP+2~, EDP+11*, EDP+12, EDP+15, EDP+16, EDP+18, EDP+19
, EDP+21, EDP+22, TIU+2~, TIU+3*, TIU+4, TIU+6, TIU+9, TIU+11, TIU+12, TIU+13
, TIU+14, TIU+15, TASK+2~, TASK+3*, TASK+6, TASK+7, TASK+8, TASK+9, TASK+10, TV+1
TV+2, TV+7, TV+13, TD+1, TD+2, TD+3, TQ+1, TQ+2, DELALL+1, DELALL+2
DELALL+4, KILL+1, KILL+2, SAVE+8, DOC+1, DOC+3, DOC+6, DQ+1, DQ+2, EXTRACT+3
, HF+4
VPRQ EXTRACT+1~
VPRQ(8925 EXTRACT+6
VPRSQ TASK+2~, TASK+17!, TASK+18, TV+8!, TV+9, TV+10, DELALL+5!, DELALL+6, DELALL+7, DELALL+8!
DELALL+9, DOC+2~, DOC+11, DOC+12, DOC+13, DOC+14, DOC+15
VPRTIU DOC+2~
VPRTIU( DOC+4, DOC+9, DOC+14, DOC+17, EXTRACT+6*
VPRTIU(".0" EXTRACT+4*
VPRTIU(1405 DQ+5
VST PX+2~, PX+3*, PX+4, PX+6, PX+15, PX+22, PX+26, PX+30, DIFF+3, EDP+2~
, EDP+4*, EDP+7, EDP+10, EDP+17, TIU~, TIU+7*, TIU+12, TASK+2~, TASK+10*, TASK+11
TASK+16, TV+6, TV+9, TV+13, DELALL+6, DELALL+8, SAVE+7, SAVST+1, SAVST+4, DOC+4*
DOC+6, DOC+10*, DOC+11, DOC+13, DOC+14, DQ+4, DQ+6, HF+2, HF+3, DUP+2
, DUP+10, DUP+11, DUP+12
VSTX PX+2~, PX+6*, PX+10, PX+13, PX+14, PX+16, PX+18, PX+27, PX+28, PX+29
PX+31, PXQ+1, EDP+2~, EDP+10*, EDP+12, EDP+15, EDP+16, EDP+18, EDP+19, EDP+21
TASK+2~, TASK+7*, TASK+8, TASK+9, TASK+10, TV+1, TV+2, TV+7, DELALL+1, DELALL+2
DELALL+4, KILL+1, KILL+2, SAVE+8, HF+4
VTYP PX+2~, PX+13*, PX+18
X PX+2~, PX+13*, PX+30*, PX+31, EDP+2~, EDP+15*, TASK+2~, TQ+1*, SAVE+8*, DOC+14*
, NAME~, NAME+2, NAME+8, NAME+9, NAME+10, NAME+11, NAME+12, NAME+15, HF+1~, HF+2
, HF+3*, HF+4*, HF+5*, FHX~, FHX+1, FHX+2, SHX~, SHX+1, C19~, C19+1
, C19+2, ZERO~, ZERO+2
X0 TIU+2~, TIU+6*, TIU+7, TASK+2~, TASK+10*, TASK+13, TASK+16, TASK+18, DOC+3*, DOC+8
DOC+9, DOC+10, DQ+1, EXTRACT+2
X1 EXTRACT+3~*, EXTRACT+4
Y NAME+1~*, NAME+4*, NAME+5*, NAME+6*, NAME+8*, NAME+9*, NAME+10*, NAME+11*, NAME+12*, NAME+15*
, NAME+16, ZERO+1~*, ZERO+2*, ZERO+3, NODE+1~*, NODE+3*, NODE+4, DUP+1~, DUP+9*, DUP+10
, DUP+14*, DUP+15
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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All