VPRSDA ;SLC/MKB -- SDA utilities ;10/25/18 15:29
Source file <VPRSDA.m>
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 | VPRP24 VPRSDAL VPRSDAP VPRSDAT VPRSDAV VPRSR |
VA FileMan | 2 | ^DDE ITEM |
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 |
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 |
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! |
Name | Line Occurrences |
---|---|
$$DESC | CODE+13 |
$$ORSIG | OR1+5 |
$$TOTAL | FIMS+8 |
$$VALID | DATE+5 |
Name | Field # of Occurrence |
---|---|
^( | WP+3, ORSIG+8, VIT1+7 |
^(3 | OR1+3 |
^(6 | OR1+3 |
^(8 | OR1+3 |
>> | 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 |
Name | Field # of Occurrence |
---|---|
$T(CSDATA^ETSRXN | DESC+6 |
$T(GETNAME^ETSLNC | DESC+9 |