Routine: AICDKWL1

Package	Total	Call Graph
IHS ICD CPT Lookup and Grouper	3	^AICDKSCH PREPSCH^AICDKWL2 ^AICDTOKN

Package	Total	Caller Graph
IHS ICD CPT Lookup and Grouper	2	AICDKWL AICDKWLD

Entry Points

External References

Name	Field # of Occurrence
^AICDKSCH	NOTSHRTX+1
PREPSCH^AICDKWL2	NOTSHRT+3
^AICDTOKN	NOTSHRT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASKONE+3
Function Call: READ	Prompt: " OK? Y// " Timeout: $S($D(DTIME):DTIME,1:300),! Variable: X Line Location: ASKONE+6
Function Call: WRITE	Prompt: $C(7) Line Location: ASKONE+6
Function Call: WRITE	Prompt: !!,"The following matches were found:",!! Line Location: ASKSEL+1
Function Call: WRITE	Prompt: ! Line Location: DSPGRP+2
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:300),! Variable: X Line Location: DSPGRP+3
Function Call: WRITE	Prompt: "Select 1-",^UTILITY("AICDHITS",$J),": " Line Location: DSPGRP+3
Function Call: WRITE	Prompt: $C(7) Line Location: DSPGRP+3
Function Call: WRITE	Prompt: $P(@(AICDREF1_"AICDI,0)"),"^",1),! Line Location: DSPLY+5
Function Call: WRITE	Prompt: ?7 Condition for execution: AICDMULT Line Location: DSPDESC+0
Function Call: WRITE	Prompt: AICDF,! Line Location: DSPDESC+0
Function Call: WRITE	Prompt: ! Line Location: DSPDESC+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AICDKWLC - [#9001010]	CHKREP+1, CHKREP2+1
^DD(	VERIFY2
^UTILITY("AICDHITS"	NOTSHRTX+1!*, NOTSHRTX+2, VERIFY+2, VERIFY+3, ASKONEOK, DSPGRP, DSPGRP+3, DSPGRP+4, DSPGRP+5, DSPGRP+6 , DSPGRP+8, DSPLY+1

Label References

Name	Line Occurrences
@(	DSPLY+3
ASKONE	VERIFY+2
ASKONEOK	ASKONE+1, ASKONE+2
ASKONEX	ASKONE+8
ASKSEL	VERIFY+3
CHKREP	NOTSHRT+1
CHKREP2	CHKREP+1
CHKREP3	CHKREP2+2
DSPGRP	DSPGRP+4, DSPGRP+5, DSPGRP+6
DSPLY	ASKONE+5, DSPGRP+1
EXIT	NOTSHRTX+2
GETFRAG	DSPDESC
NOTSHRTX	NOTSHRT+4
VERIFY	NOTSHRTX+3
VERIFY2	VERIFY+2

Naked Globals

Name	Field # of Occurrence
^("ACT"	VERIFY2
^(0	VERIFY2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DSPDESC*
AICDADFN	NOTSHRT+2!
AICDASK	NOTSHRT+4, NOTSHRT+5, NOTSHRTX+2, VERIFY+3, EXIT2+3!, ASKONE+2
AICDAWRD	NOTSHRT+2!
AICDC	DSPDESC+2!, GETFRAG+1*, GETFRAG+2
AICDDESC	ASKONEX!, DSPGRP+9!, DSPLY+6, DSPDESC, GETFRAG, GETFRAG+1, GETFRAG+2*
AICDDFN	NOTSHRT+2!, CHKREP+1*, CHKREP2+1
AICDF	ASKONEX!, DSPGRP+9!, DSPDESC, DSPDESC+2!, GETFRAG, GETFRAG+2
AICDGBL	VERIFY2, EXIT2+3!
AICDGRP	ASKSEL+2, DSPGRP, DSPGRP+1, DSPGRP+4, DSPGRP+5, DSPGRP+6, DSPGRP+9!
AICDH	ASKONE+4, ASKONEOK, ASKONEX!, DSPGRP+1, DSPGRP+8, DSPGRP+9!, DSPLY+1, DSPLY+4
AICDH2	DSPGRP*, DSPGRP+1, DSPGRP+9!
AICDI	EXIT2+1!, DSPGRP+6, DSPLY+1, DSPLY+2
AICDKSCH	EXIT2+3!
AICDKSCH("DSPLY"	DSPLY+3
AICDKSCH("GBL"	ASKONE+1
AICDKWCT	CHKREP+1, CHKREP2+1, EXIT2+1!
AICDL	EXIT2+3!
AICDMULT	ASKONE+4, ASKONEX!, ASKSEL+2, DSPGRP+9!, DSPLY+4, DSPDESC
AICDNUSE	NOTSHRT+2!*, NOTSHRT+4, NOTSHRT+5, NOTSHRTX!
AICDNUSE(	NOTSHRT+5
AICDNWDS	NOTSHRT+4, NOTSHRT+5, NOTSHRTX+1, EXIT2+1!
AICDQ	NOTSHRT+5, EXIT2+1!, ASKONE+6, DSPGRP+3*
AICDREF	EXIT2+2!
AICDREF0	EXIT2+2!, DSPLY+2*
AICDREF1	VERIFY2+1, EXIT2+2!, DSPLY+2, DSPLY+5
AICDREF2	EXIT2+2!
AICDREF3	EXIT2+2!, ASKONEOK, DSPGRP+8
AICDREF4	EXIT2+2!
AICDREP	CHKREP+2!, CHKREP2+1, CHKREP3, CHKREP3+1, CHKREP3+2, CHKREP3+3
>> AICDREPI	CHKREP3+1*, CHKREP3+2
AICDREPT	CHKREP+2!, CHKREP2+2, CHKREP3+2, CHKREP3+3
AICDT	EXIT2+3!
AICDWD	NOTSHRT+5*, EXIT2+1!
AICDWORD	NOTSHRT+2!, CHKREP+1*, CHKREP2
>> AICDWT(	CHKREP+1, CHKREP2!, CHKREP2+2*
AICDX	EXIT2+3!
AICDXSAV	EXIT2+4!
>> DIC(0	ASKONEOK, DSPGRP+8
DTIME	ASKONE+6, DSPGRP+3
U	CHKREP2+1, VERIFY2, VERIFY2+1, ASKONE+1
>> X	EXIT2+4, ASKONE+6, ASKONE+8, DSPGRP+3*, DSPGRP+4, DSPGRP+5, DSPGRP+6, DSPGRP+7, DSPGRP+8
Y	NOTSHRTX+2, VERIFY+1, VERIFY2, VERIFY2+1, ASKONE+7!, ASKONE+8, ASKONEOK, DSPGRP+7, DSPGRP+8*
Y(0	ASKONEOK, DSPGRP+8

Customize PDF page

Package: IHS ICD CPT Lookup and Grouper

Routine: AICDKWL1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DSPGRP
DSPDESC
ASKSEL	; ASK FOR SELECTION AMONG HITS
NOTSHRTX
CHKREP	;
VERIFY	;
EXIT2	;
GETFRAG
ASKONEOK
EXIT	;
CHKREP2
CHKREP3
VERIFY2
ASKONEX
NOTSHRT
DSPLY	; DISPLAY CODE AND TEXT
ASKONE	; ASK IF SINGLE HIT IS ACCEPTABLE