Routine: TIUGBR

Information

TIUGBR ; SLC/MAM - ID Browse Action Subroutines: HASIDKID, HASIDDAD, DADORKID, IDTOP, LOADID, GETKIDS ;8/16/06 13:32

Source file <TIUGBR.m>

Package	Total	Call Graph
Text Integration Utility	3	LOADTOP^TIUBR LOADREC^TIUBR1 GETTIU^TIULD
Registration	1	$$SETSTR^VALM1
VA Fileman	1	EN^DIQ1

Package	Total	Caller Graph
Text Integration Utility	14	TIUADD TIUBR TIUBR1 TIUGR TIUGR1 TIULA2 TIULP TIUPD TIURB2 TIURC TIURD TIURECL1 TIURS1 TIUT
Tracking Procedure Workflow	1	BTPWTIUP

Name	Comments	DBIA/ICR reference
INQUIRE(TIUDA,TIUREC)	; Inquire to document TIUDA and set TIUREC
GETKIDS(TIUDA)	; Set ID kids of TIUDA into array ; ^TMP("TIUGKID",$J,REFERENCE DATE,TIUKID)="":
LOADID(TIUDA,TIUL,TIUGDATA,TIUGWHOL)	; Load ID entry TIUDA for browse ; Requires TIUDA, array TIUL, TIUGDATA; ; Optional TIUGWHOL (see rtn TIUBR).
IDTOP(TIUDA,TIUL,SHORT,CURPRNT)	; Load entry-specific info:
ORKIDX
HASIDDAD(DA)	; Function returns ID parent of DA if DA has parent; else 0.
DADORKID(DA)	; Function returns DA if DA has ID kid,
HASIDKID(DA)	; Function returns 1 if DA has ID kid, else 0.

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	GETKIDS+4, GETKIDS+5, HASIDKID+3, HASIDDAD+1, DADORKID+4, DADORKID+5, LOADID+4
^TMP("TIUGKID"	GETKIDS+6*

Name	Line Occurrences
INQUIRE	LOADID+9
ORKIDX	DADORKID+4

Name	Field # of Occurrence
CURPRNT	IDTOP~, IDTOP+4
DA	HASIDKID~, HASIDKID+3, HASIDDAD~, HASIDDAD+1, DADORKID~, DADORKID+4, DADORKID+5, INQUIRE+1~, INQUIRE+2*
DFN	IDTOP+3~, LOADID+3~
DIC	INQUIRE+1~, INQUIRE+2*
DIQ	INQUIRE+1~, INQUIRE+2*
DR	INQUIRE+1~, INQUIRE+3*
REFDATE	GETKIDS+2~, GETKIDS+5*, GETKIDS+6
SHORT	IDTOP~, IDTOP+5, IDTOP+7
TIU	IDTOP+3~, IDTOP+6, LOADID+3~, LOADID+8
TIU("DOCTYP"	IDTOP+14
TIU("EDT"	IDTOP+10, IDTOP+11
TIU("LOC"	IDTOP+9
TIU("WARD"	IDTOP+10
TIUDA	GETKIDS~, GETKIDS+4, IDTOP~, IDTOP+6, LOADID~, LOADID+4, LOADID+8, LOADID+9, LOADID+12, LOADID+14 , INQUIRE~, INQUIRE+2
TIUGDATA	LOADID~, LOADID+12, LOADID+14
TIUGWHOL	LOADID~, LOADID+14
TIUKID	GETKIDS+2~, GETKIDS+3, GETKIDS+4, GETKIDS+5, GETKIDS+6
TIUL	IDTOP~, IDTOP+4, IDTOP+5, IDTOP+8, IDTOP+12, IDTOP+13, IDTOP+15, LOADID~, LOADID+7*, LOADID+12 , LOADID+14
TIUREC	LOADID+3~, LOADID+9, LOADID+12, INQUIRE~
TIUY	HASIDKID+1~, HASIDKID+2, HASIDKID+3, HASIDKID+4, DADORKID+2~, DADORKID+3, DADORKID+4, DADORKID+5, ORKIDX, IDTOP+3~ , IDTOP+8, IDTOP+9, IDTOP+10, IDTOP+11, IDTOP+12, IDTOP+13, IDTOP+14*, IDTOP+15
U	IDTOP+9, IDTOP+10, IDTOP+11, IDTOP+14
>> VALMAR	IDTOP+4, IDTOP+5, IDTOP+12, IDTOP+15, LOADID+7
>> VALMQUIT	LOADID+4*