VPRENC ;SLC/MKB -- VistA Encounter updates ;10/25/18 15:29
Source file <VPRENC.m>
| 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?
|
