VPRSDA ;SLC/MKB -- SDA utilities ;10/25/18 15:29
Source file <VPRSDA.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | NAMECOMP^XLFNAME PARENT^XUAF4 $$KSP^XUPARAM |
| VA FileMan | 3 | ^%DT ($$EXTERNAL,$$FLDNUM)^DILFD ($$GET1,GETS)^DIQ |
| Enterprise Terminology Services | 2 | ($$GETNAME,GETNAME)^ETSLNC ($$CSDATA,CSDATA)^ETSRXN |
| CPT HCPCS Codes | 1 | ($$CPT,$$CPTD)^ICPTCOD |
| Lexicon Utility | 1 | $$CODE^LEXTRAN |
| Registration | 1 | $$SITE^VASITE |
| 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 |
| 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
|
|
| FAC(HLOC) | ; -- return facility #4 ien for HospLOC #44 ien
|
|
| FACQ | ||
| CKFAC(IEN) | ; -- validate #4 ien, return Parent if no stn#
|
|
| SITE() | ; -- return current site#
|
|
| DEL1 | ; -- ID Action for Delete entities, returns VPR0=data
|
|
| NOQ | ; -- no query
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | INTDATE+2, VALID+3 |
| $$EXTERNAL^DILFD | CODED+6 |
| $$FLDNUM^DILFD | CODE+4 |
| $$GET1^DIQ | DESC+12, COUNTY+2, FAC+3, FAC+4 |
| GETS^DIQ | CODE+5 |
| $$GETNAME^ETSLNC | DESC+10 |
| GETNAME^ETSLNC | DESC+9 |
| $$CSDATA^ETSRXN | DESC+7 |
| CSDATA^ETSRXN | DESC+6 |
| $$CPT^ICPTCOD | CPT+3 |
| $$CPTD^ICPTCOD | CPT+6 |
| $$CODE^LEXTRAN | DESC+4 |
| $$SITE^VASITE | SITE+1 |
| NAMECOMP^XLFNAME | NAMECOMP+2 |
| PARENT^XUAF4 | CKFAC+4 |
| $$KSP^XUPARAM | SITE+2 |
| FileNo | Call Tags |
|---|---|
| ^SC - [#44] | GET1^DIQ |
| 5.01 | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(4 - [#4] | CKFAC+3 |
| ^SC("B" | HLOC+2 |
| ^XTMP("VPR-" | DEL1+3, DEL1+5 |
| Name | Line Occurrences |
|---|---|
| $$CKFAC | FAC+5 |
| $$DESC | CODE+13 |
| $$SITE | FAC+2, CKFAC+2, CKFAC+5 |
| $$VALID | DATE+5 |
| FACQ | FAC+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | INTDATE+1~, INTDATE+2*, VALID+1~* |
| 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 |
| DATE | CPT~, CPT+2*, CPT+3, CPT+6 |
| >> DIEN | DEL1+2, DEL1+3, DEL1+5 |
| 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 |
| >> FILTER("sequence" | DEL1+2 |
| FLD | CODE+2~, CODE+4*, CODE+5 |
| HLOC | FAC~, FAC+2*, FAC+3, FAC+4 |
| I | DATE+8*, NAMECOMP+3~, NAMECOMP+4*, CODE+2~, CODE+11*, CODE+12, NULL+1~, NULL+2*, CPT+1~, CPT+8* , CPT+9* |
| >> ID | CODED+3, CODED+4, CODED+6, CODED+8* |
| IEN | CODE~, CODE+5, DESC+12, CPT~, CPT+2*, CPT+3, CKFAC~, CKFAC+1*, CKFAC+2, CKFAC+3 , CKFAC+4 |
| IENS | CODE+2~, CODE+9*, CODE+10 |
| 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 |
| NAME | NAMECOMP~, NAMECOMP+2 |
| NAME( | NAMECOMP+4 |
| NAME("FAMILY" | NAMECOMP+3 |
| NAMES | CODE+2~, CODE+8*, CODE+10, CODE+13 |
| NM | CODED+4~*, CODED+7*, CODED+8 |
| QOT | NULL+1~*, NULL+2 |
| S | CODE+2~, CODE+7* |
| SEQ | DEL1+1~, DEL1+2*, DEL1+3, DEL1+5 |
| SFN | CODE+2~, CODE+6*, CODE+9, CODE+10, CODE+11 |
| SFN1 | CODE+2~, CODE+11*, CODE+12 |
| ST | COUNTY~, COUNTY+2 |
| 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 |
| U | NAMECOMP+4, CODED+8, CODE+7, CODE+13, DESC+8, NULL+2, CPT+4, CPT+6, CPT+10, COUNTY+3 , CKFAC+3, DEL1+5 |
| >> VPR0 | DEL1+1*, DEL1+3*, DEL1+5* |
| VPRC | CODE+2~ |
| VPRC( | CODE+9, CODE+10, CODE+11, CODE+12 |
| VPRC(0 | CODE+6 |
| VPRX | CPT+1~ |
| VPRX( | CPT+9 |
| VPRX(1 | CPT+7, CPT+8 |
| VPRZ | CKFAC+1~ |
| VPRZ("P" | CKFAC+4 |
| VST | DEL1+1~, DEL1+5* |
| 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, FAC+1~, FAC+3*, FAC+4*, FAC+5 |
| 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, 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, FAC+1~*, FAC+2*, FAC+5*, FACQ, CKFAC+2*, CKFAC+4*, CKFAC+5*, CKFAC+6 , SITE+1~*, SITE+2*, SITE+3 |
| Name | Field # of Occurrence |
|---|---|
| $T(CSDATA^ETSRXN | DESC+6 |
| $T(GETNAME^ETSLNC | DESC+9 |
