YSASLIB ;692/DCL-ASI,HIOFO/FT - LIBRARY FUNCTIONS ;2/21/13 10:38am
Source file <YSASLIB.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ID(YSAS) | ;Identifiers for file 604, pass Y (IEN)
|
|
FUID(YSAS) | ;Identifiers for file 604, pass Y (IEN) used when listing FOLLOW-UP ASI.
|
|
PID(YSAS) | ;Identifiers for Patient file, #2 - pass Y (IEN)
|
|
DT(X) | ;Convert date to external format
|
|
SSN(X) | ;Convert ssn to external format
|
|
NEW() | ;Adding New Entries - return an internal number - EXTRINSIC FUNCTION
|
|
NEW047(D0) | ;Adding new sub-entry and return an internal number - EXTRINSIC
|
|
VL() | ;
|
|
X(X,F,T) | ;Check is X is integer or NN or XX and return truth value TO KILL X (INPUT TRANSFORM)
|
|
USI(YSADUZ) | ;Unsigned Intakes, pass user's duz and return total number of unsigned intakes
|
|
USF(YSADUZ) | ;Unsigned Follow-ups, pass user's duz and return total number on unsigned follow-ups
|
|
US(YSADUZ) | ;Unsigned ASIs return in 2 piece string #INTAKEs^#FOLLOW-UPs
|
|
DISP(YSADUZ,YSASCLS) | ;Display ASI requiring signature - pass DUZ and CLASS (ASI TYPE)
|
|
INTRO | ;
|
|
STATUS(YSAU) | ;Return status of unsigned ASIs on a user.
|
|
RACE(X) | ;Pass file 2 race code and return ASI race code, if possible.
|
|
REL(X) | ;Pass file 2 religion code and return ASI religion code, if possible.
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^YSTX(604 - [#604] | GET1^DIQ |