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 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Text Integration Utility | 3 | TIULP TIURD TIUSRV |
Registration | 2 | DGPFAPI2 DGPFDD |
Name | Comments | DBIA/ICR reference |
---|---|---|
ISPRFDOC(TIUDA) | ;Function (called by PIMS) returns 1 if docmt is PRF,
|
|
GETTTL(TIUDA) | ; API called by PIMS to retrieve the name of a
|
|
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) |
|
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 |
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 |