PXRRPAPI ;ISL/PKR - Build the patient specific info for each patient on the list. ;6/27/97
Source file <PXRRPAPI.m>
| Package | Total | Call Graph |
|---|---|---|
| PCE Patient Care Encounter | 4 | (DONE,INIT,SPIN)^PXRRBUSY EXIT^PXRRGUT ^PXRRPAPR REQUE^PXRRQUE |
| Kernel | 2 | $$S^%ZTLOAD $$NOW^XLFDT |
| Clinical Reminders | 1 | $$FMDFINVL^PXRMDATE |
| Registration | 1 | (ADD,IN5,KVA,SDA)^VADPT |
| VA Fileman | 1 | FIELD^DID |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DISCHRG(DFN,DATE,IEN) | ;Given a patient and a discharge date find the
|
|
| DISDONE | ;
|
|
| PAT | ;
|
|
| NADM | ||
| NHLOC1 | ||
| ADMDONE | ;
|
|
| SSNFORM(SSN) | ;Format the social security number with dashes.
|
|
| CLAB | ||
| SAVPAT | ;Save the patient data in XTMP in a format suitable for printing.
|
|
| NFAC1 | ||
| DONE | ;
|
|
| ADMISS(DFN,DATE,IEN) | ;Given a patient and an admission date find the
|
|
| EXIT | ;
|
|
| NLAB | ||
| NPAT | ||
| NDIS | ||
| DIS |
| Name | Field # of Occurrence |
|---|---|
| $$S^%ZTLOAD | NHLOC1+4 |
| FIELD^DID | NLAB+7 |
| $$FMDFINVL^PXRMDATE | CLAB+2, CLAB+3, SAVPAT+60 |
| 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 |
| ^ICD9 - [#80] | DISCHRG+24 |
| ^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* |
| Name | Line Occurrences |
|---|---|
| $$SSNFORM | SAVPAT+11 |
| ADMISS | SAVPAT+25 |
| CLAB | NDIS+2 |
| DIS | NADM+2 |
| DISCHRG | SAVPAT+33 |
| DISDONE | DISCHRG+11 |
| DONE | NFAC1+1 |
| NADM | NADM+5 |
| NDIS | NDIS+5 |
| NFAC1 | NHLOC1+1 |
| NHLOC1 | NPAT+1 |
| NLAB | NLAB+13 |
| NPAT | SAVPAT+2, SAVPAT+75 |
| SAVPAT | CLAB+1, NLAB+2 |
| >> | 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+26 |
| 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 |
| 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 |
| 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* |