Routine: APCPDR2

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

APCPDR2 ; IHS/TUCSON/LAB - OHPRD-TUCSON/EDE - VISIT PROCESSING FOR PCC TX TRANSACTIONS AUGUST 14, 1992 ; [ 03/29/04 7:51 AM ]

Source Information

Source file <APCPDR2.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Patient Care Component Data Transmission	4	^APCPAH ^APCPAPC (DEM,RESET)^APCPDR21 ^APCPERR
IHS Patient	1	$$CPT^AUPNCPT

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Patient Care Component Data Transmission	6	APCPAA APCPAH APCPAPC APCPDR APCPREDO APCPSRE

Entry Points

Name	Comments	DBIA/ICR reference
COUNT	;EP
PRIMTX	;PROCESS PRIMARY TX (PCIS,APC OR INPT)
STATMEGA	;generate area mega database record
DELCNT	;
VREC(APCPVIEN,APCPRTYP,APCPVAR1,APCPVAR2,APCPVAR3,APCPVAR4,APCPVAR5,APCPVAR6)	;generate 1 record delimited format
PROCTX	; process and generate appropriate statistical record
FINDDSCH	;
VISIT	;EP
LZERO(V,L)	;EP - left zero fill
LBLK(V,L)	;left blank fill
RZERO(V,L)	;ep right zero fill
DEM	;
RBLK(V,L)	;EP right blank fill
APC	;generate APC record
DELSTAT	;generate new delimited format of the statistical record
PED(V,N)	;EP - return nth v patient ed on this visit
INPT	;
DATE(D)	;EP - return YYYYMMDD from internal fm format
EXAM(V,N)	;EP - return nth v exam on this visit

Name	Field # of Occurrence
^APCPAH	INPT+1
^APCPAPC	APC+3
DEM^APCPDR21	DEM+1
RESET^APCPDR21	APCPDR2+8, INPT+1
^APCPERR	COUNT+1
$$CPT^AUPNCPT	DELSTAT+14

