©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
TIUPRF ; SLC/JMH - API's for Patient Record Flags ; 7/29/05
Source file <TIUPRF.m>
| Package | Total | Call Graph |
|---|---|---|
| Text Integration Utility | 2 | $$DDEFIEN^TIUFLF7 $$ISPFTTL^TIUPRFL |
| Package | Total | Caller Graph |
|---|---|---|
| Text Integration Utility | 3 | TIULP TIURD TIUSRV |
| Registration | 2 | DGPFAPI2 DGPFDD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETTTL(TIUDA) | ; API called by PIMS to retrieve the name of a
|
|
| GETLIST(PRFCAT,TARGET) | ; API called by PIMS to retrieve a list of active
; Category I and/or Category II Progress Note Titles ; Input PRFCAT: PRF Category Flag [1,2 or 3] ; 1:Category I ; 2:Category II ; 3:Both Category I and II ; Input TARGET: The array name to place the list of ; Titles and IENs ; Output TIURET: Return value to pass back any error ; codes if necessary ; @TARGET@(CATEGORY,D0)=TITLE IEN^TITLE NAME ; If nothing to return in list, TIUCNT=0 and TARGET array is empty |
|
| ISPRFDOC(TIUDA) | ;Function (called by PIMS) returns 1 if docmt is PRF,
|
|
| CHKDOC(TIUDA) | ; API called by PIMS to check the existence of a TIU
; Document before linking, deleting,... ; Input TIUDA: The TIU DOCUMENT IEN ; Output TIURET: Return value ; (0 if Document does not exist, 1 if it does exist) |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TIU(8925 - [#8925] | ISPRFDOC+3, CHKDOC+6 |
| ^TIU(8925.1 - [#8925.1] | GETTTL+5, GETLIST+19, GETLIST+20, GETLIST+21, GETLIST+27, GETLIST+28, GETLIST+29 |
| Name | Line Occurrences |
|---|---|
| $$GETTTL | GETLIST+23, GETLIST+31 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| PRFCAT | GETLIST~, GETLIST+15, GETLIST+16, GETLIST+24 |
| TARGET | GETLIST~, GETLIST+14, GETLIST+15, GETLIST+23, GETLIST+31 |
| TIUCAT1 | GETLIST+12~, GETLIST+18*, GETLIST+19, GETLIST+20 |
| TIUCAT2 | GETLIST+12~, GETLIST+26*, GETLIST+27, GETLIST+28 |
| TIUCNT | GETLIST+12~, GETLIST+13*, GETLIST+22*, GETLIST+23, GETLIST+30*, GETLIST+31, GETLIST+32 |
| TIUDA | ISPRFDOC~, ISPRFDOC+3, GETTTL~, GETTTL+5, CHKDOC~, CHKDOC+6, GETLIST+12~, GETLIST+20*, GETLIST+21, GETLIST+23 , GETLIST+28*, GETLIST+29, GETLIST+31 |
| TIUNODE | GETTTL+4~, GETTTL+5*, GETTTL+6, GETTTL+7 |
| TIUNODE1 | GETLIST+12~, GETLIST+17*, GETLIST+19*, GETLIST+20 |
| TIUNODE2 | GETLIST+12~, GETLIST+25*, GETLIST+27*, GETLIST+28 |
| TIURET | CHKDOC+5~, CHKDOC+6*, CHKDOC+7*, CHKDOC+8*, CHKDOC+9, GETLIST+12~ |
| TIUTTL | ISPRFDOC+2~, ISPRFDOC+3*, ISPRFDOC+4, ISPRFDOC+5, GETTTL+4~, GETTTL+7*, GETTTL+8, GETTTL+9 |
| U | GETTTL+7, GETLIST+20, GETLIST+21, GETLIST+28, GETLIST+29 |