Routine: APCDFQA3

Name	Comments	DBIA/ICR reference
A
BEGIN	;
ASK1	;
SHOW	; ENTRY POINT - ALLOW USER TO SELECT FROM RANGES TO DISPLAY CODES
PROCESS	;EVALUATE USER RESPONSE
EOJ	;
CHECK	;ASKS USER IF SATISFIED WITH ENTERED RANGES
RANGES	;DISPLAY TABLE OF ALL RANGES
SETUTIL	;SET UP TMP NODES TO STORE CODES
STAR	;
EOP	;
X2
X
X1
DISPLAY	;EP - SHOW CODES IN RANGE SELECTED

External References

Name	Field # of Occurrence
LOOK^APCDFQA4	PROCESS+4, PROCESS+11, PROCESS+12, PROCESS+13
SETDIR^APCDFQA4	ASK1+9
^APCDFQA5	STAR+10
LST^ATXAPI	DISPLAY+6, STAR+3, SETUTIL+5
^DIC	ASK1+5
^DIR	ASK1+9, DISPLAY+12, EOP+4, CHECK+2
$$ICDDX^ICDEX	DISPLAY+9, DISPLAY+10
$$STRIP^XLFSTR	DISPLAY+6, SETUTIL+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BEGIN+1
Function Call: WRITE	Prompt: !,"You must enter the coding system from which you want to enter a code,",!,"or range of codes.",! Line Location: ASK1+4
Function Call: WRITE	Prompt: $C(7)," ?? Not allowed" Line Location: PROCESS+2
Function Call: WRITE	Prompt: $C(7)," ?? No previous codes entered!" Line Location: PROCESS+5
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: PROCESS+6
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: PROCESS+7
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: PROCESS+8
Function Call: WRITE	Prompt: ! Line Location: PROCESS+11
Function Call: WRITE	Prompt: ! Line Location: PROCESS+13
Function Call: WRITE	Prompt: $P(APCD("LOW")," ") Line Location: DISPLAY+3
Function Call: WRITE	Prompt: ?9,$P(^ICD9(APCDDFN,0),U,3) Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !!,"ICD codes in this range =>",!! Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !,APCDX,?12,$E($P($$ICDDX^ICDEX($P(APCDARR(APCDX),U,1)),U,4),1,40),?60,$P(APCDARR(APCDX),U,4) Line Location: DISPLAY+9
Function Call: WRITE	Prompt: !,APCDX,?12,$E($P($$ICDDX^ICDEX($P(APCDARR(APCDX),U,1)),U,4),1,40),?60,$P(APCDARR(APCDX),U,4) Line Location: DISPLAY+10
Function Call: WRITE	Prompt: " ?? There are no codes in that range!" Line Location: STAR+4
Function Call: WRITE	Prompt: ! Line Location: STAR+11
Function Call: WRITE	Prompt: !!,"ICD Code Range(s) Selected So Far =>",! Line Location: RANGES+2
Function Call: WRITE	Prompt: ! Line Location: RANGES+4
Function Call: READ	Timeout: 300 Variable: APCD("N") Line Location: A+0
Function Call: WRITE	Prompt: " ??",$C(7) Line Location: A+0
Function Call: WRITE	Prompt: ! Line Location: CHECK+2
Function Call: WRITE	Prompt: ! Line Location: CHECK+3
Routine Call	DIC Line Location: ASK1+5
Routine Call	DIR Line Location: ASK1+9 DISPLAY+12 EOP+4 CHECK+2

