Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: VPRSDAV

Package: Virtual Patient Record

Routine: VPRSDAV


Information

VPRSDAV ;SLC/MKB -- SDA Visit utilities ;10/25/18 15:29

Source Information

Source file <VPRSDAV.m>

Entry Points

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)

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] GET1^DIQ
^EDP(230 - [#230] GET1^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call