Routine: APCDEREF

Information

APCDEREF ; IHS/CMI/LAB - prompt for refusal value ; 23 May 2013 10:50 AM

Source Information

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	5	^DIC FILE^DICN ^DIE ^DIR ^DIWP
IHS VA Utilities	2	$$VAL^XBDIQ1 EN^XBNEW
DRG Grouper	1	$$ICDOP^ICDEX
IHS Standard Terminology	1	($$CONC,$$SEARCH,$$SUBSET)^BSTSAPI

Entry Points

Name	Comments	DBIA/ICR reference
DISP
MOD1	;EP called from xbnew
MOD2	;EP called from input template
ADDEC	;
EDITEC	;
READ	;
EOJ	;
EN(PATIENT,VFIEN)	;EP - called from APCD EL (ADD/MOD) templates
RX	;
IN1	;EP - called from xbnew to create a refusal entry
VALUE	;EP - called from input template
MOD(APCDP)	;EP
EN1	;EP - called from XBNEW to update elder care status
SUBE(X)	;EP - does this subset exist?
XIT	;
CENTRYE	;now edit it
IN	;EP
CENTRY	;
GETANS	;EP - DISPLAY RXNORM ARRAY

External References

Name	Field # of Occurrence
$$CONC^BSTSAPI	RX+11
$$SEARCH^BSTSAPI	RX+22
$$SUBSET^BSTSAPI	SUBE+3
^DIC	IN1+2, VALUE+7, ADDEC+3
FILE^DICN	CENTRY+2
^DIE	CENTRYE+2, CENTRYE+3, EDITEC+9
^DIR	MOD1+4, RX+7, READ+7
^DIWP	DISP+5
$$ICDOP^ICDEX	VALUE+10
$$VAL^XBDIQ1	VALUE+11, MOD1+3
EN^XBNEW	IN+6, MOD+3, MOD2+1, EN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Refusal type missing.....!" Line Location: IN+2
Function Call: WRITE	Prompt: !!,"Patient missing..." Line Location: IN+5
Function Call: WRITE	Prompt: !!,"That type of refusal cannot be entered through PCC Data Entry.",! Line Location: IN1+4
Function Call: WRITE	Prompt: !!,"table file missing..." Line Location: VALUE+2
Function Call: WRITE	Prompt: !!,"Invalid entry. Try again." Line Location: VALUE+8
Function Call: WRITE	Prompt: !,"ERROR CREATING ENTRY....TRY AGAIN..." Line Location: CENTRY+3
Function Call: WRITE	Prompt: !!,"No entry selected" Line Location: MOD+5
Function Call: WRITE	Prompt: !?2,"0) None" Line Location: MOD1+1
Function Call: WRITE	Prompt: !?2,APCDC,")",?6,$E($$VAL^XBDIQ1(9000022,APCDX,.01),1,15),?22,$$VAL^XBDIQ1(9000022,APCDX,.04),?54,$$VAL^XBDIQ1(9000022,APCDX,.03) Line Location: MOD1+3
Function Call: WRITE	Prompt: !,"ERROR ADDING ELDER CARE STATUS ENTRY" Line Location: ADDEC+4
Function Call: WRITE	Prompt: ! Line Location: RX+6
Function Call: WRITE	Prompt: !!,?9,"No entries found in the IHS STANDARD RXNORM TERMINOLOGY database." Line Location: RX+23
Function Call: WRITE	Prompt: !!?5,MF," matches found.",! Line Location: GETANS+4
Function Call: WRITE	Prompt: ! Condition for execution: Z>1 Line Location: DISP+6
Function Call: WRITE	Prompt: ?9,^UTILITY($J,"W",0,Z,0) Line Location: DISP+6
Function Call: WRITE	Prompt: ! Line Location: READ+3
Function Call: WRITE	Prompt: ! Line Location: READ+7
Routine Call	DIE Line Location: CENTRYE+2 CENTRYE+3 EDITEC+9
Routine Call	DIC Line Location: IN1+2 VALUE+7 ADDEC+3
Routine Call	DIR Line Location: MOD1+4 RX+7 READ+7

