VPRHS ;SLC/MKB -- HealthShare utilities ;10/25/18 15:29
Source file <VPRHS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ON() | ; -- return 1 or 0, if monitoring is on
|
|
| EN(DFN) | ; -- subscribe a patient for data event monitoring
|
|
| UN(DFN) | ; -- unsubscribe
|
|
| SUBS(DFN) | ; -- return 1 or 0, if patient is subscribed or not
|
|
| QUE(DFN) | ; -- create task to POST a Patient update
|
|
| PAT | ; -- post Patient update [TASK]
|
|
| PX | ; -- post an encounter update
|
|
| VALID(PAT) | ; -- return 1 or 0, if valid patient for HealthShare
|
|
| MERGED(DFN) | ; -- return 1 or 0, if patient is being merged
|
|
| POST(DFN,TYPE,ID,ACT,VST,RES) | ; -- post an update to
; ^VPR(1,2,DFN,"AVPR",TYPE,ID) = seq# ; ^VPR("AVPR",seq#,DFN) = ICN ^ TYPE ^ ID ^ U/D ^ VISIT# |
|
| P1 | ;may enter here from VPRHSX1 manual update option
|
|
| NUM() | ; -- return existing SEQ of record, or increment
; SAC EXEMPTION 2019-04-29 : Use of $I |
|
| NEW(DFN,ICN) | ; -- post a new $$VALID patient to
; ^VPR(1,2,DFN,"ANEW") = seq# ; ^VPR("ANEW",seq#,DFN) = ICN |
|
| DEL(LIST,SEQ) | ; -- remove ^VPR(LIST,SEQ) nodes
|
|
| XTMP(SEQ,DFN,X) | ; -- save data for 3 days for debugging
|
|
| GET(DFN,NAME,ID,VPRQ,MTYPE,VPRY,VPRR) | ; -- return VistA data in @VPRY@(#)
|
|
| GT1 | ; update one record for ECR
|
|
| GTA | ; retrieve whole container for patient re/load
|
|
| GTQ | ; return data and exit
|
|
| ERROR(MSG) | ; -- return error MSG
|
|
| ENTITY(CONT,FN,ACT) | ; -- find Entity
|
|
| TEST(ENTITY,ID,DFN,SEQ) | ; -- test and display a single record
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
