Routine: GMRCTIUL

Information

GMRCTIUL ;SLC/DCM,DLT - Get list of existing results for consults ;5/01/98 10:09

Source file <GMRCTIUL.m>

Package	Total	Caller Graph
Consult Request Tracking	3	GMRCTIU GMRCTIU1 GMRCTIUE

Name	Comments	DBIA/ICR reference
UPDCNT	;Update count of existing results for the consult and build array
GETLIST(GMRCO,GETWHAT,TYPE,GMRCNT)	;Get the count and list of results
LN1	;Used by filemanager print template to format line
SELR(GMRCRCT)	;Select a note from the list
LN2	;Used by Fileman to write second line
SHOWTIU	;Display the current TIU results available
TIUTMP(GETWHAT)	;build ^TMP array for results based on TIU when type=1
PROCTMP	;build ^TMP array for procedure results when type note=1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Notes associated with this consult:",! Line Location: SHOWTIU+2
Function Call: WRITE	Prompt: !," No. Document Title TIU Entered Author Sts Consult" Line Location: SHOWTIU+3
Function Call: WRITE	Prompt: !,^TMP("GMRC50R",$J,GMRCRCT,GMRCRVP) Line Location: SHOWTIU+7
Function Call: WRITE	Prompt: GMRCTX Line Location: LN1+10
Function Call: WRITE	Prompt: GMRCTX Line Location: LN2+5
Routine Call	DIR Line Location: SELR+7

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	GETLIST+22, GETLIST+23, GETLIST+27, GETLIST+28, LN1+3
^TMP("GMRC50"	GETLIST+18!, TIUTMP+4*, TIUTMP+7
^TMP("GMRC50R"	GETLIST+18!, TIUTMP+13*, SHOWTIU+5, SHOWTIU+6, SHOWTIU+7, SELR+2
^VA(200 - [#200]	TIUTMP+10, LN2+2

Name	Line Occurrences
TIUTMP	UPDCNT+5
UPDCNT	GETLIST+24, GETLIST+29

Name	Field # of Occurrence
COUNT	GETLIST+17~, GETLIST+19, GETLIST+27, GETLIST+31, UPDCNT+3, TIUTMP+2, TIUTMP+4, TIUTMP+7, TIUTMP+12, TIUTMP+13 , LN1+1
>> D0	LN1+3
>> D1	LN1+3
DIR	SELR+4~
DIR("A"	SELR+5*
DIR(0	SELR+6*
DIROUT	SELR+4~
DIRUT	SELR+4~
DTOUT	SELR+4~
DUOUT	SELR+4~
GETWHAT	GETLIST~, UPDCNT+5, TIUTMP~, TIUTMP+5
GMRCAUTH	TIUTMP+6~, TIUTMP+10, TIUTMP+12, LN2+1~, LN2+2, LN2+4
GMRCDOCT	TIUTMP+6~, TIUTMP+8, TIUTMP+12, LN1+5~, LN1+7, LN1+9
GMRCEDT	TIUTMP+6~, TIUTMP+9, TIUTMP+12, LN1+5~, LN1+8, LN1+9
GMRCMSG	SELR+2*!
GMRCNT	GETLIST~, GETLIST+18!
GMRCNT(	UPDCNT+2, UPDCNT+4, TIUTMP+3, LN1+2
GMRCNT(0	GETLIST+19, GETLIST+31
GMRCO	GETLIST~, GETLIST+22, GETLIST+23, GETLIST+27, GETLIST+28
GMRCQUT	GETLIST+22!, GETLIST+23*
GMRCRCT	SHOWTIU+1~, SHOWTIU+4, SHOWTIU+5, SHOWTIU+6, SHOWTIU+7, SELR~
GMRCRCT("TIU(8925,"	SELR+2, SELR+6
GMRCRDAT	TIUTMP+6~, TIUTMP+7, TIUTMP+8, TIUTMP+9, TIUTMP+10, TIUTMP+11, TIUTMP+12, LN1+6, LN1+7, LN1+8 , LN1+9, LN2+2, LN2+3, LN2+4
GMRCRIEN	GETLIST+17~, GETLIST+19, GETLIST+22, GETLIST+23
GMRCRVP	GETLIST+23, GETLIST+28, UPDCNT+1, TIUTMP+1, TIUTMP+4, TIUTMP+7, TIUTMP+12, TIUTMP+13, SHOWTIU+1~, SHOWTIU+6* , SHOWTIU+7, LN1+3*, LN1+4, LN1+6, LN1+9
GMRCSTS	TIUTMP+6~, TIUTMP+11, TIUTMP+12, LN2+1~, LN2+3, LN2+4
GMRCTX	TIUTMP+6~, TIUTMP+12, TIUTMP+13, LN1+9, LN1+10, LN2+4*, LN2+5
>> GMRCVF	UPDCNT+1, UPDCNT+2, UPDCNT+4, TIUTMP+3, LN1+2
TAB	GETLIST+17~, GETLIST+20, TIUTMP+12, LN1+2, LN1+9, LN2+4
TYPE	GETLIST~, UPDCNT+5, PROCTMP+1
U	TIUTMP+9, TIUTMP+10, LN1+9, LN2+2
Y	SELR+4~, SELR+8