TIULX ; SLC/JER - CROSS-REFERENCE LIBRARY FUNCTIONS ;03/07/23 12:32
Source file <TIULX.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ALOCP(DA) | ; Should record be included in daily print queue by location?
; Receives DA = record # in 8925 |
|
APTP(DA) | ; Should record be included in daily print queue by patient?
; Receives DA = record # in 8925 |
|
AAUP(DA) | ; Should record be included in daily print queue by author?
; Receives DA = record # in 8925 |
|
BELONGS(TIUDA,CLASS) | ; Evaluate whether a given document belongs to a
; particular document class |
|
ISA(DA,CLASS) | ; Evaluate whether a given document type is a member of a
; particular document class ; Receives DA = record # in 8925.1, and ; CLASS = record # of class in 8925.1 |
|
ISPN(DA) | ; Evaluate whether a given document is a Progress Note
; Receives DA = record # in 8925.1 |
|
ISCWAD(DA) | ; Evaluate whether a given title is a CWAD
|
|
ISDS(DA) | ; Evaluate whether a given document is a Discharge Summary
; Receives DA = record # in 8925.1 |
|
TRNSFRM(RTYPE,FLD,X) | ; Executes Transform code for a given header field
|
|
TRNSFRMX | ||
MENUS | ; Evaluate/enforce user's menu display preference
|
|
XTRASIGN(TIUY,TIUDA) | ; Get list of extra signers for a document
|
|
ASKSIGN(TIUY) | ; Identify which Signature to edit
|
|
PICK(LOW,HIGH,PROMPT,TYPE) | ; List selection
|
|
CWAD | ; Entry action for CWAD protocol
|
|
IDSIGNRS(TIUY,TIUDA,LIST) | ; add/remove additional signers (#8925.7) ajb *355
; .TIUY return location, pass by reference ; TIUDA document IEN from #8925 ; LIST(#) IEN^name^[REMOVE] |
|
REMSIGNR(TIUDA,TIUDUZ) | ; remove user from TIU MULTIPLE SIGNATURE (#8925.7)
|
|
GETSIGNR(TIUY,TIUDA) | ; RPC to Get list of extra signers for a document
|
|
HASDS(DFN,VSTR) | ; Does an admission have a Discharge Summary?
|
|
NEEDSIG(TIUY,USER,CLASS) | ||
TITLIENS | ; Get IENs of DDEF entries that have type Title
; in Document Definition file 8925.1 |
|
HASDOCMT(DFN) | ;Does patient have ANY entries in TIU DOCUMENT file 8925?
|
Name | Field # of Occurrence |
---|---|
$$FIND1^DIC | GETSIGNR+13 |
^DIE | REMSIGNR+4 |
UPDATE^DIE | IDSIGNRS+12 |
CLEAN^DILF | GETSIGNR+13 |
EN^DIQ1 | XTRASIGN+5, GETSIGNR+5 |
ENPAT^GMRPNCW | CWAD+11 |
PAT^GMRPNOR1 | CWAD+9 |
SEND^TIUALRT | IDSIGNRS+14 |
$$ISADDNDM^TIULC1 | BELONGS+3 |
$$PERSNAME^TIULC1 | GETSIGNR+11, GETSIGNR+14 |
$$PERSPRF^TIULE | MENUS+1 |
$$READ^TIUU | PICK+3, CWAD+7 |
$$SETSTR^VALM1 | XTRASIGN+9 |
FULL^VALM1 | CWAD+4 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
RPC Name | Call Tags |
---|---|
TIU GET ADDITIONAL SIGNERS | GETSIGNR |
TIU UPDATE ADDITIONAL SIGNERS | IDSIGNRS |
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | FIND1^DIC |
^TIU(8925.7 - [#8925.7] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DISV( | MENUS+2, MENUS+3* |
^ORD(101 - [#101] | MENUS+3 |
^TIU(8925 - [#8925] | ALOCP+2, APTP+2, AAUP+2, BELONGS+3, BELONGS+4, REMSIGNR+3, GETSIGNR+9, HASDS+2, HASDS+5, HASDS+6 , NEEDSIG+7, HASDOCMT+3 |
^TIU(8925.1 - [#8925.1] | ISA+5, ISPN+3, ISDS+3, TRNSFRM+2, TRNSFRM+4, TITLIENS+5 |
^TIU(8925.7 - [#8925.7] | XTRASIGN+3, IDSIGNRS+5, IDSIGNRS+6, REMSIGNR+2, REMSIGNR+3!, GETSIGNR+3, NEEDSIG+4, NEEDSIG+5, NEEDSIG+6 |
^TMP("TIUSIGN" | NEEDSIG+2 |
^TMP("TIUTLS" | TITLIENS+4!, TITLIENS+6* |
Name | Line Occurrences |
---|---|
$$ISA | BELONGS+4, ISA+7, ISCWAD+4, NEEDSIG+7 |
$$ISDS | ISDS+5, HASDS+4 |
$$ISPN | ALOCP+2, APTP+2, AAUP+2, ISPN+5 |
$$PICK | ASKSIGN+5, ASKSIGN+7 |
REMSIGNR | IDSIGNRS+8 |
TRNSFRMX | TRNSFRM+3, TRNSFRM+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | REMSIGNR+1~ |
CLASS | BELONGS~, BELONGS+4, ISA~, ISA+6, ISA+7, NEEDSIG~, NEEDSIG+2*, NEEDSIG+7 |
CONTEXT | HASDS+3~, HASDS+7*, HASDS+8 |
D | REMSIGNR+1~ |
D0 | IDSIGNRS+4~, REMSIGNR+1~ |
DA | ALOCP~, ALOCP+2, APTP~, APTP+2, AAUP~, AAUP+2, ISA~, ISA+5, ISPN~, ISPN+3 , ISCWAD~, ISCWAD+4, ISDS~, ISDS+3, XTRASIGN+1~, XTRASIGN+5*, XTRASIGN+6, XTRASIGN+8, XTRASIGN+10, REMSIGNR+1~ , REMSIGNR+2*, REMSIGNR+3, GETSIGNR+1~*, GETSIGNR+3*, GETSIGNR+6, GETSIGNR+8 |
DFN | CWAD+5, HASDS~, HASDS+2, HASDS+5, HASDOCMT~, HASDOCMT+3 |
DI | REMSIGNR+1~ |
DIC | XTRASIGN+1~, XTRASIGN+2*, REMSIGNR+1~, GETSIGNR+1~, GETSIGNR+2* |
DIDEL | REMSIGNR+1~, REMSIGNR+4* |
DIE | REMSIGNR+1~, REMSIGNR+4* |
DIQ | XTRASIGN+1~, XTRASIGN+2*, GETSIGNR+1~, GETSIGNR+2* |
DIQ(0 | GETSIGNR+5* |
DR | XTRASIGN+1~, XTRASIGN+5*, REMSIGNR+1~, REMSIGNR+4*, GETSIGNR+1~, GETSIGNR+5* |
DUZ | MENUS+1, MENUS+2, MENUS+3, NEEDSIG+2 |
ENTRY | IDSIGNRS+5~*, IDSIGNRS+6, IDSIGNRS+7 |
FDA | IDSIGNRS+4~, IDSIGNRS+9~ |
FDA( | IDSIGNRS+9*, IDSIGNRS+10*, IDSIGNRS+11* |
FLD | TRNSFRM~, TRNSFRM+2*, TRNSFRM+3, TRNSFRM+4 |
GMRPAGE | CWAD+1~ |
GMRPALG | CWAD+1~ |
GMRPCWAD | CWAD+1~ |
GMRPDFN | CWAD+1~, CWAD+10 |
GMRPDOB | CWAD+1~ |
GMRPEN | CWAD+1~, CWAD+10* |
GMRPLOC | CWAD+2~ |
GMRPOPT | CWAD+1~, CWAD+10* |
GMRPQT | CWAD+2~, CWAD+9 |
GMRPRB | CWAD+2~ |
GMRPSSN | CWAD+2~ |
HIGH | PICK~, PICK+3 |
I | ASKSIGN+1~, ASKSIGN+3*, ASKSIGN+4, ASKSIGN+5, ASKSIGN+6, IDSIGNRS+4~*, IDSIGNRS+5, IDSIGNRS+7, IDSIGNRS+8, IDSIGNRS+13 |
L | ASKSIGN+1~, ASKSIGN+3*, ASKSIGN+6*, ASKSIGN+7 |
LIST | IDSIGNRS~ |
LIST( | IDSIGNRS+4, IDSIGNRS+5, IDSIGNRS+7, IDSIGNRS+8, IDSIGNRS+13 |
LIST(0 | IDSIGNRS+14 |
LOW | PICK~, PICK+3 |
NODE0 | IDSIGNRS+6~*, IDSIGNRS+7 |
>> ORVP | CWAD+5 |
PROMPT | PICK~, PICK+1*, PICK+3 |
RTYPE | TRNSFRM~ |
RTYPE("TYPE" | TRNSFRM+2, TRNSFRM+4 |
STATUS | HASDS+3~, HASDS+6*, HASDS+7 |
TITLE | HASDS+1~*, HASDS+2*, HASDS+4, HASDS+5 |
TIUAU | GETSIGNR+1~, GETSIGNR+10*, GETSIGNR+11 |
TIUD0 | NEEDSIG+6~* |
TIUD12 | GETSIGNR+1~, GETSIGNR+9*, GETSIGNR+10 |
TIUDA | BELONGS~, BELONGS+3*, BELONGS+4, XTRASIGN~, XTRASIGN+3, IDSIGNRS~, IDSIGNRS+5, IDSIGNRS+8, IDSIGNRS+9, IDSIGNRS+14 , REMSIGNR~, REMSIGNR+2, REMSIGNR+3, GETSIGNR~, GETSIGNR+3, GETSIGNR+9, HASDS+1~*, HASDS+2, HASDS+3*, HASDS+4* , HASDS+5*, HASDS+6, HASDS+8*, HASDS+9*, HASDS+10, NEEDSIG+1~*, NEEDSIG+4*, NEEDSIG+5, NEEDSIG+7, NEEDSIG+8 |
TIUDUZ | REMSIGNR~, REMSIGNR+2 |
TIUEC | GETSIGNR+1~, GETSIGNR+10*, GETSIGNR+12, GETSIGNR+13, GETSIGNR+14 |
>> TIUGLINK | CWAD+3 |
TIUI | ISA+4~*, ISA+5*, ISA+6, ISA+7, ISPN+2~*, ISPN+3*, ISPN+4, ISPN+5, ISDS+2~*, ISDS+3* , ISDS+4, ISDS+5, MENUS+1~*, MENUS+2*, MENUS+3, XTRASIGN+1~*, XTRASIGN+3*, XTRASIGN+5, GETSIGNR+1~*, GETSIGNR+7* , GETSIGNR+8, GETSIGNR+11*, GETSIGNR+14*, NEEDSIG+1~, NEEDSIG+5*, NEEDSIG+6 |
TIUIDX | TITLIENS+4~*, TITLIENS+5*, TITLIENS+6 |
TIUJ | XTRASIGN+1~*, XTRASIGN+7*, XTRASIGN+9, NEEDSIG+1~*, NEEDSIG+8* |
TIUL | XTRASIGN+1~*, XTRASIGN+7*, XTRASIGN+10 |
TIUPREF | MENUS+1~*, MENUS+3 |
TIUPRM0 | IDSIGNRS+4~ |
TIUPRM1 | IDSIGNRS+4~ |
TIUSGNR | XTRASIGN+4~, XTRASIGN+8*, XTRASIGN+9, GETSIGNR+4~ |
TIUX | XTRASIGN+4~, XTRASIGN+9*, XTRASIGN+10, GETSIGNR+4~ |
TIUXTRA | XTRASIGN+1~, XTRASIGN+5, GETSIGNR+1~, GETSIGNR+5 |
TIUXTRA( | XTRASIGN+6, XTRASIGN+8, GETSIGNR+6, GETSIGNR+8 |
TIUY | BELONGS+2~, BELONGS+4*, BELONGS+5, ISA+4~*, ISA+5, ISA+6*, ISA+7*, ISA+8, ISPN+2~*, ISPN+3 , ISPN+4*, ISPN+5*, ISPN+6, ISDS+2~*, ISDS+3, ISDS+4*, ISDS+5*, ISDS+6, XTRASIGN~, ASKSIGN~ , IDSIGNRS~, IDSIGNRS+13*, GETSIGNR~, NEEDSIG~, NEEDSIG+2*, NEEDSIG+3, NEEDSIG+8 |
TIUY( | XTRASIGN+10*, ASKSIGN+3, ASKSIGN+4, ASKSIGN+8, GETSIGNR+8*, GETSIGNR+11*, GETSIGNR+14* |
TYPE | PICK~, PICK+1*, PICK+3 |
U | BELONGS+3, MENUS+3, XTRASIGN+10, ASKSIGN+4, ASKSIGN+5, ASKSIGN+7, PICK+3, CWAD+10, IDSIGNRS+7, IDSIGNRS+8 , IDSIGNRS+13, REMSIGNR+3, GETSIGNR+8, GETSIGNR+10, GETSIGNR+11, GETSIGNR+14, HASDS+4, HASDS+5, HASDS+6, HASDS+8 , HASDS+9, NEEDSIG+6 |
USER | IDSIGNRS+5~*, IDSIGNRS+8, IDSIGNRS+11, NEEDSIG~, NEEDSIG+2*, NEEDSIG+4, NEEDSIG+5 |
>> VALMBCK | CWAD+8*, CWAD+9*, CWAD+11* |
VSTR | HASDS~, HASDS+5 |
X | TRNSFRM~, TRNSFRMX, PICK+1~, REMSIGNR+1~ |
XFORM | TRNSFRM+1~, TRNSFRM+4*, TRNSFRM+5, TRNSFRM+6 |
Y | ASKSIGN+1~, ASKSIGN+3*, ASKSIGN+5*, ASKSIGN+7*, ASKSIGN+8*, ASKSIGN+9, PICK+1~, PICK+3*, PICK+5, CWAD+10* , REMSIGNR+1~ |