Routine: APCPSRP

Package	Total	Call Graph
Patient Care Component Data Transmission	5	CHKSITE^APCPDRI (APC,INPT)^APCPSRP2 ^APCPSRP3 ^APCPSRP4 ^APCPSRP5
VA Fileman	3	DD^%DT EN^DIQ1 ^DIR

Package	Total	Caller Graph
Patient Care Component Data Transmission	5	APCPSR APCPSRP2 APCPSRP3 APCPSRP4 APCPSRP5

Entry Points

Name	Comments	DBIA/ICR reference
CHA	;PRINT CHA TOTALS
HEAD	;EP
SKIPPED	;
HEAD1	;
STATDB	;
OVERVIEW	;
GEN	;
START	;
TAPE	;
EOJ	;
PRINT	;
DENT	;
INPT	;

External References

Name	Field # of Occurrence
DD^%DT	START+3
CHKSITE^APCPDRI	START+1
APC^APCPSRP2	GEN+5
INPT^APCPSRP2	INPT+4
^APCPSRP3	SKIPPED+2
^APCPSRP4	CHA+3
^APCPSRP5	STATDB+2
EN^DIQ1	TAPE+3
^DIR	START+8, HEAD+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START+8
Function Call: WRITE	Prompt: !! Line Location: OVERVIEW+2
Function Call: WRITE	Prompt: !,"Your site is currently set up to generate the following record types: " Line Location: OVERVIEW+3
Function Call: WRITE	Prompt: !!,"This PCC Export was processed on ",APCPSR("RUN DATE")," for Posting Dates",!,APCPSR("PRINT BEGIN")," to ",APCPSR("PRINT END"),". A total of ",$P(^APCPLOG(APCPSR("LOG"),0),U,8)," visits were processed, exporting " Line Location: OVERVIEW+8
Function Call: WRITE	Prompt: !,"the following ",$P(^APCPLOG(APCPSR("LOG"),0),U,6)," transaction records:",! Line Location: OVERVIEW+9
Function Call: WRITE	Prompt: !!,"APC VISITS EXPORTED" Line Location: GEN+3
Function Call: WRITE	Prompt: !,"Following is a breakdown of all visits that generated APC transactions by Visit",!,"Date, Type, Location, Service Category, Clinic and Primary Provider Discipline." Line Location: GEN+4
Function Call: WRITE	Prompt: !!!,"VISITS EXPORTED TO THE IHS DIRECT INPATIENT SYSTEM" Line Location: INPT+2
Function Call: WRITE	Prompt: !,"Following is a breakdown of all visits that generated Direct Inpatient",!,"Transactions:",! Line Location: INPT+3
Function Call: WRITE	Prompt: !!,"DENTAL VISITS" Line Location: DENT+2
Function Call: WRITE	Prompt: !,^XTMP("APCPSR",APCPJOB,APCPBTH,"GEN","DENTWMEDS")," of the above PHARMACY Clinic visits were actually DENTAL Clinic visits",!,"on which a medication was prescribed. The DENTAL Clinic visits were ",! Line Location: DENT+3
Function Call: WRITE	Prompt: "converted to PHARMACY Clinic prior to generating the APC transaction record.",! Line Location: DENT+4
Function Call: WRITE	Prompt: !!!,"COMMUNITY HEALTH NURSING ACTIVITY (CHA) TRANSACTIONS" Line Location: CHA+2
Function Call: WRITE	Prompt: !!,"The Transmission Status for this Export is: " Line Location: TAPE+1
Function Call: WRITE	Prompt: ^UTILITY("DIQ1",$J,9001005,APCPSR("LOG"),.15,"E"),! Line Location: TAPE+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: HEAD+4
Function Call: WRITE	Prompt: !?45,"PCC Transmission Summary Page ",APCPSR("PG") Line Location: HEAD+4
Function Call: WRITE	Prompt: !,"Report Run Date: ",APCPSR("DTP"),?70,"Page ",APCPSR("PG") Line Location: HEAD1+3
Function Call: WRITE	Prompt: !!?((80-APCPSR("LENG"))/2),"DATA TRANSMISSION SUMMARY FOR ",APCPSR("FAC PRINT") Line Location: HEAD1+4
Function Call: WRITE	Prompt: !?20,"Date Export Run: ",APCPSR("RUN DATE") Line Location: HEAD1+5
Routine Call	DIR Line Location: START+8 HEAD+2

Name	Line Occurrences (* Changed, ! Killed)
^APCPLOG - [#9001005]	START+3, OVERVIEW+8, OVERVIEW+9, OVERVIEW+13, INPT+1
^DIC(4 - [#4]	START+2
^UTILITY("DIQ1"	TAPE+4
^XTMP("APCPSR"	DENT+1, DENT+3

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCP1	EOJ+1!
APCP2	EOJ+1!
APCP3	EOJ+1!, EOJ+2!
>> APCPBTH	DENT+1, DENT+3
>> APCPJOB	DENT+1, DENT+3
APCPLC	EOJ+1!
APCPPTR	EOJ+2!
>> APCPS("CHA"	CHA+1
>> APCPS("STAT"	OVERVIEW+7
>> APCPSR("DTP"	HEAD1+3
>> APCPSR("FAC P	RINT" , START+2*, HEAD1+2, HEAD1+4
>> APCPSR("LENG"	HEAD1+2*, HEAD1+4
>> APCPSR("LOG"	START+3, OVERVIEW+8, OVERVIEW+9, OVERVIEW+13, INPT+1, TAPE+3, TAPE+4
>> APCPSR("PG"	START+4, HEAD+1, HEAD+3, HEAD+4, HEAD1+1*, HEAD1+3
>> APCPSR("PRINT	BEGIN" , OVERVIEW+8, END" , OVERVIEW+8
>> APCPSR("QUIT"	START+6!, OVERVIEW+1, GEN+6, INPT+5, CHA+4, STATDB+3, SKIPPED+3, HEAD+2*
>> APCPSR("RUN D	ATE" , START+3*, OVERVIEW+8, HEAD1+5
APCPT	EOJ+1!, EOJ+2!
APCPTOTC	EOJ+1!, EOJ+2!
APCPTOTO	EOJ+1!, EOJ+2!
APCPWC	EOJ+2!
APCPX	EOJ+1!
DA	TAPE+2!, TAPE+3*!
DIC	TAPE+2!, TAPE+3*!
DIQ	TAPE+2!, TAPE+3!
DIQ(0	TAPE+3*
DIR	START+8!, HEAD+2!
DIR("A"	START+8*
DIR(0	START+8, HEAD+2
DR	TAPE+2!, TAPE+3*!
>> DTOUT	HEAD+2
DUZ(2	START+2
G	EOJ+3!
IO	START+8, HEAD+2
IO(0	START+8, HEAD+2
IOF	HEAD+4, HEAD1+1
IOSL	OVERVIEW+1
IOST	START+8, HEAD+2
U	START+2, START+3, OVERVIEW+8, OVERVIEW+9, OVERVIEW+13, INPT+1
X	EOJ+3!
Y	START+3*, EOJ+3!, HEAD+2
Z	EOJ+3!

Customize PDF page

Package: Patient Care Component Data Transmission

Routine: APCPSRP

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
CHA	DENT+1
DENT	INPT+1
HEAD	START+5, OVERVIEW+1
HEAD1	HEAD+1
PRINT	START+7
STATDB	GEN+1, CHA+1