PXRRPAPI ;ISL/PKR - Build the patient specific info for each patient on the list. ;6/27/97
Source file <PXRRPAPI.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
PCE Patient Care Encounter | 1 | PXRRPASA |
Name | Comments | DBIA/ICR reference |
---|---|---|
PAT | ;
|
|
NFAC1 | ||
NHLOC1 | ||
NPAT | ||
NADM | ||
DIS | ||
NDIS | ||
CLAB | ||
NLAB | ||
SAVPAT | ;Save the patient data in XTMP in a format suitable for printing.
|
|
DONE | ;
|
|
EXIT | ;
|
|
ADMISS(DFN,DATE,IEN) | ;Given a patient and an admission date find the
|
|
ADMDONE | ;
|
|
DISCHRG(DFN,DATE,IEN) | ;Given a patient and a discharge date find the
|
|
DISDONE | ;
|
|
SSNFORM(SSN) | ;Format the social security number with dashes.
|
|
FMDFINVL(INVDT,DATE) | ;Convert an inverse date (LABORATORY format
|
Name | Field # of Occurrence |
---|---|
$$S^%ZTLOAD | NHLOC1+4 |
FIELD^DID | NLAB+7 |
$$ICDDATA^ICDXCODE | DISCHRG+24 |
DONE^PXRRBUSY | DONE+1 |
INIT^PXRRBUSY | PAT+23 |
SPIN^PXRRBUSY | NPAT+6 |
EXIT^PXRRGUT | NHLOC1+4 |
^PXRRPAPR | EXIT+12 |
REQUE^PXRRQUE | EXIT+11 |
ADD^VADPT | SAVPAT+10 |
IN5^VADPT | SAVPAT+39, ADMISS+8, DISCHRG+8 |
KVA^VADPT | NPAT+21, NPAT+29, SAVPAT+9, SAVPAT+13, SAVPAT+38, ADMISS+4, ADMDONE+1, DISCHRG+4, DISDONE+1 |
SDA^VADPT | NPAT+24 |
$$NOW^XLFDT | EXIT+9 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVSIT("AET" | NPAT+12, NPAT+14 |
^DGPM("APTT1" | NADM, NADM+3 |
^DGPM("APTT3" | NDIS, NDIS+3 |
^DGPT - [#45] | DISCHRG+23 |
^DPT - [#2] | CLAB, SAVPAT+3 |
^LAB(60 - [#60] | NLAB+10, NLAB+11 |
^LR - [#63] | NLAB, NLAB+4, NLAB+5, NLAB+9 |
^PX(815 - [#815] | PAT+16, PAT+18, PAT+20 |
^SC - [#44] | PAT+21, SAVPAT+7 |
^TMP( | NPAT+17*, NPAT+18, NPAT+27*, NPAT+30, NADM+4*, NADM+6, NDIS+4*, NDIS+6, NLAB+12*, NLAB+14 , SAVPAT+23, SAVPAT+24, SAVPAT+31, SAVPAT+32, SAVPAT+59, SAVPAT+62, SAVPAT+63, SAVPAT+67, SAVPAT+68, SAVPAT+72 , SAVPAT+73, EXIT+1! |
^UTILITY("VASD" | NPAT+26, NPAT+27, NPAT+28! |
^XTMP( | NFAC1, NHLOC1, NPAT, SAVPAT+8*, SAVPAT+12*, SAVPAT+17, SAVPAT+18*, SAVPAT+37, SAVPAT+55*, SAVPAT+63* , SAVPAT+68*, SAVPAT+73*, EXIT+10, ADMISS+22*, DISCHRG+11, DISCHRG+26* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACTIVITY | PAT+1~, NPAT+2*, NPAT+18*, NPAT+30*, NADM+6*, NDIS+6*, NLAB+14*, SAVPAT+2 |
ADMDATE | DISCHRG+3~, DISCHRG+9*, DISCHRG+10*, DISCHRG+11, DISCHRG+26 |
BACDATE | PAT+1~, PAT+10*, NPAT+10, NPAT+35, DIS, CLAB+2 |
BD | PAT+1~, NPAT+10*, NPAT+12*, NPAT+14, NPAT+17, NPAT+35*, NADM*, NADM+2, NADM+3, NADM+4 , DIS*, NDIS*, NDIS+2, NDIS+3, NDIS+4, CLAB+3*, NLAB*, NLAB+2, NLAB+4, NLAB+5 , NLAB+9, NLAB+12 |
BUSY | PAT+1~, PAT+23, NPAT+6 |
DATE | PAT+1~, SAVPAT+41*, SAVPAT+45, SAVPAT+55, ADMISS~, ADMISS+5, ADMISS+22, DISCHRG~, DISCHRG+5, DISCHRG+10 , DISCHRG+11, DISCHRG+24, DISCHRG+26, FMDFINVL~, FMDFINVL+6 |
DESC | EXIT+6~, EXIT+7*, EXIT+11 |
DFN | PAT+1~, NHLOC1+6*, NPAT*, NPAT+1, NPAT+12, NPAT+14, NPAT+17, NPAT+18, NPAT+27, NPAT+30 , NADM, NADM+3, NADM+4, NADM+6, NDIS, NDIS+3, NDIS+4, NDIS+6, CLAB, NLAB+12 , NLAB+14, SAVPAT+3, SAVPAT+8, SAVPAT+12, SAVPAT+17, SAVPAT+18, SAVPAT+23, SAVPAT+24, SAVPAT+25, SAVPAT+31 , SAVPAT+32, SAVPAT+33, SAVPAT+37, SAVPAT+55, SAVPAT+59, SAVPAT+62, SAVPAT+63, SAVPAT+67, SAVPAT+68, SAVPAT+72 , SAVPAT+73, ADMISS~, ADMISS+22, DISCHRG~, DISCHRG+11, DISCHRG+26 |
DISDATE | SAVPAT+54*, SAVPAT+55, ADMISS+3~, ADMISS+19*, ADMISS+21*, ADMISS+22 |
DT | SAVPAT+54, ADMISS+21 |
EACDATE | PAT+1~, PAT+11*, NPAT+11, NPAT+12, NPAT+36, DIS+1, CLAB+3 |
ED | PAT+1~, NPAT+11*, NPAT+36*, NADM+2, DIS+1*, NDIS+2, CLAB+2*, NLAB+2 |
ERIEN | PAT+1~ |
ERIEN( | PAT+21*, NPAT+16, NPAT+17 |
ERR | PAT+1~ |
FACIEN | PAT+2~, PAT+25*, NFAC1*, NFAC1+1, NHLOC1, NPAT, SAVPAT+6, SAVPAT+17, SAVPAT+18, SAVPAT+37 , SAVPAT+55, SAVPAT+63, SAVPAT+68, SAVPAT+73, ADMISS+22, DISCHRG+11, DISCHRG+26 |
FACNAM | PAT+2~, SAVPAT+6*, SAVPAT+8 |
FSSN | SSNFORM+1~, SSNFORM+3*, SSNFORM+5*, SSNFORM+7*, SSNFORM+8 |
HLOCIEN | PAT+3~, NFAC1+3*, NHLOC1*, NHLOC1+1, NPAT, SAVPAT+7, SAVPAT+8, SAVPAT+17, SAVPAT+18, SAVPAT+37 , SAVPAT+55, SAVPAT+63, SAVPAT+68, SAVPAT+73, ADMISS+22, DISCHRG+11, DISCHRG+26 |
HLOCNAM | PAT+3~, SAVPAT+7*, SAVPAT+8 |
IC | PAT+2~, PAT+15*, PAT+16*, PAT+18, PAT+20, NPAT+15*, NPAT+16, NPAT+17, NPAT+25*, NPAT+26* , NPAT+27, NLAB+3*, NLAB+4*, NLAB+5, NLAB+7, NLAB+10, NLAB+12, SAVPAT+16*, SAVPAT+17*, SAVPAT+18 , SAVPAT+22*, SAVPAT+23*, SAVPAT+24, SAVPAT+25, SAVPAT+30*, SAVPAT+31*, SAVPAT+32, SAVPAT+33, SAVPAT+58*, SAVPAT+59* , SAVPAT+60, SAVPAT+62, SAVPAT+63, SAVPAT+66*, SAVPAT+67*, SAVPAT+68, SAVPAT+71*, SAVPAT+72*, SAVPAT+73 |
ICD9IEN | DISCHRG+3~, DISCHRG+23*, DISCHRG+24 |
IEN | PAT+2~, NADM+3*, NADM+4, NDIS+3*, NDIS+4, SAVPAT+24*, SAVPAT+25, SAVPAT+32*, SAVPAT+33, ADMISS~ , ADMISS+6, DISCHRG~, DISCHRG+6 |
INVDT | FMDFINVL~, FMDFINVL+2, FMDFINVL+4 |
IO("S" | PAT+23, NPAT+6, DONE+1 |
JC | PAT+2~, PAT+17*, PAT+18*, PAT+20, NLAB+10*, NLAB+11, SAVPAT+61*, SAVPAT+62*, SAVPAT+63 |
LABTEST | PAT+3~ |
LABTEST("LABEL" | NLAB+12 |
LOCIEN | PAT+3~, NPAT+13*, NPAT+14*, NPAT+16 |
LRDFN | PAT+3~, CLAB*, CLAB+1, NLAB, NLAB+4, NLAB+5, NLAB+9 |
NERM | PAT+3~, PAT+14*, PAT+19*, PAT+21, NPAT+9, NPAT+15 |
PNAME | PAT+4~, SAVPAT+4*, SAVPAT+8 |
>> PXRRBCDT | PAT+10, SAVPAT+45 |
>> PXRRBFDT | NPAT+22 |
>> PXRRECDT | PAT+11 |
>> PXRREFDT | NPAT+23 |
>> PXRRFACN( | SAVPAT+6 |
>> PXRRQUE | PAT+23, NPAT+6, DONE+1, EXIT+4 |
>> PXRRXTMP | NFAC1, NHLOC1, NPAT, NPAT+17, NPAT+18, NPAT+27, NPAT+30, NADM+4, NADM+6, NDIS+4 , NDIS+6, NLAB+12, NLAB+14, SAVPAT+8, SAVPAT+12, SAVPAT+17, SAVPAT+18, SAVPAT+23, SAVPAT+24, SAVPAT+31 , SAVPAT+32, SAVPAT+37, SAVPAT+55, SAVPAT+59, SAVPAT+62, SAVPAT+63, SAVPAT+67, SAVPAT+68, SAVPAT+72, SAVPAT+73 , EXIT+1, EXIT+10, ADMISS+22, DISCHRG+11, DISCHRG+26 |
ROUTINE | EXIT+6~, EXIT+8*, EXIT+11 |
SPEC | PAT+4~, NLAB+9*, NLAB+11 |
SSN | PAT+4~, SAVPAT+5*, SAVPAT+8, SAVPAT+11, SSNFORM~, SSNFORM+2, SSNFORM+4, SSNFORM+6 |
SSNF | PAT+4~, SAVPAT+11*, SAVPAT+12 |
TASK | EXIT+6~, EXIT+10*, EXIT+11 |
TEMP | PAT+5~, PAT+20*, PAT+21, NLAB+5*, NLAB+6, NLAB+12, SAVPAT+3*, SAVPAT+4, SAVPAT+5, SAVPAT+47* , SAVPAT+49*, SAVPAT+51*, SAVPAT+53*, SAVPAT+55, SAVPAT+60*, SAVPAT+63, ADMISS+3~, ADMISS+11*, ADMISS+13*, ADMISS+15* , ADMISS+17*, ADMISS+22, DISCHRG+3~, DISCHRG+14*, DISCHRG+16*, DISCHRG+18*, DISCHRG+20*, DISCHRG+24*, DISCHRG+26, SSNFORM+1~ , SSNFORM+2*, SSNFORM+3, SSNFORM+4*, SSNFORM+5, SSNFORM+6*, SSNFORM+7, FMDFINVL+3~, FMDFINVL+4*, FMDFINVL+6*, FMDFINVL+7 |
U | PAT+21, NPAT+16, NLAB+6, NLAB+9, NLAB+11, NLAB+12, SAVPAT+4, SAVPAT+5, SAVPAT+6, SAVPAT+7 , SAVPAT+8, SAVPAT+12, SAVPAT+41, SAVPAT+47, SAVPAT+49, SAVPAT+51, SAVPAT+53, ADMISS+11, ADMISS+13, ADMISS+15 , ADMISS+17, ADMISS+19, DISCHRG+9, DISCHRG+16, DISCHRG+18, DISCHRG+20, DISCHRG+23, DISCHRG+24 |
UNITS | PAT+4~, NLAB+11*, NLAB+12 |
>> VAIP("D" | ADMISS+5*, DISCHRG+5* |
>> VAIP("E" | ADMISS+6*, DISCHRG+6* |
>> VAIP("M" | ADMISS+7*, DISCHRG+7* |
>> VAIP(12 | DISCHRG+23 |
>> VAIP(13 | SAVPAT+40, SAVPAT+41, SAVPAT+53, ADMISS+17, DISCHRG+9, DISCHRG+20 |
>> VAIP(14 | SAVPAT+47, SAVPAT+49, SAVPAT+51, ADMISS+11, ADMISS+13, ADMISS+15 |
>> VAIP(17 | ADMISS+18, ADMISS+19, DISCHRG+16, DISCHRG+18 |
>> VAPA(1 | SAVPAT+12 |
>> VAPA(2 | SAVPAT+12 |
>> VAPA(3 | SAVPAT+12 |
>> VAPA(4 | SAVPAT+12 |
>> VAPA(5 | SAVPAT+12 |
>> VAPA(6 | SAVPAT+12 |
>> VAPA(8 | SAVPAT+12 |
>> VASD("F" | NPAT+22* |
>> VASD("T" | NPAT+23* |
>> ZTDTH | EXIT+9* |
>> ZTREQ | PAT+8* |
>> ZTSTOP | NHLOC1+4* |