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 |  Marked Items  | All
Print Page as PDF
Routine: VPRSDA

Package: Virtual Patient Record

Routine: VPRSDA


Information

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

Source Information

Source file <VPRSDA.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
General Medical Record - Vitals 3 EN1^GMRVUT0  $$FIELD^GMVGETVT  GETREC^GMVUTL  
VA FileMan 3 ^%DT  ($$EXTERNAL,$$FLDNUM)^DILFD  ($$GET1,GETS)^DIQ  
Enterprise Terminology Services 2 ($$GETNAME,GETNAME)^ETSLNC  ($$CSDATA,CSDATA)^ETSRXN  
Scheduling 2 ($$PRPT,$$PRTM)^SCAPMC  $$OUTPTPR^SDUTL3  
Virtual Patient Record 2 $$RANGE^VPRDGMV  (ADVDIR,CPROCS,PRF)^VPRSDAQ  
CPT HCPCS Codes 1 ($$CPT,$$CPTD)^ICPTCOD  
Consult Request Tracking 1 DOCLIST^GMRCGUIB  
DRG Grouper 1 ($$ICDD,$$SNAM,$$SYS)^ICDEX  
Functional Independence 1 (GC,PRM)^RMIMRP  
Kernel 1 NAMECOMP^XLFNAME  
Lexicon Utility 1 $$CODE^LEXTRAN  
Text Integration Utility 1 EXTRACT^TIULQ  

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

Package Total Caller Graph
Virtual Patient Record 6 VPRP24  VPRSDAL  VPRSDAP  VPRSDAT  VPRSDAV  VPRSR  

Entry Points

