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 |