TIUSRVR ; SLC/JER - Server fns for record manipulation ; 01/22/2002 16:18
Source file <TIUSRVR.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 |
|---|---|---|
| SGET(TIUY,DA) | ; Get fixed fields for record TIUDA
|
|
| TGET(TIUY,TIUDA,TIUJ,TIUDAD) | ; Get each component
|
|
| GET4EDIT(TIUY,TIUDA,DR) | ; Get data in preparation for editing a record
|
|
| CPGT4EDT(TIUY,TIUDA) | ; Get data in preparation for editing a record
|
|
| IFTEXT() | ;
|
|
| GETPREF(TIUY,USER) | ; Get user's personal preferences
; Call with TIUY (by ref) ; USER is pointer to file 200 ; Returns TIUY = USER ^ DEFAULT LOCATION ^ REVIEW SCREEN SORT FIELD ^ ; ==>REVIEW SCREEN SORT ORDER ^ DISPLAY MENUS ^ PATIENT ; ==>SELECTION PREFERENCE ^ ASK 'Save changes?' AFTER ; ==>EDIT ^ ASK SUBJECT FOR PROGRESS NOTES ^ |
|
| GETALRT(TIUY,XQAID) | ; Retrieve DFN and document type for a TIU alert
|
|
| GET1405(TIUY,TIUDA) | ; Get the Request (field #1405) for a document
|
|
| MERGTEXT(TIUDA) | ; Merge text from "TEMP"-node to "TEXT"-node
|
|
| CLEANTXT(TIUDA) | ; Remove "TEXT"-nodes of document and components
|
| Name | Field # of Occurrence |
|---|---|
| $$CLASS^TIUCNSLT | GETALRT+13 |
| $$CLASS^TIUCP | GETALRT+13 |
| MERGTEXT^TIUEDI1 | MERGTEXT+4 |
| $$ISADDNDM^TIULC1 | CLEANTXT+4 |
| $$PNAME^TIULC1 | SGET+6 |
| GETTIU^TIULD | MERGTEXT+3 |
| $$PERSPRF^TIULE | GETPREF+7 |
| $$CANDO^TIULP | TGET+2, GET4EDIT+5, CPGT4EDT+8 |
| EXTRACT^TIULQ | GET4EDIT+7 |
| TEMP^TIULQ | CPGT4EDT+11 |
| TEXT^TIULQ | CPGT4EDT+12 |
| $$DATE^TIULS | SGET+13 |
| $$NAME^TIULS | SGET+8 |
| $$SIGNAME^TIULS | SGET+11 |
| $$ISA^TIULX | GETALRT+12, GETALRT+13 |
| $$ISDS^TIULX | GETALRT+11 |
| $$CLASS^TIUSROI | GETALRT+12 |
| RPC Name | Call Tags |
|---|---|
| TIU GET PERSONAL PREFERENCES | GETPREF |
| TIU LOAD RECORD FOR EDIT | GET4EDIT |
| TIU GET ALERT INFO | GETALRT |
| TIU GET REQUEST | GET1405 |
| ORWORB GET TIU ALERT INFO | GETALRT |
| TIU LOAD RECORD TEXT | CPGT4EDT |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | SGET+4 |
| ^SC - [#44] | SGET+7 |
| ^TIU(8925 - [#8925] | SGET+3, SGET+4, SGET+5, TGET+6, TGET+8, TGET+12, GET4EDIT+2, GET4EDIT+15*, CPGT4EDT+5, CPGT4EDT+11 , CPGT4EDT+12, IFTEXT+2, GETALRT+3, GETALRT+4, GETALRT+5, GETALRT+6, GETALRT+7, GETALRT+8, GETALRT+14, GET1405+2 , GET1405+3, GET1405+4, GET1405+5, GET1405+6, GET1405+8, MERGTEXT+5!, CLEANTXT+2!, CLEANTXT+3, CLEANTXT+5! |
| ^TMP("TIUEDIT" | GET4EDIT+3!, GET4EDIT+4, GET4EDIT+6*, GET4EDIT+11*, GET4EDIT+14*, GET4EDIT+15*, CPGT4EDT+6!, CPGT4EDT+7, CPGT4EDT+9*, CPGT4EDT+19* , CPGT4EDT+20* |
| ^TMP("TIULQ" | GET4EDIT+3!, GET4EDIT+4, CPGT4EDT+6!, CPGT4EDT+7 |
| Name | Line Occurrences |
|---|---|
| $$IFTEXT | GET4EDIT+2, CPGT4EDT+5 |
| CLEANTXT | MERGTEXT+2 |
| MERGTEXT | GET4EDIT+2, CPGT4EDT+5 |
| TGET | TGET+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AUT | SGET+1~, SGET+11*, SGET+15 |
| CANEDIT | GET4EDIT+1~, GET4EDIT+5*, GET4EDIT+6, CPGT4EDT+3~, CPGT4EDT+8*, CPGT4EDT+9 |
| D0 | GET4EDIT+1~, CPGT4EDT+3~ |
| DA | SGET~, SGET+3, SGET+4, SGET+5 |
| DIQ2 | GET4EDIT+1~, CPGT4EDT+3~ |
| DOC | SGET+1~, SGET+6*, SGET+15 |
| DR | GET4EDIT~, GET4EDIT+7, CPGT4EDT+4* |
| DTFMT | SGET+1~, SGET+12*, SGET+13 |
| DUZ | GET4EDIT+15 |
| EDT | SGET+1~, SGET+13*, SGET+15 |
| ERR | GET4EDIT+1~, GET4EDIT+7, GET4EDIT+8 |
| GMRCO | GETALRT+1~, GETALRT+14*, GETALRT+15 |
| LOC | SGET+1~, SGET+7*, SGET+15 |
| ORTAB | GETALRT+1~, GETALRT+10*, GETALRT+11*, GETALRT+12*, GETALRT+15*, GETALRT+16 |
| PT | SGET+1~, SGET+8*, SGET+10, SGET+15 |
| SUBJ | SGET+2~, SGET+5*, SGET+15 |
| TIU | MERGTEXT+1~, MERGTEXT+3, MERGTEXT+4 |
| TIU1405 | GET1405+1~, GET1405+8*, GET1405+9, GET1405+10 |
| TIUARR | GET4EDIT+1~, GET4EDIT+4*, GET4EDIT+7, GET4EDIT+10, GET4EDIT+11, GET4EDIT+13, GET4EDIT+14, GET4EDIT+16 |
| TIUCHK | IFTEXT+1~, IFTEXT+2*, IFTEXT+3 |
| TIUCNT | SGET+2~, SGET+14* |
| TIUDA | TGET~, TGET+2, TGET+6, TGET+8, TGET+12, TGET+13, GET4EDIT~, GET4EDIT+2, GET4EDIT+5, GET4EDIT+7 , GET4EDIT+10, GET4EDIT+11, GET4EDIT+13, GET4EDIT+14, GET4EDIT+15, CPGT4EDT~, CPGT4EDT+5, CPGT4EDT+8, CPGT4EDT+11, CPGT4EDT+12 , CPGT4EDT+18, CPGT4EDT+19, IFTEXT+2, GETALRT+1~, GETALRT+2*, GETALRT+3, GETALRT+4, GETALRT+5, GETALRT+6, GETALRT+7 , GETALRT+14, GETALRT+16, GET1405~, GET1405+2, GET1405+3, GET1405+4, GET1405+5, GET1405+8, MERGTEXT~, MERGTEXT+2 , MERGTEXT+3, MERGTEXT+4, MERGTEXT+5, CLEANTXT~, CLEANTXT+2, CLEANTXT+3 |
| TIUDAD | TGET~, TGET+13, GETALRT+1~, GETALRT+7*, GETALRT+8, GETALRT+14, GET1405+1~, GET1405+5*, GET1405+6, GET1405+8 |
| TIUDADT | TGET+1~ |
| TIUDFN | GETALRT+1~, GETALRT+5*, GETALRT+9, GETALRT+16 |
| TIUERR | CPGT4EDT+3~, CPGT4EDT+13 |
| TIUF | GET4EDIT+1~, GET4EDIT+9*, GET4EDIT+10*, GET4EDIT+11, CPGT4EDT+3~ |
| TIUI | TGET+1~*, TGET+5*, TGET+6*, TGET+8, GET4EDIT+1~, GET4EDIT+12*, GET4EDIT+13*, GET4EDIT+14, CPGT4EDT+3~, CPGT4EDT+17* , CPGT4EDT+18*, CPGT4EDT+19, CLEANTXT+1~*, CLEANTXT+3*, CLEANTXT+4, CLEANTXT+5 |
| TIUJ | TGET~, TGET+5*, TGET+7*, TGET+8, TGET+13 |
| TIUKID | TGET+1~, TGET+11*, TGET+12*, TGET+13 |
| TIULST4 | SGET+1~, SGET+9*, SGET+10*, SGET+15 |
| TIUPT | SGET+1~, SGET+4*, SGET+8, SGET+9 |
| TIUR0 | SGET+1~, SGET+3*, SGET+4, SGET+6 |
| TIUR12 | SGET+1~, SGET+3*, SGET+7, SGET+11 |
| TIUR13 | SGET+1~, SGET+4*, SGET+12, SGET+13 |
| TIUREC | SGET+1~ |
| TIUROOT | CPGT4EDT+3~, CPGT4EDT+7*, CPGT4EDT+18, CPGT4EDT+19, CPGT4EDT+21 |
| TIUSEE | TGET+1~, TGET+2*, TGET+3, TGET+5 |
| TIUTYP | GET1405+1~, GET1405+3*, GET1405+6*, GET1405+7 |
| TIUY | SGET~, SGET+15*, TGET~, TGET+13, GET4EDIT~, GET4EDIT+4*, GET4EDIT+8*, CPGT4EDT~, CPGT4EDT+7*, CPGT4EDT+13* , GETPREF~, GETPREF+7*, GETALRT~, GETALRT+3*, GETALRT+9*, GETALRT+16*, GET1405~, GET1405+2*, GET1405+7*, GET1405+9* , GET1405+10* |
| TIUY( | TGET+8* |
| TIUY(1 | TGET+4* |
| TIUY(2 | TGET+5* |
| U | SGET+4, SGET+7, SGET+8, SGET+9, SGET+11, SGET+15, GET4EDIT+6, GET4EDIT+11, CPGT4EDT+9, GETALRT+4 , GETALRT+5, GETALRT+6, GETALRT+7, GETALRT+8, GETALRT+14, GETALRT+16, GET1405+3, GET1405+4, GET1405+5, GET1405+6 , GET1405+8 |
| USER | GETPREF~, GETPREF+7 |
| X | GETALRT+1~, GETALRT+4*, GETALRT+8*, GETALRT+9, GETALRT+11, GETALRT+12, GETALRT+13 |
| XQAID | GETALRT~, GETALRT+2 |