Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Registration 4 RPC^DGPTFAPI  PTF^DGPTPXRM  IN5^VADPT  ADM^VADPT2  
VA FileMan 3 $$FIND1^DIC  $$EXTERNAL^DILFD  ($$GET1,GETS)^DIQ  
PCE Patient Care Encounter 2 ENCEVENT^PXAPI  (VCPT,VHF,VPOV)^PXPXRM  
Scheduling 2 $$SDAPI^SDAMA301  ($$GETOE,GETPRV)^SDOE  
Virtual Patient Record 2 $$ZERO^VPRENC  $$VALID^VPRSDA  
DRG Grouper 1 $$CODEBA^ICDEX  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Virtual Patient Record 2 VPREVNT  VPRSDAQ  

Entry Points

Name Comments DBIA/ICR reference
VST ; -- get info for a VISIT in @VPRVST [ID Action]
STUB(VST) ; -- switch to stub entity for deleted visits
VDEL ; -- V file Entry Action: I ID["~" D VDEL^VPRSDAV
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 all movements for an ADMission in DLIST(#)=mvt ien
; Expects DFN
VNUM(ADM) ; -- find Visit# for an admission
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
POV1 ; -- get info for single POV record [ID Action]
; Expects/updates DIEN = #9000010.07 ien
; Returns VPRVST = #9000010 ien
; VPRVST0 = Visit zero node
; VPREDP = #230 ien or 0
; VPRPOV array
POVNARR() ; -- build Original Text for POV
CPT1 ; -- get info for single V CPT record [ID Action]
; Expects/updates DIEN = #9000010.18 ien
; Returns VPRVST = #9000010 ien
; VPRVST0 = Visit zero node
; VPRCPT array
VCPT(DA) ; -- ok to include V-CPT record in SDA?
DUP(VST,CPT,SUB) ; -- find V CPT match in VSUB file (IMM or SK)
VTO(VISIT) ; -- determine ToTime for a visit based on type
CKOUT(VISIT) ; -- get Check-out date from Outpt Enc or EDP Log file
EDP1 ; -- get info for single EDP Log record [VST/ID Action]
PTF1 ; -- get info for single PTF record [ID Action]
; Expects DIEN = #45 ien, returns VPRPTF array
APPT1(VPRID) ; -- get ^TMP node for single appt, returns VPRAPPT
APPTPRV() ; -- return the default/primary provider for VPRAPPT

External References

Name Field # of Occurrence
RPC^DGPTFAPI PTF1+7
PTF^DGPTPXRM PTF1+10
$$FIND1^DIC PTF1+4
$$EXTERNAL^DILFD POVNARR+4
$$GET1^DIQ POVNARR+3, VCPT+5, VTO+10, CKOUT+2, APPTPRV+7
GETS^DIQ APPTPRV+9
$$CODEBA^ICDEX PTF1+8
ENCEVENT^PXAPI VST+20, EDP1+3
VCPT^PXPXRM CPT1+5
VHF^PXPXRM HF1+5
VPOV^PXPXRM POV1+6
$$SDAPI^SDAMA301 APPT1+8
$$GETOE^SDOE CKOUT+4
GETPRV^SDOE APPTPRV+3
IN5^VADPT VAIP+13
ADM^VADPT2 VST+9
$$ZERO^VPRENC HF1+5, POV1+6, CPT1+5, VCPT+3
$$VALID^VPRSDA VST+24, VST+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] GET1^DIQ
^EDP(230 - [#230] GET1^DIQ
^DGPM - [#405] FIND1^DIC
^SC - [#44] GET1^DIQ,  GETS^DIQ
^AUPNVPOV - [#9000010.07] EXTERNAL^DILFD
^AUPNVCPT - [#9000010.18] GET1^DIQ
^AUTNPOV - [#9999999.27] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] VST+2, HF1+6, POV1+7, CPT1+6, PTF1+5
^AUPNVSIT("AAH" VNUM+3
^DDE("B" VST+10, VST+16, STUB+1, VDEL+2
^DGPM - [#405] VAIP+10, VNUM+2
^DGPM("APCA" MVTS+3, MVTS+4
^DIC(42 - [#42] WARDFAC+2
^DIC(9.4 - [#9.4] VCPT+6
^DPT - [#2] VAIP+12, APPT1+10
^EDP(230 - [#230] VST+14, VST+15, POV1+8, EDP1+1
^SC - [#44] WARDFAC+3
^SCE("AVSIT" CKOUT+3
^SRF("AV" VTO+9
^TMP("PXKENC" VST+21, CPT+2, VPRV+2, EDP1+4
^TMP($J APPT1+4, APPT1+9

Label References

Name Line Occurrences
$$CKOUT VTO+6
$$DUP VCPT+9
$$VNUM VAIP+15, PTF1+4
EDP1 VST+18
STUB VST+3, VST+5
VAIP VST+12

Naked Globals

Name Field # of Occurrence
^( CPT+2, VPRV+2
^(1 EDP1+1
^(3 EDP1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADM MVTS~, MVTS+3, MVTS+4, VNUM~, VNUM+2, PTF1+4~*
CODE VCPT+1~, VCPT+3*, VCPT+9
CPT DUP~, DUP+2, DUP+6
D VST+23~*, VST+24, VST+25*, VST+26
DA MVTS+2~, MVTS+4*, CPT+1~, CPT+2*, VCPT~, VCPT+1*, VCPT+3, VCPT+5
DATE MVTS+2~, MVTS+3*, MVTS+4
>> DDEOUT VST+1*, STUB+2*, VAIP+11*, VAIP+16*, EDP1+2*, PTF1+3*, PTF1+8*, APPT1+3*
DFN VST+5, VST+6*, VAIP+8*, VAIP+10*, VAIP+11, VAIP+12, MVTS+3, MVTS+4, VNUM+3, APPT1+1~
, APPT1+2*, APPT1+3, APPT1+4, APPT1+6, APPT1+9, APPT1+10
>> DIEN VST+1*, VST+2, VST+3, VST+5, VST+11*, VST+14, VST+15, VST+17*, VST+20, VST+21
, STUB+3*, VAIP+8*, VAIP+9*, VAIP+10, VAIP+11, VAIP+12, VAIP+14*, VAIP+15, HF1+5, HF1+7*
POV1+6, POV1+9*, CPT1+5, CPT1+7*, EDP1+1, PTF1+3*, PTF1+4, PTF1+7, PTF1+10
>> DIENTY VST+11*, VST+17*, STUB+3*
>> DIFN VST+11*, VST+17*
>> DLIST( MVTS+4*, SPEC+3*, VPRV+4*
DT VTO+12, APPTPRV+6
>> DTYPE VDEL+1, VDEL+2*
EDP VST+2~, VST+14*, VST+15*, VST+16!, VST+17
>> EDP0 EDP1+1*, EDP1+2
>> EDP1 EDP1+1*
>> EDP3 EDP1+1*
ENT VST+9~, VST+10*, VST+11, VST+15~, VST+16*, VST+17, STUB+1~*, STUB+2, STUB+3
>> FILE VDEL+1
GBL DUP+1~, DUP+3*, DUP+5, DUP+6
HLOC WARDFAC+1~, WARDFAC+2*, WARDFAC+3
I SPEC+1~, SPEC+2*, SPEC+3*, VPRV+1~*, VPRV+2*, VPRV+4, VTO+9~*, VTO+10, APPTPRV+1~, APPTPRV+3*
, APPTPRV+4*, APPTPRV+5*, APPTPRV+10*
>> ID VDEL+1*
IEN WARDFAC~, WARDFAC+2, DUP+1~, DUP+4*, DUP+5, DUP+6, CKOUT+1~, CKOUT+3*, CKOUT+4
INPT VTO+1~, VTO+2*, VTO+4
ITM DUP+1~, DUP+5*, DUP+6
LOC APPTPRV+1~, APPTPRV+7*, APPTPRV+9
MOD POVNARR+1~, POVNARR+2*, POVNARR+4
N MVTS+2~, MVTS+3*, MVTS+4*
NARR POVNARR+1~, POVNARR+2*, POVNARR+3
PKG VCPT+1~, VCPT+5*, VCPT+6
PX0A VST+2~*, VST+3, VST+5, VST+6, VST+8, VST+9
R VPRV+1~, VPRV+3*, VPRV+4
SDOE APPTPRV+1~, APPTPRV+2*, APPTPRV+3, APPTPRV+6
SPEC SPEC+1~
SPEC( SPEC+2*, SPEC+3
SUB DUP~, DUP+2, DUP+3
SYS DUP+1~, DUP+5*, DUP+6
TYPE VTO+1~, VTO+2*, VTO+4, VTO+6, VTO+8, VTO+12
U VST+5, VST+6, VST+8, VST+24, VST+25, VST+26, VAIP+10, WARDFAC+3, VSTR+3, CPT+3
, VPRV+3, VPRV+4, VCPT+3, VCPT+6, VCPT+8, VTO+2, CKOUT+4, EDP1+2, PTF1+8, PTF1+9
, APPT1+10, APPTPRV+2, APPTPRV+4, APPTPRV+7
VADMVT VST+2~, VST+8, VST+9, VST+10!, VST+11, VAIP+7~
VAERR VAIP+7~
VAINDT VST+9~*, VNUM+1~, VNUM+2*, VNUM+3
VAIP VAIP+7!
VAIP( SPEC+2
VAIP("E" VAIP+12*
VAIP(13 VAIP+14, VSTR+2
VFL DUP+1~, DUP+3*, DUP+4, DUP+5
VISIT CPT~, CPT+2, VPRV~, VPRV+2, VTO~, VTO+1*, VTO+6, VTO+9, CKOUT~, CKOUT+1*
, CKOUT+3
>> VPRAPPT APPT1+9*, APPT1+10*, APPTPRV+2, APPTPRV+6, APPTPRV+7
>> VPRCA VAIP+12*
VPRCPT CPT1+5!, CPT1+7*
VPRCPT("VISIT" CPT1+6
VPRDT APPT1+1~, APPT1+2*, APPT1+3, APPT1+6, APPT1+9, APPT1+10
>> VPREDP POV1+8*, CKOUT+2
VPRHF HF1+5!, HF1+7*
VPRHF("VISIT" HF1+6
VPRID APPT1~, APPT1+1*, APPT1+2
VPRNUM APPT1+5~, APPT1+8*
VPROV APPTPRV+1~
VPROV( APPTPRV+4, APPTPRV+5, APPTPRV+10
VPROV(0 APPTPRV+5
VPRPOV POV1+6!, POV1+9*
VPRPOV("MODIFIER" POVNARR+2
VPRPOV("PROVI DER NARRATIVE" , POVNARR+2
VPRPOV("VISIT" POV1+7
VPRPTF PTF1+2!, PTF1+10
VPRPTF("DXLS" PTF1+9*
VPRPTF("VISIT" PTF1+6*
>> VPRV EDP1+2*, EDP1+3, EDP1+4
>> VPRVFN VDEL+1*
>> VPRVST VST+21*, VST+23, VST+24*, VST+25, VST+26*, VDEL+1*, VAIP+9*, VAIP+14*, VAIP+15*, VAIP+16
, VSTR+3, HF1+6*, POV1+7*, POV1+8, CPT1+6*, VTO+2, VTO+12, EDP1+4*
>> VPRVST0 HF1+6*, POV1+7*, CPT1+6*
>> VPRVT VDEL+1*
VPRX APPT1+5~, APPT1+8
VPRX("FLDS" APPT1+7*
VPRX("SORT" APPT1+7*
VPRX(1 APPT1+6*
VPRX(4 APPT1+6*
VPTF PTF1+2~, PTF1+7
VPTF(0 PTF1+7
VPTF(1 PTF1+8
VST STUB~, STUB+3, VCPT+1~, VCPT+8*, VCPT+9, DUP~, DUP+2, DUP+4, PTF1+2~, PTF1+3*
PTF1+4*, PTF1+5*, PTF1+6
X VNUM+1~, VNUM+2*, SPEC+1~, SPEC+2*, SPEC+3*, VSTR+3*, CPT+1~, CPT+3*, VPRV+1~, VPRV+2*
, VPRV+3, VPRV+4, CKOUT+1~, CKOUT+3*, CKOUT+4*, PTF1+2~, PTF1+8*, PTF1+9
X0 CPT+1~, CPT+2*, CPT+3, VCPT+1~, VCPT+3*, VCPT+8
Y VNUM+1~, VNUM+3*, VNUM+4, WARDFAC+1~, WARDFAC+2*, WARDFAC+3*, WARDFAC+4, VSTR+1~*, VSTR+2*, VSTR+3*
, VSTR+4, CPT+1~*, CPT+2, CPT+3*, CPT+4, POVNARR+1~*, POVNARR+3*, POVNARR+4*, POVNARR+5, DUP+1~
, DUP+3*, DUP+4, DUP+6*, DUP+7, VTO+1~*, VTO+4, VTO+6*, VTO+8, VTO+10*, VTO+12*
, VTO+13, CKOUT+1~, CKOUT+2*, CKOUT+3*, CKOUT+4*, CKOUT+5, PTF1+2~, PTF1+8*, PTF1+9, APPTPRV+1~*
, APPTPRV+4*, APPTPRV+5*, APPTPRV+7*, APPTPRV+10*, APPTPRV+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All