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(ACT) ; -- returns 1 or 0 if changed, ACT=1 if new
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) ; -- save visit [from DELALL] in ^XTMP
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 TASK+16, 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+16, TIU+11, QUE+3, TASK+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] TASK+11
^AUTTHF - [#9999999.64] NAME+3
^AUTTIMM - [#9999999.14] DUP+12, DUP+13
^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+27, DIFF+4, HF+2, HF+3, DUP+2, DUP+9, DUP+10
, DUP+11
^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+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
$$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+20, TIU+15
QUE NEWTSK+3, TQ+1
SAVE TV+10, DELALL+7
SAVST DELALL+9

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT DIFF~, DIFF+2*, DIFF+5*, TIU~, TIU+9, TIU+11, TASK+2~, DOC+2~, DOC+9*, DOC+10
DOC+11, DOC+12, DOC+19
AFTER DIFF+1~, DIFF+4*, DIFF+5
BEFORE DIFF+1~, DIFF+4*, DIFF+5
CLS DOC+2~, DOC+17*, DOC+18, DOC+19
CPT DUP+1~, DUP+5*, DUP+13
DA PX+2~, PX+22*, PX+24, PX+25, PX+26, PX+27, DIFF+2, DIFF+4, 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+6, TASK+2~, TASK+10*, TASK+12, TASK+16
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+3, DIFF+5*, DIFF+6
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
I EXTRACT+1~, EXTRACT+4*, EXTRACT+6*
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+11, TIU+12
, TIU+13, TIU+14, HF~, HF+1*, HF+3, HF+4, HF+5, DUP+1~, DUP+9*, DUP+10
, DUP+11
IMM DUP+1~, DUP+11*, DUP+12, DUP+13
M QUE~, QUE+3*
NAME NODE~, NODE+2
NEW PX+2~, PX+13*, PX+17*, PX+18, PX+23, PX+26, EDP+2~, EDP+13*, EDP+17, TIU+2~
, TIU+7*, TIU+9, TIU+11*, TIU+12, TIU+13
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+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+24, PX+25, PX+26, PX+27, 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+7
, TIU+12, QUE+6, TASK+1, TASK+12, TASK+13, TASK+15, TV+4, TV+6, TV+9, DELALL+5
DELALL+6, SAVE+6, SAVE+7, SAVST+3, 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+15*, TASK+16, TV+4*, TV+6, TV+9, DELALL+5*, DELALL+6, SAVE+7, DOC+8*
DOC+11, DOC+13, 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+26, PX+27, 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+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~, 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+27, DIFF+4, EDP+2~, EDP+4*
, EDP+6, EDP+15, TIU~, TIU+7*, TIU+12, TASK+2~, TASK+10*, TASK+11, TASK+15, 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+9, DUP+10
, DUP+11
VSTX PX+2~, PX+6*, PX+10, PX+13, PX+14, PX+16, PX+18, PX+26, PX+27, PXQ+1
, DIFF+2, EDP+2~, EDP+6*, EDP+10, EDP+13, EDP+14, EDP+16, EDP+17, EDP+19, 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
X PX+2~, PX+13*, PX+27*, EDP+2~, EDP+13*, TASK+2~, TQ+1*, SAVE+8*, DOC+14*, NAME~
, NAME+2, NAME+8, NAME+9, NAME+10, NAME+11, NAME+14, 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+15, 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+14*, NAME+15
, ZERO+1~*, ZERO+2*, ZERO+3, NODE+1~*, NODE+3*, NODE+4, 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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All