Routine: APCDACP1

Package	Total	Call Graph
VA Fileman	4	^%DTC DT^DIO2 EN^DIQ1 ^DIR
DRG Grouper	1	($$ICDDX,$$ICDOP)^ICDEX
IHS Patient	1	^AUPNPAT
Kernel	1	$$VERSION^XPDUTL
Patient Care Component Reports	1	$$VD^APCLV

Package	Total	Caller Graph
Patient Care Component	1	APCDACP

Entry Points

Name	Comments	DBIA/ICR reference
P2	;
P3	;
HEAD	;
P1	;
HEAD1	;
P4	;
PRN1	;
1	;
3	;
2	;
XIT	; Clean up and exit
V	;
ER

External References

Name	Field # of Occurrence
^%DTC	PRN1+5, 3+6
$$VD^APCLV	1+3, 1+4, 2+3, 2+4
^AUPNPAT	PRN1+4
DT^DIO2	V+2, HEAD1+4
EN^DIQ1	3+4
^DIR	APCDACP1+9, HEAD+2
$$ICDDX^ICDEX	1+3, 1+4
$$ICDOP^ICDEX	2+3, 2+4
$$VERSION^XPDUTL	1+6, 2+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PLEASE NOTE: The IHS Direct Inpatient System no longer requires" Line Location: APCDACP1+3
Function Call: WRITE	Prompt: !,"the use of the ACCEPT command so this option is no longer necessary and" Line Location: APCDACP1+4
Function Call: WRITE	Prompt: !,"will be eliminated in a future patch.",!! Line Location: APCDACP1+5
Function Call: WRITE	Prompt: !!,"There are no visits on or after ",$S(APCDX="P":"Posting",APCDX="Visit":"",1:"Posting")," date " Line Location: V+2
Function Call: WRITE	Prompt: !,"with an ACCEPTED "_APCDTITL_".",! Line Location: V+2
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: !,"PCC DATA ENTRY ACCEPT COMMAND REPORT",?70,"Page: ",APCDPG,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,"REPORT OF ",APCDTITL,"'S FOR ",$S(APCDX="P":"POSTING",APCDX="V":"VISIT",1:"POSTING")," DATE RANGE: " Line Location: HEAD1+4
Function Call: WRITE	Prompt: " THROUGH " Line Location: HEAD1+4
Function Call: WRITE	Prompt: !!," Date: [",APCDRD,"] Name: [",$P(^DPT($P(APCDVR,U,5),0),U),"] Sex: ",AUPNSEX,"]" Line Location: PRN1+8
Function Call: WRITE	Prompt: !," HRN: [",$S(APCDHRN]"":APCDHRN,1:"NONE"),"] Date of Birth: [",APCDDOB,"] Age in Days: [",AUPNDAYS,"]" Line Location: PRN1+9
Function Call: WRITE	Prompt: !," ",APCDTITL," Code: [" Line Location: 1+2
Function Call: WRITE	Prompt: $P($$ICDDX^ICDEX($P(APCDER,U),$$VD^APCLV(APCDV)),U,2),"] ICD Narrative: [",$P($$ICDDX^ICDEX($P(APCDER,U),$$VD^APCLV(APCDV)),U,4),"]" Line Location: 1+3
Function Call: WRITE	Prompt: !?6,"ICD Lower Age: [",A,"] ICD Upper Age: [",B,"] " Line Location: 1+9
Function Call: WRITE	Prompt: !?6 Line Location: 1+10
Function Call: WRITE	Prompt: "Overridden By: [" Line Location: 1+10
Function Call: WRITE	Prompt: $P(^VA(200,$P(APCDER,U,14),0),U),"]" Line Location: 1+11
Function Call: WRITE	Prompt: !," ",APCDTITL," Code: [" Line Location: 2+2
Function Call: WRITE	Prompt: $P($$ICDOP^ICDEX($P(APCDER,U),$$VD^APCLV(APCDV),,"I"),U,2),"] ICD Narrative: [",$P($$ICDOP^ICDEX($P(APCDER,U),$$VD^APCLV(APCDV),,"I"),U,5),"]" Line Location: 2+3
Function Call: WRITE	Prompt: !?6,"ICD Lower Age: [",A,"] ICD Upper Age: [",B,"] " Line Location: 2+9
Function Call: WRITE	Prompt: !?6 Line Location: 2+10
Function Call: WRITE	Prompt: "Overridden By: [" Line Location: 2+10
Function Call: WRITE	Prompt: $P(^VA(200,$P(APCDER,U,9),0),U),"]" Line Location: 2+11
Function Call: WRITE	Prompt: !," Date of Discharge: [" Line Location: 3+2
Function Call: WRITE	Prompt: ^UTILITY("DIQ1",$J,9000010.02,APCDE,.01,"E"),"]" Line Location: 3+5
Function Call: WRITE	Prompt: " Length of Stay [",X,"]" Line Location: 3+6
Function Call: WRITE	Prompt: !," Adm. Srv.: [",^UTILITY("DIQ1",$J,9000010.02,APCDE,.04,"E"),"]"," Disch. Srv.: [",^UTILITY("DIQ1",$J,9000010.02,APCDE,.05,"E"),"]",! Line Location: 3+7
Function Call: WRITE	Prompt: ?5 Line Location: 3+9
Function Call: WRITE	Prompt: "Overridden By: [" Line Location: 3+9
Function Call: WRITE	Prompt: $P(^VA(200,$P(APCDER,U,14),0),U),"]" Line Location: 3+10
Routine Call	DIR Line Location: APCDACP1+9 HEAD+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PRN1+3
^AUPNVINP - [#9000010.02]	3+1
^AUPNVPOV - [#9000010.07]	1+1
^AUPNVPRC - [#9000010.08]	2+1
^AUPNVSIT - [#9000010]	PRN1+2
^DD("DD"	PRN1+6, PRN1+7
^DPT - [#2]	PRN1+8
^ICD0 - [#80.1]	2+8
^ICD9 - [#80]	1+8
^UTILITY("DIQ1"	3+3!, 3+5, 3+7, 3+8!
^VA(200 - [#200]	1+11, 2+11, 3+10
^XTMP("APCDACP"	V+2, V+3, ER

Name	Line Occurrences
@(	APCDACP1+7, ER
ER	V+3
HEAD	V+1, PRN1+1
HEAD1	HEAD+1
P1	P4+1
P2	P4+3
P3	P4+5
PRN1	V+3
V	P1+1, P2+1, P3+1
XIT	APCDACP1+8

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	1+4, 1+7, 2+4
>> A	1+5, 1+7, 1+8, 1+9, 2+5, 2+7, 2+8, 2+9
>> APCDACCT	P1+1, P2+1, P3+1*, ER
>> APCDBD	V+2, HEAD1+4
APCDDOB	PRN1+6*, PRN1+9, XIT+1!
APCDE	ER*, 1+1, 2+1, 3+1, 3+4, 3+5, 3+7, XIT+1!
>> APCDED	HEAD1+4
APCDER	1+1, 1+3, 1+4, 1+8, 1+11, 2+1, 2+3, 2+4, 2+8, 2+11 , 3+1*, 3+6, 3+10, XIT+1!
APCDHRN	PRN1+3*, PRN1+9, XIT+1!
APCDPAT	PRN1+3*, PRN1+4, XIT+1!
>> APCDPG	APCDACP1+6, HEAD+1, HEAD1+2, HEAD1+3
APCDQUIT	P4+2, P4+4, P4+6, V+3, ER, HEAD+2*, PRN1+1, XIT+1!
APCDRD	PRN1+7*, PRN1+8, XIT+1!
>> APCDSITE	PRN1+3
>> APCDT	APCDACP1+7
>> APCDTITL	P1+1, P2+1, P3+1*, V+2, V+3, ER, HEAD1+4, 1+2, 2+2
APCDV	V+3*, ER, PRN1+2, 1+3, 1+4, 2+3, 2+4, XIT+1!
APCDVR	PRN1+2*, PRN1+3, PRN1+5, PRN1+7, PRN1+8, 3+6, XIT+1!
>> APCDX	V+2, HEAD1+4
>> AUPNDAYS	PRN1+5*, PRN1+9
>> AUPNDOB	PRN1+5, PRN1+6
>> AUPNSEX	PRN1+8
>> B	1+5, 1+7, 1+8, 1+9, 2+5, 2+7, 2+8, 2+9
DA	3+4*!
DIC	3+4*!
>> DIQ(0	3+4*
DIR	APCDACP1+9!, HEAD+2!
DIR(0	APCDACP1+9, HEAD+2
DR	3+4*!
>> DTOUT	HEAD+2
IO	APCDACP1+9, HEAD+2
IO(0	APCDACP1+9, HEAD+2
IOF	APCDACP1+10, HEAD1+1
IOSL	PRN1+1
IOST	APCDACP1+9, HEAD+2
U	PRN1+2, PRN1+3, PRN1+8, 1+3, 1+4, 1+7, 1+8, 1+11, 2+3, 2+4 , 2+8, 2+11, 3+10
>> X	PRN1+5, 3+6*
>> X1	PRN1+5, 3+6
>> X2	PRN1+5, 3+6
>> Y	V+2, HEAD+2, HEAD1+4, PRN1+4, PRN1+6, PRN1+7*

Customize PDF page

Package: Patient Care Component

Routine: APCDACP1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: