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  
Kernel 2 NAMECOMP^XLFNAME  $$KSP^XUPARAM  
Virtual Patient Record 2 $$RANGE^VPRDGMV  CPROCS^VPRSDAQ  
CPT HCPCS Codes 1 ($$CPT,$$CPTD)^ICPTCOD  
Consult Request Tracking 1 DOCLIST^GMRCGUIB  
Functional Independence 1 (GC,PRM)^RMIMRP  
Lexicon Utility 1 $$CODE^LEXTRAN  
Registration 1 $$SITE^VASITE  
Text Integration Utility 1 EXTRACT^TIULQ  
Womens Health 1 BASELINE^WVRPCVPR  

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

Package Total Caller Graph
Virtual Patient Record 6 VPRP24  VPRSDAL  VPRSDAP  VPRSDAT  VPRSDAV  VPRSR  
VA FileMan 2 ^DDE  ITEM  

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
CODED ; -- ck Code Table ID for internal^external format
; called from DDEG for entity VPR CODE TABLE using variables:
; FILE, FIELD, ID (read only, do NOT kill)
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()
NULL(N) ; -- return null string(s) to delete property
CPT(IEN,DATE,LONG) ; -- 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
SITE() ; -- return current site#
OR1(ORIFN) ; -- define basic variables for any order
; Returns OR0, OR3, OR6, OR8, ORDAD, and ORSIG to Order entities
WP(ORIFN,ID) ; -- return a WP value from an order response as a string
ORDG(DG) ; -- return ien^name^VA100.98 for a DG abbreviation
LASTACT(ORIFN) ; -- return DA of current or last order action
ORSIG(ORIFN) ; -- return string of signature data from Order Action as
; Signature Status (#4) ^ Signed By (#5) ^ D/T Signed (#6), or
; Signature Status (#4) ^ ^ Release D/T (#16) if not e-signed
CP1(IEN) ; -- get MD nodes for procedure [ID Action], returns:
; 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 VPRV array, VPRGMV=VPRV(0), VPRANGE, VPRTYPE to entity
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
; Returns VPRSITE, VPRM arrays to entity
FIMS ; -- get DLIST(#)=name^value of each score
; Returns VPRFIMS = Assessment type(s) for ProblemDetail
TOTAL(NODE) ; -- Return total of scores, or "" if incomplete
WVPL1(IEN) ; -- set up pregnancy API array (IEN will be DFN)
; Returns VPRPREG array to entity

External References

Name Field # of Occurrence
^%DT INTDATE+2, VALID+3, CP1+11
$$EXTERNAL^DILFD CODED+6, ORSIG+15
$$FLDNUM^DILFD CODE+4
$$GET1^DIQ DESC+12, COUNTY+2, CP1+5
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+11
$$FIELD^GMVGETVT VIT1+5
GETREC^GMVUTL VIT1+3
$$CPT^ICPTCOD CPT+3
$$CPTD^ICPTCOD CPT+6
$$CODE^LEXTRAN DESC+4
GC^RMIMRP FIM1+3
PRM^RMIMRP FIM1+2
EXTRACT^TIULQ CP1+16, FIM1+6
$$SITE^VASITE SITE+1
$$RANGE^VPRDGMV VIT1+15
CPROCS^VPRSDAQ CP1+6
BASELINE^WVRPCVPR WVPL1+3
NAMECOMP^XLFNAME NAMECOMP+2
$$KSP^XUPARAM SITE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
100.008 EXTERNAL^DILFD
5.01 GET1^DIQ
^MDD(702 - [#702] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^OR(100 - [#100] OR1+3, WP+2, WP+3, LASTACT+2, LASTACT+3, ORSIG+4, ORSIG+8, ORSIG+11
^ORD(100.98 - [#100.98] ORDG+1, ORDG+2
^SC("B" HLOC+2
^TMP("MDHSP" CP1+4, CP1+7
^TMP("VPRGMV" VIT1+7
^TMP("WVPREGST" WVPL1+3, WVPL1+4, WVPL1+5, WVPL1+6
^UTILITY($J VIT1+12, VIT1+14!

Label References

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

Naked Globals

Name Field # of Occurrence
^( WP+3, ORSIG+8, VIT1+7
^(3 OR1+3
^(6 OR1+3
^(8 OR1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT INTDATE+1~, INTDATE+2*, VALID+1~*, CP1+10~, CP1+11*
BMI VIT1+9~, VIT1+12*, VIT1+13
CDT CODE~, CODE+3*, DESC+4, DESC+7
CODE DESC~, DESC+4, DESC+7, DESC+10
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
DATE CPT~, CPT+2*, CPT+3, CPT+6
>> DDEOUT CP1+8*, VIT1+2*, VIT1+4*, FIM1+2*, WVPL1+2*, WVPL1+4*
DFN CP1+5*, VIT1+9~, VIT1+10*, WVPL1+6*
DG ORDG~, ORDG+1
DLIST CP1+6~
DLIST( VITQUAL+3*, FIMS+12*, FIMS+13*, FIMS+14*
DT CODE+3, CPT+2
DTO DATE~, DATE+9
>> FIELD CODED+5, CODED+6
FILE CODED+5, CODED+6, CODE~, CODE+4, CODE+5, DESC+12
FLD CODE+2~, CODE+4*, CODE+5
GMRVSTR VIT1+9~, VIT1+10*
GMRVSTR(0 VIT1+10*
I DATE+8*, NAMECOMP+3~, NAMECOMP+4*, CODE+2~, CODE+11*, CODE+12, NULL+1~, NULL+2*, CPT+1~, CPT+8*
, CPT+9*, WP+1~, WP+3*, ORSIG+3~, ORSIG+8*, CP1+7*, VITQUAL+1~, VITQUAL+3*, FIMS+2~, FIMS+7*
FIMS+8, FIMS+9, TOTAL+1~, TOTAL+2*
ID CODED+3, CODED+4, CODED+6, CODED+8*, WP~, WP+2
IDT VIT1+9~, VIT1+11*, VIT1+12
IEN CODE~, CODE+5, DESC+12, CPT~, CPT+2*, CPT+3, CP1~, CP1+5, CP1+7, VIT1~
, VIT1+2*, VIT1+3, VIT1+7, VIT1+12, VITCODE~, VITCODE+4, FIM1~, FIM1+3, WVPL1~, WVPL1+2
, WVPL1+3, WVPL1+6*
IENS CODE+2~, CODE+9*, CODE+10, VITCODE+3~, VITCODE+5*, VITCODE+6
J FIMS+2~, FIMS+13*
LEX DESC+2~, DESC+7, DESC+10
LEX("LEX" DESC+8
LEX("LONGNAME" DESC+11
LEX("P" DESC+5
LONG CPT~, CPT+5
N NULL~, NULL+1*, NULL+2, CPT+1~, CPT+6*, CPT+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+4~*, CODED+7*, CODED+8
NODE TOTAL~, TOTAL+2
NOTE FIM1+5~*, FIM1+6, FIM1+7
>> OR0 OR1+3*
>> OR3 OR1+3*, OR1+4
>> OR6 OR1+3*
>> OR8 OR1+3*
>> ORDAD OR1+4*, ORSIG+10, ORSIG+11
ORIFN OR1~, OR1+2*, OR1+3, OR1+5, WP~, WP+2, WP+3, LASTACT~, LASTACT+1*, LASTACT+2
, LASTACT+3, ORSIG~, ORSIG+4, ORSIG+8
>> ORSIG OR1+5*
QOT NULL+1~*, NULL+2
QUALS VITQUAL+1~, VITQUAL+2*, VITQUAL+3
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
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, CODED+8, CODE+7, CODE+13, DESC+8, NULL+2, CPT+4, CPT+6, CPT+10, COUNTY+3
, OR1+4, ORDG+2, LASTACT+2, ORSIG+5, ORSIG+7, ORSIG+9, ORSIG+10, ORSIG+12, ORSIG+14, ORSIG+15
, CP1+11, CP1+13, CP1+15, VIT1+5, VIT1+7, VIT1+10, VIT1+12, VIT1+13, VITQUAL+3, FIM1+5
FIMS+13, TOTAL+2
>> VPRANGE VIT1+15*
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*
>> 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
>> VPRFIMS FIMS+3*, FIMS+10*, FIMS+15*
>> VPRGMV VIT1+4*, VIT1+5, VIT1+7*, VIT1+10, VIT1+11, VIT1+13*
>> VPRM FIM1+3
>> VPRM( FIMS+7, FIMS+8
>> VPRM("TIU" FIM1+7*
>> VPRM(1 FIM1+5
>> VPRPREG WVPL1+5*
>> VPRSITE FIM1+2
>> VPRSITE(1 FIM1+2
VPRTIU CP1+17*, FIM1+5!
VPRTIU( FIM1+7
>> VPRTYPE VIT1+5*, VIT1+6, VIT1+10, VIT1+12, VIT1+15
>> VPRV VIT1+3
>> VPRV(0 VIT1+4
>> VPRV(5 VITQUAL+2
VPRX CPT+1~
VPRX( CPT+9
VPRX(1 CPT+7, CPT+8
X INTDATE~, DATE~, DATE+2*, DATE+3, VALID~, VALID+1*, VALID+2*, CODED+4~, CODED+6*, CODED+7
, CODE+2~, CODE+10*, DESC+2~, DESC+4*, DESC+5, DESC+7*, DESC+8, DESC+10*, DESC+11, CPT+1~
, CPT+8*, CPT+9*, CPT+10, HLOC~, HLOC+2, WP+1~, WP+3*, WP+4, WP+5, WP+6
, ORDG+1~*, ORDG+2, ORSIG+3~, ORSIG+8*, ORSIG+9, ORSIG+11*, ORSIG+12, ORSIG+15*, 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, ORSIG+3~, ORSIG+4*, ORSIG+5, ORSIG+7, ORSIG+10, ORSIG+14
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, 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, NULL+1~, NULL+2*, NULL+3
, CPT+1~, CPT+4*, CPT+6, CPT+10*, CPT+11, HLOC+1~*, HLOC+2*, HLOC+3, COUNTY+1~*, COUNTY+2*
, COUNTY+3*, COUNTY+4, SITE+1~*, SITE+2*, SITE+3, WP+1~*, WP+4*, WP+5*, WP+6*, WP+7
, ORDG+1~*, ORDG+2*, ORDG+3, LASTACT+1~, LASTACT+2*, LASTACT+3*, LASTACT+4, ORSIG+3~*, ORSIG+5*, ORSIG+7
, ORSIG+9*, ORSIG+10, ORSIG+12*, ORSIG+14*, ORSIG+15*, ORSIG+16, 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