VPRSDAV ;SLC/MKB -- SDA Visit utilities ;10/25/18 15:29
Source file <VPRSDAV.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
QRY | ; -- get visits (all types)
; Query called from GET^DDE, returns DLIST(#)=ien ; Expects context variables DFN, DSTRT, DSTOP, DMAX |
|
ADMQ | ; -- Admissions only (visits)
; Query for VPR ADMISSION via Test option |
|
EDPQ | ; -- Emergency Dept only (visits)
; Query for VPR EDP LOG via Test option |
|
VST | ; -- get info for a VISIT in @VPRVST [ID Action]
|
|
STUB(VST) | ; -- switch to stub entity for deleted visits
|
|
VDEL | ; -- old V file Entry Action: I ID["~" D VDEL^VPRSDAV
; Expects ID & FILE ; Returns VPRVST, VPRVFN, VPRVT & resets DTYPE for entity |
|
DEL1 | ; -- ID Action for Vfile Delete entities, returns VPR0=data
|
|
EDP1 | ; -- get info for single EDP Log record [VST/ID Action]
; Returns EDP0, EDP1, EDP3, VPRV, VPRVST to Entity |
|
VAIP | ; -- get admission info & Visit# [ID Action]
; Expects DIEN = #405 ien ~ #9000010 ien ; Validates DFN = #2 ien ; Return VAIP(#)= array of movements ; VPRVST = Visit# ; VPRCA = Current Adm# (or 0) ; DIEN = Movement# |
|
MVTS(ADM) | ; -- get movements for an ADMission in DLIST(#)=mvt ien
; Expects DFN |
|
VNUM(ADM) | ; -- find Visit# for an admission [expects DFN]
|
|
WARDFAC(IEN) | ; -- return #4 ien for a Ward Location
|
|
SPEC | ; -- build DLIST(#)=45.7 iens using VAIP array
|
|
VSTR() | ; -- build Visit string of Type;date.time[;location]
|
|
CPT(VISIT) | ; -- Return CPT code of encounter type
|
|
VPRV(VISIT) | ; -- build DLIST(n)=#200 ien for V Providers
|
|
HF1 | ; -- get info for single HF record [ID Action]
; Expects/updates DIEN = #9000010.23 ien ; Returns VPRVST = #9000010 ien ; VPRVST0 = Visit zero node ; VPRHF array |
|
VTO(VISIT) | ; -- determine ToTime for a visit based on type
|
|
CKOUT(VISIT) | ; -- get Check-out date from Outpt Enc or EDP Log file
|
|
LAST(DFN) | ; -- return date.time of last visit (last treated)
|
FileNo | Call Tags |
---|---|
^SRF - [#130] | GET1^DIQ |
^EDP(230 - [#230] | GET1^DIQ |