Routine: APCDFUNC

Information

APCDFUNC ; IHS/CMI/LAB - FIX UNCODED DX ;

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
VA Fileman	6	^%DTC ^DIC ^DIE DT^DIO2 EN^DIQ ^DIR
IHS Patient	3	^AUPNPAT $$IMP^AUPNSICD MOD^AUPNVSIT
IHS VA Utilities	3	($$VAL,$$VALI)^XBDIQ1 ARRAY^XBLM EN^XBNEW
DRG Grouper	1	($$ICDDX,$$ICDOP)^ICDEX
IHS Standard Terminology	1	$$I10ADV^BSTSAPI
Patient Care Component Reports	1	$$VD^APCLV

Entry Points

Name	Comments	DBIA/ICR reference
LOC	;
CHKDATE	;
GETCODE	;
FAMILY	;EP
MAP	;EP - CALLED FROM XBDBQUE
POV	;EP
DOC	; ; need to change to go thru PT node of ICD9 and ; fix all files in the 9000001-9000099 range.
PRO	;EP
O	;one community
PERS	;EP
PROCESS	;
S	;all communities within APCDSU su
XIT	;
APCDDIE	;
CONT	;
SETDEF	;SET DEFAULT OF .9999
CHKLOC	;
PROB	;EP
GETDATE	;get beginning date ; -- add to code for a date range

External References