Name	Line Occurrences (* Changed, ! Killed)
^APCPREC - [#9001005.3]	VREC+5, VREC+7, VREC+8, VREC+9, VREC+10, VREC+11
^APCPREC("B"	VREC+3
^AUPNVCHS - [#9000010.03]	FINDDSCH+2
^AUPNVCHS("AD"	FINDDSCH+2
^AUPNVCPT - [#9000010.18]	DELSTAT+21
^AUPNVINP - [#9000010.02]	FINDDSCH+1, STATMEGA+10
^AUPNVINP("AD"	FINDDSCH+1, STATMEGA+8
^AUPNVMED - [#9000010.14]	DELSTAT+28, DELSTAT+31, DELSTAT+32, DELSTAT+33
^AUPNVMED("AD"	DELSTAT+27
^AUPNVPED - [#9000010.16]	PED+6
^AUPNVPED("AD"	PED+6
^AUPNVSIT - [#9000010]	APCPDR2+5, INPT+1, APC+3, VREC+1, VREC+2, EXAM+2, PED+2
^AUPNVXAM - [#9000010.13]	EXAM+6
^AUPNVXAM("AD"	EXAM+6
^AUTTEDT - [#9999999.09]	PED+8, PED+9
^AUTTEXAM - [#9999999.15]	EXAM+8, EXAM+9
^AUTTLOC - [#9999999.06]	VISIT+9
^AUTTSITE(1	APCPDR2+5
^BAPCDATA(	DELCNT+2*
^DIC(40.7 - [#40.7]	VISIT+6
^PSDRUG - [#50]	DELSTAT+28, DELSTAT+30, DELSTAT+32, DELSTAT+33
^XTMP("APCP"	DELSTAT+2*

Label References

Name	Line Occurrences
$$VREC	DELSTAT+3, DELSTAT+5, DELSTAT+7, DELSTAT+9, DELSTAT+11, DELSTAT+22, DELSTAT+34
COUNT	APCPDR2+8
DELCNT	DELSTAT+4, DELSTAT+6, DELSTAT+8, DELSTAT+10, DELSTAT+12, DELSTAT+23, DELSTAT+35
DELSTAT	STATMEGA+12
FINDDSCH	DEM+6
PRIMTX	PROCTX+1
PROCTX	APCPDR2+12
STATMEGA	PROCTX+3
VISIT	APCPDR2+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXAM+4~, PED+4~, RZERO+1~, RZERO+2, LZERO+1~, LZERO+2, LBLK+1~, LBLK+2, RBLK+1~, RBLK+2
>> APCP("COUNT"	DELCNT+1*, DELCNT+2
>> APCP("DEL NEV	ER SENT" , APCPDR2+6*
>> APCP("DEMO PA	T" , APCPDR2+10*
>> APCP("ERROR C	OUNT" , COUNT+1*
>> APCP("MAIN TX	DATE" , DELSTAT+2
>> APCP("MFI"	APCPDR2+5*
>> APCP("STAT"	DELCNT+1*
>> APCP("V DFN"	APCPDR2+5, APCPDR2+8, FINDDSCH+1, FINDDSCH+2, INPT+1, APC+3, STATMEGA+8, DELSTAT+2, DELSTAT+3, DELSTAT+5 , DELSTAT+7, DELSTAT+9, DELSTAT+11, DELSTAT+14, DELSTAT+22, DELSTAT+27, DELSTAT+34
>> APCP("VISITS	STAT" , DELSTAT+1*
>> APCP("X"	DELCNT+2, DELSTAT+3, DELSTAT+5, DELSTAT+7, DELSTAT+9, DELSTAT+11, DELSTAT+22, DELSTAT+34*
APCPE	APCPDR2+8, APCPDR2+9, APCPDR2+13!, DEM+3, PROCTX+2, PRIMTX+1!, INPT+1
APCPE("EDFN"	APCPDR2+8*
APCPE("ERROR"	COUNT+1, VISIT+2, VISIT+3, VISIT+5, VISIT+8, VISIT+9*
APCPE("FILE"	APCPDR2+8*
APCPH	APCPDR2+13!
APCPMC	DELSTAT+25!, DELSTAT+27, DELSTAT+29, DELSTAT+34
APCPMCLS	DELSTAT+25!, DELSTAT+33*, DELSTAT+34
APCPMD	DELSTAT+25!, DELSTAT+28, DELSTAT+30, DELSTAT+34
APCPMED	DELSTAT+25!
APCPMNDC	DELSTAT+25!, DELSTAT+32*, DELSTAT+34
APCPMQ	DELSTAT+25!, DELSTAT+31*, DELSTAT+34
APCPMX	DELSTAT+25!, DELSTAT+27*, DELSTAT+28, DELSTAT+31, DELSTAT+32, DELSTAT+33
>> APCPO("RUN"	DELSTAT+2
APCPRIEN	VREC+3~*, VREC+4, VREC+5, VREC+7, VREC+8, VREC+9, VREC+10, VREC+11
APCPRTYP	VREC~, VREC+3
>> APCPS("ORYX"	DELSTAT+26, VREC+9, VREC+10, VREC+11
>> APCPS("STAT"	STATMEGA+1
APCPT	APCPDR2+13!, VREC+5~, VREC+12, VREC+14
>> APCPV("CLINIC	CODE" , VISIT+6*
>> APCPV("CPT CO	UNT" , DELSTAT+16*, DELSTAT+17
>> APCPV("CPT RE	CS" , DELSTAT+17*, DELSTAT+18
>> APCPV("CPT SE	T" , DELSTAT+19!, DELSTAT+21, DELSTAT+22
>> APCPV("CPT X"	, DELSTAT+18*, DELSTAT+19, DELSTAT+22
>> APCPV("DEP CO	UNT" , APCPDR2+5, APCPDR2+6, VISIT+1*, VISIT+2
>> APCPV("DISCHA	RGE DATE" , FINDDSCH+1, FINDDSCH+2
>> APCPV("ELOC"	VISIT+10*
>> APCPV("IHS LO	CATION CODE" , APCPDR2+11, VISIT+9, VISIT+10
>> APCPV("LOC DF	N" , VISIT+7*, VISIT+8, VISIT+9
>> APCPV("PATIEN	T NAME" , APCPDR2+10, DEM+2
>> APCPV("SRV CA	T" , APCPDR2+8, VISIT+4*, VISIT+5, INPT+1, APC+3, STATMEGA+7
>> APCPV("STAT T	X GEN" , DELSTAT+36*
>> APCPV("T-INIT"	DEM+4*
>> APCPV("T-LOCAS"	VISIT+10*
>> APCPV("T-TCODE"	APCPDR2+8*
>> APCPV("TX GEN	ERATED" , DELSTAT+2*
>> APCPV("TYPE"	APCPDR2+5, APCPDR2+6, VISIT+1*, VISIT+3, INPT+1, STATMEGA+7
>> APCPV("V REC"	, APCPDR2+5, APCPDR2+6, VISIT+1, VISIT+2, VISIT+4, VISIT+6, VISIT+7, DEM+6
APCPVAR1	VREC~
APCPVAR2	VREC~
APCPVAR3	VREC~
APCPVAR4	VREC~
APCPVAR5	VREC~
APCPVAR6	VREC~
APCPVIEN	VREC~, VREC+1, VREC+2
APCPVIEN(0	VREC+1*
APCPY	VREC+5~*, VREC+7, VREC+12
APCPZ	VREC+7~*, VREC+8, VREC+9, VREC+10, VREC+11
AUPNCPT	DELSTAT+14!, DELSTAT+15
AUPNCPT(	DELSTAT+16, DELSTAT+19, DELSTAT+20, DELSTAT+21
C	EXAM+4~, EXAM+5, EXAM+6, PED+4~, PED+5, PED+6
D	DATE~, DATE+2, DATE+3
>> DFN	VREC+2*
>> E	DELSTAT+21*
I	RZERO+1~, RZERO+2, LZERO+1~, LZERO+2, LBLK+1~, LBLK+2, RBLK+1~, RBLK+2
L	RZERO~, RZERO+2, LZERO~, LZERO+2, LBLK~, LBLK+2, RBLK~, RBLK+2
N	EXAM~, EXAM+3, EXAM+6, PED~, PED+3, PED+6
P	DELSTAT+19, DELSTAT+21, EXAM+4~, EXAM+5, EXAM+6, EXAM+7, EXAM+8, EXAM+9, PED+4~, PED+5 , PED+6*, PED+7, PED+8, PED+9
U	APCPDR2+5, APCPDR2+6, VISIT+1, VISIT+2, VISIT+4, VISIT+6, VISIT+7, VISIT+9, DEM+6, FINDDSCH+1 , FINDDSCH+2, INPT+1, APC+3, STATMEGA+10, DELSTAT+19, DELSTAT+20, DELSTAT+21, DELSTAT+28, DELSTAT+30, DELSTAT+31 , DELSTAT+32, DELSTAT+33, VREC+2, VREC+10, VREC+11, VREC+12, EXAM+6, EXAM+9, PED+6, PED+9
V	EXAM~, EXAM+1, EXAM+2, EXAM+6, PED~, PED+1, PED+2, PED+6, RZERO~, RZERO+2* , RZERO+3, LZERO~, LZERO+2, LZERO+3, LBLK~, LBLK+2, LBLK+3, RBLK~, RBLK+2*, RBLK+3
>> X	VISIT+6, FINDDSCH+1, FINDDSCH+2, DELSTAT+14, DELSTAT+16, VREC+6, VREC+10*, VREC+12
Y	STATMEGA+7, STATMEGA+8, STATMEGA+11, DELSTAT+19, DELSTAT+20, DELSTAT+21, EXAM+4~, EXAM+5, EXAM+6, PED+4~ , PED+5, PED+6*
Z	STATMEGA+8, STATMEGA+9, STATMEGA+10, EXAM+4~, EXAM+5, EXAM+6, PED+4~, PED+5, PED+6, RZERO+2 , LZERO+2, LBLK+2, RBLK+2*

Customize PDF page

Package: Patient Care Component Data Transmission

Routine: APCPDR2

Call Graph Total: 5

Caller Graph Total: 6