TIUCP ;SLC/RMO - Clinical Procedures API(s) and RPC(s) ;5/12/04
Source file <TIUCP.m>
| Package | Total | Call Graph |
|---|---|---|
| Text Integration Utility | 2 | $$ISA^TIULX LONGLIST^TIUSRVD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ISCP(TIUY,TITLE) | ;RPC that evaluates whether or not a Title is under
|
|
| ISHISTX | ||
| CLASS() | ;Get the CLINICAL PROCEDURES Class TIU Document Definition
|
|
| ISHISTCP(TITLE) | ; Function evaluates whether a Title is under the
|
|
| HPCAN(TIUACT) | ; Is action allowed (not prohibited outright) for HP docmts
; Returns 1 if action allowed (not prohibited outright) ; 0^WHYNOT if action not allowed (prohibited outright) ; Requires TIUACT=IEN in USR ACTION file |
|
| CPCLASS(Y) | ;RPC that gets the CLINICAL PROCEDURES TIU Document
|
|
| LNGCP(Y,FROM,DIR) | ;RPC that serves data to a longlist of selectable Titles
; Input -- FROM Reference Title from which the longlist is ; scrolling ; DIR Direction from which the longlist is scrolling ; from the reference Title (Optional- default 1) ; Output -- Y An array of the 44 nearest Titles to that indicated ; by the user in the direction passed by the longlist ; component |
|
| ISCPQ | ||
| HISTDC() | ;Get Historical Procedures Document Class IEN (under Class CLINICAL PROCEDURES) in TIU DDEF file (#8925.1)
; -- P182 ; Input -- None ; Output -- TIU Document Definition file (#8925.1) IEN |
|
| LNGCPQ |
| RPC Name | Call Tags |
|---|---|
| TIU IS THIS A CLINPROC? | ISCP |
| TIU IDENTIFY CLINPROC CLASS | CPCLASS |
| TIU LONG LIST CLINPROC TITLES | LNGCP |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TIU(8925.1 - [#8925.1] | CLASS+7, CLASS+8, HISTDC+6, HISTDC+7 |
| Name | Line Occurrences |
|---|---|
| $$CLASS | ISCP+11, CPCLASS+4, LNGCP+14 |
| $$HISTDC | ISHISTCP+9 |
| ISCP | HISTDC+8 |
| ISCPQ | ISCP+8, ISCP+14 |
| ISHISTX | ISHISTCP+7, ISHISTCP+11 |
| LNGCPQ | LNGCP+11, LNGCP+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ALLOWED | HPCAN+4~*, HPCAN+5*, HPCAN+6*, HPCAN+7*, HPCAN+8*, HPCAN+9*, HPCAN+10 |
| DIR | LNGCP~, LNGCP+20 |
| FROM | LNGCP~, LNGCP+11, LNGCP+20 |
| TITLE | ISHISTCP~, ISHISTCP+7, ISHISTCP+13, ISCP~, ISCP+8, ISCP+17 |
| TIUACT | HPCAN~, HPCAN+5, HPCAN+6, HPCAN+7, HPCAN+8, HPCAN+9 |
| TIUCLASS | ISCP+5~, ISCP+11*, ISCP+14, ISCP+17, LNGCP+8~, LNGCP+14*, LNGCP+17, LNGCP+20 |
| TIUDCLAS | ISHISTCP+5~, ISHISTCP+9*, ISHISTCP+11, ISHISTCP+13 |
| TIUI | CLASS+4~, CLASS+5*, CLASS+7*, CLASS+8, CLASS+9, HISTDC+4~, HISTDC+5*, HISTDC+6*, HISTDC+7, HISTDC+8 |
| TIUISCP | HISTDC+4~, HISTDC+8 |
| TIUY | ISCP~, ISCP+8*, ISCP+14*, ISCP+17* |
| TYPE | CLASS+4~, CLASS+8*, CLASS+9, HISTDC+4~, HISTDC+7*, HISTDC+8 |
| U | CLASS+8, HISTDC+7 |
| Y | CLASS+4~, CLASS+5*, CLASS+7, CLASS+9*, CLASS+10, HISTDC+4~, HISTDC+5*, HISTDC+6, HISTDC+8*, HISTDC+9 , ISHISTCP+5~, ISHISTCP+7*, ISHISTCP+11*, ISHISTCP+13*, ISHISTX, CPCLASS~, CPCLASS+4*, LNGCP~, LNGCP+20 |