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 |