Routine: APCPSRP3

Information

APCPSRP3 ; IHS/TUCSON/LAB - PRINT . SECTION AUGUST 14, 1992 ; [ 08/19/03 12:37 PM ]

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
IHS VA Utilities	1	$$VAL^XBDIQ1
Patient Care Component Data Transmission	1	HEAD^APCPSRP
VA Fileman	1	DD^%DT

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Patient Care Component Data Transmission	1	APCPSRP

Entry Points

Name	Comments	DBIA/ICR reference
LOC	;
TOTAL	;
VD	;
PROC1	;
PRNTDATE	;
DEMO	;
TYPEERR	;
REM	;
PROVDISC	;
SCERR	;
EOJ	;
PRNT	;
CLINIC	;
DEL	;
CLINERR	;
ERROR	;
SC	;
CHANCL	; PHN NON CLINIC VISITS
PROC	;
PRNTPTR	;

External References

Name	Field # of Occurrence
DD^%DT	PRNTDATE+1
HEAD^APCPSRP	APCPSRP3+4, DEL+3, PROC+1, PRNT+2
$$VAL^XBDIQ1	APCPSRP3+11, APCPSRP3+12, APCPSRP3+13, APCPSRP3+14, APCPSRP3+15, APCPSRP3+16, APCPSRP3+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"All visits reviewed generated a transaction record to be sent to the Data",!,"Center. There were no transaction errors." Line Location: APCPSRP3+8
Function Call: WRITE	Prompt: !,"A total of ",X," visits DID NOT generate a Statistical Database transaction",!,"record to be passed to the Data Center. Following is a summary of ",!,"those visits and possible reasons why they may not have been exported: " Line Location: APCPSRP3+9
Function Call: WRITE	Prompt: !!,"Reasons visits may not have been exported:",! Line Location: APCPSRP3+10
Function Call: WRITE	Prompt: !?18,"Visits with Errors:",?40,$$VAL^XBDIQ1(9001005,APCPSR("LOG"),.05) Line Location: APCPSRP3+11
Function Call: WRITE	Prompt: !?10,^XTMP("APCPSR",APCPJOB,APCPBTH,"SKIPPED","TOTALERRS"),?20," of these had Transaction Errors" Line Location: ERROR+2
Function Call: WRITE	Prompt: !!,"Following is a breakdown of the remaining ",^XTMP("APCPSR",APCPJOB,APCPBTH,"SKIPPED","TOTALREM")," visits that did not",!,"generate an APC or INPATIENT Transaction record." Line Location: REM+2
Function Call: WRITE	Prompt: !!?10,APCPSR("T") Line Location: PROC+2
Function Call: WRITE	Prompt: !?13,Y,?45,$J(^XTMP("APCPSR",APCPJOB,APCPBTH,"SKIPPED",APCPSR("2"),APCPSR("N")),7) Line Location: PRNTDATE+1
Function Call: WRITE	Prompt: !?10,APCPSR("T") Line Location: PRNT+2
Function Call: WRITE	Prompt: " (cont.)" Condition for execution: APCPSR("WC")>0 Line Location: PRNT+2
Function Call: WRITE	Prompt: !?13,APCPSR("NON APC"),$E(APCPSR("D"),1,30),?45,$J(X,7) Line Location: PRNT+6
Function Call: WRITE	Prompt: !?13,$P(@G@(0),U,APCPSR("PIECE")),?45,$J(X,7) Line Location: PRNTPTR+2
Function Call: WRITE	Prompt: ?55,"(IHS CODE: ",$P(^AUTTLOC(APCPSR("D"),0),U,10),")" Line Location: PRNTPTR+3
Function Call: WRITE	Prompt: !?15,"TOTAL:",?45,$J(APCPSR("TOTC"),8),?55,"(",Z,")" Line Location: TOTAL+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCPLOG - [#9001005]	APCPSRP3+7, APCPSRP3+12, APCPSRP3+13, APCPSRP3+14, APCPSRP3+15, APCPSRP3+16, APCPSRP3+17, DEL+1
^AUTTLOC - [#9999999.06]	PRNTPTR+3
^XTMP("APCPSR"	ERROR+1, ERROR+2, TYPEERR+2, SCERR+1, CLINERR+1, CHANCL+1, REM+1, REM+2, PROC+3, PROC1+2 , PRNTDATE+1, PRNT+4

Label References

Name	Line Occurrences
CLINERR	SCERR+1
PRNT	PROC1+1, PROC1+2
PRNTDATE	PRNT+3
PRNTPTR	PRNT+5
PROC	ERROR+5, TYPEERR+4, SCERR+3, CLINERR+3, REM+4, SC+2, CLINIC+2, LOC+2, PROVDISC+2, VD+3
PROC1	PROC+3
REM	CLINERR+1
SCERR	TYPEERR+2
TYPEERR	ERROR+1

Naked Globals

Name	Field # of Occurrence
^("CHANOAPC"	CHANCL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCPBTH	ERROR+1, ERROR+2, TYPEERR+2, SCERR+1, CLINERR+1, CHANCL+1, REM+1, REM+2, PROC+3, PROC1+2 , PRNTDATE+1, PRNT+4
>> APCPJOB	ERROR+1, ERROR+2, TYPEERR+2, SCERR+1, CLINERR+1, CHANCL+1, REM+1, REM+2, PROC+3, PROC1+2 , PRNTDATE+1, PRNT+4
>> APCPSR("1"	ERROR+4, REM+3, SC+1, CLINIC+1, LOC+1, PROVDISC+1, VD+2*, EOJ+1!, PRNT+3, PRNTPTR+3
>> APCPSR("2"	ERROR+4, TYPEERR+3, SCERR+2, CLINERR+2, REM+3, SC+1, CLINIC+1, LOC+1, PROVDISC+1, VD+2 , EOJ+1!, PROC+3, PROC1+1, PROC1+2, PRNTDATE+1, PRNT+4
>> APCPSR("D"	PROC1+2*, PRNT+4, PRNT+6, PRNTPTR+1, PRNTPTR+3
>> APCPSR("ERR T	OT" , DEL+1!*, DEL+2, DEL+4
>> APCPSR("GLOBAL"	LOC+1*, PRNTPTR+1
>> APCPSR("LOG"	APCPSRP3+7, APCPSRP3+11, APCPSRP3+12, APCPSRP3+13, APCPSRP3+14, APCPSRP3+15, APCPSRP3+16, APCPSRP3+17, DEL+1
>> APCPSR("N"	PROC+3*, PROC1+2, PRNTDATE+1, PRNT+4
>> APCPSR("NON A	PC" , PRNT+1*, PRNT+6
>> APCPSR("PIECE"	LOC+1*, PRNTPTR+2
>> APCPSR("PTR"	ERROR+4, TYPEERR+3, SCERR+2, CLINERR+2, REM+3, SC+1, CLINIC+1, LOC+1, PROVDISC+1, VD+2 , PRNT+5
>> APCPSR("QUIT"	APCPSRP3+4, DEL+2, DEL+3, ERROR+5, TYPEERR+4, SCERR+3, CLINERR+3, REM+4, SC+2, CLINIC+2 , LOC+2, PROVDISC+2, VD+3, PROC+1, PROC+3, PRNT+2
>> APCPSR("T"	ERROR+4, TYPEERR+3, SCERR+2, CLINERR+2, REM+3, SC+1, CLINIC+1, LOC+1, PROVDISC+1, VD+2 , EOJ+1!, PROC+2, PRNT+2
>> APCPSR("TOTC"	EOJ+1!, TOTAL+1, TOTAL+2
>> APCPSR("TOTO"	EOJ+1!
>> APCPSR("WC"	ERROR+4, TYPEERR+3, SCERR+2, CLINERR+2, REM+3, SC+1, CLINIC+1, LOC+1, PROVDISC+1, VD+2 , PRNTDATE+1, PRNT+2, PRNT+6, PRNTPTR+2*
>> APCPSR("X"	DEL+1, DEL+2, DEL+4, EOJ+1!
G	PRNTPTR+1*, PRNTPTR+2, PRNTPTR+4!
IOSL	APCPSRP3+4, DEL+3, PROC+1, PRNT+2
U	APCPSRP3+7, APCPSRP3+12, APCPSRP3+13, APCPSRP3+14, APCPSRP3+15, APCPSRP3+16, APCPSRP3+17, DEL+1, PRNTPTR+2, PRNTPTR+3
>> X	APCPSRP3+7, APCPSRP3+8, APCPSRP3+9, PRNT+4, PRNT+6, PRNTPTR+2, TOTAL+1*
>> Y	DEL+1, PRNTDATE+1
>> Z	TOTAL+2

Customize PDF page

Package: Patient Care Component Data Transmission

Routine: APCPSRP3

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: