Routine: APCPDISP

Package	Total	Call Graph
IHS VA Utilities	2	^XBDBQUE $$VAL^XBDIQ1
VA Fileman	2	^DIC ^DIR
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
TEXT	;
EN1	;
XIT	;EP
FF	;
PRINT	;
PROC	;

External References

Name	Field # of Occurrence
^DIC	EN1+4
^DIR	TEXT+8, FF+1
^XBDBQUE	EN1+7
$$VAL^XBDIQ1	PRINT+9, PRINT+11, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+20, PRINT+21, PRINT+22 , PRINT+23, PRINT+24, PRINT+25, PRINT+26, PRINT+27, PRINT+28
$$FMTE^XLFDT	PRINT+2, PRINT+5, PRINT+6, PRINT+7, PRINT+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Display PCC DATA TRANSMISSION Log Entry",! Line Location: EN1+3
Function Call: WRITE	Prompt: !!,"Goodbye" Line Location: EN1+4
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: PRINT+1
Function Call: WRITE	Prompt: !?19,"PCC DATA TRANSMISSION LOG REPORT" Line Location: PRINT+1
Function Call: WRITE	Prompt: !?7,"Information for Log Entry ",APCPLOG," Beginning Date: ",$$FMTE^XLFDT($P(^APCPLOG(APCPLOG,0),U)) Line Location: PRINT+2
Function Call: WRITE	Prompt: !!?30,"Number:",?40,APCPLOG Line Location: PRINT+4
Function Call: WRITE	Prompt: !?22,"Beginning Date:",?40,$$FMTE^XLFDT($P(APCPREC,U)) Line Location: PRINT+5
Function Call: WRITE	Prompt: !?25,"Ending Date:",?40,$$FMTE^XLFDT($P(APCPREC,U,2)) Line Location: PRINT+6
Function Call: WRITE	Prompt: !?17,"Run Start Date/Time:",?40,$$FMTE^XLFDT($P(APCPREC,U,3)) Line Location: PRINT+7
Function Call: WRITE	Prompt: !?18,"Run Stop Date/Time:",?40,$$FMTE^XLFDT($P(APCPREC,U,4)) Line Location: PRINT+8
Function Call: WRITE	Prompt: !?24,"Run Location:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.09) Line Location: PRINT+9
Function Call: WRITE	Prompt: !?22," Special Date Range Re-Export " Line Location: PRINT+10
Function Call: WRITE	Prompt: !?17,"Transmission Status:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.15) Line Location: PRINT+11
Function Call: WRITE	Prompt: !?17,"File name created: ",?40,$P(APCPREC,U,24) Line Location: PRINT+12
Function Call: WRITE	Prompt: !?17,"This log entry was created with REDO." Line Location: PRINT+13
Function Call: WRITE	Prompt: !!?4,"Total Number of Visits Processed:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.08) Line Location: PRINT+14
Function Call: WRITE	Prompt: !!?11,"Number of APC Records:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.13) Line Location: PRINT+16
Function Call: WRITE	Prompt: !?5,"Number of Inpatient Records:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.11) Line Location: PRINT+17
Function Call: WRITE	Prompt: !?11,"Number of CHA Records:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.14) Line Location: PRINT+18
Function Call: WRITE	Prompt: !?2,"Reasons Visits were skipped and did not generate a statistical record:" Line Location: PRINT+19
Function Call: WRITE	Prompt: !?6,"# STATISTICAL DATABASE Records:",?40,$$VAL^XBDIQ1(9001005,APCPLOG,.17) Line Location: PRINT+27
Function Call: WRITE	Prompt: !!,"Total Number of Records Transmitted to the Area Office: ",$$VAL^XBDIQ1(9001005,APCPLOG,.06) Line Location: PRINT+28
Function Call: WRITE	Prompt: !!,"To list the errors, use the 'ERRS - List PCC Data Transmission Errors Report." Line Location: TEXT+4
Function Call: WRITE	Prompt: !?40,"PCC Data Transmission Log - Page 2",!! Line Location: FF+3
Routine Call	DIC Line Location: EN1+4
Routine Call	DIR Line Location: TEXT+8 FF+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCPLOG	EN1+5*, XIT+1!, PRINT+2, PRINT+3, PRINT+4, PRINT+9, PRINT+11, PRINT+14, PRINT+15, PRINT+16 , PRINT+17, PRINT+18, PRINT+20, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, PRINT+26, PRINT+27 , PRINT+28
APCPQUIT	EN1+2!, TEXT+1, FF+1*
APCPREC	XIT+1!, PRINT+3*, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+10, PRINT+12, PRINT+13
DIC	EN1+4*!
DIC(0	EN1+4*
DIR	TEXT+8!, FF+1!
DIR("A"	TEXT+8, FF+1
DIR(0	TEXT+8, FF+1
>> DIRUT	TEXT+8*, FF+1
>> DUOUT	TEXT+8
IOF	EN1+1, PRINT+1, FF+2
IOSL	TEXT+1
IOST	TEXT+6, FF+1
U	PRINT+2, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+10, PRINT+12, PRINT+13, PRINT+15, PRINT+16 , PRINT+17, PRINT+18, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, PRINT+26
>> XBNS	EN1+6*
>> XBRC	EN1+6*
>> XBRP	EN1+6*
>> XBRX	EN1+6*
>> Y	EN1+4, EN1+5
>> ZTQUEUED	TEXT+7

Customize PDF page

Package: Patient Care Component Data Transmission

Routine: APCPDISP

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: