Routine: APCDFPPV

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC EN^DIQ ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
DRG Grouper	1	($$ICDDX,$$ICDOP)^ICDEX
IHS Patient	1	^AUPNPAT
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Patient Care Component Reports	1	($$LOCENC,$$PRIMPROV)^APCLV

Entry Points

Name	Comments	DBIA/ICR reference
OPER(V)	;
LOC	;
CHKDATE	;
GETCODE	;
TSKMN	;
DOC	; ; need to change to go thru PT node of ICD9 and ; fix all files in the 9000001-9000099 range.
CHKPRV	;
DATE	;
FILE	;WHICH FILE?
PRINT	;
NONE	;
PRT	;
HEAD	;
EN	; Entry point if for taskman.
ZIS	;
O	;one community
S	;all communities within APCDSU su
XIT
CHKLOC	;
SUBHEAD	;
HEAD1	;
PROV	;
PROC	;

External References

Name	Field # of Occurrence
^%DT	EN+1
^%ZIS	ZIS+11
^%ZISC	XIT+4
^%ZTLOAD	TSKMN+3
$$LOCENC^APCLV	PRINT+17
$$PRIMPROV^APCLV	CHKPRV+4, PRINT+18
^AUPNPAT	PRINT+10
^DIC	PROV+7, O+1, S+1
EN^DIQ	PRINT+15
^DIR	LOC+3, DATE+5, DATE+8, PROV+3, FILE+3, HEAD+2
$$ICDDX^ICDEX	ZIS+1, ZIS+3, GETCODE+2, GETCODE+3
$$ICDOP^ICDEX	ZIS+5, ZIS+6, GETCODE+9, GETCODE+10
$$VAL^XBDIQ1	S+1, PRINT+19, PRINT+20, PRINT+21
$$VALI^XBDIQ1	CHKLOC+5, CHKLOC+10, PRINT+8, PRINT+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: DATE+2
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: DATE+3
Function Call: WRITE	Prompt: !,"Ending date cannot be before beginning date." Line Location: DATE+11
Function Call: WRITE	Prompt: !!,"ERROR -- .9999 NOT IN ICD DIAGNOSIS FILE, NOTIFY YOUR SUPERVISOR" Line Location: ZIS+2
Function Call: WRITE	Prompt: !!,"ERROR -- ZZZ.999 NOT IN ICD DIAGNOSIS FILE, NOTIFY YOUR SUPERVISOR" Line Location: ZIS+4
Function Call: WRITE	Prompt: !!,"ERROR -- .9999 NOT IN ICD OPERATION FILE, NOTIFY YOUR SUPERVISOR" Line Location: ZIS+7
Function Call: WRITE	Prompt: !!,"ERROR -- ZZZ999 NOT IN ICD OPERATON FILE, NOTIFY YOUR SUPERVISOR" Line Location: ZIS+8
Function Call: WRITE	Prompt: !!,"Enter the Device for printing" Line Location: ZIS+10
Function Call: WRITE	Prompt: !,"ERROR IN GLOBAL -- NOTIFY PROGRAMMER - PATIENT OR VISIT DFN MISSING" Line Location: CHKLOC+8
Function Call: WRITE	Prompt: !,"ERROR IN GLOBAL -- NOTIFY PROGRAMMER - PATIENT OR VISIT DFN MISSING" Line Location: CHKPRV+3
Function Call: WRITE	Prompt: !!,"There are no Uncoded entries." Line Location: PRINT+1
Function Call: WRITE	Prompt: ?2,"OPERATOR FROM FORMS TRACKING OR CREATED BY: " Line Location: PRINT+16
Function Call: WRITE	Prompt: $P(^VA(200,APCDVCTR,0),U) Line Location: PRINT+16
Function Call: WRITE	Prompt: $P(^VA(200,APCDVCTR,0),U) Line Location: PRINT+16
Function Call: WRITE	Prompt: ?2,"LOCATION OF ENCOUNTER: ",$$LOCENC^APCLV(APCDVSIT,"E") Line Location: PRINT+17
Function Call: WRITE	Prompt: !?2,"PROVIDER: ",$$PRIMPROV^APCLV(APCDVSIT,"N") Line Location: PRINT+18
Function Call: WRITE	Prompt: ?2,"RECORDING PROVIDER: ",$$VAL^XBDIQ1(9000011,APCDDFN,1.04),! Line Location: PRINT+19
Function Call: WRITE	Prompt: ?2,"ENTERED BY: ",$$VAL^XBDIQ1(9000011,APCDDFN,1.03),! Line Location: PRINT+20
Function Call: WRITE	Prompt: !?2,"RESPONSIBLE PROVIDER: ",$$VAL^XBDIQ1(9000011,APCDDFN,1.05) Line Location: PRINT+21
Function Call: WRITE	Prompt: !!,"There are no Uncoded diagnoses or procedures in the ",$P(^DIC(APCDFILE,0),U)," file." Line Location: NONE+1
Function Call: WRITE	Prompt: !,"ERROR IN GLOBAL -- NOTIFY PROGRAMMER - PATIENT OR VISIT DFN MISSING" Line Location: CHKDATE+2
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: !,APCDDT,?70,"Page: ",APCDPG Line Location: HEAD1+3
Function Call: WRITE	Prompt: !?29,"PCC Data Entry Module" Line Location: HEAD1+4
Function Call: WRITE	Prompt: !?16,"***********************************************" Line Location: HEAD1+5
Function Call: WRITE	Prompt: !?16,"* LISTING OF UNCODED DIAGNOSES AND PROCEDURES *" Line Location: HEAD1+6
Function Call: WRITE	Prompt: !?16,"***********************************************" Line Location: HEAD1+7
Function Call: WRITE	Prompt: !!,"Uncoded ",$P(^DIC(APCDFILE,0),U)," entries:" Line Location: SUBHEAD+1
Routine Call	DIC Line Location: PROV+7 O+1 S+1
Routine Call	DIR Line Location: LOC+3 DATE+5 DATE+8 PROV+3 FILE+3 HEAD+2
Routine Call	%ZIS Line Location: ZIS+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls
^AUTTSU - [#9999999.22]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDFORM - [#9001001.5]	OPER+6
^APCDFORM("AB"	OPER+4, OPER+5
^AUPNPAT - [#9000001]	PRINT+12
^AUPNPROB - [#9000011]	CHKLOC+3, CHKLOC+5, PRT+2, PRT+3, PRINT+19, PRINT+20, PRINT+21
^AUPNVSIT - [#9000010]	CHKLOC+9, CHKLOC+10, OPER+4, OPER+5, OPER+7, CHKDATE+3
^DD("DD"	EN+1, PRINT+11
^DIC - [#1]	DATE+2, PROC+3, PRINT+6, PRINT+15, NONE+1, SUBHEAD+1
^TMP($J	EN+4!, XIT+3!, PRT+4*, PRINT+1, PRINT+3, PRINT+7
^VA(200 - [#200]	PRINT+16

Label References

Name	Line Occurrences
$$OPER	PRINT+16
@(	LOC+7
CHKDATE	PRT+1
CHKLOC	PROC+6, PROC+9
CHKPRV	PROC+6, PROC+9
DATE	LOC+6, DATE+11
FILE	PROV+6
HEAD	PRINT+1, PRINT+4, PRINT+13
HEAD1	HEAD+1
LOC	LOC+8, DATE+6, DATE+9
PRINT	GETCODE+12
PROC	GETCODE+4, GETCODE+5, GETCODE+6, GETCODE+7, GETCODE+8, GETCODE+11
PROV	PROV+7, PROV+8, FILE+4
PRT	PROC+6, PROC+9
TSKMN	ZIS+13
XIT	LOC+4, PROV+4, ZIS+2, ZIS+4, ZIS+7, ZIS+8, ZIS+12, PRINT+1, TSKMN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	EN+1*
>> %ZIS	ZIS+11*
A	XIT+2!
APCDCODE	ZIS+1, ZIS+2, ZIS+5, ZIS+7, GETCODE+2, GETCODE+9, XIT!
>> APCDCODO	ZIS+3, ZIS+4, ZIS+6, ZIS+8, GETCODE+3, GETCODE+10
APCDDFN	XIT!, CHKLOC+3, CHKLOC+5, PROC+2, PROC+6, PROC+9, PRT+2, PRT+3, PRT+4, PRINT+7 , PRINT+8, PRINT+9, PRINT+15, PRINT+19, PRINT+20, PRINT+21
APCDDOB	XIT!, PRINT+11*, PRINT+14
APCDDT	EN+1*, XIT!, HEAD1+3
APCDF	XIT!
APCDFILE	DATE+1, DATE+2, EN+3, GETCODE+4, GETCODE+5, GETCODE+6, GETCODE+7, GETCODE+8, GETCODE+11, XIT! , CHKLOC+2, CHKLOC+3, CHKPRV+1, PROC+3, PRT+2, PRT+3, PRT+4, PRINT+3*, PRINT+6, PRINT+7 , PRINT+8, PRINT+9, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21, NONE+1 , CHKDATE+3, CHKDATE+4, SUBHEAD+1
APCDFPPV	XIT+1!
APCDFUDT	DATE+4, DATE+7, DATE+11, XIT+1!, CHKDATE+3, CHKDATE+4
APCDFUET	DATE+10*, DATE+11, XIT+1!, CHKDATE+3
APCDG	XIT!, CHKLOC+8, CHKPRV+3, PROC+4, PROC+7, CHKDATE+2*, CHKDATE+4
APCDHRN	XIT!, PRINT+12*, PRINT+14
APCDL	XIT!
APCDLOCT	LOC+1!, LOC+5, LOC+6, LOC+7, XIT+1!, CHKLOC+4, CHKLOC+5, CHKLOC+9, CHKLOC+10
APCDLOCT("ONE"	CHKLOC+4, CHKLOC+9, O+3*
APCDLOCT("SU"	CHKLOC+5, CHKLOC+10, S+3*
APCDOK	XIT+1!, CHKLOC+2, CHKLOC+4, CHKLOC+5, CHKLOC+6, CHKLOC+7, CHKLOC+11, CHKPRV+1, CHKPRV+2, CHKPRV+5* , PROC+6, PROC+9, PRT+1, CHKDATE+1, CHKDATE+5
APCDPG	EN+3, XIT!, HEAD+1, HEAD1+2, HEAD1+3
APCDPRVT	PROV+1!, PROV+5, PROV+6, XIT+1!, CHKPRV+4
APCDPRVT("ONE"	PROV+9*, CHKPRV+4
APCDQUIT	LOC+8, GETCODE+5, GETCODE+6, GETCODE+7, GETCODE+8, GETCODE+11, XIT!, O+2, S+2, PROC+1! , PROC+6, PROC+9, PRINT+3, PRINT+5, PRINT+7, PRINT+13, HEAD+2*
APCDVCTR	XIT!, PRINT+16*
APCDVDG	XIT!, CHKLOC+8, CHKPRV+3, PROC+3*, PROC+4, PROC+5, PROC+7, PROC+8, CHKDATE+2
APCDVIGR	XIT!, PROC+5, PROC+6, PROC+8, PROC+9
APCDVSIT	XIT+1!, CHKLOC+1, CHKLOC+8, CHKLOC+9, CHKLOC+10, CHKPRV+1, CHKPRV+3, CHKPRV+4, PRINT+9, PRINT+16 , PRINT+17, PRINT+18, CHKDATE+2, CHKDATE+3
>> APCDWFIL	FILE+1, FILE+5, GETCODE+4, GETCODE+5, GETCODE+6, GETCODE+7, GETCODE+8, GETCODE+11
AUPNDAYS	XIT+1!
AUPNDOB	XIT+1!, PRINT+11
AUPNDOD	XIT+1!
AUPNPAT	XIT+1!, PRINT+12
AUPNSEX	XIT+1!, PRINT+14
D	OPER+3~, OPER+4*, OPER+5, OPER+6
D0	XIT+2!
D1	XIT+2!
D2	XIT+2!
DA	LOC+3!, DATE+5!, DATE+8!, PROV+3!, PROV+7!, FILE+3!, XIT+2!, PRINT+15*!
DIC	PROV+7!, XIT+2!, O+1!, S+1!, PRINT+15!
DIC("A"	PROV+7, O+1, S+1*
DIC("B"	S+1*
DIC(0	PROV+7, O+1, S+1*
DIE	XIT+2!
DIQ	XIT+2!
DIR	LOC+3!, DATE+5!, DATE+8!, PROV+3!, FILE+3!, HEAD+2!
DIR("A"	LOC+2, LOC+3, DATE+5, DATE+8, PROV+2, PROV+3, FILE+3*
DIR("B"	LOC+2, LOC+3, PROV+2, PROV+3, FILE+3*
DIR(0	LOC+2, DATE+5, DATE+8, PROV+2, FILE+2, HEAD+2
>> DIRUT	LOC+4, DATE+6, DATE+9, PROV+4, FILE+4
DK	XIT+2!
DL	XIT+2!
DR	XIT+2!, PRINT+15*!
>> DTOUT	HEAD+2
DUZ(2	S+1, PRINT+12
DX	XIT+2!
IO	EN+2, HEAD+2
IO("Q"	ZIS+9!, ZIS+12!, ZIS+13, XIT!
IO(0	HEAD+2
>> IOCPU	TSKMN+3
IOF	HEAD1+2
ION	TSKMN+3
IOSL	PRINT+13
IOST	HEAD+2
M	OPER+3~, OPER+5*, OPER+6
POP	ZIS+12, XIT+2!
S	XIT+2!
U	DATE+2, ZIS+1, ZIS+3, ZIS+5, ZIS+6, GETCODE+2, GETCODE+3, GETCODE+9, GETCODE+10, CHKLOC+3 , CHKLOC+5, CHKLOC+8, CHKLOC+9, CHKLOC+10, CHKPRV+3, PRT+2, PRT+3, PRINT+6, PRINT+12, PRINT+16 , PRINT+19, PRINT+20, PRINT+21, OPER+4, OPER+5, OPER+6, OPER+7, NONE+1, CHKDATE+2, CHKDATE+3 , CHKDATE+4, SUBHEAD+1
V	OPER~, OPER+1, OPER+4, OPER+5, OPER+7
X	PROV+7, EN+1*, XIT+2!
Y	LOC+5, DATE+7, DATE+10, PROV+5, PROV+8, PROV+9, FILE+5, EN+1, XIT+2!, CHKLOC+3* , CHKLOC+4, CHKLOC+8, CHKPRV+3, O+2, O+3, S+2, S+3, PRINT+8, PRINT+11, OPER+3~* , OPER+6, OPER+7, CHKDATE+2, HEAD+2
>> ZTCPU	TSKMN+3*
>> ZTDESC	TSKMN+3*
>> ZTDTH	TSKMN+3*
>> ZTIO	TSKMN+3*
>> ZTQUEUED	GETCODE+13
>> ZTREQ	GETCODE+13*
>> ZTRTN	TSKMN+3*
ZTSAVE	TSKMN+1!
ZTSAVE("APCD*"	TSKMN+2*
ZTSAVE("DUZ(2)"	TSKMN+3*
ZTSK	XIT!

Customize PDF page

Package: Patient Care Component

Routine: APCDFPPV

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: