Routine: TIUPXAPC

Package	Total	Call Graph
Text Integration Utility	5	$$PTNAME^TIULC1 ($$PICK,CMBLST)^TIUPXAP2 MOD^TIUPXAPM $$READ^TIUU $$SELLOC^TIUVSIT
DRG Grouper	2	$$CPT^ICPTCOD $$MOD^ICPTMOD
Lexicon Utility	2	CONFIG^LEXSET ($$CPCONE,$$CPTONE)^LEXU
Automated Information Collection System	1	GETLST^IBDF18A
Kernel	1	$$UP^XLFSTR
VA Fileman	1	^DIC

Package	Total	Caller Graph
Text Integration Utility	2	TIUPXAP2 TIUPXAPI

Entry Points

Name	Comments	DBIA/ICR reference
LEXC(Y,TIUVDT)	; Get CPT IEN from Lexicon returned code PCH 24
QTY(CPT,TIUI)	; How many times was the procedure performed?
UPDCNT(TIUROW,TIUCOL,TIUPAGE)	;Update Counters for CPT Display Array ; Input -- TIUROW Row Counter ; TIUCOL Column Counter ; TIUPAGE Page Counter ; Output -- Counters: ; TIUROW Row Counter ; TIUCOL Column Counter ; TIUPAGE Page Counter
QTYHLP	; Help for QTY read
ADDMOD(TIUITM,TIUI,CPTARR,ARRY2,TIUROW,TIUCOL,TIUPAGE,TIUVDT)	;Add Pre-selected CPT Modifiers from AICS to CPT Display Array ; Input -- TIUITM Item Number in CPT Display Array ; TIUI Item Number in Combined AICS Selection List Array ; CPTARR CPT Display Array ; ARRY2 Combined AICS Selection List Array ; TIUROW Row Counter ; TIUCOL Column Counter ; TIUPAGE Page Counter ; Output -- CPTARR CPT Display Array ; (TIUROW,TIUCOL)= ; ^^^^CPT Modifier^CPT Modifier Name ; ("INDEX",TIUITM,"MODIFIER",MODCNT)= ; CPT Modifier IEN^CPT Modifier^CPT Modifier Name ; TIUROW Row Counter ; TIUCOL Column Counter ; TIUPAGE Page Counter ; TIUVDT Encounter Date
CPTOUT(CPT,TIUI,TIUVDT)	; Go off-list for Procedure(s)
CPT(CPT,CPTARR,TIUVDT)	; Select Procedures
TEST	; Check it out
GETCPT(TIULOC,CPTARR,TIUVDT)	; Get CPT codes for clinic

External References

