VPRSDA ;SLC/MKB -- SDA utilities ;10/25/18 15:29
Source file <VPRSDA.m>
| 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
|
| FileNo | Call Tags |
|---|---|
| ^SC - [#44] | GET1^DIQ |
| 5.01 | GET1^DIQ |
