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: VPRDVSIT

Package: Virtual Patient Record

Routine: VPRDVSIT


Information

VPRDVSIT ;SLC/MKB -- Visit/Encounter extract ;8/2/11 15:29

Source Information

Source file <VPRDVSIT.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Registration 3 RPC^DGPTFAPI  (IN5,INP)^VADPT  ADM^VADPT2  
VA FileMan 3 FIND^DIC  $$EXTERNAL^DILFD  $$GET1^DIQ  
Virtual Patient Record 2 ($$ESC,$$FAC,$$PROVSPC,$$PROVTAGS)^VPRD  ($$INFO,$$TEXT)^VPRDTIU  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
DRG Grouper 1 ($$CODEC,$$CSI,$$ICDDX,$$SAB,$$VLTD,$$VSTD)^ICDEX  
Kernel 1 ($$NS,$$STA)^XUAF4  
PCE Patient Care Encounter 1 ENCEVENT^PXAPI  
Scheduling 1 $$GETOE^SDOE  

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: 4

Package Total Caller Graph
Virtual Patient Record 4 VPRDJ04  VPRDJ04A  VPRDSDAM  VPRSDAQ  

Entry Points

Name Comments DBIA/ICR reference
EN(DFN,BEG,END,MAX,ID) ; -- find patient's visits and appointments
ENQ ; end
ENAA(DFN,BEG,END,MAX,ID) ; -- find patient's visits and appointments [AA]
IDT ; -- invert BEG and END dates for visit format:
; IDT=(9999999-$P(VDT,"."))_"."_$P(VDT,".",2)
EN1(IEN,VST) ; -- return a visit in VST("attribute")=value
TIU(VISIT) ; -- add notes to VST("document")
POV(VISIT,VDT) ; -- return the primary Purpose of Visit as ICD^ProviderNarrative
ICD(IEN,DATE) ; -- return code^description^system for ICD code, or "^^" if error
CPT(VISIT) ; -- Return CPT code of encounter type
AMIS(X) ; -- return the AMIS code^name of Credit Stop X
CATG(X) ; -- Return name of visit Service Category code X
SERV(FTS) ; -- Return #42.4 Service for a Facility Treating Specialty
ADMVT(VAINDT) ; -- return movement# for related admission
ADM(IEN,DATE,ADM) ; -- return an admission in ADM("attribute")=value
INPT ; -- return current admission in ADM("attribute")=value [from ADM]
PTF(DFN,PTF,DATE) ; -- return ICD code^description^system for a PTF record
ENC(IEN,ENC) ; -- return an encounter in ENC("attribute")=value
XML(VISIT) ; -- Return patient visit as XML
LOOP() ; -- build sub-items string from NAMES and X
ADD(X) ; -- Add a line @VPR@(n)=X

External References

