YSASLIB ;692/DCL-ASI,HIOFO/FT - LIBRARY FUNCTIONS ;2/21/13 10:38am
Source file <YSASLIB.m>
| 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 |
| Package | Total | Caller Graph |
|---|---|---|
| Mental Health | 3 | YSAS ASI USER MENU YSASA2 ^YSTX(604 |
| Kernel | 1 | ^DIC(19 |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | ID+4, FUID+4, PID+3, DISP+10 |
| ^YSTX(604 - [#604] | ID+3, FUID+3, FUID+5, FUID+6, NEW+2, NEW047+2, NEW047+4, USI+4, USF+4, US+4 , US+5, DISP+6, DISP+7 |
| ^YSTX(604.5 - [#604.5] | FUID+7 |
| Name | Line Occurrences |
|---|---|
| $$DT | PID+3 |
| $$SSN | PID+4 |
| $$US | STATUS+3 |
| STATUS | INTRO+3 |
| Name | Field # of Occurrence |
|---|---|
| ^(11 | DISP+7 |
| ^(12 | FUID+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AUI2X | NEW+1~, NEW+2*, NEW+3 |
| C | USI+2~, USI+3*, USI+4*, USI+5, USF+2~, USF+3*, USF+4*, USF+5, US+2~, US+5* , US+6, US+7, US+8, US+9, DISP+3~, DISP+7*, DISP+8, DISP+9 |
| C1 | US+2~, US+3*, US+7*, US+11, DISP+3~, DISP+4* |
| C2 | US+2~, US+3*, US+8*, US+11, DISP+3~, DISP+4* |
| C3 | US+2~, US+3*, US+9*, US+11 |
| D | USI+2~, USI+3*, USI+4, USF+2~, USF+3*, USF+4, US+2~, US+3*, US+4, DISP+3~ , DISP+4*, DISP+6 |
| D0 | NEW047~, NEW047+1, NEW047+2, NEW047+4 |
| DIERR | ID+2~, FUID+2~ |
| >> DILOCKTM | NEW+2, NEW047+4 |
| DUZ | STATUS+1 |
| F | X~, X+2 |
| >> I | STATUS+4*, STATUS+5 |
| IOF | INTRO+1 |
| >> IOG0 | VL+2 |
| >> IOG1 | VL+2 |
| >> IOVL | VL+1, VL+2 |
| T | X~, X+2 |
| U | ID+5, NEW+2, STATUS+4 |
| X | DT~, DT+1, DT+2, SSN~, SSN+1, SSN+2, X~, X+2, X+3, X+4 , X+5, USI+2~, USI+3*, USI+4*, USF+2~, USF+3*, USF+4*, US+2~, US+3*, US+4* , US+5, DISP+3~, DISP+4*, DISP+6*, DISP+7, DISP+10, STATUS+2~, STATUS+4*, STATUS+5, RACE~ , RACE+1, RACE+2, RACE+3, RACE+4, REL~, REL+1, REL+2, REL+3, REL+4, REL+5 |
| X0 | DISP+3~, DISP+7*, DISP+10 |
| X11 | DISP+3~, DISP+7*, DISP+10 |
| YSADUZ | USI~, USI+1, USI+3, USF~, USF+1, USF+3, US~, US+1, US+3, DISP~ , DISP+1, DISP+4 |
| YSAS | ID~, ID+1, ID+3, ID+6, ID+7, FUID~, FUID+1, FUID+3, FUID+5, FUID+6 , FUID+8, PID~, PID+1, PID+3, STATUS+2~, STATUS+3*, STATUS+4 |
| YSAS0 | ID+2~, ID+3*, ID+5, FUID+2~, FUID+3*, PID+2~, PID+3*, PID+4 |
| YSASCLS | DISP~, DISP+2, DISP+9 |
| YSASD | ID+2~, ID+5*, ID+7, FUID+2~, FUID+5*, FUID+8 |
| YSASDOB | PID+2~, PID+3*, PID+5 |
| YSASF | FUID+2~, FUID+6*, FUID+7 |
| YSASFN | FUID+2~, FUID+7*, FUID+8 |
| YSASN | ID+2~, ID+3*, ID+4*, ID+7, FUID+2~, FUID+3*, FUID+4*, FUID+8, PID+4*, PID+5 |
| YSASP | FUID+2~, FUID+6*, FUID+8 |
| YSASSSN | PID+2~, PID+4*, PID+5 |
| YSAST | ID+2~, ID+6*, ID+7 |
| YSASX | NEW047+3~, NEW047+4*, NEW047+5 |
| YSAU | STATUS~, STATUS+1*, STATUS+3 |