Name	Field # of Occurrence
^DIC	CPTOUT+10, CPTOUT+25
GETLST^IBDF18A	GETCPT+3, GETCPT+4
$$CPT^ICPTCOD	CPT+24, LEXC+7
$$MOD^ICPTMOD	ADDMOD+25
CONFIG^LEXSET	CPTOUT+3, CPTOUT+5, CPTOUT+20, CPTOUT+22
$$CPCONE^LEXU	LEXC+3
$$CPTONE^LEXU	LEXC+3
$$PTNAME^TIULC1	CPT+2
$$PICK^TIUPXAP2	CPT+14, CPT+16
CMBLST^TIUPXAP2	GETCPT+5
MOD^TIUPXAPM	CPT+40, CPT+46
$$READ^TIUU	QTY+5
$$SELLOC^TIUVSIT	TEST+2
$$UP^XLFSTR	GETCPT+19, QTY+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"CPT(",TIUI,")=",CPT(TIUI),!,"CPT(",TIUI,",""QTY"")=" Line Location: TEST+6
Function Call: WRITE	Prompt: CPT(TIUI,"QTY") Line Location: TEST+7
Function Call: WRITE	Prompt: !!,"Please Indicate the Procedure(s) Performed on "_TIUPNM_":" Line Location: CPT+3
Function Call: WRITE	Prompt: ?((J-1)*25) Line Location: CPT+9
Function Call: WRITE	Prompt: $J($P(CPTARR(I,J),U),2)_" " Condition for execution: +$P(CPTARR(I,J),U) Line Location: CPT+9
Function Call: WRITE	Prompt: $E($P(CPTARR(I,J),U,3),1,20) Line Location: CPT+9
Function Call: WRITE	Prompt: ! Line Location: CPT+14
Function Call: WRITE	Prompt: !!!,$$UP^XLFSTR($P(CPT(TIUI),U,2)),":",! Line Location: QTY+4
Function Call: WRITE	Prompt: !,"Please specify the number of repetitions for this procedure" Line Location: QTYHLP+1
Function Call: WRITE	Prompt: !,"performed during this visit with the patient (1-99)." Line Location: QTYHLP+2
Function Call: WRITE	Prompt: $C(7),!!,"Nothing found for ",X,"..." Line Location: CPTOUT+17
Function Call: WRITE	Prompt: $C(7),!!,"Nothing found for ",X,"..." Line Location: CPTOUT+32
Routine Call	DIC Line Location: CPTOUT+10 CPTOUT+25

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ICPT - [#81]	Classic Fileman Calls

Label References

Name	Line Occurrences
$$LEXC	CPTOUT+14, CPTOUT+29
$$QTY	CPT+36, CPT+42
ADDMOD	GETCPT+15
CPT	TEST+4
CPTOUT	CPT+31, CPT+32
GETCPT	TEST+3
UPDCNT	GETCPT+23, GETCPT+30

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRY2	GETCPT+1~, GETCPT+5, GETCPT+15, ADDMOD~
ARRY2(	GETCPT+7, GETCPT+8, GETCPT+11, GETCPT+12, GETCPT+15, GETCPT+16!, GETCPT+19, GETCPT+21!, ADDMOD+21, ADDMOD+22
ARRY2(0	GETCPT+24, GETCPT+28
CPT	TEST+1~, TEST+4, CPT~, CPT+31, CPT+32, CPT+36, CPT+40, CPT+42, CPT+46, QTY~ , CPTOUT~
CPT(	TEST+5, TEST+6, TEST+7, CPT+21, CPT+22, CPT+24, CPT+25, CPT+26!, CPT+29, CPT+35 , CPT+36, CPT+37!, CPT+40, QTY+4, CPTOUT+15, CPTOUT+16, CPTOUT+30, CPTOUT+31*
CPT(1	CPT+33, CPT+41, CPT+42*, CPT+43!, CPT+46
CPTARR	TEST+1~, TEST+3, TEST+4, GETCPT~, GETCPT+15, ADDMOD~, CPT~, CPTOUT+8
CPTARR(	GETCPT+11, GETCPT+20, GETCPT+26, ADDMOD+29, CPT+7, CPT+8, CPT+9, CPT+11, CPT+12
CPTARR("INDEX"	GETCPT+12, GETCPT+27, ADDMOD+31*, CPT+17, CPT+20, CPT+21, CPT+29
CPTARR(0	GETCPT+28*, CPT+4, CPT+5, CPTOUT+8
>> DFN	CPT+2
DIC	CPTOUT+1~, CPTOUT+6, CPTOUT+14, CPTOUT+23, CPTOUT+29
DIC("A"	CPTOUT+8, CPTOUT+24
DIC(0	CPTOUT+7*
>> DTOUT	CPTOUT+11, CPTOUT+26
>> DUOUT	CPTOUT+11, CPTOUT+26
EMARRY	GETCPT+1~, GETCPT+5!
HELP	QTY+1~, QTY+3*, QTY+5
I	CPT+1~, CPT+6, CPT+7, CPT+8, CPT+9, CPT+11, CPT+12, CPT+14, CPT+15, CPT+18~* , CPT+19, CPT+21, CPT+22, CPT+24, CPT+25, CPT+26, CPT+29, CPT+31
ITEM	CPT+18~, CPT+19*, CPT+20, CPT+21, CPT+29
J	CPT+1~, CPT+6, CPT+8, CPT+9, CPT+11, CPT+12
L	CPT+1~, CPT+6, CPT+15, CPT+16
MODCNT	ADDMOD+17~, ADDMOD+20, ADDMOD+21, ADDMOD+22, ADDMOD+31
MODIFIER	ADDMOD+17~, ADDMOD+22*, ADDMOD+25
MODINFO	ADDMOD+17~, ADDMOD+25*, ADDMOD+26, ADDMOD+29, ADDMOD+31
PROMPT	QTY+1~, QTY+2*, QTY+5
>> TIU("PNM"	CPT+2
TIUC	LEXC+1~, LEXC+3, LEXC+4, LEXC+5, LEXC+7
TIUCAT	GETCPT+1~, GETCPT+11, GETCPT+12, GETCPT+19, GETCPT+20
TIUCODE	LEXC+1~, LEXC+5*, LEXC+7, LEXC+8
TIUCOL	GETCPT+1~, GETCPT+6, GETCPT+11, GETCPT+15, GETCPT+20, GETCPT+23, GETCPT+26, GETCPT+30, UPDCNT~, UPDCNT+9 , UPDCNT+10, ADDMOD~, ADDMOD+29
TIUCPT	CPT+1~
TIUI	TEST+1~, TEST+2, TEST+5, TEST+6, TEST+7, GETCPT+1~, GETCPT+6, GETCPT+7, GETCPT+8, GETCPT+11 , GETCPT+12, GETCPT+15, GETCPT+16, GETCPT+19, GETCPT+21, ADDMOD~, ADDMOD+21, ADDMOD+22, CPT+34~, CPT+35 , CPT+36, CPT+37, CPT+40, QTY~, QTY+4, CPTOUT~, CPTOUT+15, CPTOUT+16, CPTOUT+30, CPTOUT+31
TIUICNT	CPT+1~, CPT+5*, CPT+6
TIUITM	GETCPT+1~, GETCPT+6, GETCPT+9, GETCPT+11, GETCPT+12, GETCPT+15, GETCPT+25, GETCPT+26, GETCPT+27, ADDMOD~ , ADDMOD+31, CPT+1~, CPT+12, CPT+13, CPT+15
TIULITM	CPT+1~, CPT+13, CPT+14, CPT+15, CPT+16
TIULOC	TEST+1~, TEST+2*, TEST+3, GETCPT~, GETCPT+3, GETCPT+4
TIUOUT	CPTOUT+1~, CPTOUT+2, CPTOUT+11, CPTOUT+18, CPTOUT+26
TIUPAGE	GETCPT+1~, GETCPT+6, GETCPT+15, GETCPT+23, GETCPT+28, GETCPT+30, UPDCNT~, UPDCNT+9, UPDCNT+11, ADDMOD~
TIUPG	CPT+1~, CPT+6, CPT+14
TIUPGS	CPT+1~, CPT+5*, CPT+14
TIUPNM	CPT+1~, CPT+2*, CPT+3
TIUROW	GETCPT+1~, GETCPT+6, GETCPT+9, GETCPT+11, GETCPT+15, GETCPT+18, GETCPT+20, GETCPT+23, GETCPT+25, GETCPT+26 , GETCPT+28, GETCPT+30, UPDCNT~, UPDCNT+8, UPDCNT+11, ADDMOD~, ADDMOD+27, ADDMOD+29
TIUVDT	GETCPT~, GETCPT+3, GETCPT+4, GETCPT+15, ADDMOD~, ADDMOD+25, CPT~, CPT+24, CPT+31, CPT+32 , CPT+40, CPT+46, CPTOUT~, CPTOUT+5, CPTOUT+14, CPTOUT+22, CPTOUT+29, LEXC~, LEXC+3, LEXC+7
U	GETCPT+8, GETCPT+11, GETCPT+12, GETCPT+19, GETCPT+20, GETCPT+28, ADDMOD+22, ADDMOD+29, ADDMOD+31, CPT+5 , CPT+9, CPT+11, CPT+14, CPT+16, CPT+17, CPT+20, CPT+22, CPT+24, QTY+4, LEXC+4 , LEXC+7
X	CPTOUT+1~, CPTOUT+9~, CPTOUT+11, CPTOUT+17, CPTOUT+19~, CPTOUT+26, CPTOUT+32
Y	CPT+1~, CPT+6, CPT+14, CPT+16, CPT+17, CPT+18, CPT+19, CPTOUT+1~, CPTOUT+12, CPTOUT+14 , CPTOUT+16, CPTOUT+18, CPTOUT+27, CPTOUT+29, CPTOUT+31, LEXC~, LEXC+1, LEXC+3, LEXC+4, LEXC+7 , LEXC+8*, LEXC+9

Marked Items

Name	Field # of Occurrence
$T(CONFIG^LEXSET	CPTOUT+3, CPTOUT+20

Customize PDF page

Package: Text Integration Utility

Routine: TIUPXAPC

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend:

Marked Items