Name Field # of Occurrence
RPC^DGPTFAPI PTF+2
FIND^DIC TIU+2
$$EXTERNAL^DILFD EN1+33, POV+4, ENC+11
$$GET1^DIQ SERV+2, ENC+8
$$CODEC^ICDEX ICD+3
$$CSI^ICDEX ICD+6
$$ICDDX^ICDEX PTF+4
$$SAB^ICDEX ICD+6, PTF+6
$$VLTD^ICDEX ICD+3
$$VSTD^ICDEX ICD+5
$$CPT^ICPTCOD EN1+15, EN1+30, ADM+19, INPT+15
ENCEVENT^PXAPI EN1+4
$$GETOE^SDOE ENC+3
IN5^VADPT ADM+5
INP^VADPT INPT+1
ADM^VADPT2 ADMVT+2, ADM+3
$$ESC^VPRD XML+16, XML+21, LOOP+2
$$FAC^VPRD EN1+11, ADM+17, INPT+13, ENC+10
$$PROVSPC^VPRD EN1+27, ADM+9, ADM+10, INPT+5, INPT+6
$$PROVTAGS^VPRD XML+9
$$INFO^VPRDTIU TIU+6
$$TEXT^VPRDTIU TIU+8
$$NS^XUAF4 EN1+10
$$STA^XUAF4 EN1+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SCE - [#409.68] EXTERNAL^DILFD
^SC - [#44] GET1^DIQ
^DIC(45.7 - [#45.7] GET1^DIQ
^TIU(8925 - [#8925] FIND^DIC
^AUPNVPOV - [#9000010.07] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT("AA" ENAA+6, ENAA+7
^AUPNVSIT("AET" EN+12, EN+13, EN+14
^DIC(40.7 - [#40.7] AMIS+2
^DIC(42 - [#42] ADM+15, INPT+11
^DPT - [#2] ADM+4
^SC - [#44] EN1+16, EN1+20, ADM+16, INPT+12, ENC+6
^TMP("PXKENC" EN1+5, EN1+26, EN1+29, EN1+32, EN1+36!, POV+2, CPT+2
^TMP("VPRTEXT" ENQ+1!, EN1+2!
^VA(200 - [#200] EN1+27

Label References

Name Line Occurrences
$$ADMVT EN1+18
$$AMIS EN1+19, EN1+21, EN1+23
$$CATG EN1+12, EN1+16, ADM+19, INPT+15, ENC+13, ENC+14
$$CPT EN1+15, ADM+19, INPT+15
$$ICD EN1+33, POV+3
$$LOOP XML+12, XML+22
$$POV EN1+24, ADM+13, INPT+9
$$PTF ADM+13, INPT+9
$$SERV EN1+22, ADM+12, INPT+8, ENC+9
ADD XML+2, XML+3, XML+5, XML+13, XML+14, XML+15, XML+16, XML+17, XML+18, XML+23
ADM EN1+7
EN1 EN+6, EN+15, ENAA+4, ENAA+8
ENQ EN+6
IDT ENAA+5
INPT ADM+4
TIU EN1+35, ADM+24, INPT+17
XML EN+6, EN+16, ENAA+4, ENAA+9

Naked Globals

Name Field # of Occurrence
^( EN1+26, EN1+29, EN1+32, POV+2, CPT+2
^(150 EN1+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADM ADM~, ADM+1!
ADM("admission" ADM+6*, INPT+2*
ADM("arrivalDateTime" ADM+8*, INPT+4*
ADM("dateTime" ADM+8*, INPT+4*
ADM("departureDateTime" ADM+21*
ADM("facility" ADM+17*, INPT+13*
ADM("id" ADM+6*, INPT+2*
ADM("location" ADM+16*, INPT+12*
ADM("patientClass" ADM+6*, INPT+2*
ADM("provider" ADM+9*, ADM+10*, INPT+5*, INPT+6*
ADM("ptf" ADM+12*, INPT+8*
ADM("reason" ADM+14*, INPT+10*
ADM("roomBed" ADM+17*, INPT+13*
ADM("service" ADM+12*, INPT+8*
ADM("serviceCategory" ADM+18*, INPT+14*
ADM("specialty" ADM+11*, INPT+7*
ADM("type" ADM+19*, INPT+15*
ADM("visitString" ADM+23*
ATT XML+1~, XML+3*, XML+4, XML+5, XML+6, XML+7, XML+8, XML+9, XML+10, XML+11
, XML+12, XML+13, XML+17, XML+18, XML+19, XML+20, XML+21, XML+22
BEG EN~, EN+3*, EN+12, ENAA~, ENAA+3*, ENAA+6, IDT+2, IDT+3*
CATG EN1+1~, EN1+9*, EN1+12, EN1+13, EN1+14, EN1+16
CNT TIU+1~, TIU+3*, TIU+7*, TIU+8
DA ENAA+1~, ENAA+7*, ENAA+8, EN1+1~, EN1+26*, EN1+27, EN1+29*, EN1+30, EN1+32*, EN1+33
, TIU+1~, TIU+5*, TIU+6, TIU+8, POV+1~, POV+2*, CPT+1~, CPT+2*
DATE EN1+1~, EN1+8*, EN1+13, EN1+18, EN1+24, EN1+33, ICD~, ICD+2*, ICD+3, ICD+5
, ADM~, ADM+2*, ADM+3, ADM+8*, ADM+13, ADM+23, INPT+4*, INPT+9, PTF~, PTF+3*
, PTF+4, ENC+1~, ENC+4*, ENC+15
DFN EN~, EN+2*, EN+12, EN+13, EN+14, ENAA~, ENAA+2*, ENAA+6, ENAA+7, ADM+4
, ADM+13, INPT+9, PTF~
DT ICD+2, PTF+3
ENC ENC~, ENC+1!
ENC("dateTime" ENC+4*
ENC("facility" ENC+10*
ENC("id" ENC+3*
ENC("location" ENC+7*
ENC("patientClass" ENC+12*
ENC("service" ENC+9*
ENC("serviceCategory" ENC+14*
ENC("type" ENC+13*
ENC("visitString" ENC+15*
END EN~, EN+3*, EN+9*, EN+12, ENAA~, ENAA+3*, ENAA+6, IDT+3, IDT+4*
FAC EN1+1~, EN1+9*, EN1+10, EN1+11
FTS SERV~, SERV+1*, SERV+2
HLOC ADM+1~, ADM+15*, ADM+16, ADM+17, ADM+23, INPT+11*, INPT+12, INPT+13, ENC+1~, ENC+5*
, ENC+6*, ENC+7, ENC+8, ENC+10, ENC+13, ENC+15
I TIU+1~, TIU+3*, TIU+4*, TIU+5, ICD+1~, ADM+1~, ADM+8*, ADM+9*, ADM+10*, INPT+4*
, INPT+5*, INPT+6*, XML+1~, XML+6*, XML+7, XML+13
ICD POV+1~, POV+3*, POV+4, ADM+1~, ADM+13*, ADM+14, INPT+9*, INPT+10
ID EN~, EN+6, ENAA~, ENAA+4
IDT ENAA+1~, ENAA+6*, ENAA+7
IEN EN1~, EN1+3*, EN1+4, EN1+5, EN1+7, EN1+8, EN1+15, EN1+24, EN1+26, EN1+29
, EN1+32, EN1+35, EN1+36, ICD~, ICD+2*, ICD+3, ICD+5, ICD+6, ADM~, ADM+2*
, ADM+6, ADM+13, ADM+19, ADM+24, INPT+2, INPT+9, INPT+15, INPT+17, ENC~, ENC+2*
, ENC+3
INPT EN1+1~, EN1+14*, EN1+16, EN1+17, EN1+18
J XML+1~, XML+16*
L0 EN1+20~*, EN1+21, EN1+22, EN1+23
LOC EN1+1~, EN1+9*, EN1+11, EN1+13, EN1+16, EN1+19, EN1+20
LT TIU+1~
MAX EN~, EN+3*, EN+12, ENAA~, ENAA+3*, ENAA+6
N ICD+1~
NAMES XML+1~, XML+7*, XML+8*, XML+9*, XML+10*, XML+11*, XML+20*, LOOP+2
NT TIU+1~
P LOOP+1~, LOOP+2*
PTF PTF~, PTF+2
STR LOOP+1~*, LOOP+2*, LOOP+3
STS ENC+1~, ENC+11*, ENC+12
TAG LOOP+1~, LOOP+2*
TYPE ENC+1~, ENC+12*, ENC+13, ENC+14, ENC+15
U EN1+6, EN1+7, EN1+9, EN1+10, EN1+12, EN1+14, EN1+15, EN1+16, EN1+19, EN1+21
, EN1+22, EN1+23, EN1+27, EN1+30, EN1+33, POV+2, POV+3, POV+4, ICD+4, ICD+5
, ICD+6, CPT+3, AMIS+2, ADM+9, ADM+10, ADM+11, ADM+14, ADM+16, ADM+17, ADM+19
, INPT+5, INPT+6, INPT+7, INPT+10, INPT+12, INPT+15, PTF+3, PTF+5, PTF+6, ENC+5
, ENC+6, ENC+7, ENC+11, ENC+13, ENC+14, LOOP+2
VADMVT ADMVT+1~, ADMVT+3, ADM+1~, ADM+3, ADM+4, ADM+5
VAERR ADMVT+1~, ADM+1~
VAIN ADM+1~
VAIN(1 INPT+1, INPT+2
VAIN(10 INPT+8, INPT+9
VAIN(11 INPT+6
VAIN(2 INPT+5
VAIN(3 INPT+7, INPT+8
VAIN(4 INPT+11
VAIN(5 INPT+13
VAIN(7 INPT+4
VAIN(9 INPT+10
VAINDT ADMVT~, ADM+1~, ADM+3*, INPT+1!
VAIP ADM+1~
VAIP("E" ADM+5*
VAIP(1 ADM+5
VAIP(12 ADM+12, ADM+13
VAIP(13 ADM+6, ADM+8
VAIP(17 ADM+20, ADM+21
VAIP(18 ADM+10
VAIP(5 ADM+15
VAIP(6 ADM+17
VAIP(7 ADM+9
VAIP(8 ADM+11, ADM+12
VAIP(9 ADM+14
VDT POV~, POV+3
VISIT TIU~, TIU+2, POV~, POV+2, CPT~, CPT+2, XML~
VISIT( XML+3, XML+4, XML+6, XML+7, XML+13, XML+19
>> VPR ADD+2
VPRCNT EN+1~, EN+10*, EN+12, EN+16*, ENAA+1~, ENAA+5*, ENAA+6, ENAA+9*
VPRDA EN+1~, EN+14*, EN+15
VPRDT EN+1~, EN+12*, EN+13, EN+14
>> VPRI ADD+1*, ADD+2
VPRITM EN+1~, EN+6, EN+15!, EN+16, ENAA+1~, ENAA+4, ENAA+8!, ENAA+9
VPRLOC EN+1~, EN+13*, EN+14
VPRPTF PTF+1~, PTF+2
VPRPTF(0 PTF+2
VPRPTF(1 PTF+3
>> VPRTEXT TIU+8
>> VPRTOTL XML+2*
VPRX TIU+1~, ICD+1~
VPRX("DILIST" TIU+4, TIU+5
VPRY TIU+1~
VST EN1~, EN1+2!, EN1+7
VST("admission" EN1+18*
VST("cpt" EN1+30*
VST("creditStopCode" EN1+23*
VST("dateTime" EN1+8*
VST("document" TIU+7*, TIU+8*
VST("facility" EN1+10*, EN1+11*
VST("icd" EN1+33*
VST("id" EN1+8*
VST("location" EN1+22*
VST("patientClass" EN1+17*
VST("provider" EN1+27*
VST("reason" EN1+24*
VST("service" EN1+22*
VST("serviceCategory" EN1+12*
VST("stopCode" EN1+19*, EN1+21*
VST("type" EN1+15*, EN1+16*
VST("visitString" EN1+13*
X IDT+2~*, IDT+4, EN1+1~, EN1+15*, EN1+16, EN1+19*, EN1+21, EN1+23*, TIU+1~, POV+1~
, POV+3*, POV+4, ICD+1~, ICD+3*, ICD+4, ICD+6*, CPT+1~, CPT+3*, AMIS~, AMIS+2
, CATG~, CATG+2, CATG+3, CATG+4, CATG+5, CATG+6, CATG+7, CATG+8, CATG+9, CATG+10
, CATG+11, CATG+12, CATG+13, ADM+9*, ADM+10*, ADM+12*, ADM+19*, INPT+5*, INPT+6*, INPT+8*
, INPT+15*, ENC+1~, ENC+8*, ENC+9, ENC+12*, XML+1~, XML+7*, XML+13*, XML+16, XML+19*
, XML+21, XML+22, LOOP+2, ADD~, ADD+2
X0 EN1+1~, EN1+5*, EN1+7, EN1+8, EN1+9, EN1+19, EN1+26*, EN1+27, EN1+29*, EN1+30
, EN1+32*, EN1+33, POV+1~, POV+2*, POV+3, ICD+1~, CPT+1~, CPT+2*, CPT+3, AMIS+1~
, AMIS+2*, PTF+1~, PTF+4*, PTF+5, PTF+6, ENC+1~, ENC+3*, ENC+4, ENC+5, ENC+11
X15 EN1+1~, EN1+5*, EN1+6, EN1+14
Y TIU+1~, TIU+3*, TIU+6*, TIU+7, POV+1~*, POV+2, POV+4*, POV+5, ICD+1~, ICD+3*
, ICD+4*, ICD+5*, ICD+6*, ICD+7, CPT+1~*, CPT+2, CPT+3*, CPT+4, AMIS+1~*, AMIS+2*
, AMIS+3, CATG+1~*, CATG+2*, CATG+3*, CATG+4*, CATG+5*, CATG+6*, CATG+7*, CATG+8*, CATG+9*
, CATG+10*, CATG+11*, CATG+12*, CATG+13*, CATG+14, SERV+1~*, SERV+2*, SERV+3, PTF+1~, PTF+3*
, PTF+4, PTF+5*, PTF+6*, PTF+7, ENC+1~, XML+1~, XML+3, XML+4*, XML+12*, XML+13*
, XML+14*, XML+15*, XML+16*, XML+19*, XML+21*, XML+22*
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