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 |
Name | Field # of Occurrence |
---|---|
$$FIND1^DIC | DOCPRM+8 |
$$GET1^DIQ | PERSNAME+1 |
$$CLASS^TIUCNSLT | FIXCODE+6 |
$$NOW^TIULC | REFDATE+4 |
$$DATE^TIULS | REFDATE+5 |
$$MIXED^TIULS | PNAME+9, PNAME+12 |
$$ISA^TIULX | DOCPRM+9 |
$$ISA^USRLM | WHATMPL+2, WHATMPL+3, WHATMPL+4, WHATMPL+5 |
$$SITE^VASITE | DIVISION+7 |
$$NS^XUAF4 | DIVISION+11 |
DE^XUSHSHP | DECRYPT+1 |
EN^XUSHSHP | ENCRYPT+1 |
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^TIU(8925.1 - [#8925.1] | FIND1^DIC |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | PTNAME+1 |
^SC - [#44] | DIVISION+5 |
^TIU(8925 - [#8925] | WHOSIGNS+2, WHOCOSIG+2, HASADDEN+5, HASADDEN+6, HASADDEN+9, HASADDEN+11, HASADDEN+12, ISADDNDM+2, DOCPRM+3, CLINDOC+3 , REQVER+2 |
^TIU(8925.1 - [#8925.1] | HASADDEN+6, HASADDEN+12, ISADDNDM+2, PNAME+4, PNAME+5, PNAME+6, PNAME+8, PNAME+9, PNAME+11, PNAME+12 , ABBREV+1, DOCPRM+3, DOCPRM+15, POSTFILE+2, POSTFILE+4, FIXCODE+2, FIXCODE+4, DOCCLASS+1, CLINDOC+4, SUPPVSIT+2 , SUPPVSIT+3, SUPPVSIT+4, POSTSIGN+2, POSTSIGN+4, COMMIT+2, COMMIT+4, RELEASE+2, RELEASE+4, VERIFY+2, VERIFY+4 , DELETE+2, DELETE+4, REASSIGN+2, REASSIGN+4, ONBROWSE+2, ONBROWSE+4, ONRTRCT+2, ONRTRCT+4 |
^TIU(8925.95 - [#8925.95] | DOCPRM+4, DOCPRM+6, DOCPRM+11, DOCPRM+13, DOCPRM+14 |
^VA(200 - [#200] | BEEP+1 |
Name | Line Occurrences |
---|---|
$$CLINDOC | CLINDOC+7 |
$$COMMIT | COMMIT+5 |
$$DELETE | DELETE+5 |
$$FIXCODE | FIXCODE+7 |
$$ISADDNDM | CLINDOC+3, REQVER+2 |
$$ONBROWSE | ONBROWSE+5 |
$$ONRTRCT | ONRTRCT+5 |
$$POSTFILE | POSTFILE+5 |
$$POSTSIGN | POSTSIGN+5 |
$$REASSIGN | REASSIGN+5 |
$$RELEASE | RELEASE+5 |
$$SUPPVSIT | SUPPVSIT+5 |
$$VERIFY | VERIFY+5 |
CLINDOX | CLINDOC+5 |
COMMITX | COMMIT+3 |
DELETEX | DELETE+3 |
DOCPRM | DOCPRM+16, REQVER+3 |
FIXCODX | FIXCODE+3, FIXCODE+6 |
HASX | HASADDEN+7 |
ONBRWSX | ONBROWSE+3 |
ONRTRX | ONRTRCT+3 |
POSTFILX | POSTFILE+3 |
POSTSIGX | POSTSIGN+3 |
REASSIX | REASSIGN+3 |
RELEASX | RELEASE+3 |
SUPPVSIX | SUPPVSIT+2, SUPPVSIT+3 |
VERIFYX | VERIFY+3 |
WHAX | WHATMPL+2, WHATMPL+3, WHATMPL+4, WHATMPL+5 |
Name | Field # of Occurrence |
---|---|
^(3 | SUPPVSIT+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | WHOSIGNS~, WHOSIGNS+2, WHOCOSIG~, WHOCOSIG+2, HASADDEN~, HASADDEN+5, HASADDEN+9, ISADDNDM~, ISADDNDM+2, PNAME~ , PNAME+3, PNAME+4, PNAME+5, PNAME+6, PNAME+11, PNAME+12, ABBREV~, ABBREV+1 |
DFN | PTNAME~, PTNAME+1 |
DUZ(2 | DIVISION+11 |
IDKIDFLG | HASADDEN~, HASADDEN+7 |
TIU | REFDATE~ |
TIU("LDT" | REFDATE+2, REFDATE+3, REFDATE+5* |
TIU12 | WHOSIGNS+1~, WHOSIGNS+2*, WHOSIGNS+3, WHOSIGNS+4, WHOCOSIG+1~, WHOCOSIG+2*, WHOCOSIG+3, WHOCOSIG+4, WHOCOSIG+6 |
TIUBRWS | ONBROWSE+1~, ONBROWSE+2*, ONBROWSE+3, ONBROWSE+5*, ONBRWSX |
TIUCOMM | COMMIT+1~, COMMIT+2*, COMMIT+3, COMMIT+5*, COMMITX |
TIUDA | DOCPRM~, DOCPRM+3, CLINDOC~, CLINDOC+3, REQVER~, REQVER+2 |
TIUDAD | DOCPRM+1~, DOCPRM+15*, DOCPRM+16, POSTFILE+1~, POSTFILE+4*, POSTFILE+5, FIXCODE+1~, FIXCODE+4*, FIXCODE+6, FIXCODE+7 , POSTSIGN+1~, POSTSIGN+4*, POSTSIGN+5, COMMIT+1~, COMMIT+4*, COMMIT+5, RELEASE+1~, RELEASE+4*, RELEASE+5, VERIFY+1~ , VERIFY+4*, VERIFY+5, DELETE+1~, DELETE+4*, DELETE+5, REASSIGN+1~, REASSIGN+4*, REASSIGN+5, ONBROWSE+1~, ONBROWSE+4* , ONBROWSE+5, ONRTRCT+1~, ONRTRCT+4*, ONRTRCT+5 |
TIUDEL | DELETE+1~, DELETE+2*, DELETE+3, DELETE+5*, DELETEX |
TIUDICDT | REFDATE~, REFDATE+4 |
TIUDPRM | DOCPRM~, DOCPRM+16, REQVER+1~, REQVER+3 |
TIUDPRM(0 | DOCPRM+2*, DOCPRM+6*, DOCPRM+9*, REQVER+4 |
TIUDPRM(5 | DOCPRM+2*, DOCPRM+14* |
TIUDS | DOCPRM+8~*, DOCPRM+9 |
TIUDVHL | DIVISION+4~, DIVISION+5*, DIVISION+6, DIVISION+7 |
TIUFIX | FIXCODE+1~, FIXCODE+2*, FIXCODE+3, FIXCODE+7*, FIXCODX |
TIUI | HASADDEN+3~, HASADDEN+4*, HASADDEN+5*, HASADDEN+6, DOCPRM+1~, DOCPRM+4*, DOCPRM+5, DOCPRM+6, DOCPRM+11, DOCPRM+13 , DOCPRM+14, CLINDOC+2~*, CLINDOC+4*, CLINDOC+5, CLINDOC+6, CLINDOC+7, SUPPVSIT+1~, SUPPVSIT+4*, SUPPVSIT+5 |
TIUIN | DIVISION+4~, DIVISION+9*, DIVISION+10, DIVISION+11*, DIVISION+12 |
TIUJ | HASADDEN+3~, HASADDEN+4*, HASADDEN+9*, HASADDEN+11, DOCPRM+12~*, DOCPRM+13*, DOCPRM+14 |
TIUK | HASADDEN+3~, HASADDEN+10*, HASADDEN+11*, HASADDEN+12 |
TIULOC | DIVISION~, DIVISION+5 |
TIUMOM | PNAME+2~*, PNAME+4*, PNAME+5*, PNAME+6*, PNAME+7, PNAME+8, PNAME+9, PNAME+10 |
TIUPOST | POSTFILE+1~, POSTFILE+2*, POSTFILE+3, POSTFILE+5*, POSTFILX, POSTSIGN+1~, POSTSIGN+2*, POSTSIGN+3, POSTSIGN+5*, POSTSIGX |
TIURDT | REFDATE+1~, REFDATE+2*, REFDATE+4*, REFDATE+5, REFDATE+6 |
TIUREASS | REASSIGN+1~, REASSIGN+2*, REASSIGN+3, REASSIGN+5*, REASSIX |
TIUREL | RELEASE+1~, RELEASE+2*, RELEASE+3, RELEASE+5*, RELEASX |
TIURTRCT | ONRTRCT+1~, ONRTRCT+2*, ONRTRCT+3, ONRTRCT+5*, ONRTRX |
TIUSTN | DIVISION+4~, DIVISION+7*, DIVISION+8, DIVISION+9 |
TIUTYP | DOCPRM~, DOCPRM+3*, DOCPRM+4, DOCPRM+9, DOCPRM+15, POSTFILE~, POSTFILE+2, POSTFILE+4, FIXCODE~, FIXCODE+2 , FIXCODE+4, FIXCODE+6, DOCCLASS~, DOCCLASS+1, CLINDOC~, CLINDOC+3*, CLINDOC+4, CLINDOC+6, REQVER~, REQVER+2* , REQVER+3, SUPPVSIT~, SUPPVSIT+2, SUPPVSIT+3, SUPPVSIT+4, POSTSIGN~, POSTSIGN+2, POSTSIGN+4, COMMIT~, COMMIT+2 , COMMIT+4, RELEASE~, RELEASE+2, RELEASE+4, VERIFY~, VERIFY+2, VERIFY+4, DELETE~, DELETE+2, DELETE+4 , REASSIGN~, REASSIGN+2, REASSIGN+4, ONBROWSE~, ONBROWSE+2, ONBROWSE+4, ONRTRCT~, ONRTRCT+2, ONRTRCT+4 |
TIUVER | VERIFY+1~, VERIFY+2*, VERIFY+3, VERIFY+5*, VERIFYX |
TIUY | HASADDEN+3~, HASADDEN+4*, HASADDEN+5, HASADDEN+6*, HASADDEN+7, HASADDEN+9, HASADDEN+11, HASADDEN+12*, HASX, ISADDNDM+1~* , ISADDNDM+2*, ISADDNDM+3, PNAME+2~, PNAME+8*, PNAME+9*, PNAME+11*, PNAME+12*, PNAME+13, CLINDOC+2~*, CLINDOC+6* , CLINDOC+7*, CLINDOX, REQVER+1~, REQVER+4*, REQVER+5, WHATMPL+1~, WHATMPL+2*, WHATMPL+3*, WHATMPL+4*, WHATMPL+5* , WHATMPL+6*, WHAX, SUPPVSIT+1~*, SUPPVSIT+2*, SUPPVSIT+3*, SUPPVSIT+4, SUPPVSIT+5*, SUPPVSIX, PTNAME+1~*, PTNAME+2* , PTNAME+3 |
U | WHOSIGNS+3, WHOSIGNS+4, WHOCOSIG+3, WHOCOSIG+4, WHOCOSIG+6, HASADDEN+6, HASADDEN+12, ISADDNDM+2, PNAME+5, PNAME+6 , PNAME+8, PNAME+9, PNAME+11, PNAME+12, ABBREV+1, BEEP+1, DOCPRM+3, DOCPRM+9, DOCPRM+14, CLINDOC+3 , REQVER+2, REQVER+4, REFDATE+5, SUPPVSIT+2, SUPPVSIT+3, PTNAME+1, DIVISION+5, DIVISION+8, DIVISION+9, DIVISION+11 |
USER | PERSNAME~, PERSNAME+1, BEEP~, BEEP+1, WHATMPL~, WHATMPL+2, WHATMPL+3, WHATMPL+4, WHATMPL+5 |
X | ENCRYPT~, ENCRYPT+2, DECRYPT~, DECRYPT+2, PERSNAME+1~*, PERSNAME+2 |
X1 | ENCRYPT~, DECRYPT~ |
X2 | ENCRYPT~, DECRYPT~ |
Y | WHOSIGNS+1~, WHOSIGNS+3*, WHOSIGNS+4*, WHOSIGNS+5, WHOCOSIG+1~, WHOCOSIG+4*, WHOCOSIG+5*, WHOCOSIG+6*, WHOCOSIG+7 |