Name Comments DBIA/ICR reference
INTDATE(X) ; -- Return internal form of date X
DATE(X,DTO) ; -- return FM date X as SDA Timestamp
VALID(X) ; -- returns 1 or 0, if valid FM date
NAMECOMP(NAME) ; -- return name as string of component pieces
; NAME -> FAMILY^GIVEN^MIDDLE^SUFFIX
WP(ORIFN,ID) ; -- return a WP value from an order response as a string
LASTACT(ORIFN) ; -- return DA of current or last order action
CODED ; -- ck Code Table ID for internal^external format
CODE(IEN,FILE,CSYS,CDT) ; -- find CSYS code for IEN in FILE
; CSYS can be string of abbreviations to look for, in order
DESC(CODE) ; -- called from CODE, to return coding system text
; Expects all the variables used in CODE()
CPT(IEN,DATE) ; -- return code^description^CPT-4 for #81 IEN
HLOC(X) ; -- return Hosp Loc #44 ien from location name X
COUNTY(ST,CTY) ; -- return ien^name for a STate and CounTY
CONSNAME(IEN) ; -- return display name using fields
; Request Type (#13), To Service (#1) & Procedure/Request Type (#4)
PROVDX(IEN) ; -- return full Consult ProvDx string, or null
PROBCMT(IEN) ; -- return list of comments in
; DLIST(#) = id ^ date ^ user ^ type ^ facility ^ text
SCTTEXT(CODE,IEN) ; -- get Preferred Text for SCT Code
AD(ID) ; -- get info for one Adv Directive
LRTIU(IDT,SUB) ; -- return TIU ien of lab report
ORDG(DG) ; -- return ien^name^VA100.98 for a DG abbreviation
CP1(IEN) ; -- get MD nodes for procedure [ID Action]
; VPRCP = ^TMP("MDHSP",$J,I)
; VPRCN = ^GMR(123,consult,0)
; VPRTIU(field#,"I") = TIU data field
VIT1(IEN) ; -- get info for one Vital measurement, returns VPRGMV=^(0)
VITQUAL ; -- build DLIST(#)=Qualifiers [code^name]
VITCODE(IEN,SFN) ; -- return [first] code for vital type
; SubFileNumber = 120.518 for Vital Type
; 120.522 for Vital Qualifier
FIM1(IEN) ; -- get info for one set of measurements
FIMS ; -- get DLIST(#)=name^value of each score
; Returns VPRFIMS = Assessment type(s) for ProblemDetail
TOTAL(NODE) ; -- Return total of scores, or "" if incomplete
PRF1(ID) ; -- set up one patient record flag assignment [moved to VPRSDAF]
; Returns VPRF1("NAME")=VALUE
PCMM ; -- get DLIST(#)=ien^role of PCP, team members
; Expects DFN, VPRTEAM = ien^name of PCTeam
PCMMT ; -- enter here for just the team members

External References

Name Field # of Occurrence
^%DT INTDATE+2, VALID+3, CP1+11
$$EXTERNAL^DILFD CODED+4
$$FLDNUM^DILFD CODE+4
$$GET1^DIQ DESC+12, COUNTY+2, CONSNAME+5, LRTIU+3, CP1+5, PCMMT+8
GETS^DIQ CODE+5, VITCODE+4
$$GETNAME^ETSLNC DESC+10
GETNAME^ETSLNC DESC+9
$$CSDATA^ETSRXN DESC+7
CSDATA^ETSRXN DESC+6
DOCLIST^GMRCGUIB CP1+14
EN1^GMRVUT0 VIT1+10
$$FIELD^GMVGETVT VIT1+4
GETREC^GMVUTL VIT1+2
$$ICDD^ICDEX PROVDX+7
$$SNAM^ICDEX PROVDX+8
$$SYS^ICDEX PROVDX+8
$$CPT^ICPTCOD CPT+3
$$CPTD^ICPTCOD CPT+5
$$CODE^LEXTRAN DESC+4, SCTTEXT+3
GC^RMIMRP FIM1+2
PRM^RMIMRP FIM1+1
$$PRPT^SCAPMC PCMM+4
$$PRTM^SCAPMC PCMMT+3
$$OUTPTPR^SDUTL3 PCMM+2
EXTRACT^TIULQ AD+2, CP1+16, FIM1+5
$$RANGE^VPRDGMV VIT1+14
ADVDIR^VPRSDAQ AD+6
CPROCS^VPRSDAQ CP1+6
PRF^VPRSDAQ PRF1+5
NAMECOMP^XLFNAME NAMECOMP+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] GET1^DIQ
^SCTM(404.57 - [#404.57] GET1^DIQ
5.01 GET1^DIQ
^MDD(702 - [#702] GET1^DIQ
^TIU(8925 - [#8925] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPROB - [#9000011] PROBCMT+3, PROBCMT+4, SCTTEXT+2
^LR - [#63] LRTIU+3
^OR(100 - [#100] WP+2, WP+3, LASTACT+2, LASTACT+3
^ORD(100.98 - [#100.98] ORDG+1, ORDG+2
^SC("B" HLOC+2
^TMP("MDHSP" CP1+4, CP1+7
^TMP("TIUPPCV" AD+4
^TMP("VPRGMV" VIT1+6
^UTILITY($J VIT1+11, VIT1+13!

Label References

Name Line Occurrences
$$DESC CODE+13
$$TOTAL FIMS+8
$$VALID DATE+5

Naked Globals

Name Field # of Occurrence
^( WP+3, PROBCMT+3, PROBCMT+4, LRTIU+3, VIT1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT INTDATE+1~, INTDATE+2*, VALID+1~*, CP1+10~, CP1+11*
ALL PCMM+2~, PCMM+4*
BMI VIT1+8~, VIT1+11*, VIT1+12
CDT CODE~, CODE+3*, DESC+4, DESC+7
CODE DESC~, DESC+4, DESC+7, DESC+10, SCTTEXT~, SCTTEXT+3
CSYS CODE~, CODE+7
CTY COUNTY~, COUNTY+2, COUNTY+3
D DATE+1~, DATE+3*, DATE+5, DATE+6
DA WP+1~, WP+2*, WP+3
>> DATA PROVDX+2*
DATE CPT~, CPT+2*, CPT+3, CPT+5
>> DDEOUT PROVDX+3*, PROVDX+4*, CP1+8*, VIT1+1*, VIT1+3*, FIM1+1*, PRF1+3*
DFN AD+3*, AD+4, CP1+5*, VIT1+8~, VIT1+9*, PRF1+2*, PRF1+3, PCMM+2, PCMM+4
DG ORDG~, ORDG+1
DLIST AD+5~, CP1+6~, PRF1+5~
DLIST( PROBCMT+7*, AD+7, VITQUAL+3*, FIMS+12*, FIMS+13*, FIMS+14*, PCMMT+8*
DLIST("A" PCMMT+4
DLIST(1 PCMM+3*
DT CODE+3, CPT+2, PROVDX+5, SCTTEXT+2
DTO DATE~, DATE+9
FAC PROBCMT+2~, PROBCMT+3*, PROBCMT+6
>> FIELD CODED+3, CODED+4
FILE CODED+3, CODED+4, CODE~, CODE+4, CODE+5, DESC+12
FLD CODE+2~, CODE+4*, CODE+5
GMPDT SCTTEXT+1~, SCTTEXT+2*, SCTTEXT+3
GMRVSTR VIT1+8~, VIT1+9*
GMRVSTR(0 VIT1+9*
I DATE+8*, NAMECOMP+3~, NAMECOMP+4*, WP+1~, WP+3*, CODE+2~, CODE+11*, CODE+12, CPT+1~, CPT+7*
, CPT+8*, PROBCMT+2~, PROBCMT+3*, PROBCMT+4, PROBCMT+7, AD+5~, AD+7*, LRTIU+1~, LRTIU+3*, CP1+7*
VITQUAL+1~, VITQUAL+3*, FIMS+2~, FIMS+7*, FIMS+8, FIMS+9, TOTAL+1~, TOTAL+2*, PRF1+6~*, PRF1+7
ID WP~, WP+2, CODED+1, CODED+2, CODED+4, CODED+6*, AD~, AD+1*, AD+2, AD+3
, AD+7*, AD+8*, PRF1~, PRF1+2, PRF1+3, PRF1+6
IDT LRTIU~, LRTIU+1*, LRTIU+2, LRTIU+3, VIT1+8~, VIT1+10*, VIT1+11
IEN CODE~, CODE+5, DESC+12, CPT~, CPT+2*, CPT+3, CONSNAME~, PROVDX~, PROBCMT~, PROBCMT+3
, PROBCMT+4, PROBCMT+7, SCTTEXT~, SCTTEXT+2, LRTIU+1~, LRTIU+3*, CP1~, CP1+5, CP1+7, VIT1~
, VIT1+1*, VIT1+2, VIT1+6, VIT1+11, VITCODE~, VITCODE+4, FIM1~, FIM1+2
IENS CODE+2~, CODE+9*, CODE+10, VITCODE+3~, VITCODE+5*, VITCODE+6
J PROBCMT+2~, PROBCMT+4*, PROBCMT+7, FIMS+2~, FIMS+13*
LEX DESC+2~, DESC+7, DESC+10, SCTTEXT+1~
LEX("LEX" DESC+8
LEX("LONGNAME" DESC+11
LEX("P" DESC+5, SCTTEXT+4
LEXY SCTTEXT+1~, SCTTEXT+3*, SCTTEXT+4
>> LRDFN LRTIU+3
N CPT+1~, CPT+5*, CPT+6, PROBCMT+2~*, PROBCMT+7*, FIMS+2~, FIMS+3*, FIMS+12*, FIMS+13*, FIMS+14*
NAME NAMECOMP~, NAMECOMP+2
NAME( NAMECOMP+4
NAME("FAMILY" NAMECOMP+3
NAMES CODE+2~, CODE+8*, CODE+10, CODE+13, FIMS+2~, FIMS+4*, FIMS+5*, FIMS+6*, FIMS+13
NM CODED+2~*, CODED+5*, CODED+6
NODE TOTAL~, TOTAL+2
NOTE FIM1+4~*, FIM1+5, FIM1+6
ORIFN WP~, WP+2, WP+3, LASTACT~, LASTACT+1*, LASTACT+2, LASTACT+3
PCP PCMM+2~*, PCMM+3, PCMMT+5
PRV PCMMT+1~, PCMMT+5*, PCMMT+6, PCMMT+7, PCMMT+8
QUALS VITQUAL+1~, VITQUAL+2*, VITQUAL+3
ROLE PCMMT+1~, PCMMT+6*, PCMMT+7, PCMMT+8
S CODE+2~, CODE+7*
SCORES FIMS+2~, FIMS+8*, FIMS+13
SFN CODE+2~, CODE+6*, CODE+9, CODE+10, CODE+11, VITCODE~, VITCODE+4, VITCODE+5, VITCODE+6
SFN1 CODE+2~, CODE+11*, CODE+12
ST COUNTY~, COUNTY+2
SUB LRTIU~, LRTIU+1*, LRTIU+2, LRTIU+3
SUM FIMS+2~, FIMS+8*, FIMS+14, TOTAL+1~, TOTAL+2*, TOTAL+3
SYS CODE+2~, CODE+7*, CODE+8, DESC+3, DESC+6, DESC+9
T DATE+1~, DATE+3*, DATE+12*, DATE+13*, DATE+14*, DATE+15*, DATE+16*, DATE+17
TYPE FIMS+2~, FIMS+9*, FIMS+10, FIMS+12
U NAMECOMP+4, LASTACT+2, CODED+6, CODE+7, CODE+13, DESC+8, CPT+4, CPT+5, CPT+9, COUNTY+3
, CONSNAME+3, CONSNAME+4, CONSNAME+5, CONSNAME+6, CONSNAME+7, CONSNAME+8, PROVDX+3, PROVDX+4, PROVDX+5, PROVDX+6
, PROVDX+7, PROVDX+8, PROBCMT+5, PROBCMT+6, PROBCMT+7, SCTTEXT+2, LRTIU+3, ORDG+2, CP1+11, CP1+13
, CP1+15, VIT1+4, VIT1+6, VIT1+9, VIT1+11, VIT1+12, VITQUAL+3, FIM1+4, FIMS+13, TOTAL+2
PCMMT+8
>> VPRADV AD+8*
>> VPRANGE VIT1+14*
VPRC CODE+2~, VITCODE+3~
VPRC( CODE+9, CODE+10, CODE+11, CODE+12, VITCODE+5, VITCODE+6
VPRC(0 CODE+6
>> VPRCN CP1+14*
>> VPRCONS( PROVDX+2
>> VPRCONS(0 CONSNAME+2, CONSNAME+6*
>> VPRCONS(30 PROVDX+2
>> VPRCP CP1+7*, CP1+8, CP1+11*, CP1+13, CP1+15
VPRD CP1+10~, CP1+13!, CP1+14, CP1+15!
VPRD( CP1+17
VPRD(0 CP1+14
VPRD(50 CP1+14
VPRDX PROVDX+1~, PROVDX+7
VPRDX(1 PROVDX+8
>> VPRF PRF1+4
>> VPRF( PRF1+7
>> VPRF("IDX" PRF1+6
VPRF1 PRF1+4!, PRF1+7*
>> VPRFIMS FIMS+3*, FIMS+10*, FIMS+15*
>> VPRGMV VIT1+3*, VIT1+4, VIT1+6*, VIT1+9, VIT1+10, VIT1+12*
>> VPRM FIM1+2
>> VPRM( FIMS+7, FIMS+8
>> VPRM("TIU" FIM1+6*
>> VPRM(1 FIM1+4
VPRN PCMMT+1~, PCMMT+4*, PCMMT+8*
>> VPRPTP("SCPR" PCMMT+7
>> VPRSITE FIM1+1
>> VPRSITE(1 FIM1+1
>> VPRTEAM PCMMT+2, PCMMT+3
VPRTIU AD+1!, CP1+17*, FIM1+4!
VPRTIU( AD+3, FIM1+6
VPRTM PCMMT+1~
VPRTM("SCPR" PCMMT+5, PCMMT+6
>> VPRTYPE VIT1+4*, VIT1+5, VIT1+9, VIT1+11, VIT1+14
>> VPRV VIT1+2
>> VPRV(0 VIT1+3
>> VPRV(5 VITQUAL+2
VPRX CPT+1~, CONSNAME+2~*, CONSNAME+3, CONSNAME+4, CONSNAME+5*, CONSNAME+7, CONSNAME+8
VPRX( CPT+8
VPRX(1 CPT+6, CPT+7
X INTDATE~, DATE~, DATE+2*, DATE+3, VALID~, VALID+1*, VALID+2*, WP+1~, WP+3*, WP+4
, WP+5, WP+6, CODED+2~, CODED+4*, CODED+5, CODE+2~, CODE+10*, DESC+2~, DESC+4*, DESC+5
, DESC+7*, DESC+8, DESC+10*, DESC+11, CPT+1~, CPT+7*, CPT+8*, CPT+9, HLOC~, HLOC+2
, PROVDX+1~, PROVDX+2*, PROVDX+3, PROVDX+4, PROVDX+5*, PROVDX+6*, PROVDX+7, PROVDX+8, PROBCMT+2~, PROBCMT+4*
, PROBCMT+5, PROBCMT+6, AD+5~, AD+7*, LRTIU+1~, LRTIU+3*, ORDG+1~*, ORDG+2, CP1+10~, CP1+11*
, CP1+13*, CP1+14, CP1+15*, CP1+16, CP1+17, VITQUAL+1~, VITQUAL+3*, FIMS+2~, FIMS+13*, TOTAL+1~
, TOTAL+2*
X0 CPT+1~, CPT+3*, CPT+4
Y INTDATE+1~, INTDATE+3, DATE+1~, DATE+6*, DATE+8*, DATE+9, DATE+17*, DATE+18, VALID+1~, VALID+3
, VALID+5, NAMECOMP+3~*, NAMECOMP+4*, NAMECOMP+5, WP+1~*, WP+4*, WP+5*, WP+6*, WP+7, LASTACT+1~
, LASTACT+2*, LASTACT+3*, LASTACT+4, CODE+2~, CODE+3*, CODE+7, CODE+9, CODE+12*, CODE+13*, CODE+14
, DESC+2~*, DESC+5*, DESC+8*, DESC+11*, DESC+12*, DESC+13, CPT+1~, CPT+4*, CPT+5, CPT+9*
, CPT+10, HLOC+1~*, HLOC+2*, HLOC+3, COUNTY+1~*, COUNTY+2*, COUNTY+3*, COUNTY+4, CONSNAME+2~, CONSNAME+4*
, CONSNAME+5*, CONSNAME+6, CONSNAME+7*, CONSNAME+8*, CONSNAME+9*, CONSNAME+12, PROVDX+1~*, PROVDX+8*, PROVDX+9, PROBCMT+6*
, PROBCMT+7, SCTTEXT+1~*, SCTTEXT+4*, SCTTEXT+5, LRTIU+1~, LRTIU+2*, LRTIU+3*, LRTIU+4, ORDG+1~*, ORDG+2*
, ORDG+3, CP1+10~, CP1+11, VITCODE+3~, VITCODE+6*, VITCODE+7

Marked Items

Name Field # of Occurrence
$T(CSDATA^ETSRXN DESC+6
$T(GETNAME^ETSLNC DESC+9
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 |  Marked Items  | All