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 |
