Routine: APCPSRP5

Information

APCPSRP5 ; IHS/TUCSON/LAB - PRINT . SECTION AUGUST 14, 1992 ; [ 08/17/2003 8:15 PM ]

Package	Total	Call Graph
Patient Care Component Data Transmission	1	HEAD^APCPSRP
VA Fileman	1	DD^%DT

Package	Total	Caller Graph
Patient Care Component Data Transmission	1	APCPSRP

Name	Field # of Occurrence
DD^%DT	PRNTDATE+1
HEAD^APCPSRP	APCPSRP5+5, INPT+3, PROC+1, PRNT+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"STATISTICAL DATABASE RECORDS EXPORTED" Line Location: APCPSRP5+6
Function Call: WRITE	Prompt: !,"There were NO STATISTICAL DATABASE transactions generated.",!! Line Location: APCPSRP5+7
Function Call: WRITE	Prompt: !,"Following is a breakdown of all visits that generated STATISTICAL DATABASE",!,"transactions by Visit Date, Type, Location, Service Category, Clinic and",!," Primary Provider Discipline." Line Location: APCPSRP5+8
Function Call: WRITE	Prompt: !!,"Total Number of Hospitalization Visits to this Facility that were exported: ",APCPSR("INPT CNT"),! Line Location: INPT+4
Function Call: WRITE	Prompt: !!?10,APCPSR("T") Line Location: PROC+2
Function Call: WRITE	Prompt: !?13,Y,?45,$J(^XTMP("APCPSR",APCPJOB,APCPBTH,"GEN",APCPSR("2"),APCPSR("N")),7) Line Location: PRNTDATE+1
Function Call: WRITE	Prompt: !!?10,APCPSR("T") Line Location: PRNT+1
Function Call: WRITE	Prompt: " (cont.)" Condition for execution: APCPSR("WC")>0 Line Location: PRNT+1
Function Call: WRITE	Prompt: !?13,APCPSR("D"),?45,$J(X,7) Line Location: PRNT+5
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

Name	Line Occurrences (* Changed, ! Killed)
^APCPLOG - [#9001005]	APCPSRP5+7, INPT+2
^AUPNVSIT - [#9000010]	INPT+2
^AUTTLOC - [#9999999.06]	PRNTPTR+3
^XTMP("APCPSR"	PROC+3, PROC1+2, PRNTDATE+1, PRNT+3

Name	Line Occurrences
EOJ	APCPSRP5+7
PRNT	PROC1+1, PROC1+2
PRNTDATE	PRNT+2
PRNTPTR	PRNT+4
PROC	VD+3, TYPE+2, LOC+2, SC+2, CLINIC+2, PROVDISC+2
PROC1	PROC+3

Name	Field # of Occurrence
>> APCPBTH	PROC+3, PROC1+2, PRNTDATE+1, PRNT+3
>> APCPJOB	PROC+3, PROC1+2, PRNTDATE+1, PRNT+3
>> APCPSR("1"	VD+2, TYPE+1, LOC+1, SC+1, CLINIC+1, PROVDISC+1, PRNT+2, PRNTPTR+3
>> APCPSR("2"	VD+2, TYPE+1, LOC+1, SC+1, CLINIC+1, PROVDISC+1, PROC+3, PROC1+1, PROC1+2, PRNTDATE+1 , PRNT+3
>> APCPSR("D"	PROC1+2*, PRNT+3, PRNT+5, PRNTPTR+1, PRNTPTR+3
>> APCPSR("GLOBAL"	LOC+1*, PRNTPTR+1
>> APCPSR("INPT	CNT" , INPT+1, INPT+2, INPT+4
>> APCPSR("LOG"	APCPSRP5+7, INPT+2
>> APCPSR("N"	PROC+3*, PROC1+2, PRNTDATE+1, PRNT+3
>> APCPSR("PIECE"	LOC+1*, PRNTPTR+2
>> APCPSR("PTR"	VD+2, TYPE+1, LOC+1, SC+1, CLINIC+1, PROVDISC+1, PRNT+4
>> APCPSR("QUIT"	APCPSRP5+5, INPT+3, VD+3, TYPE+2, LOC+2, SC+2, CLINIC+2, PROVDISC+2, PROC+1, PROC+3 , PRNT+1
>> APCPSR("T"	VD+2, TYPE+1, LOC+1, SC+1, CLINIC+1, PROVDISC+1, PROC+2, PRNT+1
>> APCPSR("WC"	VD+2, TYPE+1, LOC+1, SC+1, CLINIC+1, PROVDISC+1, PRNTDATE+1, PRNT+1, PRNT+5, PRNTPTR+2*
DUZ(2	INPT+2
G	PRNTPTR+1*, PRNTPTR+2, PRNTPTR+4!
IOSL	APCPSRP5+5, INPT+3, PROC+1, PRNT+1
U	APCPSRP5+7, INPT+2, PRNTPTR+2, PRNTPTR+3
>> V	INPT+2*
>> X	INPT+2, PRNT+3, PRNT+5, PRNTPTR+2
>> Y	PRNTDATE+1*