FileNo	Call Tags
^ICDS - [#80.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^XTMP("APCDFQA"	SETUTIL+6, SETUTIL+7, SETUTIL+9*

Label References

Name	Line Occurrences
@(	BEGIN+5
A	A
ASK1	BEGIN+3, ASK1+14
CHECK	BEGIN+5
DISPLAY	STAR+9, A+1
EOJ	X+1
EOP	DISPLAY+8
PROCESS	ASK1+11
RANGES	ASK1+12, SHOW+1, A+2
SETUTIL	X
STAR	PROCESS+3
X	BEGIN+4
X1	ASK1+6, ASK1+10
X2	PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCD	RANGES+3, A+1, EOJ+2!
APCD("BANG"	RANGES+4, A+2*!
APCD("HI"	ASK1+8!, DISPLAY+6, STAR+8, SETUTIL+2, SETUTIL+5, SETUTIL+7, A+1*
APCD("LOW"	ASK1+8!, DISPLAY+6, STAR+5, SETUTIL+2, SETUTIL+5, SETUTIL+6, A+1*
APCD("N"	A*, A+1
APCD("NO DISP	LAY" , BEGIN+2, ASK1+12, ASK1+13, PROCESS+2, PROCESS+6, PROCESS+7, PROCESS+8, STAR+4*
APCD("NOT TAX	" , EOJ+1
APCD("NUM"	RANGES+3*, A
APCDA	ASK1+1, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+11, PROCESS+13, EOJ+2!
APCDARR	DISPLAY+2~, SETUTIL+1~, SETUTIL+4!
APCDARR(	DISPLAY+7, DISPLAY+9, DISPLAY+10, SETUTIL+8, SETUTIL+9
>> APCDBT	SETUTIL+6, SETUTIL+7, SETUTIL+9
APCDCNT	EOJ+2!
APCDDFN	EOJ+2!
APCDFLG	EOJ+2!
APCDI	A+1*, EOJ+2!
>> APCDIRNG	SETUTIL+2, SETUTIL+3, SETUTIL+6, SETUTIL+7, SETUTIL+9
>> APCDJOB	SETUTIL+6, SETUTIL+7, SETUTIL+9
APCDONE	PROCESS+1, PROCESS+4, PROCESS+12*, EOJ+2!
APCDQ	DISPLAY+2~, DISPLAY+7, DISPLAY+8, EOP+1, EOP+5*, SETUTIL+1~, SETUTIL+4!
APCDR	EOJ+2!
APCDSAVE	EOJ+2!
APCDSAVE("X"	PROCESS+10, PROCESS+11, PROCESS+12, PROCESS+13
APCDSTP	BEGIN+4*, EOJ+1!
APCDSUB	PROCESS+1, PROCESS+9, STAR+1*, EOJ+2!
>> APCDSYS	ASK1+3, ASK1+7, DISPLAY+6, STAR+3, SETUTIL+5
>> APCDTABL	BEGIN+5, X, ASK1+9, ASK1+12, PROCESS+5
>> APCDTABL(	SETUTIL+2, RANGES+3, A+1
APCDTEMP	STAR+2~, STAR+4
APCDTEMP(	STAR+7
APCDTEMP(0	STAR+5
APCDTYP	PROCESS+4, PROCESS+11, PROCESS+12, PROCESS+13, EOJ+2!
APCDX	DISPLAY+2~, DISPLAY+7*, DISPLAY+9, DISPLAY+10, SETUTIL+1~, SETUTIL+4!, EOJ+1!
C	STAR+6~, STAR+7*, STAR+8
DFOUT	EOP+3!
DIC	ASK1+5*!
DIC("S"	ASK1+5*
DIC(0	ASK1+5*
DIR	ASK1+9!, DISPLAY+11~, EOP+2~, EOP+4!, CHECK+1~, CHECK+2!, EOJ+2!
DIR("A"	ASK1+9, DISPLAY+12, CHECK+2*
DIR("B"	CHECK+2*
DIR(0	DISPLAY+12, EOP+4, CHECK+2*
DIRUT	EOP+3!
DLOUT	EOP+3!
DTOUT	EOP+3!
DUOUT	EOP+3!, EOP+5
IOF	DISPLAY+1, EOP+6, RANGES+1
IOSL	DISPLAY+8
U	DISPLAY+9, DISPLAY+10, SETUTIL+2, SETUTIL+9, RANGES+3, A+1
X	PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11* , PROCESS+12, PROCESS+13, DISPLAY+2~, STAR+1, STAR+3, SETUTIL+8*, SETUTIL+9
>> Y	BEGIN+4, BEGIN+5, ASK1+6, ASK1+7, ASK1+10
Z	STAR+6~, STAR+7*

Customize PDF page

Package: Patient Care Component

Routine: APCDFQA3

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: