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 |
