Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCPDR2

Package: Patient Care Component Data Transmission

Routine: APCPDR2


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

External References

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

Global Variables Directly Accessed

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All