VPRDVSIT ;SLC/MKB -- Visit/Encounter extract ;8/2/11 15:29
Source file <VPRDVSIT.m>
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 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Virtual Patient Record | 6 | VPRDJ04 VPRDJ04A VPRDSDAM VPRHSX2 VPRP20 VPRSDAV |
VA FileMan | 2 | ^DDE ITEM |
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
|
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 |
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 |
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 |
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 |
Name | Field # of Occurrence |
---|---|
^( | EN1+26, EN1+29, EN1+32, POV+2, CPT+2 |
^(150 | EN1+5 |
>> | 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* |