Name	Field # of Occurrence
^%DTC	APCDDIE+3
$$VD^APCLV	MAP+1
^AUPNPAT	APCDDIE+2
$$IMP^AUPNSICD	MAP+2
MOD^AUPNVSIT	APCDDIE+11
$$I10ADV^BSTSAPI	MAP+6
^DIC	O+1, S+1
^DIE	APCDDIE+10
DT^DIO2	APCDDIE+7
EN^DIQ	APCDDIE+8, MAP+20
^DIR	GETDATE+4, LOC+3, CONT+2, MAP+12
$$ICDDX^ICDEX	SETDEF+1, SETDEF+2
$$ICDOP^ICDEX	PRO+3
$$VAL^XBDIQ1	S+1, APCDDIE+9, MAP+4
$$VALI^XBDIQ1	CHKLOC+6, CHKLOC+11
ARRAY^XBLM	MAP+18
EN^XBNEW	APCDDIE+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The search for Uncoded "_$P(^DIC(APCDFILE,0),U),"'s can begin at any date",!,"that you specify. To get all of the uncoded entries enter a really early " Line Location: GETDATE+1
Function Call: WRITE	Prompt: !,"date like 01/01/1930. If you want to only review data for visits ",!,"in the past week, enter T-7.",! Line Location: GETDATE+2
Function Call: WRITE	Prompt: !,"ERROR IN GLOBAL -- NOTIFY PROGRAMMER - PATIENT OR VISIT DFN MISSING" Line Location: CHKDATE+2
Function Call: WRITE	Prompt: !!,"ERROR -- .9999 NOT IN ICD ",$S(APCDFILE=9000010.08:"PROCEDURE",1:"DIAGNOSIS")," FILE, NOTIFY YOUR SUPERVISOR" Line Location: PROCESS+1
Function Call: WRITE	Prompt: !!,"ERROR -- ",$S(APCFILE=9000010.08:"ZZZ999",1:"ZZZ.999")," NOT IN ICD ",$S(APCDFILE=9000010.08:"PROCEDURE",1:"DIAGNOSIS")," FILE, NOTIFY YOUR SUPERVISOR" Line Location: PROCESS+2
Function Call: WRITE	Prompt: !!,"FILE DOES NOT EXIST -- NOTIFY YOUR SUPERVISOR" Line Location: PROCESS+4
Function Call: WRITE	Prompt: !,"ERROR IN ^DIC -- NOTIFY PROGRAMMER" Line Location: PROCESS+5
Function Call: WRITE	Prompt: !!,"There are no Uncoded codes to change." Line Location: PROCESS+9
Function Call: WRITE	Prompt: !!,"Searching the ",$P(^DIC(APCDFILE,0),U)," File",! Line Location: PROCESS+11
Function Call: WRITE	Prompt: !!,"All done with the ",$P(^DIC(APCDFILE,0),U)," file",! Line Location: PROCESS+15
Function Call: WRITE	Prompt: !! Line Location: CONT+1
Function Call: WRITE	Prompt: ! Line Location: CONT+5
Function Call: WRITE	Prompt: !,"ERROR IN GLOBAL -- NOTIFY PROGRAMMER - PATIENT OR VISIT DFN MISSING" Line Location: APCDDIE+1
Function Call: WRITE	Prompt: !,"NAME: ",$P(^DPT(AUPNPAT,0),U)," DOB: ",APCDDOB," SEX: ",AUPNSEX," HRN: ",$S(APCDHRN]"":APCDHRN,1:"NONE") Line Location: APCDDIE+6
Function Call: WRITE	Prompt: !,"DATE OF VISIT: " Line Location: APCDDIE+7
Function Call: WRITE	Prompt: " LOC: ",$P(^DIC(4,$P(^AUPNVSIT(APCDVSIT,0),U,6),0),U) Line Location: APCDDIE+7
Function Call: WRITE	Prompt: !!,"This POV has been SNOMED coded and there is map advice available." Line Location: MAP+9
Routine Call	DIE Line Location: APCDDIE+10
Routine Call	DIC Line Location: O+1 S+1
Routine Call	DIR Line Location: GETDATE+4 LOC+3 CONT+2 MAP+12

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVPOV - [#9000010.07]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls
^AUTTSU - [#9999999.22]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	APCDDIE+5
^AUPNPROB - [#9000011]	CHKLOC+3, CHKLOC+4, CHKLOC+5, CHKLOC+6
^AUPNVPOV - [#9000010.07]	MAP+1
^AUPNVSIT - [#9000010]	CHKDATE+3, CHKLOC+10, CHKLOC+11, APCDDIE+3, APCDDIE+7
^DD("DD"	APCDDIE+4
^DIC - [#1]	GETDATE+1, GETDATE+4, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+11, PROCESS+15
^DIC(4 - [#4]	APCDDIE+7
^DPT - [#2]	APCDDIE+6

Label References

Name	Line Occurrences
@(	LOC+7
APCDDIE	PROCESS+12, PROCESS+14
CHKDATE	PROCESS+12, PROCESS+14
CHKLOC	PROCESS+12, PROCESS+14
CONT	PROCESS+12, PROCESS+14
GETCODE	POV+1, PROB+2, FAMILY+1, PERS+1
GETDATE	POV+1, PROB+2, FAMILY+1, PERS+1, PRO+2, LOC+4
LOC	LOC+8
PROCESS	POV+1, PROB+2, FAMILY+1, PERS+1, PRO+3
SETDEF	GETCODE+2
XIT	POV+1, PROB+2, FAMILY+1, PERS+1, PRO+2, PROCESS+1, PROCESS+2, PROCESS+4, PROCESS+5, PROCESS+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCD990	PRO+3, SETDEF+2, XIT+1!, PROCESS+2
APCD999	PRO+3, SETDEF+1, XIT+1!, PROCESS+1
APCDCAT	XIT+1!, APCDDIE+7*
APCDCONT	XIT+1!, PROCESS+12, PROCESS+14, CONT+4*
APCDDFN	CHKLOC+3, CHKLOC+4, CHKLOC+5, CHKLOC+6, XIT+1!, PROCESS+3, PROCESS+12, PROCESS+14*, APCDDIE+8, APCDDIE+9 , APCDDIE+10
APCDDOB	XIT+1!, APCDDIE+4*, APCDDIE+6
APCDEIN	XIT+1!, PROCESS+3*
APCDFILE	POV+1, PROB+2, FAMILY+1, PERS+1, PRO+1*, GETDATE+1, GETDATE+4, CHKDATE+3, CHKDATE+4, CHKLOC+1 , CHKLOC+8, XIT+1!, PROCESS+1, PROCESS+2, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+11, PROCESS+15, APCDDIE+3 , APCDDIE+7, APCDDIE+9, APCDDIE+11
APCDFUDT	GETDATE+3, GETDATE+6, CHKDATE+3, CHKDATE+4, XIT+1!
APCDG	CHKDATE+2, CHKDATE+4, XIT+1!, PROCESS+7, PROCESS+9, APCDDIE+1*
>> APCDG0	PROCESS+8*, PROCESS+9
APCDHRN	XIT+1!, APCDDIE+5*, APCDDIE+6
>> APCDJ(	MAP+16*
APCDL	XIT+1!, PROCESS+12, PROCESS+14
>> APCDLOCT	LOC+1, LOC+5, LOC+6, LOC+7, CHKLOC+5, CHKLOC+6, CHKLOC+10, CHKLOC+11
>> APCDLOCT("ONE"	CHKLOC+5, CHKLOC+10, O+3*
>> APCDLOCT("SU"	CHKLOC+6, CHKLOC+11, S+3*
APCDLOOK	APCDDIE+9~*, MAP+1, MAP+4, MAP+20
APCDOK	CHKDATE+1, CHKDATE+5, CHKLOC+2, CHKLOC+7, CHKLOC+8, CHKLOC+9, CHKLOC+12*, XIT+1!, PROCESS+12, PROCESS+14
APCDQUIT	POV+1, PROB+2, FAMILY+1, PERS+1, PRO+2, GETDATE+5, LOC+8, GETCODE+1!, O+2, S+2* , XIT+1!
APCDTEMP	POV+1, PROB+2, FAMILY+1, PERS+1, PRO+1*, XIT+1!, APCDDIE+10
APCDV	MAP+17!
APCDV(	MAP+16
APCDVDG	CHKDATE+2, XIT+1!, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+10, PROCESS+13, APCDDIE+1, APCDDIE+8 , APCDDIE+10
APCDVIGR	XIT+1!, PROCESS+10, PROCESS+12, PROCESS+13, PROCESS+14
APCDVSIT	CHKDATE+2, CHKDATE+3, CHKLOC+10, CHKLOC+11, XIT+1!, APCDDIE+1, APCDDIE+3, APCDDIE+7, APCDDIE+11
>> APCFILE	PROCESS+2
AUPNDAYS	XIT+1!, APCDDIE+3*
AUPNDOB	XIT+1!, APCDDIE+3, APCDDIE+4
AUPNDOD	XIT+1!
AUPNPAT	XIT+1!, APCDDIE+5, APCDDIE+6
AUPNSEX	XIT+1!, APCDDIE+6
>> AUPNVSIT	APCDDIE+11*
>> C	MAP+4*, MAP+6, MAP+18
>> D	MAP+1, MAP+2, MAP+3, MAP+6*, MAP+7
DA	GETDATE+4!, LOC+3!, APCDDIE+8, APCDDIE+10!, MAP+11!, MAP+20*
DIC	O+1!, S+1!, APCDDIE+8, MAP+20
DIC("A"	O+1, S+1
DIC("B"	S+1*
DIC(0	O+1, S+1
DIE	APCDDIE+10*!
DIR	GETDATE+4!, LOC+3!, CONT+6!, MAP+10!, MAP+12!
DIR("A"	GETDATE+4, LOC+2, LOC+3, CONT+2, MAP+11*
DIR("B"	LOC+2, LOC+3, CONT+2, MAP+11
DIR(0	GETDATE+4, LOC+2, CONT+2, MAP+11
DIROUT	CONT+6!
DIRUT	GETDATE+5, LOC+4, CONT+3, CONT+6!, MAP+13
DR	APCDDIE+10*!
DTOUT	CONT+6!
DUOUT	CONT+6!
DUZ(2	S+1, APCDDIE+5
U	PRO+3, GETDATE+1, GETDATE+4, CHKDATE+2, CHKDATE+3, CHKDATE+4, CHKLOC+3, CHKLOC+4, CHKLOC+5, CHKLOC+6 , CHKLOC+10, CHKLOC+11, SETDEF+1, SETDEF+2, PROCESS+3*, PROCESS+5, PROCESS+11, PROCESS+15, APCDDIE+1, APCDDIE+3 , APCDDIE+5, APCDDIE+6, APCDDIE+7, MAP+1
>> X	CONT+3, CONT+4, APCDDIE+3, MAP+16
>> X1	APCDDIE+3*
>> X2	APCDDIE+3*
>> Y	GETDATE+6, LOC+5, CHKDATE+2, O+2, O+3, S+2, S+3, APCDDIE+1, APCDDIE+4, APCDDIE+7 , MAP+14

Customize PDF page

Package: Patient Care Component

Routine: APCDFUNC

Information

Source Information

Call Graph

Call Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: