TIUSRVLL ; SLC/JER - Server functions for LOCAL lists ;7/16/01
Source file <TIUSRVLL.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LIST(TIUY,CLASS,DFN,EARLY,LATE) | ; Build List user can select from to browse
|
|
| GATHER(TIUY,DFN,CLASS,TIUI) | ; Find/sort records for the list to browse
|
|
| CONTEXT(TIUY,CLASS,CONTEXT,DFN,EARLY,LATE,PERSON,OCCLIM,SEQUENCE,TIUEXPKD) | ; main
; --- Call with: TIUY - Return array, pass by reference ; CLASS - Pointer to TIU DOCUMENT DEFINITION #8925.1 ; CONTEXT - 1=All Signed (by PT), ; - 2="Unsigned (by PT&(AUTHOR!TANSCRIBER)) ; - 3="Uncosigned (by PT&EXPECTED COSIGNER ; - 4="Signed notes (by PT&selected author) ; - 5="Signed notes (by PT&date range) ; DFN - Pointer to Patient (#2) ; [EARLY] - FM date/time to begin search ; [LATE] - FM date/time to end search ; [PERSON] - Pointer to file 200 (DUZ if not passed) ; [OCCLIM] - Occurrence Limit (optional) ; [SEQUENCE] - "A"=ascending (Regular date/time) (dflt) ; - "D"=descending (Reverse date/time) ; [TIUEXPKD] - Return array, pass by ref. ; TIUEXPKD(IFN)="", where we will expand IFN ; so ID kids/adda that meet criteria are ; displayed under it. |
|
| ACLPT(ARRAY,CLASS,DFN,TIME1,TIME2,OCCLIM,SEQUENCE) | ; Signed,
|
|
| SETARRY(ARRAY,TIUORDER) | ; Set ARRAY(SUB)=DA, which is passed
|
|
| REPLACE(TIUDA,DATTIM,EXPAND,FORGETAD) | ; Populate ^TMP("TIUREPLACE",$J) with
|
|
| ACLAU(ARRAY,CLASS,AUTHOR,DFN,TIME1,TIME2,SEQUENCE,TIUEXPKD) | ; Unsigned
|
|
| ACLEC(ARRAY,CLASS,EXCOSIGN,DFN,TIME1,TIME2,SEQUENCE,TIUEXPKD) | ; Uncosigned
|
|
| ACLSB(ARRAY,CLASS,SIGNEDBY,DFN,TIME1,TIME2,SEQUENCE,TIUEXPKD) | ; Signed, by author
|
|
| APTCL(ARRAY,CLASS,TIUAUTH,DFN,TIME1,TIME2,SEQUENCE,TIUEXPKD) | ; Signed, by author
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TIU(8925 - [#8925] | LIST+6, GATHER+3, GATHER+5!, GATHER+6, CONTEXT+36, CONTEXT+41, CONTEXT+48, ACLPT+4, ACLPT+10, ACLPT+11 , REPLACE+9, REPLACE+10, REPLACE+11, REPLACE+12, REPLACE+13, REPLACE+14, REPLACE+31, REPLACE+32, REPLACE+34, ACLAU+3 , ACLAU+8, ACLAU+9, ACLEC+3, ACLEC+8, ACLSB+3, ACLSB+8, APTCL+3, APTCL+8, APTCL+9, APTCL+11 |
| ^TMP("TIUREPLACE" | ACLPT+3!, ACLPT+8, ACLPT+17!, SETARRY+11, SETARRY+13, REPLACE+19, REPLACE+20*, REPLACE+21*, REPLACE+25, REPLACE+26* , REPLACE+27*, REPLACE+36, REPLACE+37*, REPLACE+38*, REPLACE+40, REPLACE+41*, REPLACE+42*, ACLAU+2!, ACLAU+14!, ACLEC+2! , ACLEC+11!, ACLSB+2!, ACLSB+11!, APTCL+2!, APTCL+15! |
| ^TMP("TIUYARRAY" | SETARRY+15* |
| ^TMP("TIUYLIST" | GATHER+8* |
| Name | Line Occurrences |
|---|---|
| ACLAU | CONTEXT+35, CONTEXT+36 |
| ACLEC | CONTEXT+40, CONTEXT+41 |
| ACLPT | CONTEXT+31 |
| GATHER | LIST+6 |
| REPLACE | ACLPT+14, ACLAU+12, ACLEC+9, ACLSB+9, APTCL+13 |
| SETARRY | ACLPT+16, ACLAU+13, ACLEC+10, ACLSB+10, APTCL+14 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | GATHER+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADDMGPNT | REPLACE+8~, REPLACE+31*, REPLACE+32*, REPLACE+33, REPLACE+34, REPLACE+35, REPLACE+36, REPLACE+37 |
| ADDMPRNT | REPLACE+8~, REPLACE+12*, REPLACE+13*, REPLACE+14, REPLACE+18, REPLACE+29, REPLACE+30, REPLACE+31, REPLACE+40, REPLACE+41 |
| ARRAY | ACLPT~, ACLPT+16, SETARRY~, ACLAU~, ACLAU+13, ACLEC~, ACLEC+10, ACLSB~, ACLSB+10, APTCL~ , APTCL+14 |
| AUTHOR | ACLAU~, ACLAU+3 |
| CLASS | LIST~, LIST+6, GATHER~, GATHER+3, GATHER+5, CONTEXT~, CONTEXT+21, CONTEXT+31, CONTEXT+35, CONTEXT+36 , CONTEXT+40, CONTEXT+41, CONTEXT+47, CONTEXT+48, ACLPT~, ACLPT+4, ACLAU~, ACLAU+3, ACLEC~, ACLEC+3 , ACLSB~, ACLSB+3, APTCL~, APTCL+3 |
| CONTEXT | CONTEXT~, CONTEXT+20, CONTEXT+30, CONTEXT+33, CONTEXT+38, CONTEXT+43 |
| DA | ACLPT+2~, ACLPT+9*, ACLPT+10, ACLPT+11, ACLPT+14, ACLAU+1~, ACLAU+7*, ACLAU+8, ACLAU+9, ACLAU+12 , ACLEC+1~, ACLEC+7*, ACLEC+8, ACLEC+9, ACLSB+1~, ACLSB+7*, ACLSB+8, ACLSB+9, APTCL+1~, APTCL+7* , APTCL+8, APTCL+9, APTCL+11, APTCL+13 |
| DATTIM | ACLPT+2~, ACLPT+5*, ACLPT+8*, ACLPT+9, ACLPT+10, ACLPT+14, SETARRY+8~, SETARRY+9*, SETARRY+11*, SETARRY+13 , REPLACE~, REPLACE+19, REPLACE+20, ACLAU+1~, ACLAU+4*, ACLAU+6*, ACLAU+7, ACLAU+8, ACLAU+9, ACLAU+12 , ACLEC+1~, ACLEC+4*, ACLEC+6*, ACLEC+7, ACLEC+8, ACLEC+9, ACLSB+1~, ACLSB+4*, ACLSB+6*, ACLSB+7 , ACLSB+8, ACLSB+9, APTCL+1~, APTCL+4*, APTCL+6*, APTCL+7, APTCL+8, APTCL+13 |
| DFN | LIST~, LIST+6, GATHER~, GATHER+3, GATHER+5, CONTEXT~, CONTEXT+27*, CONTEXT+31, CONTEXT+34, CONTEXT+35 , CONTEXT+36*, CONTEXT+39, CONTEXT+40, CONTEXT+41*, CONTEXT+44, CONTEXT+47, CONTEXT+48*, ACLPT~, ACLPT+4, ACLAU~ , ACLAU+3, ACLEC~, ACLEC+3, ACLSB~, ACLSB+3, APTCL~, APTCL+3 |
| DUZ | CONTEXT+24 |
| EARLY | LIST~, LIST+4*, LIST+6, CONTEXT~, CONTEXT+22*, CONTEXT+28*, CONTEXT+31, CONTEXT+35, CONTEXT+36, CONTEXT+40 , CONTEXT+41, CONTEXT+47, CONTEXT+48 |
| EXCOSIGN | ACLEC~, ACLEC+3 |
| EXPAND | REPLACE~, REPLACE+17*, REPLACE+24*, REPLACE+30*, REPLACE+35* |
| EXPAND( | REPLACE+24*, REPLACE+30*, REPLACE+35* |
| FORGETAD | REPLACE~, REPLACE+30 |
| GPDATTIM | REPLACE+8~, REPLACE+34*, REPLACE+36, REPLACE+37 |
| IDPRNT | REPLACE+8~, REPLACE+9*, REPLACE+10*, REPLACE+11, REPLACE+18, REPLACE+23, REPLACE+24, REPLACE+25, REPLACE+26 |
| LATE | LIST~, LIST+5*, CONTEXT~, CONTEXT+23*, CONTEXT+28*, CONTEXT+31, CONTEXT+35, CONTEXT+36, CONTEXT+40, CONTEXT+41 , CONTEXT+47, CONTEXT+48 |
| OCCLIM | CONTEXT~, CONTEXT+26*, CONTEXT+31, ACLPT~, ACLPT+8 |
| PDATTIM | REPLACE+8~, REPLACE+11*, REPLACE+14*, REPLACE+25, REPLACE+26, REPLACE+40, REPLACE+41 |
| PERSON | CONTEXT~, CONTEXT+24*, CONTEXT+35, CONTEXT+36, CONTEXT+40, CONTEXT+41, CONTEXT+47, CONTEXT+48 |
| ROOT | ACLPT+2~, ACLPT+4*, ACLPT+8, ACLPT+9, ACLPT+10, ACLAU+1~, ACLAU+3*, ACLAU+6, ACLAU+7, ACLAU+8 , ACLAU+9, ACLEC+1~, ACLEC+3*, ACLEC+6, ACLEC+7, ACLEC+8, ACLSB+1~, ACLSB+3*, ACLSB+6, ACLSB+7 , ACLSB+8, APTCL+1~, APTCL+3*, APTCL+6, APTCL+7, APTCL+8 |
| SEQUENCE | CONTEXT~, CONTEXT+25*, CONTEXT+31, CONTEXT+35, CONTEXT+36, CONTEXT+40, CONTEXT+41, CONTEXT+47, CONTEXT+48, ACLPT~ , ACLPT+7, ACLAU~, ACLAU+5, ACLEC~, ACLEC+5, ACLSB~, ACLSB+5, APTCL~, APTCL+5 |
| SIGNEDBY | ACLSB~, ACLSB+3 |
| SUB | SETARRY+8~, SETARRY+10*, SETARRY+14*, SETARRY+15 |
| TIME1 | ACLPT~, ACLPT+5, ACLAU~, ACLAU+4, ACLEC~, ACLEC+4, ACLSB~, ACLSB+4, APTCL~, APTCL+4 |
| TIME2 | ACLPT~, ACLPT+8, ACLAU~, ACLAU+6, ACLEC~, ACLEC+6, ACLSB~, ACLSB+6, APTCL~, APTCL+6 |
| TIUAUTH | APTCL~, APTCL+10 |
| TIUCNT | LIST+1~, LIST+4*, GATHER+7*, GATHER+8 |
| TIUCONT | LIST+2~ |
| TIUDA | GATHER+1~, GATHER+2*, GATHER+3*, GATHER+4, GATHER+5, GATHER+6, GATHER+8, SETARRY+8~, SETARRY+12*, SETARRY+13* , SETARRY+15, REPLACE~, REPLACE+9, REPLACE+12, REPLACE+19, REPLACE+20 |
| TIUDT | LIST+1~ |
| TIUEXPKD | CONTEXT~, CONTEXT+35, CONTEXT+36, CONTEXT+40, CONTEXT+41, ACLAU~, ACLAU+12, ACLEC~, ACLEC+9, ACLSB~ , ACLSB+9, APTCL~, APTCL+13 |
| TIUI | LIST+1~, LIST+5*, LIST+6*, GATHER~, GATHER+3, GATHER+5 |
| TIUJ | LIST+1~ |
| TIUK | LIST+1~ |
| TIUORDER | ACLPT+2~, ACLPT+7*, ACLPT+16, SETARRY~, SETARRY+14, ACLAU+1~, ACLAU+5*, ACLAU+13, ACLEC+1~, ACLEC+5* , ACLEC+10, ACLSB+1~, ACLSB+5*, ACLSB+10, APTCL+1~, APTCL+5*, APTCL+14 |
| TIUP | LIST+1~ |
| TIUPRM0 | LIST+1~, LIST+3, GATHER+4 |
| TIUPRM1 | LIST+1~ |
| TIUPRM3 | LIST+2~ |
| TIUQ | LIST+1~ |
| TIUREC | LIST+1~ |
| TIUS | LIST+2~ |
| TIUS12 | APTCL+1~, APTCL+9*, APTCL+10 |
| TIUS15 | APTCL+1~, APTCL+11*, APTCL+12 |
| TIUSTAT | LIST+2~ |
| TIUT | LIST+2~ |
| TIUTP | LIST+2~ |
| TIUTYPE | LIST+2~ |
| TIUY | LIST~, LIST+6, GATHER~, GATHER+8*, CONTEXT~, CONTEXT+19!*, CONTEXT+31, CONTEXT+35, CONTEXT+36, CONTEXT+40 , CONTEXT+41, CONTEXT+47, CONTEXT+48 |
| U | GATHER+4, GATHER+6, REPLACE+12, ACLAU+8, APTCL+10, APTCL+12 |
| XREF | LIST+2~ |
