TIULC1 ; SLC/JER - More computational functions ;Feb 24, 2022@08:28:13
Source file <TIULC1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENCRYPT(X,X1,X2) | ; Encrypt Text Strings
|
|
| DECRYPT(X,X1,X2) | ; Decrypt Text Strings
|
|
| WHOSIGNS(DA) | ; Evaluate who should be the expected signer
|
|
| WHOCOSIG(DA) | ; Evaluate who should be the expected cosigner
|
|
| HASADDEN(DA,IDKIDFLG) | ; Evaluate whether a given record has addenda
; **100**: ; If +IDKIDFLG, check interdisciplinary kids of DA, as well as DA. |
|
| HASX | ||
| ISADDNDM(DA) | ; Evaluate whether a given record IS an addendum
|
|
| PNAME(DA) | ; Receives pointer to 8925.1, returns display name of
; document class |
|
| ABBREV(DA) | ; Get abbreviaton for a document type or class
|
|
| PERSNAME(USER) | ; Receives pointer to 200, returns name field
|
|
| BEEP(USER) | ; Get beeper #'s
|
|
| DOCPRM(TIUTYP,TIUDPRM,TIUDA) | ; Get Document Parameters, support inheritance
|
|
| POSTFILE(TIUTYP) | ; Get Post-filing Code, support inheritance
|
|
| POSTFILX | ||
| FIXCODE(TIUTYP) | ; Get Error Resolution Code, support inheritance
|
|
| FIXCODX | ||
| DOCCLASS(TIUTYP) | ; Given a document type, find its parent document class
|
|
| CLINDOC(TIUTYP,TIUDA) | ; Given a document type, find the Clinical Document
; subclass to which it belongs |
|
| CLINDOX | ||
| REQVER(TIUTYP,TIUDA) | ; Does a given document type require verification
|
|
| REFDATE(TIU,TIUDICDT) | ; Identify Reference date
|
|
| WHATMPL(USER) | ; What List Template should a given user get?
|
|
| WHAX | ||
| SUPPVSIT(TIUTYP) | ; Evaluate whether to suppress visit matching
|
|
| SUPPVSIX | ||
| PTNAME(DFN) | ; Resolve Patient Name
|
|
| POSTSIGN(TIUTYP) | ; Get Post-Signature Code, support inheritance
|
|
| POSTSIGX | ||
| COMMIT(TIUTYP) | ; Get Commitment action, support inheritance
|
|
| COMMITX | ||
| RELEASE(TIUTYP) | ; Get Release Action, support inheritance
|
|
| RELEASX | ||
| VERIFY(TIUTYP) | ; Get Verification action, support inheritance
|
|
| VERIFYX | ||
| DELETE(TIUTYP) | ; Get Delete Action, support inheritance
|
|
| DELETEX | ||
| REASSIGN(TIUTYP) | ; Get Package Reassign Action, support inheritance
|
|
| REASSIX | ||
| ONBROWSE(TIUTYP) | ; Get OnBrowse Event, support inheritance
|
|
| ONBRWSX | ||
| ONRTRCT(TIUTYP) | ; Get OnRetract Event, support inheritance
|
|
| ONRTRX | ||
| DIVISION(TIULOC) | ; Get Division
; Input -- TIULOC HOSPITAL LOCATION file (#44) IEN ; Output -- TIUIN INSTITUTION file (#4) IEN^ ; INSTITUTION file (#4) NAME |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^TIU(8925.1 - [#8925.1] | FIND1^DIC |