FileNo	Call Tags
^AUPNPREF - [#9000022]	Classic Fileman Calls
^AUPNELDC - [#9000023]	Classic Fileman Calls
^AUTTREFT - [#9999999.73]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNELDC - [#9000023]	EDITEC+6
^AUPNELDC("B"	EN1+1
^AUPNPREF("AC"	MOD1+3
^AUPNVELD - [#9000010.35]	EN+3, EDITEC+3, EDITEC+5
^AUPNVSIT - [#9000010]	EDITEC+5
^AUTTREFT - [#9999999.73]	IN1+4, VALUE+1, VALUE+4, VALUE+11, RX+5
^DIC - [#1]	VALUE+5
^UTILITY($J	DISP+4!, DISP+6, DISP+7!

Name	Line Occurrences
$$SUBE	RX+21
ADDEC	EN1+1
CENTRY	VALUE+12, RX+17, RX+29
CENTRYE	CENTRY+1
EDITEC	ADDEC+5
GETANS	RX+24
READ	DISP+9, DISP+10, DISP+11
RX	VALUE+4, RX+10, RX+19
VALUE	VALUE+8
XIT	ADDEC+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDC	MOD1+2~, MOD1+3, RX+20~, RX+22*, RX+23, RX+24
APCDCNT	GETANS+1~, GETANS+5, DISP+8, DISP+9, DISP+10
APCDD	MOD1+2~!
APCDD(	MOD1+3*, MOD1+7
>> APCDLOOK	MOD+4*, MOD+5
>> APCDNT	DISP+11*
APCDP	MOD~, MOD1+3
>> APCDPAT	IN+3
APCDQ	GETANS+1~, GETANS+5*
>> APCDRXN	RX+9*, RX+10, RX+11, RX+14, RX+19, RX+21
>> APCDRXN1	RX+11*, RX+12, RX+13, RX+15, RX+16
>> APCDT01	IN1+5*, VALUE+1, VALUE+4, VALUE+11, CENTRY+2, RX+5
>> APCDT02	IN+3, IN+4, IN+5, CENTRY+2
>> APCDTCON	RX+14, RX+26
>> APCDTDA	CENTRY+1, CENTRY+4*, CENTRYE+2, CENTRYE+3
>> APCDTDID	RX+4, RX+16, RX+28*
>> APCDTERR	MOD+5*
>> APCDTF	VALUE+1, VALUE+2, VALUE+5, VALUE+10, VALUE+11, RX+4, RX+5*
>> APCDTFI	VALUE+9, VALUE+10, VALUE+11, RX+4, RX+14, RX+26
>> APCDTID	VALUE+10, VALUE+11, RX+4, RX+10, RX+15, RX+19, RX+27*
>> APCDTIEN	MOD+2, MOD+4, MOD1+7
>> APCDTOLD	VALUE+5
APCDTOT	GETANS+1~, GETANS+5, DISP+8, DISP+9*, DISP+10, READ+5, READ+6
>> APCDTREF	IN+2
APCDX	MOD1+2~, MOD1+3, GETANS+1~, GETANS+5, GETANS+6, DISP+1, DISP+2, DISP+3*, DISP+11
>> APCDY	RX+25, RX+26, RX+27, RX+28, GETANS+5, GETANS+6, DISP+9, DISP+11, READ+2, READ+8 , READ+9, READ+10
APCDZ	GETANS+1~, DISP+2*, DISP+5
D	EDITEC+4~, EDITEC+5*, EDITEC+6, EDITEC+7
D0	CENTRY+2!, XIT+1!
DA	CENTRYE+2!, CENTRYE+3!, MOD1+4!, EDITEC+1*, XIT+2!, RX+7!, READ+7!
DD	CENTRY+2!, XIT+1!
>> DFN	IN+4
DIADD	XIT+1!
DIC	IN1+1, VALUE+5!, VALUE+7!, CENTRY+2!, XIT+1!, ADDEC+1, ADDEC+3!
DIC("A"	IN1+1, VALUE+5
DIC("B"	VALUE+5*
DIC("DR"	CENTRY+2*
DIC(0	IN1+1, VALUE+5, CENTRY+2, ADDEC+1
DIE	CENTRYE+2!, CENTRYE+3!, EDITEC+1*, XIT+2!
DIE("NO^"	CENTRYE+3*
DIR	MOD1+4!, RX+3!, RX+7!, READ+1!
DIR("A"	MOD1+4, RX+7, READ+6*
DIR("B"	MOD1+4, READ+5
DIR(0	MOD1+4, RX+7, READ+5*
DIRUT	VALUE+3!, MOD1+5, RX+8, READ+1!, READ+8
DIU	XIT+2!
DIV	XIT+2!
DIW	XIT+2!
>> DIWL	DISP+5*
>> DIWR	DISP+5*
DLAYGO	XIT+1!, ADDEC+1*
DO	CENTRY+2!, XIT+1!
DR	CENTRYE+2!, CENTRYE+3!, EDITEC+7, EDITEC+8, XIT+2!
DUOUT	VALUE+3!
G	SUBE+1~, SUBE+2, SUBE+4, SUBE+5, SUBE+7
IN	RX+20~, RX+21*, RX+22
LST	SUBE+1~
LST(	SUBE+4, SUBE+5
MF	GETANS+1~, GETANS+2, GETANS+3, GETANS+4, DISP+9, DISP+10, DISP+11, READ+5
OUT	RX+20~, RX+21*, RX+22
PATIENT	EN~, EN+1, EN1+1, EDITEC+1, EDITEC+6, ADDEC+2
U	IN1+4, VALUE+1, VALUE+4, VALUE+5, VALUE+8, VALUE+10, VALUE+11, EDITEC+5, EDITEC+6, EDITEC+7 , EDITEC+8, RX+5, RX+12, RX+13, RX+15, RX+16, RX+21, SUBE+5
VARS	RX+20~
VARS(	RX+26, RX+27, RX+28, GETANS+3, GETANS+6, DISP+2
VF	EDITEC+2~, EDITEC+3*, EDITEC+7, EDITEC+8
VFIEN	EN~, EN+2, EN+3, EDITEC+3, EDITEC+5
X	VALUE+3!, CENTRY+2, ADDEC+2, DISP+5*, SUBE~, SUBE+5
Y	IN1+3, IN1+4, IN1+5, VALUE+8, VALUE+9, EOJ+1!, CENTRY+3, CENTRY+4, MOD1+6, MOD1+7 , ADDEC+4, RX+9, READ+9, READ+10, SUBE+1~, SUBE+3, SUBE+4, SUBE+5
Z	GETANS+1~, GETANS+3, DISP+6

Customize PDF page

Package: Patient Care Component

Routine: APCDEREF

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: